*****************************************
* COPIE DES FICHIERS PRESENTS SUR LE CD *
* PR + PRC + PRMOUL + NEWFILE           *
*                                       *
* SEPTEMBRE 2001               STEPHANE *
*****************************************

OPEN "","PARAMMAJCD" TO F.PARAMMAJCD ELSE STOP

READ ENR_PARAMMAJCD FROM F.PARAMMAJCD,"1" ELSE ENR_PARAMMAJCD=""

W_LECTEURCD=ENR_PARAMMAJCD<1>
W_LECTEURBASE=ENR_PARAMMAJCD<2>
W_BASE=ENR_PARAMMAJCD<3>
W_CHEMIN=ENR_PARAMMAJCD<4>

* COPIE DES FICHIERS PR DU CD
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\PR\*.* ':W_CHEMIN:'\PR /C /Y'

* COPIE DES FICHIERS PRC DU CD
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\PRC\*.* ':W_CHEMIN:'\PRC /C /Y'

* COPIE DES FICHIERS PRMOUL DU CD
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\PRMOUL\*.* ':W_CHEMIN:'\PRMOUL\*.* /C /Y'


* COPIE DU FICHIER NEWFILE DU CD
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\NEWFILE ':W_CHEMIN:' /C /Y'

* COPIE DU FICHIER NEWTABLES DU CD
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\NEWTABLES ':W_CHEMIN:' /C /Y'

* COPIE DU FICHIER CLASSE DU CD
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\CLASSE ':W_CHEMIN:' /C /Y'

* COPIE DU FICHIER SCLASSE DU CD
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\SCLASSE ':W_CHEMIN:' /C /Y'

* COPIE DU FICHIER SSCLASSE DU CD
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\SSCLASSE ':W_CHEMIN:' /C /Y'


* COPIE FICHIER PARAMBORDORGCHG
*Michael, 14/11 : risque d'y avoir des retours car contient parfois des spcificits
*=> effectue une copie ds _hold_
EXECUTE '!XCOPY ':W_CHEMIN:'\PARAMBORDORGCHG ':W_CHEMIN:'\_hold_ /C /Y'
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\PARAMBORDORGCHG ':W_CHEMIN:' /C /Y'

* COPIE FICHIER PAQUES
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\PAQUES ':W_CHEMIN:' /C /Y'

* COPIE FICHIER TYPEEXO
** EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\TYPEEXO ':W_CHEMIN:' /C /Y'

EXECUTE '!MD ':W_LECTEURBASE:':\MAQUETTE\AIDE'
EXECUTE '!XCOPY ':W_LECTEURCD:':\MAQUETTE\AIDE ':W_LECTEURBASE:':\MAQUETTE\AIDE':' /C /Y'

* COPIE LE DOCUMENT EXEMPLE DES CONVENTION DE PRESTATION
EXECUTE '!MD ':W_LECTEURBASE:':\MAQUETTE\CONVENTION'
EXECUTE '!XCOPY ':W_LECTEURCD:':\MAQUETTE\CONVENTION ':W_LECTEURBASE:':\MAQUETTE\CONVENTION':' /C /Y'
EXECUTE '!MD ':W_LECTEURBASE:':\MAQUETTE\TAMPON'
EXECUTE '!XCOPY ':W_LECTEURCD:':\MAQUETTE\TAMPON ':W_LECTEURBASE:':\MAQUETTE\TAMPON':' /C /Y'

* COPIE FICHIER PAQUES
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\FICARETAILLER ':W_CHEMIN:' /C /Y'

OPEN "","UNIDATA" TO F.UNIDATA THEN
	READ BASES FROM F.UNIDATA, "Bases.txt" THEN
		OPEN "","VOC" TO F.VOC THEN
		READ ENR_VOC FROM F.VOC, "UNIDATA" THEN
			EXECUTE '!XCOPY ':W_LECTEURCD:':\ExeBatch\BatchInfologis.exe ':ENR_VOC<2>:' /C /Y'
		END
		END
	END
END

* BASIC PR MAJ_VOC + MAJ_VOCPRC
EXECUTE 'BASIC INSTALLMAJ MAJ_VOC MAJ_VOCPRC MAJ_VOCPRMOUL'
