Index: AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml	(.../HelperOrdersConverteren.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml	(.../HelperOrdersConverteren.cls.xml)	(revision 50322)
@@ -4,7 +4,7 @@
 <ClassType/>
 <IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>AX.Uitgaand.EC.Data.impl.Helper</Super>
 
 <Property name="ProductValidator">
 <Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
@@ -14,14 +14,10 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="KlantId">
+<Property name="KlantID">
 <Type>%String</Type>
 </Property>
 
-<Property name="AXCustomerID">
-<Type>%String</Type>
-</Property>
-
 <Property name="Taal">
 <Type>%String</Type>
 </Property>
@@ -30,151 +26,156 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="Translator">
-<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
-</Property>
-
-<Property name="ModeAX">
-<Type>%String</Type>
-</Property>
-
-<Property name="AlleenOpenstaand">
-<Type>%Boolean</Type>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>AXCustomerID:%String,KlantId:%String,Taal:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator,Translator:AX.Uitgaand.EC.DataAX.impl.Translator,AlleenOpenstaand:%Boolean,ModeAX:%String="2A"</FormalSpec>
+<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	$$$InitOldLocals
-	Set ..KlantId=KlantId
-	Set ..AXCustomerID=AXCustomerID
+	Set ..KlantID=KlantID
+	Set ..KredietWaardig=$$WAARDIG^KREDIET(KlantID)
 	Set ..Taal=Taal
+	Set ..GenerationID=GenerationID
 	Set ..ProductValidator=ProductValidator	
-	Set ..Translator=Translator
-	Set ..ModeAX=ModeAX
-	Set ..AlleenOpenstaand=AlleenOpenstaand
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerHoofding">
-<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,OrderId:%String</FormalSpec>
+<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List</FormalSpec>
 <Implementation><![CDATA[
-	Set pxHoofding.OrderId=OrderId
+	Set pxHoofding.OrderId=$LG(lbHoofding,2)
+	Set pxHoofding.OorsprongDocType="ORDER"
 	
-	Set pxHoofding.OrderDatum=$zdh(^||ECCache("D",OrderId,"HFD","CREATEDDATETIME"),3)
-	Set pxHoofding.OrderReferentie=$TR(^||ECCache("D",OrderId,"HFD","PURCHORDERFORMNUM"),$C(0))
-	Set pxHoofding.VerzendWijze=$TR(^||ECCache("D",OrderId,"HFD","DLVMODE"),$C(0))
-	Set pxHoofding.EDIReferentie=""
-	Set pxHoofding.CommissieReferentie=$TR(^||ECCache("D",OrderId,"HFD","CUSTOMERREF"),$C(0))
-	
-	Set pxHoofding.IngegevenDoorMedewerker=$TR(^||ECCache("D",OrderId,"HFD","CREATEDBY"),$C(0))
-	Set:pxHoofding.IngegevenDoorMedewerker="KarelP" pxHoofding.IngegevenDoorMedewerker=""
-	Set:pxHoofding.IngegevenDoorMedewerker="AIF_User" pxHoofding.IngegevenDoorMedewerker=""
-	Set pxHoofding.LeverAdresTekst=##class(AX.Uitgaand.EC.DataAX.impl.HelperAdresConverteren).MaakAdresTekstVanAX($NAME(^||ECCache("D",OrderId,"HFD")))
-	Set pxHoofding.OorsprongDocType=$TR(^||ECCache("D",OrderId,"HFD","SALESORIGINID"),$C(0))
+	Set OrderRec=$LG(lbHoofding,3)
+	Set pxHoofding.OrderDatum=$$INTDATE^vhLib.DataTypes($P(OrderRec,"\",2),"DK")
+	Set pxHoofding.OrderReferentie=$P(OrderRec,"\",3)
+	Set:$P(OrderRec,"\",35)'="" pxHoofding.OrderReferentie=$P(OrderRec,"\",35) ; specieke EDI referentie
+	Set pxHoofding.VerzendWijze=$P($P(OrderRec,"\",7),";")
+	Set pxHoofding.EDIReferentie=$P(OrderRec,"\",40)
+	Set pxHoofding.CommissieReferentie=$P(OrderRec,"\",19)
+	Set IngegevenDoorMedewerker=$P($P(OrderRec,"\",24),"#",1)
+	Set:IngegevenDoorMedewerker pxHoofding.IngegevenDoorMedewerker=$$USERNAME^vhUSER(IngegevenDoorMedewerker,1)
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,OrderId:%String,VolgNr:%String</FormalSpec>
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
 <Implementation><![CDATA[
-
-	Set pxLijn.ProductID=^||ECCache("D",OrderId,"DTL",VolgNr,"ITEMID")
-	Set pxLijn.PRNr=$TR(^||ECCache("D",OrderId,"DTL",VolgNr,"ADMINPRODUCTNUMMER"),$C(0))
-  	Set:'pxLijn.PRNr pxLijn.PRNr=..Translator.GeefPRNrForAdmin(pxLijn.ProductID)
-  	If ..ModeAX'="2A"
-  	{	
-  		Set pxLijn.ProductID=pxLijn.PRNr
+	If $LG(lbLijn,2)="P"
+	{
+		Do ..ConverteerProductLijn(pxLijn, lbHoofding, lbLijn)
 	}
-	If ..AlleenOpenstaand {
-		Set pxLijn.Aantal=+^||ECCache("D",OrderId,"DTL",VolgNr,"REMAINSALESPHYSICAL")-^||ECCache("D",OrderId,"DTL",VolgNr,"GEPICKTEHOEVEELHEID")
-	} Else {
-		Set pxLijn.Aantal=+^||ECCache("D",OrderId,"DTL",VolgNr,"QTYORDERED")
+	Else
+	{
+		Do ..ConverteerTekstLijn(pxLijn, lbHoofding, lbLijn)
 	}
-	Set pxLijn.NettoPrijs=+^||ECCache("D",OrderId,"DTL",VolgNr,"SALESPRICE")
-	Set pxLijn.Munt=^||ECCache("D",OrderId,"DTL",VolgNr,"CURRENCYCODE")
-	Set pxLijn.GrootteOrde=$S(+^||ECCache("D",OrderId,"DTL",VolgNr,"PRICEUNIT")=100:"%",1:"")
-	Set pxLijn.TotaalPrijs=+^||ECCache("D",OrderId,"DTL",VolgNr,"LINEAMOUNT")
-	Set pxLijn.VerwachteLeverDatum=$zdh(^||ECCache("D",OrderId,"DTL",VolgNr,"RECEIPTDATECONFIRMED"),3)
-	Set pxLijn.GevraagdeLeverDatum=$zdh(^||ECCache("D",OrderId,"DTL",VolgNr,"RECEIPTDATEREQUESTED"),3)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerProductLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set OLRec=$LG(lbLijn,3)
+	Set pxLijn.ProductID=$P(OLRec,"\",2)
+	Set pxLijn.Aantal=$P(OLRec,"\",3)
+	Set pxLijn.NettoPrijs=+$P(OLRec,"\",6)
+	Set pxLijn.Munt=$P(OLRec,"\",22)
+	Set pxLijn.GrootteOrde=$S($E($P(OLRec,"\",21))="H":"%",1:"")
+	Set pxLijn.TotaalPrijs=+$P(OLRec,"\",16)
+	Set pxLijn.VerwachteLeverDatum=$P(OLRec,"\",25)
+	Set pxLijn.GevraagdeLeverDatum=$P(OLRec,"\",29)
 	Set pxLijn.Type=$S(pxLijn.Aantal<0:"R",1:"L") ; Retour of Levering
-	Set pxLijn.Status=..TranslateStatus(pxLijn.PRNr,pxLijn.Aantal,^||ECCache("D",OrderId,"DTL",VolgNr,"SALESSTATUS"),^||ECCache("D",OrderId,"DTL",VolgNr,"ADUORDERSTATUSID"))
-	Set pxLijn.Commentaar=$TR(^||ECCache("D",OrderId,"HFD","LIJNCONFTXT"),$C(0))
-	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.PRNr)
-	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.PRNr)
+	Set pxLijn.OorsprongDocType=$CASE($LG(lbLijn,1), "L":"LEVERING", "F":"FACTUUR", "P":"NUL-FACTUUR", :"ORDER")
+	Set pxLijn.Commentaar=$P(OLRec,"\",5) ; projectreferentie
+	Set pxLijn.Commentaar=$LG(lbLijn,4)
+	Set pxLijn.Commentaar=$P(OLRec,"\",5)
+	
+	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
+	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
 	Do pxLijn.VulAanMetProduct(..Taal)
-	If $TR(^||ECCache("D",OrderId,"DTL",VolgNr,"PRODREF"),$C(0))'=""
+	If $P(OLRec,"\",5)'=""
 	{
-		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$TR(^||ECCache("D",OrderId,"DTL",VolgNr,"PRODREF"),$C(0))
+		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$P(OLRec,"\",5)
 	}
-	If $TR(^||ECCache("D",OrderId,"DTL",VolgNr,"EXTERNALITEMID"),$C(0))'=""
-	{
-		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$TR(^||ECCache("D",OrderId,"DTL",VolgNr,"EXTERNALITEMID"),$C(0))
-	}
 	If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator
 	{
 		Set pxLijn.Afbeelding=""
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="TranslateStatus">
-<FormalSpec>PRNr:%String,Aantal:%Integer,SalesStatus:%String,BlokkeerStatus:%String</FormalSpec>
+<Method name="ConverteerTekstLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
 <Implementation><![CDATA[
-  ; AX SalesStatus : OpenOrder = 1, Delivered = 2, Invoiced = 3, Canceled = 4
-   ; BlokkeerStatus : Doorgegeven, Klaargezet, Geannuleerd, leeg
-	If SalesStatus=1
+	Set pxLijn.Commentaar=$LG(lbLijn,4)
+	Set pxLijn.Type="T"
+]]></Implementation>
+</Method>
+
+<Method name="VulAanLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set OLRec=$LG(lbLijn,3)
+	Set pxLijn.Status=$LG(lbLijn,5)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderDatum">
+<FormalSpec>ORDRec</FormalSpec>
+<Implementation><![CDATA[
+	Set Datum=$$INTDATE^vhLib.DataTypes($P(ORDRec,"\",2))
+	Quit Datum
+]]></Implementation>
+</Method>
+
+<Method name="CheckOrder">
+<FormalSpec>ORDNr:%String,BeperkOrderType:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Rec=^KOD(..KlantID,"F",ORDNr,1)
+	Set OrderType=$P(Rec,"\",25)
+	If OrderType="C",BeperkOrderType="S" Quit 0 ; Is een contractorder maar geen contracten toegelaten
+	If OrderType'="C",BeperkOrderType="C" Quit 0 ; Is geen contractorder maar alleen contracten toegelaten
+		
+	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="CheckOrderLijn">
+<FormalSpec><![CDATA[ORDNr:%String,OLNr:%String,&LijnType:%String,&VoorraadStatus:WS.Vhisie4.KlantDocument.enu.OrderLijnStatus]]></FormalSpec>
+<Implementation><![CDATA[
+
+	Set Rec=^KOD(..KlantID,"F",ORDNr,OLNr)
+	Set PRNr=$P(Rec,"\",2)
+	; ProdGrp behoud in eerste instantie de oude waarde
+	Set (LijnType,VoorraadStatus)=""
+	; Tekstlijn
+	If $P($P(Rec,"\",17),"#")="KF11" Set:$P($P(Rec,"\",18),";",4)["O" LijnType="T"  Quit  ; Tekst dat op een orderbevestiging mag verschijnen
+	Quit:PRNr'?4.8N "" ; Geen product, manuele product nog te implementeren
+	;Voorraadstatus beperking
+	Set OLUNr=$P(Rec,"\",15)
+	If $P(Rec,"\",3)<0
 	{
-		If BlokkeerStatus="Klaargezet" 
-		{
-			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InProductie()
-		}
-		ElseIf BlokkeerStatus="Doorgegeven"
-		{
-			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VerwerkingMagazijn() 
-		}
-		ElseIf BlokkeerStatus="Geproduceerd"
-		{
-			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Geproduceerd()
-		}
-		ElseIf ((BlokkeerStatus="")||(BlokkeerStatus="KlaargezetWissen"))&&($P($$GENTYP^HAD(PRNr),"\")'="")
-		{
-			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).WachtenOpProductie()
-		}
-		ElseIf Aantal<1
-		{
-			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Terugname()
-		}
-		Else
-		{
-			Set ECStatus=$CASE(..VoorraadStatus(PRNr,Aantal,,1),"F":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).NietInVoorraad(),"P":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).BeperkteVoorraad(),:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VoldoendeVoorraad())
-		}
+		Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Terugname()
 	}
-	ElseIf SalesStatus=2 
+	Elseif $P(Rec,"\",3)>0
 	{
-		Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InLevering()
+		If $D(^ORDW("IO",ORDNr,OLUNr)) 
+		{
+			Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VerwerkingMagazijn()
+		} Else {
+			If $P(Rec,"\",27)'="" 
+			{
+				Set VoorraadStatus=$S($D(^KPR(PRNr,"J6332")):##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InProductie(),1:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InBestelling())
+			} Else {  
+				Set VoorraadStatus=$CASE(..VoorraadStatus(PRNr,$P(Rec,"\",3),,1),"F":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).NietInVoorraad(),"P":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).BeperkteVoorraad(),:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VoldoendeVoorraad())
+			}
 		}
-	ElseIf SalesStatus=3 
-	{
-		Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Gefactureerd()
 	}
-	Quit ECStatus
+	Set LijnType="P"
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerHfdTekst">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,OrderId:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set pxLijn.Commentaar=$TR(^||ECCache("D",OrderId,"HFD","ORDERCONFTXT"),$C(0))
-	Quit:pxLijn.Commentaar="" ""
-	Set pxLijn.Type="T"
-	Quit pxLijn
-]]></Implementation>
-</Method>
-
 <Method name="VoorraadStatus">
 <FormalSpec>PRNr:%Integer,Aantal:%Integer,Week:%Date,ReedsInOrder:%Boolean</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>