TITRE ="EDITION VALIDATION DES FACTURES"
DO TITRE
NBIMPR=1
@ 12,5 SAY "IMPRESSION DE LA FACTURE EN COURS O/N" GET REP PICT "!"
READ
IF REP #"O"         
REP ="N"
ENDI
TOTTVA1=0
TOTTVA2=0
TOTFACHT1=0
TOTFACHT2=0
TOTFAC=0       
dec=0       
IF REP="O"
@ 14,5 SAY "NOMBRE D'EXEMPLAIRES " GET NBIMPR
READ
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"
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
*eject

?
?
?                                                                                  
? 
?
? 
? 
*"                                         FACTURE Nø  ",NUMERO,"  ",fc->datefact
?
?
*?"      "+pol2+"ID TVA FR48347415697"+pol1+"                     FACTURE Nø  ",NUMERO,"  ",fc->datefact
*?"     "+pol2+"Accise FR 93 117 E 0310"+pol1
?"                                         ",FC->nomcli
?                                                      
?"                                         ",FC->ad1CLI
?"                                         ",FC->ad2CLI
? "                                         ",FC->cpCLI," ",FC->villeCLI
?
?
?
?
?
?
?
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(15)
IF LG->QUANTITE # 0
IF FC->TYPE="N"
IF FC->PROF="O"
?? AR->DEGRE,"  "+"L"+LG ->CODEARTI,"         ",pol2+str(lg->colisage,5,3)+"x"+str(lg->quantite,4,0),"   ",AR->DESIGNART,"        ",str(LG->PRIXUNI,7,2)
?? pol1+ch+"    ",LG->PRIXLGHT
ELSE
?? "  ",LG ->CODEARTI,"               ",pol2+str(lg->colisage,5,3)+"x"+str(lg->quantite,4,0),"   ",AR->DESIGNART,"        ",str(LG->PRIXUNI,7,2)
?? pol1+"    ",LG->PRIXLGHT
ENDI
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

IF FC->PROF="O"
?? AR->DEGRE,"  "+"L"+LG ->CODEARTI,"         ",pol2+str(lg->colisage,5,3)+"x"+str(lg->quantite,4,0),"   ",AR->DESIGNART,"        ",str(LG->PRIXUNI,7,2)
?? pol1+"    ",LG->PRIXLGHT
ELSE
?? "  ",LG ->CODEARTI,"              ",pol2+str(lg->colisage,5,3)+"x"+str(lg->quantite,4,0),"   ",AR->DESIGNART,"        ",str(LG->PRIXUNI,7,2)
?? pol1+"    ",LG->PRIXLGHT
ENDI                      
TOTFAC=TOTFAC+PRIXLGHT
ENDI    
ELSE
if dec=0
?
?
?
?
?
?
?
?
dec=1
nlfac=nlfac+8
endi
?? "    ",pol1+"             "+AR->DESIGNART
ENDI
?
nlfac=nlfac+1
IF REP="O"             
set print off
ENDI    
skip
ENDD
IF REP="O"            
set print on
ENDI                  
IF FC->TYPE #"C"
do while nlfac <41
?
nlfac=nlfac+1
enddo
ELSE
do while nlfac <39
?
nlfac=nlfac+1
enddo
ENDI
?
?
IF FC->TYPE="N"
? "                                                       TOTAL ht              ",(str(totfacht1,10,2))
?                                                                                                              
? "                                                       tva  18,6%            ",(str(tottva1,10,2))
? "                                                       TOTAL TTC             ",(str(totfac,10,2))
ENDI
IF FC->TYPE="H"
TOTFACHT1=TOTFAC
TOTTVA1=TOTFAC*0.186
TOTFAC=TOTFACHT1+TOTTVA1
FLUSH
? "                                                       TOTAL ht              ",(str(totfacht1,10,2))
?                                                                                                              
? "                                                       tva  18,6%            ",(str(tottva1,10,2))
? "                                                       TOTAL TTC             ",(str(totfac,10,2))
ENDI
?
? "                                                       NET … PAYER  ",pol3+str(totfac,10,2)+" F"
? pol1
? "                    VALEUR EN VOTRE AIMABLE REGLEMENT"
?
DO CASE
CASE FC->MODPAYE = "30"
?"                                 PAIEMENT AU "+DTOC(FC->DATEFACT+30)
CASE FC->MODPAYE = "60"
?"                                 PAIEMENT AU "+DTOC(FC->DATEFACT+60)
CASE FC->MODPAYE = "90"
?"                                 PAIEMENT AU "+DTOC(FC->DATEFACT+90)
CASE FC->MODPAYE = "AC"
?"                               PAIEMENT SUIVANT ACCORD"
CASE FC->MODPAYE = "75"
?"                                 PAIEMENT AU "+DTOC(FC->DATEFACT+75)
CASE FC->MODPAYE = "45"
?"          PAIEMENT AU "+DTOC(FC->DATEFACT+45)
OTHER
? "                      PAIEMENT A RECEPTION DE FACTURE "
ENDC
IF REP="O"
eject
set print off
ELSE    
WAIT    
ENDI
SELE FC
SET ORDER TO 2
SEEK VNUMTMP
IF EOF()                                                                                                                 
? "NON TROUV‚"

WAIT
ELSE
IF REP ="O"
REPLACE FC->IMPRESSION WITH .T.
ENDIF                                                                                                                  
REPLACE 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    
SELE FC            
IMPRIME=IMPRIME+1
ENDDO
RETU