Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Timer Tracing
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01512587
Message ID:
01512590
Views:
44
>>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.
>
>You may want to disable timer this.enabled = .f. right before SET STEP ON.

Ok...
Tommy Tillman A+ NetWork+ MCP
Previous
Reply
Map
View

Click here to load this message in the networking platform