*liste des encours
SELE 2
GO TOP
TOTHT1G=0
TOTaf=0
TOTdp=0
TOTjp=0
TOTSA=0
TOTTVa=0
STOTAF=0
STOTdp=0
STOTjp=0
STOTSA=0
totgene=0
SET EXACT ON
PP=1
LL=1
rep ="O"
@ 6,0 CLEAR
@ 10,5 SAY "Imprimante O/N" GET rep PICTURE "!"
READ
IF rep ="O"
SET PRINT ON
EJECT
ENDI
SET EXACT ON
DO WHILE .NOT. EOF()
? CHR(15)
IF PROW() < 4
?? CHR(18)
?"JOURNAL DES FACTURABLES du ",DTOC(DATE1)," au ",DTOC(DATE2)  ,"                    PAGE " ,STR(PP,3,0)
? CHR(15)
? "CLIENT  NOM            NUMCOM    DATE  FOURN REPR QUANT        ARTICLE                                    TTC     LIVRE"
?
ENDI
VID=0
commande =lg->numcom
afactur="O"
sele 1             
seek commande
if eof()      
wait      
else    
endi      
sele 2
if com->livtotal<>"O"
skip
loop
endi

? "commande num‚ro : ",str(commande,5,0)," client :",com->nomclient,com->ad1liv,com->codliv,com->villeliv
DO WHILE lg->numcom =commande
*if lis<"5".and.fini="N".or lis="5".and.fini="O"
? substr(nature,1,20)," ",NUMcom," ",DATE,"  ",CODEfour,str(com->cdrep,3),str(lg->quantite,4),lg->codearti,left(ar->designart,40)
if lis="4"
?
else
?? str(prixlght,10,2)," ",fini
endi

TOTHT1g=TOTHT1g+prixlght
TOTTVA=TOTTVA+TVA2
DO CASE
CASE CODEfour="AF"
TOTaf=TOTaf+prixlght
STOTaf=STOTaf+prixlght
CASE CODEFOUR="DP"
TOTDP=TOTDP+prixlght
STOTDP=STOTDP+prixlght
CASE CODEFOUR="JP"
TOTJP=TOTJP+prixlght
STOTJP=STOTJP+prixlght
CASE CODEFOUR="SA"
TOTSA=TOTSA+prixlght
STOTSA=STOTSA+prixlght
ENDC
IF fini ="N"
afactur="N"
endi     
skip
ENDDO
if lis <>"4"                                                                                      
?"total de cette commande",totht1g,"AF:",STOTAF,"SA:",STOTSA,"DP:",STOTDP,"JP:",STOTJP
else                       
?                       
endi                       
totgene=totgene+totht1g
totht1g=0
STOTAF=0
STOTdp=0
STOTjp=0
STOTSA=0
IF afactur="N"
?? "   NE PAS FACTURER"
ELSE
?? "   A FACTURER"
replace com->livtotal with "O"

ENDI
? "---------------------------------------------------------------------------------------------------------------------------------------"
afactur="O"
IF PROW()<58.AND.rep="O"
LOOP
ELSE
PP=PP+1
IF rep="O"
EJECT
ENDI
IF rep #"O"
WAIT
ENDI
LOOP
ENDI
ENDDO
CLOSE DATA
IF PROW() > 55
IF rep ="O"
EJECT
ENDI
ENDI
IF rep ="O"
SET print ON
ENDI
? CHR(15)
?
? "     TOTAL TTC     TOTAL AF     TOTAL DP     TOTAL JP   "
?
? TOTgene," ",TOTAF," ",TOTDP," ",TOTJP
?
* *TOTAL VENTES EXPORT :",TOTEXP,"  TOTAL SUSPENSION TVA =: ",TOTSUSP," total CEE =: ",totcee
?? CHR(18)
?? CHR(18)
IF rep="O"
SET PRINT OFF
ENDI
SET fixed OFF
CLOSE DATA
RETU