Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Eject
Message
De
27/03/2003 00:58:46
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
FoxPro 2.x
Titre:
Eject
Divers
Thread ID:
00770619
Message ID:
00770619
Vues:
47
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform