Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Form option works with Debugger on, doesn't work with it off
Message
From
02/03/2000 15:05:02
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Form option works with Debugger on, doesn't work with it off
Miscellaneous
Thread ID:
00340811
Message ID:
00340811
Views:
46
I have an option object with four buttons. On changing the option's value, certain actions take place. When I run the debugger, the sequence works correctly. When I'm not running the debugger, the actions behave as if the value of the option were being changed to the PREVIOUS value, not the new value. 'Tis quite bothersome.

Here is the Interactive Change method:

SET STEP ON
DO CASE
CASE gnDebitOption = 1
m.CC_Debit = .F.
m.bank_Debit = ' '
*!* REPLACE lvf_leadcontracts.CC_Debit WITH .F.
*!* REPLACE lvf_leadcontracts.bank_debit WITH ' '
IF !EMPTY(lvf_leadcontracts.cc_acct) .OR. !EMPTY(lvf_leadcontracts.bankacctno)
lnOption = MESSAGEBOX('Clear the Existing Debit account number?', 52)
IF lnOption = 6
m.cc_Acct = ""
m.bankAcctNo = ""
*!* REPLACE lvf_leadcontracts.cc_acct WITH ""
*!* REPLACE lvf_leadcontracts.bankacctno WITH ""
ENDIF
ENDIF
This.Parent.cntBankDebit.ENABLED = .F.
This.Parent.cntBankDebit.VISIBLE = .F.
This.Parent.cntCCDebit.ENABLED = .F.
This.Parent.cntCCDebit.VISIBLE = .F.

This.Parent.cntBankDebit.Refresh
This.Parent.cntCCDebit.Refresh

CASE gnDebitOption = 2 && Debit Checking Account
m.CC_Debit = .F.
m.bank_Debit = 'C'
*!* REPLACE lvf_leadcontracts.CC_Debit WITH .F.
*!* REPLACE lvf_leadcontracts.bank_debit WITH 'C'
This.Parent.cntBankDebit.ENABLED = .T.
This.Parent.cntBankDebit.VISIBLE = .T.
This.Parent.cntCCDebit.ENABLED = .F.
This.Parent.cntCCDebit.VISIBLE = .F.

This.Parent.cntBankDebit.Refresh
This.Parent.cntCCDebit.Refresh
This.Parent.cntBankDebit.txtABARouting.SetFocus

CASE gnDebitOption = 3 && Debit Savings Account
m.CC_Debit = .F.
m.bank_Debit = 'S'
*!* REPLACE lvf_leadcontracts.CC_Debit WITH .F.
*!* REPLACE lvf_leadcontracts.bank_debit WITH 'S'
This.Parent.cntBankDebit.ENABLED = .T.
This.Parent.cntBankDebit.VISIBLE = .T.

This.Parent.cntCCDebit.ENABLED = .F.
This.Parent.cntCCDebit.VISIBLE = .F.

This.Parent.cntBankDebit.Refresh
This.Parent.cntCCDebit.Refresh
This.Parent.cntBankDebit.txtABARouting.SetFocus

CASE gnDebitOption = 4 && Debit Credit Card
m.CC_Debit = .T.
m.Bank_Debit = ' '
*!* REPLACE lvf_leadcontracts.CC_Debit WITH .T.
*!* REPLACE lvf_leadcontracts.bank_debit WITH ' '
This.Parent.cntBankDebit.ENABLED = .F.
This.Parent.cntBankDebit.VISIBLE = .F.
This.Parent.cntCCDebit.ENABLED = .T.
This.Parent.cntCCDebit.VISIBLE = .T.

This.Parent.cntBankDebit.Refresh
This.Parent.cntCCDebit.Refresh
This.Parent.cntCCDebit.cboCredCard.SetFocus
ENDCASE


End Code Block.

"It came to pass"
Next
Reply
Map
View

Click here to load this message in the networking platform