Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Timer Tracing
Message
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Timer Tracing
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:
01512587
Views:
139
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
Next
Reply
Map
View

Click here to load this message in the networking platform