****************************************************************
*
* MOULINETTE DE TRANSFERT DU FICHIER BROUILLARDDETAIL VERS SAISIE
*
* DECEMBRE 2000                                  DIDIER
****************************************************************
* - FAIRE EVOLUER LES NOMS DES MODULES SI NECESSAIRE
* - ATTENTION A SELECTION DU FICHIER BROUILLARDDETAIL : ENTITE + JOURNAL
* - ATTENTION A NUMERO JOURNAL LORS ECRITURE ETAT-SAISIE ET SAISIE
* - S'ASSURER DANS LE MODULE COMPTA QUE LES FICHIERS ETAT-SAISIE
*   ET SAISIE SONT BIEN VIDE SUR LE JOURNAL A RECUPERER 
* - APRES RECUPERATION, COMPARER ETAT-SAISIE AVEC BROUILLARDTETE

OPEN "","VOC" TO F.VOC ELSE STOP
ENRVOC=""
ENRVOC=REPLACE(ENRVOC,1;"F")
CHEMIN="D:\BASESANCIENS\COUTANCES\TRANSFERT\COMPTA"
ENRVOC=REPLACE(ENRVOC,2;CHEMIN:"\SAISIE")
ENRVOC=REPLACE(ENRVOC,3;CHEMIN:"\D_SAISIE")
WRITE ENRVOC ON F.VOC,"SAISIE"
CHEMIN="D:\BASESANCIENS\COUTANCES\TRANSFERT\COMPTA"
ENRVOC=REPLACE(ENRVOC,2;CHEMIN:"\ETAT-SAISIE")
ENRVOC=REPLACE(ENRVOC,3;CHEMIN:"\D_ETAT-SAISIE")
WRITE ENRVOC ON F.VOC,"ETAT-SAISIE"
**********
* OUVERTURE DES FICHIERS
**********
OPEN "","SAISIE" TO F.SAISIE ELSE STOP
OPEN "","ETAT-SAISIE" TO F.ETATSAISIE ELSE STOP
OPEN "","BROUILLARDDETAIL" TO F.BROUILLARDDETAIL ELSE STOP

EXECUTE 'TSELECT BROUILLARDDETAIL AVEC @ID = "00102N0]"'
EXECUTE 'SAUVE-LISTE LISTDETAIL'
EXECUTE 'LISTE LISTDETAIL' RETURNING W_MSG
IF W_MSG <1> # "209" THEN
 SELECT F.BROUILLARDDETAIL TO LISTDETAIL
END
ENRETATSAISIE=""
TOTALDEBIT=0
TOTALCREDIT=0
NBLIG=0

10 READNEXT CLE FROM LISTDETAIL ELSE
 ENRETATSAISIE=REPLACE(ENRETATSAISIE,1;NBLIG)
 ENRETATSAISIE=REPLACE(ENRETATSAISIE,2;TOTALDEBIT)
 ENRETATSAISIE=REPLACE(ENRETATSAISIE,3;TOTALCREDIT)
 WRITE ENRETATSAISIE ON F.ETATSAISIE,"0002"
 STOP
END
READ ENRBROUILLARDDETAIL FROM F.BROUILLARDDETAIL,CLE ELSE GOTO 10
ENRSAISIE=""
DATESAISIE=EXTRACT(ENRBROUILLARDDETAIL,1)
DATEOP=EXTRACT(ENRBROUILLARDDETAIL,2)
NUMCPTE=EXTRACT(ENRBROUILLARDDETAIL,4)
PIECE=EXTRACT(ENRBROUILLARDDETAIL,6)
LIBELLE=EXTRACT(ENRBROUILLARDDETAIL,5)
DEBIT=EXTRACT(ENRBROUILLARDDETAIL,7)
CREDIT=EXTRACT(ENRBROUILLARDDETAIL,8)
QUANTITE=EXTRACT(ENRBROUILLARDDETAIL,10)
IF DEBIT#"" THEN TOTALDEBIT=TOTALDEBIT+DEBIT
IF CREDIT#"" THEN TOTALCREDIT=TOTALCREDIT+CREDIT
ENRSAISIE=REPLACE(ENRSAISIE,1;DATESAISIE)
ENRSAISIE=REPLACE(ENRSAISIE,2;DATEOP)
ENRSAISIE=REPLACE(ENRSAISIE,3;NUMCPTE[4,10])
ENRSAISIE=REPLACE(ENRSAISIE,4;PIECE)
ENRSAISIE=REPLACE(ENRSAISIE,5;LIBELLE)
ENRSAISIE=REPLACE(ENRSAISIE,7;DEBIT)
ENRSAISIE=REPLACE(ENRSAISIE,8;CREDIT)
ENRSAISIE=REPLACE(ENRSAISIE,9;QUANTITE)
NBLIG=NBLIG+1
WRITE ENRSAISIE ON F.SAISIE,"0002":NBLIG

GOTO 10