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

   EXECUTE 'SELECT ORGPRISECHARGE'

   W_End="FAUX"

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_ORGPRISECHARGE FROM F.ORGPRISECHARGE,W_Cle ELSE ENR_ORGPRISECHARGE=""

      W_Count47=DCOUNT(ENR_ORGPRISECHARGE<47>,CHAR(253))
      IF W_Count47 # 1 THEN
         W_TabDyn=""

         FOR i = 1 TO W_Count47
            IF W_TabDyn="" THEN
	       W_TabDyn<1>=ENR_ORGPRISECHARGE<47,i>
            END ELSE
               W_Count=DCOUNT(W_TabDyn,CHAR(254))
               W_Passe="FAUX"
               FOR j=1 TO W_Count
                  IF W_TabDyn<j>=ENR_ORGPRISECHARGE<47,i> THEN
                     W_Passe="VRAI"
                  END
               NEXT j
               IF W_Passe="FAUX" THEN
                  W_TabDyn<j>=ENR_ORGPRISECHARGE<47,i>
               END
            END
         NEXT i

         ENR_ORGPRISECHARGE<47>=""
         W_Count=DCOUNT(W_TabDyn,CHAR(254))

         FOR j=1 TO W_Count
            ENR_ORGPRISECHARGE<47,j>=W_TabDyn<j>
         NEXT j

         WRITE ENR_ORGPRISECHARGE ON F.ORGPRISECHARGE,W_Cle
      END
   REPEAT

STOP
