Index: zTryout/MVI/KPR/ProductToeleveringIndex.cls.xml
===================================================================
diff -u
--- zTryout/MVI/KPR/ProductToeleveringIndex.cls.xml	(revision 0)
+++ zTryout/MVI/KPR/ProductToeleveringIndex.cls.xml	(revision 33277)
@@ -0,0 +1,218 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.KPR.ProductToeleveringIndex">
+<Super>zTryout.MVI.NodeObject</Super>
+
+<Parameter name="SleutelPrefix">
+<Type>%String</Type>
+<Default>W    0.0T</Default>
+</Parameter>
+
+<Property name="Datum">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringLijnNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Product">
+<Type>zTryout.MVI.KPR.Product</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Sleutel">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="MaakProductToeleveringIndex">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductNummer:%String,Datum:%Date,ToeleveringNummer:%String,ToeleveringLijnNummer:%String</FormalSpec>
+<ReturnType>zTryout.MVI.KPR.ProductToeleveringIndex</ReturnType>
+<Implementation><![CDATA[
+	#dim Sleutel As %String = ..MaakSleutel(Datum, ToeleveringNummer, ToeleveringLijnNummer)
+	
+	Set ^KPR(ProductNummer, Sleutel) = ""
+	
+	Quit ##class(zTryout.MVI.KPR.ProductToeleveringIndex).%New(ProductNummer, Sleutel)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderProductToeleveringIndex">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductNummer:%String,Sleutel:%String</FormalSpec>
+<Implementation><![CDATA[	Kill ^KPR(ProductNummer, Sleutel)
+]]></Implementation>
+</Method>
+
+<Method name="MaakSleutel">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Datum:%Date,ToeleveringNummer:%String,ToeleveringLijnNummer:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Quit ..#SleutelPrefix _ $zDate(Datum, 8) _ ToeleveringNummer _ ##class(TECH.StringUtils).AddLeadingSpace((ToeleveringLijnNummer - 100), 3)
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>ProductNummer:%String,Sleutel:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Product = ##class(zTryout.MVI.KPR.Product).%New(ProductNummer)
+	Set ..Sleutel = Sleutel
+	Set ..Datum = ..GeefDatum()
+	Set ..ToeleveringNummer = ..GeefToeleveringNummer()
+	Set ..ToeleveringLijnNummer = ..GeefToeleveringLijnNummer()
+	
+	Do ..Valideer()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefSleutel">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Sleutel
+]]></Implementation>
+</Method>
+
+<Method name="GeefDatum">
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	If ($Length(..Datum) = 0) {
+		Set ..Datum = $zDateH($Extract(..Sleutel, 10, 17), 8)
+	}
+	
+	Quit ..Datum
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringNummer">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	If ($Length(..ToeleveringNummer) = 0) {
+		Set ..ToeleveringNummer = $Extract(..Sleutel, 18, 23)
+	}
+	
+	Quit ..ToeleveringNummer
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringLijnNummer">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	If ($Length(..ToeleveringLijnNummer) = 0) {
+		#dim ToeleveringLijnNummer As %Integer = ##class(TECH.StringUtils).Trim($Extract(..Sleutel, 24, 26))
+		Set ..ToeleveringLijnNummer = ToeleveringLijnNummer + 100
+	}
+	
+	Quit ..ToeleveringLijnNummer
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringDatum">
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 1)
+]]></Implementation>
+</Method>
+
+<Method name="ZetToeleveringDatum">
+<FormalSpec>ToeleveringDatum:%Date</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 1) = ToeleveringDatum
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverancier">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 2)
+]]></Implementation>
+</Method>
+
+<Method name="ZetLeverancier">
+<FormalSpec>Leverancier:%String</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 2) = Leverancier
+]]></Implementation>
+</Method>
+
+<Method name="GeefReferentie">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 3)
+]]></Implementation>
+</Method>
+
+<Method name="ZetReferentie">
+<FormalSpec>Referentie:%String</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 3) = Referentie
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantal">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 4)
+]]></Implementation>
+</Method>
+
+<Method name="ZetAantal">
+<FormalSpec>Aantal:%Integer</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 4) = Aantal
+]]></Implementation>
+</Method>
+
+<Method name="GeefRestAantal">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 5)
+]]></Implementation>
+</Method>
+
+<Method name="ZetRestAantal">
+<FormalSpec>RestAantal:%Integer</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 5) = RestAantal
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverweek">
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 6)
+]]></Implementation>
+</Method>
+
+<Method name="ZetLeverweek">
+<FormalSpec>Leverweek:%Date</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 6) = Leverweek
+]]></Implementation>
+</Method>
+
+<Method name="GeefType">
+<ReturnType>zTryout.MVI.KPR.Product.enu.ProductStockType</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 7)
+]]></Implementation>
+</Method>
+
+<Method name="ZetType">
+<FormalSpec>Type:zTryout.MVI.KPR.Product.enu.ProductStockType</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 7) = Type
+]]></Implementation>
+</Method>
+
+<Method name="Valideer">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Try {
+		#dim Node As %String = ^KPR(..Product.GeefProductNummer(), ..Sleutel)
+	} Catch {
+		Do ##class(TECH.ExceptionHandler).Rethrow(##class(zTryout.MVI.Excepties.NietGevondenExceptie).%New(..%ClassName(), "^KPR(" _ ..Product.GeefProductNummer() _ ", """ _ ..Sleutel _ """)"))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>