WSELE 0
TITRE ="EDITION VALIDATION DES FACTURES"
DO TITRE
@ 12,5 SAY "IMPRESSION DE LA FACTURE EN COURS O/N" GET REP PICT "!"
READ
TOTTVA1=0
TOTTVA2=0
TOTFACHT1=0
TOTFACHT2=0
TOTFAC=0       
dec=0       
sele FC
IF REP="O"
set print on
ENDI
*eject
*? chr(27)+chr(64),chr(27)+chr(63)+chr(49)
? CHR(18)
?"                              FACTURE Nø  ",NUMERO ,"             ",fc->datefact
? 
? 
?
?       
?"                                         ",FC->nomcli
?                                                      
?"                                         ",FC->ad1CLI
?"                                         ",FC->ad2CLI
? "                                         ",FC->cpCLI," ",FC->villeCLI
*? "                                                                     ",cl->codecli
?
? CHR(27)+CHR(63)+CHR(51)
?
IF FC->TYPE="N"
? "   ARTICLE            QUANTITE      DESIGNATION            PRIX/Bt ttc   TOT ttc"
ELSE
? "   ARTICLE            QUANTITE      DESIGNATION            PRIX/Bt ht    TOT HT"
ENDI
?
?  
? 
?
nlfac=prow()
IF REP="O"             
set print off
ENDI       
SELE LG
SET RELATION TO CODEARTI INTO AR
GO TOP
SEEK VNUMTMP
DO WHILE LG->NUMFACT = VNUMTMP
IF REP="O"            
SET PRINT ON
ENDI                                           
*?? CHR(27)+chr(80),chr(27)+chr(107)+chr(1)
*?? CHR(15)
IF LG->QUANTITE # 0
IF FC->TYPE="N"
?? "  ",LG ->CODEARTI,chr(27)+chr(77),chr(15)," "+str(ar->colisage,4,2)+"x"+str(lg->quantite,4,0),"   ",chr(18),AR->DESIGNART,"  ",str(LG->PRIXUNI,5,2)
?? "    ",LG->PRIXLGHT
IF LG->TVA2#0
TOTTVA2=TOTTVA2+LG->TVA2
TOTFACHT2=TOTFACHT2+LG->PRIXLGHT-LG->TVA2
ELSE
TOTTVA1=TOTTVA1+LG->TVA1
TOTFACHT1=TOTFACHT1+LG->PRIXLGHT-LG->TVA1
ENDI
TOTFAC=TOTFAC+PRIXLGHT
ELSE
?? LG ->CODEARTI,chr(27)+chr(77)+" "+str(ar->colisage,4,2)+" x "+str(lg->quantite,3,0),"   ",AR->DESIGNART,"  ",str(LG->PRIXUNI/1.186,5,2)
?? "         ",LG->PRIXLGHT/1.186
TOTFAC=TOTFAC+PRIXLGHT/1.186
ENDI    
ELSE
if dec=0
?
?
?
?
?
?
?
?
dec=1
nlfac=nlfac+8
endi
?? "    ",CHR(27)+CHR(77)+"             "+AR->DESIGNART
ENDI
?
nlfac=nlfac+1
IF REP="O"             
set print off
ENDI    
skip
ENDD
IF REP="O"            
set print on
ENDI                  
do while nlfac <50
?
nlfac=nlfac+1
enddo
?
IF FC->TYPE="N"
? "                                            TOTAL ht                             ",ltrim(str(totfacht1,10,2)
?                                                                                                              
? "                                            tva  18,6%                           ",ltrim(str(tottva1,10,2))
? "                                            TOTAL TTC                            ",ltrim(str((totfac)10,2))
ELSE                           
IF TYPE="S"
?
?"              FACTURE ETABLIE EN SUSPENSION DE TVA"
?"              AQUIT Nø           ATTESTATION DEMANDEE"
ELSE
?
?"              FACTURE EXPORT SANS TVA"                           
?"              AQUIT Nø"
ENDI
ENDI
?
? "                                         NET … PAYER         ",chr(27)+chr(69)+chr(14),totfac," F"
? CHR(27)+CHR(64)     
IF REP="O"     
eject
set print off
ENDI       
SELE FC
SET ORDER TO 2
SEEK VNUMTMP
IF EOF()                                                                                                                 
? "NON TROUV‚"

WAIT
ELSE
REPLACE FC->IMPRESSION WITH .T.,MONTHT1 WITH TOTFACHT1,MONTHT2 WITH TOTFACHT2,TVA1 WITH TOTTVA1,TVA2 WITH TOTTVA2;
,FC->TTC WITH TOTFAC
ENDI
SET ORDER TO 1       
SELE LG
SET RELATION TO    
RETU