OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","DETAILCALCULASMAD" TO F.DETAILCALCULASMAD ELSE STOP
OPEN "","REGULCHARGE" TO F.REGULCHARGE ELSE STOP
OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
OPEN "","ARCHIVEBULL" TO F.ARCHIVEBULL ELSE STOP
OPEN "","DETAILCALCULRENVOI" TO F.DETAILCALCULRENVOI ELSE STOP
OPEN "","HISTORCUMULRENVOI" TO F.HISTORCUMULRENVOI ELSE STOP
OPEN "","ARCHIVEBULLRENVOI" TO F.ARCHIVEBULLRENVOI ELSE STOP
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
EXECUTE 'COMO ON REGULASMADBIS'
EXECUTE 'TSELECT DETAILCALCUL AVEC 0 = "[200609" AND AVEC ConvColContratDetailCalcul = "01" AND AVEC TypePersonnel = "P"'
10 READNEXT CLE ELSE
 EXECUTE 'COMO OFF'
 STOP
END
READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,CLE ELSE ENR_DETAILCALCUL=""
READ ENR_DETAILCALCULASMAD FROM F.DETAILCALCULASMAD,CLE ELSE
 PRINT CLE:" NON TROUVE DANS BULLETIN VALIDE PAR ASMAD"
 GOTO 10
END
BRUT=ENR_DETAILCALCUL<7>
IF BRUT="" THEN BRUT=0
BRUTASMAD=ENR_DETAILCALCULASMAD<7>
IF BRUTASMAD="" THEN BRUTASMAD=0
IF BRUT#BRUTASMAD THEN
 PRINT CLE[1,8]:" BRUT DIFFERENT"
 GOTO 10
END
NETAPAYER=ENR_DETAILCALCUL<21>
NETAPAYERASMAD=ENR_DETAILCALCULASMAD<21>
IF NETAPAYER#NETAPAYERASMAD THEN
 IF ABS(NETAPAYER-NETAPAYERASMAD)<100 THEN
  NULL
 END ELSE
  CUMCHG=0
  CUMCHGASMAD=0
  I=1
  LOOP
   RUBCHG=ENR_DETAILCALCUL<8,I>
   UNTIL RUBCHG="" DO
    IF ENR_DETAILCALCUL<14,I>#"" THEN CUMCHG=CUMCHG+ENR_DETAILCALCUL<14,I>
    I=I+1
  REPEAT
  I=1
  LOOP
   RUBCHG=ENR_DETAILCALCULASMAD<8,I>
   UNTIL RUBCHG="" DO
    IF ENR_DETAILCALCULASMAD<14,I>#"" THEN CUMCHGASMAD=CUMCHGASMAD+ENR_DETAILCALCULASMAD<14,I>
    I=I+1
  REPEAT
  DIFFCHG=CUMCHG-CUMCHGASMAD
  READ ENR_REGULCHARGE FROM F.REGULCHARGE,CLE[1,8] ELSE ENR_REGULCHARGE=""
  ENR_REGULCHARGE=""
  DIFFAPAYER=NETAPAYER-NETAPAYERASMAD
  ENR_REGULCHARGE=REPLACE(ENR_REGULCHARGE,1;"0")
  ENR_REGULCHARGE=REPLACE(ENR_REGULCHARGE,2;"0")
  ENR_REGULCHARGE=REPLACE(ENR_REGULCHARGE,3;-DIFFAPAYER)
  ENR_REGULCHARGE=REPLACE(ENR_REGULCHARGE,4;"0")
  ENR_REGULCHARGE=REPLACE(ENR_REGULCHARGE,5;"0")
  WRITE ENR_REGULCHARGE ON F.REGULCHARGE,CLE[1,8]
  READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,CLE[1,5] ELSE ENR_CIVILAIDANT=""
  NOMPRENOM=ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
  NOMPRENOM=NOMPRENOM "L(#35)"
  PRINT CLE[1,8]:" ":NOMPRENOM:" DIFF DE ":DIFFAPAYER "R26,(#8)"
 END
* WRITE ENR_DETAILCALCUL ON F.DETAILCALCULRENVOI,CLE
* READ ENR_ARCHIVEBULL FROM F.ARCHIVEBULL,CLE:"001" ELSE ENR_ARCHIVEBULL=""
* WRITE ENR_ARCHIVEBULL ON F.ARCHIVEBULLRENVOI,CLE:"001"
END
GOTO 10