Index: vhDeploy/Deploy20110617x1504.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20110617x1504.cls.xml	(revision 0)
+++ vhDeploy/Deploy20110617x1504.cls.xml	(revision 1462)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.Deploy20110617x1504">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>Wijzigen scherm 7 producten</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	for Index = 700 : 1 : 799 {
+	 	kill ^KPR(0,Index)
+	 	kill ^KPRNL(0,Index)
+	}
+	
+	set ^KPR(0,702)="KLAARGEZET;7;2;;7;25;;$S($G(PR):$$KlaarGezet^APPS.common.StockNiveauService(PR),1:"""");6;;K?.N;1;;;1;"";;;;;;1;;"
+	set ^KPR(0,703)="RESERVATIE;8;2;;8;25;;$S($G(PR):$P($G(^PRSTOCK(""D"",PR)),D,6),1:"""");6;;K?.N;1;;;1;"";;;;;;1;;"
+	set ^KPR(0,704)="IN TRANSFERT;9;2;;9;25;;$S($G(PR):$$InTransfert^APPS.common.StockNiveauService(PR),1:"""");6;;K?.N;1;;;1;"";;;;;;1;;"
+	set ^KPR(0,705)="VOORRAAD;10;2;;10;25;;$S($G(PR):$P($G(^PRSTOCK(""D"",PR)),D,5),1:"""");6;;K?.N;1;;;1;"";;;;;;1;;"
+	set ^KPR(0,706)="HERBESTELSURPLUS;12;2;;12;25;;$S(K:+K_"" ""_$P(""\Stuk\Kleinverpakking\Normverpakking\Grootverpakking\Pallet"",D,$F(""KNGP"",$P(K,+K,2))+1),1:K)_$S(+K>1:$P(""\s\en\en\en\ten"",D,$F(""KNGP"",$P(K,+K,2))+1),1:"""")_$S(K:"" (""_$$QTYVPK^MRP(PR,K)_"")"",1:"""");7;xxx, xxxK, xxxN, xxxG, xxxP[] = xxx stuks,klein-, norm-, grootverpakkingen      of palletten;K?.N!(K?.N1""K"")!(K?.N1""N"")!(K?.N1""G"")!(K?.N1""P"");;22;;;1605;;;;;;1;;"
+	set ^KPR(0,707)="HERBESTELAFR;13;2;;13;25;;$S($L(K):$$POPUP^PRODUKT5(""HFWVHBROUND"",K,1),1:K);35;;;;;;;1606;;;D WVHBRND^PRODUKT5;1;;1;;"
+	set ^KPR(0,708)="GROOTTE NETTO;14;2;;14;25;;;35;;;;;;;1607;;;;;;1;;"
+	set ^KPR(0,709)="GROOTTE BRUTO;15;2;;15;25;;;35;;;;;;;1608;;;;;;1;;"
+	set ^KPR(0,710)="EENHEID;16;2;;16;25;;$$POPUP^PRODUKT5(""HFWVEENH"",$S(K="""":""ST"",1:K),1);35;;;;;;;1609;;;D WVEENH^PRODUKT5;1;;1;;"
+	set ^KPR(0,711)="DEFAULTMAGAZIJN;17;2;;17;25;;$$POPUP^PRODUKT5(""HFWVDEFMAG"",$S(K="""":""M"",1:K),1);35;;;;;;;1611;;;D WVDMAG^PRODUKT5;1;;1;;"
+	set ^KPR(0,712)="SUBMAGAZIJN;18;2;;18;25;;$S($L(K):$$POPUP^PRODUKT5(""HFWVSUBMAG"",K,1),1:K);35;;;;;;;1612;;;D WVSMAG^PRODUKT5;1;;1;;"
+	set ^KPR(0,713)="FSC hout;19;2;;19;25;"";$$POPUP^PRODUKT5(""FSC"",K,1);20;;;;;K'=""-"";;405;;;D FSCHout^PRODUKT5;1;;1;;"
+	
+	for Index = 700 : 1 : 799 {
+		if $data(^KPR(0,Index)) set ^KPRNL(0,Index)=^KPR(0,Index)	
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>