OPEN "","INSTALLMAJ" TO F.INSTALLMAJ ELSE STOP
*********************************************************************************
* 		Version 3.7.0								*
*********************************************************************************
*

ENR = ""
READ ENR FROM F.INSTALLMAJ,"350" ELSE
	OPEN "", "TABLES" TO F.TABLES THEN
		ENR_TABLES = ""
		ENR_TABLES<1> = "TYPE EXO DADS-U102230"
		ENR_TABLES<2> = "0102070910111314152326333750"
		ENR_TABLES<3> = "APPRENTIS (LOI DE 1979)APPRENTIS (LOI DE 1987)REDUC AUBRY IABAT. 30% TPS PARTIELC.I.EC.E.SC. QUALIFC.R.EC.E.CASSO INTERMEDIAIRESEXO A.A.DREDUC FILLONCONTRAT ACTIVITESALARIE DETACHE"
		WRITE ENR_TABLES ON F.TABLES, "TYPEEXODADSU"
	END

	EXECUTE 'RUN PRMOUL MOULAGGIRAIDE'
	EXECUTE 'RUN PRMOUL MAJTABLESFINCONTRAT'
	EXECUTE 'RUN PRMOUL TABLESMORTALITE'
	EXECUTE 'RUN PRMOUL EFFECTIF26ANS'

	WRITE ENR ON F.INSTALLMAJ,"350"
END

ENR = ""
READ ENR FROM F.INSTALLMAJ,"352" ELSE

	EXECUTE 'RUN PRMOUL MOULDIFAIDANT'

	WRITE ENR ON F.INSTALLMAJ,"352"
END

ENR = ""
READ ENR FROM F.INSTALLMAJ,"360" ELSE

	EXECUTE 'RUN PRMOUL MAJTABLESUPP'
	EXECUTE 'RUN PRMOUL MOULRELANCELETTRE'
	EXECUTE 'RUN PRMOUL MOULMAJREMPLACEMENTS'
	EXECUTE 'RUN PRMOUL JOURSOLIDARITE'

	WRITE ENR ON F.INSTALLMAJ,"360"
END

ENR = ""
READ ENR FROM F.INSTALLMAJ,"370" ELSE

	EXECUTE 'RUN PRMOUL MOULFICHPERSO'
	EXECUTE 'RUN PRMOUL MAJ_TABLES'
	EXECUTE 'RUN PRMOUL MAJ_TEL'
	EXECUTE 'RUN PRMOUL MOULDIF'

	WRITE ENR ON F.INSTALLMAJ,"370"
END
READ ENR FROM F.INSTALLMAJ,"371" ELSE
	OPEN "","PARAMMAJCD" TO F.PARAMMAJCD THEN
	READ ENR_PARAMMAJCD FROM F.PARAMMAJCD,"1" THEN
		EXECUTE '!MD ':ENR_PARAMMAJCD<4>:'\FACTURATION\PAIEMENT'
		
		OPEN "","VOC" TO F.VOC THEN
			ENRTemp = ""
			ENRTemp<1> = "DIR"
			ENRTemp<2> = ENR_PARAMMAJCD<4>:'\FACTURATION\PAIEMENT'
			ENRTemp<3> = "D_FUSION"
			WRITE ENRTemp ON F.VOC, "FACTPAIEMENT"
		END
	END
	END
	EXECUTE 'RUN PRMOUL MAJTABLESNATURECONTRAT'

	WRITE ENR ON F.INSTALLMAJ,"371"
END

READ ENR FROM F.INSTALLMAJ,"380" ELSE
	
	EXECUTE 'RUN PRMOUL VIDER-CONTRAT82'
	EXECUTE 'RUN PRMOUL APURECASPARTDADSU'
	EXECUTE 'RUN PRMOUL MAJPARAMRATSALANT'

	WRITE ENR ON F.INSTALLMAJ,"380"
END

READ ENR FROM F.INSTALLMAJ,"390" ELSE
	
	EXECUTE 'RUN PRMOUL MAJREGRUBSAISIE'
	EXECUTE 'RUN PRMOUL MAJRUBREG'
	
	** COPIER DE RUBCHARGE 904 DANS 907 **
	OPEN "","RUBCHARGE" TO F.RUBCHARGE ELSE STOP
	READ ENR_RUBCHARGE FROM F.RUBCHARGE,"904" ELSE ENR_RUBCHARGE=""
	ENR_RUBCHARGE<1>=ENR_RUBCHARGE<1>:" -20"
	WRITE ENR_RUBCHARGE ON F.RUBCHARGE,"907"
	**************************************


	WRITE ENR ON F.INSTALLMAJ,"390"
END

READ ENR FROM F.INSTALLMAJ,"400" ELSE
	
	EXECUTE 'RUN PR MAJ-PARAMBORDORGCHG'
	EXECUTE 'RUN PRMOUL CREATIONARTICLETABLES'
	EXECUTE 'RUN PRMOUL ACTUPERIODEEFFET'
	EXECUTE 'RUN PRMOUL ACTUQUALIF'
	EXECUTE 'RUN PRMOUL MAJRUBREG'
	EXECUTE 'RUN PRMOUL VerifRepartitionActiviteContrat'
	EXECUTE 'PHANTOM RUN PRMOUL VERIFREMPL'
	WRITE ENR ON F.INSTALLMAJ,"400"
	
END

*************************************************************************
*	Attention : code ci dessous  laisser immdiatement			*
* avant l'instruction STOP (et non pas dans un READ INSTALLMAJ 3.X.X)	*
*************************************************************************
EXECUTE 'BASICTYPE "U"'
EXECUTE 'BASIC PR FORMATRESULTREQ'
EXECUTE 'BASICTYPE "P"'
STOP
