Index: DOM/LEV/impl/DataM/DataMProductToeleveringLijn.cls.xml
===================================================================
diff -u -r903 -r994
--- DOM/LEV/impl/DataM/DataMProductToeleveringLijn.cls.xml	(.../DataMProductToeleveringLijn.cls.xml)	(revision 903)
+++ DOM/LEV/impl/DataM/DataMProductToeleveringLijn.cls.xml	(.../DataMProductToeleveringLijn.cls.xml)	(revision 994)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-07 15:28:48">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 12:00:08">
 <Class name="DOM.LEV.impl.DataM.DataMProductToeleveringLijn">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.LEV.impl.DataM.DataMToeleveringLijn,DOM.LEV.ProductToeleveringLijn</Super>
-<TimeChanged>62129,55776.207121</TimeChanged>
+<TimeChanged>62174,43294.818081</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefProduct">
@@ -19,6 +19,25 @@
 <Implementation><![CDATA[	Quit $Piece(..LijnInfo,"\",3)
 ]]></Implementation>
 </Method>
+
+<Method name="HeeftFysiekStockProbleem">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set HeeftFysiekStockProbleem = 0
+	Set IsVolledigKlaarGezet = 	$P($G(^HADPR("F",..Toelevering.GeefToeNr()_";"_..GeefUniekLijnNr(),"K")),"\",3)="A"
+	If ('IsVolledigKlaarGezet)
+	{
+		Set HeeftFysiekStockProbleem = $P($G(^HADPR("F",..Toelevering.GeefToeNr()_";"_..GeefUniekLijnNr(),"F")),"\",3)'="A"
+	}
+	Quit HeeftFysiekStockProbleem
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverdag">
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit $$INTDATE^vhDTyp($Piece(..LijnInfo,"\",25),"W")
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="4234678454"/>
+<Checksum value="3915327533"/>
 </Export>