******************************************************************************************
* MOULINETTE SUITE AU BASCULEMENT DES FICHIERS DE LA BASEASSAD A LA BASEUDASSAD DE TOURS *
* MET L'AIDANT 00001 DANS LE FICHIER HRESHISTOR                                          *
* CHANGE LE RESPONSABLE ET SECTEUR DES CIVILAIDE DONT LE CODE EST < A 50000              *
* VANESSA                                                                 NOVEMBRE 2002  *
******************************************************************************************

*                   NE PAS MODIFIER CAR PROG SPECIFIQUE TOURS                            *

******************************************************************************************

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

W_RequeteHist=""
W_RequeteAide=""

   EXECUTE 'SELECT HRESHISTOR AVEC 0 < "40000]"'
   EXECUTE 'SAUVE-LISTE W_RequeteHist'
   EXECUTE "LISTE W_RequeteHist" RETURNING MSGCODE

   IF MSGCODE<1> # 209 THEN

      SELECT F.HRESHISTOR TO W_RequeteHist

      W_End="FAUX"

      LOOP
         READNEXT W_Cle FROM W_RequeteHist ELSE W_End = "VRAI"
      WHILE W_End = "FAUX" DO
         READ ENR_HRESHISTOR FROM F.HRESHISTOR,W_Cle ELSE ENR_HRESHISTOR=""
    
         W_Total=0
         W_Count=DCOUNT(ENR_HRESHISTOR(2),CHAR(253))
         FOR i = 1 TO W_Count
            W_Total=W_Total + ENR_HRESHISTOR<2,i>
         NEXT i

         ENR_HRESHISTOR=""
         ENR_HRESHISTOR<1>="00001"
         ENR_HRESHISTOR<2>=W_Total

         WRITE ENR_HRESHISTOR ON F.HRESHISTOR,W_Cle

      REPEAT
   END


   EXECUTE 'SELECT CIVILAIDE AVEC 0 < "40000"'
   EXECUTE 'SAUVE-LISTE W_RequeteAide'
   EXECUTE "LISTE W_RequeteAide" RETURNING MSGCODE

   IF MSGCODE<1> # 209 THEN

      SELECT F.CIVILAIDE TO W_RequeteAide

      W_End="FAUX"

      LOOP
         READNEXT W_Cle FROM W_RequeteAide ELSE W_End = "VRAI"
      WHILE W_End = "FAUX" DO
         READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Cle ELSE ENR_CIVILAIDE=""
    
         ENR_CIVILAIDE<39>="099"
         ENR_CIVILAIDE<40>="0990101"

         WRITE ENR_CIVILAIDE ON F.CIVILAIDE,W_Cle

      REPEAT
   END

STOP
