Index: AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml
===================================================================
diff -u -r38567 -r38582
--- AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 38567)
+++ AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 38582)
@@ -44,47 +44,133 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="repOpenstaandeFactuur">
+<Type>DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository</Type>
+</Property>
+
+<Property name="TrackAndTraceService">
+<Type>APPS.OV.impl.TrackAndTraceService</Type>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..KlantID=KlantID
 	Set ..Taal=Taal
 	Set ..GenerationID=GenerationID
-	Set ..ProductValidator=ProductValidator	
+	Set ..ProductValidator=ProductValidator
+	Set ..repOpenstaandeFactuur= ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
+	Set ..TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerHoofding">
-<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List</FormalSpec>
+<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.FactuurHoofding,lbHoofding:%List</FormalSpec>
 <Implementation><![CDATA[
-	Set pxHoofding.FactuurID=$LG(lbHoofding,4)
-	Set FactuurRec=$LG(lbHoofding,7)
-	Set pxHoofding.FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6),"DK")
+  	Set pxHoofding.FactuurId=$LG(lbHoofding,2)
+	Set FactuurRec=$LG(lbHoofding,3)
+ 	Set pxHoofding.FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6),"DK")
 	Set pxHoofding.VervalDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",3),"DK")
-	Set pxHoofding.DocType=$S($LG(lbHoofding)="P":"N",1:$P(FactuurRec,"\",2))
-	If $D(^KKL(^KK1(..KlantID),pxHoofding.FactuurID)) { ; Is nog openstaand
-	 Set pxHoofding.OpenstaandBedrag=$P(^KKL(^KK1(..KlantID),pxHoofding.FactuurID),"\",5)
-	 Set pxHoofding.AantalRappels=$P(^KKL(^KK1(..KlantID),pxHoofding.FactuurID),"\",8)
+	Set pxHoofding.Munt=$P(FactuurRec,"\",5)
+	If ..repOpenstaandeFactuur.BestaatViaKlantIDEnFactuurID("K||"_..KlantID,pxHoofding.FactuurId)
+	{ 
+		#dim OpenstaandeFactuur As DOM.BKH.OpenstaandeFactuur = ..repOpenstaandeFactuur.GeefViaKlantIDEnFactuurID("K||"_..KlantID,pxHoofding.FactuurId)
+		set pxHoofding.OpenstaandBedrag = OpenstaandeFactuur.GeefNogTeBetalenInMuntKlant()
+		set pxHoofding.AantalHerinneringen= OpenstaandeFactuur.GeefAantalHerinneringen()
+		set pxHoofding.FactuurBedrag = OpenstaandeFactuur.GeefTotaalBedragInMuntKlant()
+		set pxHoofding.VervalDatum = OpenstaandeFactuur.GeefVervalDatum()
 	}
+	Else
+	{
+		Set pxHoofding.FactuurBedrag=$P(FactuurRec,"\",12)
+	}
+]]></Implementation>
+</Method>
 
-	
-	;Set pxHoofding.EDIReferentie=$P(OrderRec,"\",40)
-	;Set pxHoofding.CommissieReferentie=$P(OrderRec,"\",19)
-	;Set pxHoofding.InternMedewerker=""
-	;Set pxHoofding.ExterneMedewerker=""
+<Method name="ConverteerLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	If $LG(lbLijn,2)="O"
+	{
+		Do ..ConverteerOrderHoofdingLijn(pxLijn, lbHoofding, lbLijn)
+	}
+	ElseIf $LG(lbLijn,2)="P"
+	{
+		Do ..ConverteerProductLijn(pxLijn, lbHoofding, lbLijn)
+	}
+	Else
+	{
+		Do ..ConverteerTekstLijn(pxLijn, lbHoofding, lbLijn)
+	}
 ]]></Implementation>
 </Method>
 
-<Method name="VulAanLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Method name="ConverteerOrderHoofdingLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	;$LB(..FactuurProforma,"O",Sort(ORDCnt),,ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
+	; Order
+	Set pxLijn.Type="O"
+	Set pxLijn.OrderId=$LG(lbLijn,5)
+	Set pxLijn.OrderDatum=..GeefOrderDatum($LG(lbLijn,3))
+	Set pxLijn.OrderReferentie=..GeefOrderReferentie($LG(lbLijn,3))
+	; Levering
+	Set LeveringRec=$LG(lbLijn,7)
+	Set pxLijn.LeveringId=$LG(lbLijn,6)
+	Set pxLijn.LeveringsDatum=$$INTDATE^vhLib.DataTypes($P(LeveringRec,"\",2))
+	Set pxLijn.VerzendWijze=$P($P(LeveringRec,"\",7)," #")
+	If (pxLijn.LeveringsDatum>($H-150))&&(pxLijn.VerzendWijze="DI1") ;bon nummers worden herbruikt daarom beperken in tijd
+	{
+		try{
+		 	Set pxLijn.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxLijn.LeveringID)
+		}Catch {	
+		 	 	/// geen TrackAndTrace URL beschikbaar
+		}
+	}
+]]></Implementation>
 </Method>
 
+<Method name="ConverteerProductLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	;$LB(..FactuurProforma,"P",OLRec,$G(GrpTekst(ORDCnt,OLUNr)),ORDNr)
+
+	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.OorsprongDocType=$CASE($LG(lbLijn,1), "L":"LEVERING", "F":"FACTUUR", "P":"NUL-FACTUUR", :"ORDER")
+	Set pxLijn.Commentaar=$LG(lbLijn,4)
+	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
+	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
+	Do pxLijn.VulAanMetProduct(..Taal)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerTekstLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	;$LB(..FactuurProforma,"T",,$G(GrpTekst(ORDCnt,OLUNr)),ORDNr)
+
+	Set pxLijn.Commentaar=$LG(lbLijn,4)
+	Set pxLijn.Type="T"
+]]></Implementation>
+</Method>
+
 <Method name="BepaalGlobal">
 <FormalSpec>FactuurProforma:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..FactuurProforma=FactuurProforma
+	Set ..Node="F"
 	If FactuurProforma="P" { 
 		Set ..GlobalData="^KFAP"
 		Set ..GlobalIndex="^KFAP1"
@@ -95,14 +181,25 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OphalenNaarCache">
+<Method name="OphalenOpenstaandeNaarCache">
+<Implementation><![CDATA[
+	
+	Do ..BepaalGlobal("F")
+	#dim Iterator As TECH.Iterator = ..repOpenstaandeFactuur.ZoekViaKlantID("K||"_..KlantID)
+	while Iterator.HasNext() {
+		#dim OpenstaandeFactuur As DOM.BKH.OpenstaandeFactuur = Iterator.Next()
+		Do ..OphalenFactuur(OpenstaandeFactuur.GeefFactuurID())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OphalenRecenteNaarCache">
 <FormalSpec>FactuurProforma:%String,Periode:%Integer</FormalSpec>
 <Implementation><![CDATA[
 	Do ..BepaalGlobal(FactuurProforma)
 	Set TotDatum=-($H-$S(Periode="":365,1:Periode)) ; alle openstaande of voor een bep periode
 	Set FAKNr=""
 	Set Datum=""
-	Set ..Node="F"
 	
 	For  Set Datum=$O(@..GlobalIndex@(..Node,..KlantID,Datum)) Quit:Datum=""  Quit:Datum>TotDatum  Do
 	. For  Set FAKNr=$O(@..GlobalIndex@(..Node,..KlantID,Datum,FAKNr)) Quit:FAKNr=""  Do
@@ -177,32 +274,57 @@
 		Set ORDNr=$P($P($LG($G(Sort(ORDCnt))),"\",5)," ")
 		Continue:ORDNr=""
 		Continue:ORDNr=999999 ; dummy order voor plus/min bonnen
-		
-		Set HoofdingVolgNr=$I(^||ECCache("D"))
-		Set ^||ECCache("D",HoofdingVolgNr)=$LB(..FactuurProforma,ORDNr,$E(BONNr,2,9),FAKNr,$LG($G(Sort(ORDCnt))),@..GlobalData@(..Node,FAKNr,BONNr,1),@..GlobalData@(..Node,FAKNr,0,0),$G(@..GlobalData@(..Node,FAKNr,BONNr,3)))
-		Set ^||ECCache("IO",ORDNr,$O(^||ECCache("IO",ORDNr,""),-1)+1)=HoofdingVolgNr
-		Set ^||ECCache("IF",FAKNr,$O(^||ECCache("IF",FAKNr,""),-1)+1)=HoofdingVolgNr
 
+		If '$D(^||ECCache("FAK",FAKNr))
+		{
+			Set FactuurRec=@..GlobalData@(..Node,FAKNr,0,0)
+			Set FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6))
+			
+			Set ^||ECCache("FAK",FAKNr)=$LB(..FactuurProforma,FAKNr,FactuurRec)
+			Set ^||ECCache("IFAK",FactuurDatum,FAKNr)=""
+		}
+
+		Set ^||ECCache("FAK",FAKNr,BONNr,ORDNr,1,1)=$LB(..FactuurProforma,"O",Sort(ORDCnt),,ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
 		Set ProdGrp = ""
 		for { set ProdGrp = $order(Sort(ORDCnt,ProdGrp)) quit:ProdGrp="" 
 			Set BLNr = ""
 			for { set BLNr = $order(Sort(ORDCnt,ProdGrp,BLNr)) quit:BLNr="" 
 				Set LijnType = $LI(Sort(ORDCnt,ProdGrp,BLNr),1)
 				Set BLRec = $LI(Sort(ORDCnt,ProdGrp,BLNr),2)
 				#dim OLUNr As %String = $P(BLRec,"\",15)
-				Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("D",HoofdingVolgNr,$I(LijnCnt))=$LB("T",,GrpTekst(OLUNr))
-				Set:LijnType="P" ^||ECCache("D",HoofdingVolgNr,$I(LijnCnt))=$LB("P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)))
+				Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"T",,GrpTekst(OLUNr),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
+				Set:LijnType="P" ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
 				}
 			}
 		}
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOrderDatum">
+<FormalSpec>ORDRec</FormalSpec>
+<Implementation><![CDATA[
+	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
+	SEt Datum=""
+	Set:Ref?2N1"."2N1"."2N.E Datum=$$INTDATE^vhLib.DataTypes($E(Ref,1,8))
+	Set:(Datum<($H-365))||(Datum>($H+5)) Datum=+$P($P(ORDRec,"\",4),"#",3)
+	Quit Datum
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderReferentie">
+<FormalSpec>ORDRec</FormalSpec>
+<Implementation><![CDATA[
+	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
+	Set:Ref?2N1"."2N1"."2N.E Ref=$E(Ref,9,99) ; Strip datum
+	Set:$E(Ref)=" " Ref=$E(Ref,2,99)
+	
+	Quit Ref
+]]></Implementation>
+</Method>
+
 <Method name="CheckFactuur">
 <FormalSpec>FAKNr,Periode</FormalSpec>
-<Implementation><![CDATA[
-	Quit:Periode="" $D(^KKL(^KK1(..KlantID),FAKNr))>0 ; alleen openstande
-	Quit 1
+<Implementation><![CDATA[	Quit 1
 ]]></Implementation>
 </Method>