Index: DOM/OV/impl/DataM/DataMOrderVerwijzingOrderlijn.cls.xml
===================================================================
diff -u -r903 -r946
--- DOM/OV/impl/DataM/DataMOrderVerwijzingOrderlijn.cls.xml	(.../DataMOrderVerwijzingOrderlijn.cls.xml)	(revision 903)
+++ DOM/OV/impl/DataM/DataMOrderVerwijzingOrderlijn.cls.xml	(.../DataMOrderVerwijzingOrderlijn.cls.xml)	(revision 946)
@@ -1,21 +1,21 @@
 <?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-03-04 11:05:28">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-18 10:48:12">
 <Class name="DOM.OV.impl.DataM.DataMOrderVerwijzingOrderlijn">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.OV.impl.DataM.DataMOrderlijn,DOM.OV.OrderVerwijzingOrderlijn</Super>
-<TimeChanged>62154,39998.165377</TimeChanged>
+<TimeChanged>62168,38973.191673</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="%OnNew">
 <Description><![CDATA[
  KFA -> \\\1071#1094#62067,31220\199974 - 07.12.10 - 07.12.10 Nr.10300310\\\\\\\\\\100\\KF5\\1071#62067,31480#199974\\\Dhr Wouters Jeroen#\\\\]]></Description>
-<FormalSpec>LijnNr:%Integer,LijnInfo:%String</FormalSpec>
+<FormalSpec>Order:DOM.OV.Order,LijnNr:%Integer,LijnInfo:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	// Initialize object first
-	Set Super =  ##super(LijnNr, LijnInfo)
+	Set Super =  ##super(Order,LijnNr, LijnInfo)
 	If (LijnInfo = "") { 
 		Set $Piece(..LijnInfo,"\",17) = ##class(DOM.OV.enu.OrderlijnType).OrderVerwijzing()
 	}
@@ -77,11 +77,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefIsEDI">
+<FormalSpec>KlantNr</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set EDIRef=..GeefEDIRef()
+	If (EDIRef'?4.8N)&&($G(KlantNr)=1239)&&(..GeefOrderRef()["EDI") Do
+	. Set EDIRef=$P(..GeefOrderRef(),"EDI",2)
+	. Set EDIRef=$P($P(EDIRef,"."),"/")
+	. Set EDIRef=$$TRIMN^vhRtn1(EDIRef)
+	Quit ''$L(EDIRef)
+]]></Implementation>
+</Method>
+
 <Method name="ToString">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "OrderInBonOrderline: Order=" _ ..GeefOrderNr() _ ", Date=" _ $ZD(..GeefDatum(),8) _ ", Refs=" _ ..GeefOrderRef()_"/"_..GeefEDIRef()_"/"_..GeefCommissieRef() _ " > " _ ##class(DOM.OV.impl.DataM.DataMOrderlijn)%this.ToString()
+<Implementation><![CDATA[	Quit "Orderverwijzing: Order=" _ ..GeefOrderNr() _ ", Date=" _ $ZD(..GeefDatum(),8) _ ", Refs=" _ ..GeefOrderRef()_"/"_..GeefEDIRef()_"/"_..GeefCommissieRef() _ " > " _ ##class(DOM.OV.impl.DataM.DataMOrderlijn)%this.ToString()
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="955456226"/>
+<Checksum value="3533600032"/>
 </Export>