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

PRINT "Priode : "
INPUT W_Periode 

PRINT "Caisse : "
INPUT W_Caisse

   	READ ENR_ORGPRISECHARGE FROM F.ORGPRISECHARGE,W_Caisse ELSE ENR_ORGPRISECHARGE=""

   	EXECUTE 'SELECT FACTURORG AVEC OrgaFacturOrg = "':W_Caisse:'" AND AVEC 10 = "" OR = "':W_Periode:'"'

   	W_End="FAUX"

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

		W_PartAide=ENR_FACTURORG<2,1>
		W_TxRemb=ENR_ORGPRISECHARGE<26,1>

		W_Count=DCOUNT(ENR_ORGPRISECHARGE<37>,CHAR(253))
		W_Sauve=0
		FOR i = 1 TO W_Count
			IF W_PartAide=ENR_ORGPRISECHARGE<37,i> THEN
				W_Sauve=i
				EXIT
			END

		NEXT i

		IF W_Sauve # 0 THEN
			ENR_FACTURORG<2,1>=ENR_ORGPRISECHARGE<36,W_Sauve>
			ENR_FACTURORG<3,1>=W_TxRemb-ENR_FACTURORG<2,1>
			ENR_FACTURORG<4,1>=ENR_FACTURORG<1,1>*ENR_FACTURORG<3,1>
			ENR_FACTURORG<4,1>=INT((ENR_FACTURORG<4,1>/100)+(1/2))

      			ENR_FACTURORG<9>=""
      			ENR_FACTURORG<10>=""
			ENR_FACTURORG<12>=ENR_FACTURORG<4,1>
			ENR_FACTURORG<14>=ENR_FACTURORG<4,1>
			ENR_FACTURORG<16>=ENR_FACTURORG<4,1>
			ENR_FACTURORG<17>=ENR_FACTURORG<3,1>

      			WRITE ENR_FACTURORG ON F.FACTURORG,W_Cle
		END ELSE
			PRINT W_Cle

		END
   	REPEAT

STOP
