PV2 ;Produkt duplicering ,# NIET VERWIJDEREN ;[ 10/08/2002  2:01 PM ]
 If ($ZU(5)'="DEV-ADMIN1")&&($ZU(5)'="TST-ADMIN1") Write "ongeldige namespace moet 'DEV-ADMIN1' of 'TST-ADMIN1'zijn !",! Quit
 d ^cA604
 S NameSpace="JRNL-ADMIN1"
 
 Set blBldInd=##class(BL.Prod.SearchBuildIndex).Instantiate() ; bussiness logic voor productindexen
 
 Write "Delete KLAS",!
 K ^KPSG,^KPSG1,^KPHG,^KPHG1,^KPGR,^KPGR1,^KLAS
 
 Write "Copy KLAS",!
 Merge ^KPSG=^|NameSpace|KPSG
 Merge ^KPSG1=^|NameSpace|KPSG1
 Merge ^KPHG=^|NameSpace|KPHG
 Merge ^KPHG1=^|NameSpace|KPHG1
 Merge ^KPGR=^|NameSpace|KPGR
 Merge ^KPGR1=^|NameSpace|KPGR1
 Merge ^KLAS=^|NameSpace|KLAS
 
 Write "Delete PROD",!
 K ^KPR1,^KPR2,^KPR3,^KPH,^KPM,^KPL
 Do ##class(Prod.SearchIndex).%DeleteExtent()
 
 s PRNr=1000
 f  s PRNr=$O(^KPR(PRNr)) Q:'PRNr  K ^KPR(PRNr)
 
 Write "Copy PROD",!
 s ^KPR(0,1)=^|NameSpace|KPR(0,1)
 s PRNr=1000
 f  s PRNr=$O(^|NameSpace|KPR(PRNr)) Q:'PRNr  Do BuildKPR
 
 Write "Copy HADPR(""P"")",!
 Kill ^HADPR("P")
 Merge ^HADPR("P")=^|NameSpace|HADPR("P") 
 
 Write "Copy bouwstenen",!
 Kill ^PRBS
 Merge ^PRBS("BS")=^|NameSpace|PRBS("BS")
 Merge ^PRBS("BSS")=^|NameSpace|PRBS("BSS")
 Merge ^PRBS("IP")=^|NameSpace|PRBS("IP")
 
 Write "Copy kenmerken",!
 
 ;Kill ^Prod.Ken.MetaDefinitieD
 Kill ^Prod.Ken.DataDefinitieD
 Kill ^Prod.Ken.DataIndexD
 ;Merge ^Prod.Ken.MetaDefinitieD=^|NameSpace|Prod.Ken.MetaDefinitieD
 Merge ^Prod.Ken.DataDefinitieD=^|NameSpace|Prod.Ken.DataDefinitieD
 Merge ^Prod.Ken.DataIndexD=^|NameSpace|Prod.Ken.DataIndexD
 
 Write "Opbouwen productindex",!
 s PRNr=1000
 For  s PRNr=$O(^KPR(PRNr)) Q:'PRNr  Do
 . Do blBldInd.Init(PRNr)
 . Do blBldInd.BuildIndex()
 
 Write "Copy KostMateriaal",!
 Kill ^Res.PI.Items("PR;GA;KPM")
 Merge ^Res.PI.Items("PR;GA;KPM")=^|NameSpace|Res.PI.Items("PR;GA;KPM")
 Write "Copy KostPlaats",!
 Kill ^Res.PI.Items("PR;GA;KP")
 Merge ^Res.PI.Items("PR;GA;KP")=^|NameSpace|Res.PI.Items("PR;GA;KP")
 Q
 
BuildKPR
 ; Copieren data uit ^KPR
 For I="I","J" Set Key=$O(^[NameSpace]KPR(PRNr,I)) Do
 .If $E(Key)=I Set Rec=^[NameSpace]KPR(PRNr,Key),^KPR(PRNr,Key)=Rec,^KPR(PRNr,I)=""
 For I=0,1,2,3,4,5,15 Set:$D(^[NameSpace]KPR(PRNr,I)) ^KPR(PRNr,I)=^[NameSpace]KPR(PRNr,I)
 For I="G" Merge:$D(^[NameSpace]KPR(PRNr,I)) ^KPR(PRNr,I)=^[NameSpace]KPR(PRNr,I)
 Q
 ;
 
 
ORD
	;b
	
	If ($ZU(5)'="DEV-ADMIN1")&&($ZU(5)'="TST-ADMIN1") Write "ongeldige namespace moet 'DEV-ADMIN1' of 'TST-ADMIN1'zijn !",! Quit
	D ^cA604
	S NameSpace="JRNL-ADMIN1"
 
	Set GlobList="KOD;ORD;KO1;KO2;ORDW;KTO;TO;KTO1;KTO2;KTO3;KTO4;PPS.BatchD;APPS.Halux.common7FB.BatchImplD;PPS.QueueD;PPS.QueueI"
	
	; Kill All
	Write !,"Kill: "
	For I=1:1:$L(GlobList,";") Do
	. Set GlobName=$P(GlobList,";",I)
	. Write GlobName
	. X "Kill ^"_GlobName
	. Write:I<$L(GlobList,";") ", "
	Write ! H 1
	
	; Copy All
	Write !,"Merge: "
	For I=1:1:$L(GlobList,";") Do
	. Set GlobName=$P(GlobList,";",I)
	. Write GlobName
	. X "Merge ^"_GlobName_"=^[NameSpace]"_GlobName
	. Write:I<$L(GlobList,";") ", "
	Write !
 
   Write "Copy HADPR",!
   Kill ^HADPR
   Merge ^HADPR=^|NameSpace|HADPR
 
	Quit
	
KLANT
	If ($ZU(5)'="DEV-ADMIN1")&&($ZU(5)'="TST-ADMIN1") Write "ongeldige namespace moet 'DEV-ADMIN1' of 'TST-ADMIN1'zijn !",! Quit
	D ^cA604
	S NameSpace="JRNL-ADMIN1"
 
	Set GlobList="KKL;KK1;DKL;INDEX(""K"",""KL"")"
	
	; Kill All
	Write !,"Kill: "
	For I=1:1:$L(GlobList,";") Do
	. Set GlobName=$P(GlobList,";",I)
	. Write GlobName
	. X "Kill ^"_GlobName
	. Write:I<$L(GlobList,";") ", "
	Write ! H 1
	
	; Copy All
	Write !,"Merge: "
	For I=1:1:$L(GlobList,";") Do
	. Set GlobName=$P(GlobList,";",I)
	. Write GlobName
	. X "Merge ^"_GlobName_"=^[NameSpace]"_GlobName
	. Write:I<$L(GlobList,";") ", "
	Write !
	Quit
 
LEV
	;b
	If ($ZU(5)'="DEV-ADMIN1")&&($ZU(5)'="TST-ADMIN1") Write "ongeldige namespace moet 'DEV-ADMIN1' of 'TST-ADMIN1'zijn !",! Quit
	D ^cA604
	S NameSpace="JRNL-ADMIN1"
 
	Set GlobList="KLE;KL1;DLE;INDEX(""K"",""LE"")"
	
	; Kill All
	Write !,"Kill: "
	For I=1:1:$L(GlobList,";") Do
	. Set GlobName=$P(GlobList,";",I)
	. Write GlobName
	. X "Kill ^"_GlobName
	. Write:I<$L(GlobList,";") ", "
	Write ! H 1
	
	; Copy All
	Write !,"Merge: "
	For I=1:1:$L(GlobList,";") Do
	. Set GlobName=$P(GlobList,";",I)
	. Write GlobName
	. X "Merge ^"_GlobName_"=^[NameSpace]"_GlobName
	. Write:I<$L(GlobList,";") ", "
	Write !
	Quit