** somme des heures prsentes dans FACTURORG

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","FACTURORG" TO F.FACTURORG ELSE STOP
OPEN "","ORGPRISECHARGE" TO F.ORGPRISECHARGE ELSE STOP
W_Requete=""
PRINT "PERIODE "
INPUT W_PERIODE

EXECUTE 'SELECT FACTURORG AVEC PeriodeFacturOrg = "':W_PERIODE:'" AND AVEC TypeActiviteFacturOrg = "P"'

EXECUTE 'SAUVE-LISTE W_Requete'
EXECUTE "LISTE W_Requete" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.FACTURORG TO W_Requete

   W_Fini="FAUX"
   W_Cumul=0
   LOOP
      	READNEXT W_Cle FROM W_Requete ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
     	READ ENR_FACTURORG FROM F.FACTURORG,W_Cle ELSE ENR_FACTURORG=""
     	READ ENR_ORGPRISECHARGE FROM F.ORGPRISECHARGE,W_Cle[1,3] ELSE ENR_ORGPRISECHARGE=""
	
        IF ENR_ORGPRISECHARGE<18>="P" THEN
           IF ENR_ORGPRISECHARGE<39>="M" THEN
              W_Cumul=W_Cumul+ENR_FACTURORG<1,1>

           END ELSE
              W_Count=DCOUNT(ENR_FACTURORG<1>,CHAR(253))
              FOR i=1 TO W_Count
                 W_Cumul=W_Cumul+ENR_FACTURORG<1,i>
              NEXT i
              W_Count=DCOUNT(ENR_FACTURORG<5>,CHAR(253))
              FOR i=1 TO W_Count
                 W_Cumul=W_Cumul+ENR_FACTURORG<5,i>
              NEXT i

           END

        END

   REPEAT

   PRINT " TOTAL FACTURORG = ":W_Cumul

END

STOP
