*pgvalimp
sele cl
set order to 2
vcl=fc->codecli
seek vcl
if .not. found()
sele fc
retu
endi
WSELE 0
TITRE ="EDITION VALIDATION DES COMMANDES"
DO TITRE
NBIMPR=1
@ 12,5 SAY "IMPRESSION DE LA COMMANDE EN COURS O/N" GET REP PICT "!"
READ
IF REP #"O"         
rep="N"
ENDI
pol1=CHR(27)+"&l0O"+chr(27)+"(s12U"+chr(27)+"(s0P"+chr(27)+"(s12H"+chr(27)+"(s12V"+chr(27)+"(s0S"+chr(27)+"(s0B"+chr(27)+"(s3T"
pol2=CHR(27)+"&l0O"+chr(27)+"(s12U"+chr(27)+"(s0P"+chr(27)+"(s16H"+chr(27)+"(s12V"+chr(27)+"(s0S"+chr(27)+"(s0B"+chr(27)+"(s3T"
pol3=CHR(27)+"&l0O"+chr(27)+"(s12U"+chr(27)+"(s1P"+chr(27)+"(s5H"+chr(27)+"(s24V"+chr(27)+"(s0S"+chr(27)+"(s0B"+chr(27)+"(s6T"
TOTTVA1=0
TOTTVA2=0
TOTFACHT1=0
TOTFACHT2=0
TOTFAC=0       
dec=0       
IF REP="O"
@ 14,5 SAY "NOMBRE D'EXEMPLAIRES " GET NBIMPR
READ
set print on
ENDI
IF NBIMPR <1
NBIMPR=1
ENDI
IMPRIME=0

DO WHILE IMPRIME< NBIMPR
IF REP="O"
SET PRINT ON
ENDI
TOTTVA1=0
TOTTVA2=0
TOTFACHT1=0
TOTFACHT2=0
TOTFAC=0       
dec=0       
sele FC
*set relation to codecli into cl
set order to 2
? pol1
?"                                             COMMANDE Nø  ",NUMCOM,"  ",fc->dateCOM
?
?"                                             CLIENT :",trim(cl->nomcli)+" "+cl->prenomcli
?
?" … livrer : ",fc->nomliv
?"            ",FC->ad1liv+space(42-len(ltrim(fc->ad1liv)))+cl->ad1
?"            ",FC->ad2liv,cl->ad2
?"            ",FC->codliv,ltrim(FC->villeliv)+space(33-len(ltrim(fc->villeliv)))+cl->cp+" "+cl->ville
?
?
?
? "   ARTICLE            QUANTITE      DESIGNATION                    PRIX/BT TTC   TOT TTC"
?
?
nlfac=prow()
IF REP="O"             
set print off
ENDI       
SELE LG
SET RELATION TO CODEARTI INTO AR
GO TOP
SEEK VNUMTMP
DO WHILE LG->NUMcom  = VNUMTMP
IF REP="O"            
SET PRINT ON
ENDI                                           
IF LG->QUANTITE # 0
?? pol1+"  ",LG ->CODEARTI,"               ",pol2+str(lg->colisage,5,3)+"x"+str(lg->quantite,4,0),"   ",AR->DESIGNART,"        ",str(LG->PRIXUNI,7,2)
?? pol1+"    ",LG->PRIXLGHT
IF LG->TVA2#0
TOTTVA2=TOTTVA2+LG->TVA2
TOTFACHT2=TOTFACHT2+LG->PRIXLGHT-LG->TVA2
ELSE
ENDI
TOTFAC=TOTFAC+PRIXLGHT
ELSE
TOTFAC=TOTFAC+PRIXLGHT
ELSE
if dec=0
?
?
dec=1
nlfac=nlfac+2
endi
?? "    ",pol2+"             "+AR->DESIGNART
ENDI
?
nlfac=nlfac+1
IF REP="O"             
set print off
ENDI    
skip
ENDD
IF REP="O"            
set print on
ENDI                  
?
nlfac=nlfac+1
?
? pol3
? "                                                                            TOTAL      ",(str(totfac,10,2))
? pol1
?
if dtoc (fc->dateelevm)<>"  /  /  "
?"DATE ENLEVEMENT :",fc->dateelevm
else
? "livraison pr‚vue semaine :",fc->semexp,"  par :",fc->modtrans
endi
?
? "Repr‚sentant :",fc->cdrep," ",fc->nomrepr
?
IMPRIME=IMPRIME+1
if rep="O"     
eject
endi     
ENDDO
if rep = "O"
set print off
endi
RETU