Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Eject
Message
From
27/03/2003 00:58:46
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Title:
Eject
Miscellaneous
Thread ID:
00770619
Message ID:
00770619
Views:
45
Dear All,

I encounter problem with EJECT. If the condition is tru the eject works and condition is false EJECT doesn't work. What's wrong with it.


SET DEVICE TO PRINTER
Some code goes here

here is the condition

IF LEN(foRhd)>0
IF cuStmr.paYmod='Q'
@ mrOw, 0 SAY ;
'Payment by Cross Cheque(s) only, drawn in favour of '+ ;
foRhd+''
mrOw = mrOw+1
ENDIF
foRntn = RTRIM(coMpntn(msTat))
IF miNcm .AND. LEN(foRntn)>0
@ mrOw, 0 SAY ;
'In case of I.T. deduction under U/S 50(4) quote NTN : '+ ;
foRntn+''
ENDIF
mrOw = mrOw+6
@ mrOw, 25 SAY 'For : '+foRhd+''
ENDIF
EJECT &&if the condition is true then eject works otherwise no
SET DEVICE TO SCREEN
Next
Reply
Map
View

Click here to load this message in the networking platform