****************************************************************
*
* MOULINETTE DE TRANSFERT DU FICHIER BROUILLARDDETAIL VERS SAISIE
*
* DECEMBRE 2000                                  DIDIER
****************************************************************
* - PENSER A CREER DESCRIPTEUR 50 DANS DICT P.AIDEES
* - 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\FACTURE"
ENRVOC=REPLACE(ENRVOC,2;CHEMIN:"\P.AIDEES")
ENRVOC=REPLACE(ENRVOC,3;CHEMIN:"\D_P.AIDEES")
WRITE ENRVOC ON F.VOC,"P.AIDEES"
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"
PRINTER ON
**********
* OUVERTURE DES FICHIERS
**********
OPEN "","P.AIDEES" TO F.PAIDEES ELSE STOP
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 = "00101N0]"'
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,"0001"
 STOP
END
READ ENRBROUILLARDDETAIL FROM F.BROUILLARDDETAIL,CLE ELSE GOTO 10
TYPECPTE=EXTRACT(ENRBROUILLARDDETAIL,3)
NUMCPTE=EXTRACT(ENRBROUILLARDDETAIL,4)
IF TYPECPTE="A" THEN
 EXECUTE 'SELECT P.AIDEES AVEC 50 = "':NUMCPTE:'"'
 EXECUTE 'SAUVE-LISTE LISTAUXIL'
 EXECUTE 'LISTE LISTAUXIL' RETURNING W_MSG1
 IF W_MSG1 <1> # "209" THEN
  SELECT F.PAIDEES TO LISTAUXIL
 END ELSE
  PRINT "NOUVEL AIDE :":NUMCPTE:" NON RECONNU DANS ANCIEN LOGICIEL"
  GOTO 10
 END
 READNEXT CODEPB FROM LISTAUXIL THEN
  ANCCODE=CODEPB
 END ELSE
  GOTO 10
 END
END
ENRSAISIE=""
DATESAISIE=EXTRACT(ENRBROUILLARDDETAIL,1)
DATEOP=EXTRACT(ENRBROUILLARDDETAIL,2)
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)
IF TYPECPTE="A" THEN
 ENRSAISIE=REPLACE(ENRSAISIE,3;ANCCODE)
END ELSE
 ENRSAISIE=REPLACE(ENRSAISIE,3;NUMCPTE[4,10])
END
PICE=PIECE+0
ENRSAISIE=REPLACE(ENRSAISIE,4;PIECE)
ENRSAISIE=REPLACE(ENRSAISIE,5;LIBELLE)
ENRSAISIE=REPLACE(ENRSAISIE,7;DEBIT)
ENRSAISIE=REPLACE(ENRSAISIE,8;CREDIT)
IF CREDIT#"" THEN
 ENRSAISIE=REPLACE(ENRSAISIE,9;-QUANTITE)
END ELSE
 ENRSAISIE=REPLACE(ENRSAISIE,9;QUANTITE)
END
NBLIG=NBLIG+1
WRITE ENRSAISIE ON F.SAISIE,"0001":NBLIG

GOTO 10