Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Timer Tracing
Message
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Timer Tracing
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01512587
Message ID:
01512587
Vues:
140
Hi Gang!

I want to trace the code in this timer event (timer is on a non-modal form.

When the form comes up, it runs the timer after 1 second... and my debug window appears....
LOCAL lcTheExtendedFullRx,llRecordsSetUp,llNoError
LOCAL lcTheRxList,lcVersion,lnThePatientID,lnThePlanID,lnRxCounter
LOCAL lcTheFullRx,lnState,lcError

LOCAL llClaimPaid,lcTheResponseStatus
LOCAL lcTheClaimNetworkHeader,lcTheTypeOfTransaction
LOCAL lnCryptError,lnTheNumberOfRxs,lnTheStringOffset
LOCAL lnThePassThru,lnTheRejectCount,lnTheOffset,lcTheRejectString
LOCAL lnRejectCounter,lcTheRejectCode,lcTheMessage,lcTheErrorMessage
LOCAL lcTheModemErrorString,lnTheIncentive,lcTheSegmentID,lcTheHdrErrorString,lcTheClaimInfoErrorString
LOCAL lcTransmissionLevelString,lcTransactionLevelString,lnFirstGroupSeparatorOffset
LOCAL lnTransactionBeginning,lnGroupSeparatorOffset,lcTheTransaction 
LOCAL lnStringLength

************************ SEND PORTION *************************************
*TOMMY ADDED for testing

This.Interval = 0

_screen.Show
SET STEP ON 

*TOMMY

lcError = ""

gcTheTXErrorString = ""  && variable which contains the transmit error string
gcTheString = "" && variable which contains the transmit string

llNoError = .T.

SELECT rx_claim
* Set up the rx_claim table so records are in an order that groups them by patient_no and bin_no.
* Only look at those records that are ready to transmit and have not been transmitted or rejected before.
SET ORDER TO XMITORDER IN rx_claim
SET FILTER TO statuscode = 0 IN rx_claim
GO TOP IN rx_claim
When I click on the Step Into or Step Over of the debug Trace Window, the code does NOT go to the lcError line.... it jumps OUT of the code above and back to the calling Show statment for the Form !!

Ok... so what did I do wrong??? I thought the This.Interval = 0 would stop any events occuring while I was tracing this code.... and there was one other timer on the form, and I set it to 0 also in its properties.
Tommy Tillman A+ NetWork+ MCP
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform