***********************************************************
*
* TRANSPOSITION DU FICHIER ACCORD D'UN MODULE FACTURE
* VERS FICHIER ACCORD
*
* NOVEMBRE 1998                           DIDIER
***********************************************************
EXECUTE 'DATE.FORMAT'
*PROCREAD VARIABLES ELSE STOP
*MODULE=FIELD(VARIABLES," ",2)
MODULE="FACT-AMF"
OPEN "","VOC" TO F.VOC ELSE STOP
ENRVOC=""
ENRVOC=REPLACE(ENRVOC,1;"F")
CHEMIN="D:\TRANSFERT\":MODULE
ENRVOC=REPLACE(ENRVOC,2;CHEMIN:"\CAISSE")
ENRVOC=REPLACE(ENRVOC,3;CHEMIN:"\D_CAISSE")
WRITE ENRVOC ON F.VOC,"CAISSE"
ENRVOC=REPLACE(ENRVOC,2;CHEMIN:"\P.AIDEES")
ENRVOC=REPLACE(ENRVOC,3;CHEMIN:"\D_P.AIDEES")
WRITE ENRVOC ON F.VOC,"P.AIDEES"
ENRVOC=REPLACE(ENRVOC,2;CHEMIN:"\ACCORD")
ENRVOC=REPLACE(ENRVOC,3;CHEMIN:"\D_ACCORD")
WRITE ENRVOC ON F.VOC,"ACCORDF"
OPEN "","ACCORDF" TO F.ACCORDF ELSE STOP
OPEN "","P.AIDEES" TO F.PAIDEES ELSE STOP
OPEN "","ACCORD" TO F.ACCORD ELSE STOP
OPEN "","CAISSE" TO F.CAISSE ELSE STOP
CODEPB1=""
*** TRAITEMENT
EXECUTE 'TSELECT ACCORDF AVEC TYPECAISSE = "C"'
EXECUTE 'SAUVE-LISTE W_ACC'
EXECUTE "LISTE W_ACC" RETURNING MSGCODE
SELECT F.ACCORDF TO W_ACC
10 READNEXT CLEACC FROM W_ACC ELSE
 PRINT "FIN"
 DELETE F.VOC,"CAISSE"
 DELETE F.VOC,"P.AIDEES"
 DELETE F.VOC,"ACCORDF"
 STOP
END
READ ENRACCORDANC FROM F.ACCORDF,CLEACC ELSE GOTO 10
CODEPB=CLEACC[1,4]
READ ENRBENEF FROM F.PAIDEES,CODEPB ELSE ENRBENEF=""
CLECIVILAIDE=EXTRACT(ENRBENEF,50)
CODECAISSE=EXTRACT(ENRACCORDANC,1)
READ ENRCAISSE FROM F.CAISSE,CODECAISSE ELSE ENRCAISSE=""
ACCORDSMENS=EXTRACT(ENRCAISSE,20)
CODEORGCHG=EXTRACT(ENRCAISSE,30)
DATEDEBACC=EXTRACT(ENRACCORDANC,3)
DATEFINACC=EXTRACT(ENRACCORDANC,4)
EXECUTE 'SELECT ACCORD AVEC @ID = "':CLECIVILAIDE:']" AND AVEC 1 = "':CODEORGCHG:'" AND AVEC 5 = "':DATEDEBACC:'" AND AVEC 6 = "':DATEFINACC:'"'
EXECUTE 'SAUVE-LISTE W_ACCNOUV'
EXECUTE "LISTE W_ACCNOUV" RETURNING MSGCODE
SELECT F.ACCORD TO W_ACCNOUV

READNEXT CLEACCNOUV FROM W_ACCNOUV ELSE
 PRINT "PAS ACCORD POUR ANCIEN CODE ":CODEPB:"      NOUVEAU CODE ":CLECIVILAIDE
 GOTO 10
END
READ ENRACCORD FROM F.ACCORD,CLEACCNOUV ELSE GOTO 10
HHMONTACC=EXTRACT(ENRACCORDANC,5)
IF ACCORDSMENS="N" THEN HHMONTACC=EXTRACT(ENRACCORDANC,18)
ENRACCORD=REPLACE(ENRACCORD,9;HHMONTACC) 
PARTMUTUELLEACC=EXTRACT(ENRACCORDANC,7)
ENRACCORD=REPLACE(ENRACCORD,13,1;PARTMUTUELLEACC)
WRITE ENRACCORD ON F.ACCORD,CLEACCNOUV
GOTO 10
