* cumule les dbits et crdits de DETAILECRITUREAUX ET COMPARE AVEC ARTICLE 
* CENTRALISATEUR DE DETAILECRITUREGENE 

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILECRITUREGENE" TO F.DETAILECRITUREGENE ELSE PRINT "OUVERTURE DETAILECRITUREGENE" ;* en lecture
OPEN "","DETAILECRITUREAUX" TO F.DETAILECRITUREAUX ELSE PRINT "OUVERTURE DETAILECRITUREAUX" ;* en lecture

*   EXECUTE 'SETPTR 0,,,,,1, "MODE=RAW",DEST \\SERVEURNT\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF'

*   PRINTER ON

   EXECUTE 'TSELECT DETAILECRITUREAUX PAR 0'
   W_End="FAUX"
   W_CumulDebit=0
   W_CumulCredit=0

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_DETAILECRITUREAUX FROM F.DETAILECRITUREAUX,W_Cle ELSE ENR_DETAILECRITUREAUX=""

      IF ENR_DETAILECRITUREAUX<6> # "" THEN W_CumulDebit=W_CumulDebit + ENR_DETAILECRITUREAUX<6>
      IF ENR_DETAILECRITUREAUX<7> # "" THEN W_CumulCredit=W_CumulCredit + ENR_DETAILECRITUREAUX<7>
      IF EXTRACT(ENR_DETAILECRITUREAUX,12)#"" THEN
         CUMDEBIT=0
         CUMCREDIT=0
         D=1
         LOOP
            CLEDETAILECRITUREGENE=EXTRACT(ENR_DETAILECRITUREAUX,12,D)
            UNTIL CLEDETAILECRITUREGENE="" DO
               READ ENR_DETAILECRITUREGENE FROM F.DETAILECRITUREGENE,CLEDETAILECRITUREGENE ELSE ENR_DETAILECRITUREGENE=""
               IF EXTRACT(ENR_DETAILECRITUREGENE,6)#"" THEN CUMDEBIT=CUMDEBIT+EXTRACT(ENR_DETAILECRITUREGENE,6)
               IF EXTRACT(ENR_DETAILECRITUREGENE,7)#"" THEN CUMCREDIT=CUMCREDIT+EXTRACT(ENR_DETAILECRITUREGENE,7)
               D=D+1
         REPEAT

         IF W_CumulDebit # CUMDEBIT OR W_CumulCredit # CUMCREDIT THEN
            PRINT EXTRACT(ENR_DETAILECRITUREAUX,12)
            PRINT "ECART DEBIT ":W_CumulDebit-CUMDEBIT
            PRINT "ECART CREDIT ":W_CumulCredit-CUMCREDIT
         END
         W_CumulDebit=0
         W_CumulCredit=0
      END
   REPEAT

*   PRINTER OFF
*   PRINTER CLOSE

STOP
