Index: AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml
===================================================================
diff -u -r38557 -r38567
--- AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 38557)
+++ AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 38567)
@@ -44,133 +44,47 @@
 <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 ..repOpenstaandeFactuur= ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
-	Set ..TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
-
+	Set ..ProductValidator=ProductValidator	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerHoofding">
-<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.FactuurHoofding,lbHoofding:%List</FormalSpec>
+<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List</FormalSpec>
 <Implementation><![CDATA[
-  	Set pxHoofding.FactuurId=$LG(lbHoofding,2)
-	Set FactuurRec=$LG(lbHoofding,3)
- 	Set pxHoofding.FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6),"DK")
+	Set pxHoofding.FactuurID=$LG(lbHoofding,4)
+	Set FactuurRec=$LG(lbHoofding,7)
+	Set pxHoofding.FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6),"DK")
 	Set pxHoofding.VervalDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",3),"DK")
-	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()
+	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)
 	}
-	Else
-	{
-		Set pxHoofding.FactuurBedrag=$P(FactuurRec,"\",12)
-	}
-]]></Implementation>
-</Method>
 
-<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)
-	}
+	
+	;Set pxHoofding.EDIReferentie=$P(OrderRec,"\",40)
+	;Set pxHoofding.CommissieReferentie=$P(OrderRec,"\",19)
+	;Set pxHoofding.InternMedewerker=""
+	;Set pxHoofding.ExterneMedewerker=""
 ]]></Implementation>
 </Method>
 
-<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 name="VulAanLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
 </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"
@@ -181,25 +95,14 @@
 ]]></Implementation>
 </Method>
 
-<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">
+<Method name="OphalenNaarCache">
 <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
@@ -274,57 +177,32 @@
 		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("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))
+				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)))
 				}
 			}
 		}
 ]]></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 1
+<Implementation><![CDATA[
+	Quit:Periode="" $D(^KKL(^KK1(..KlantID),FAKNr))>0 ; alleen openstande
+	Quit 1
 ]]></Implementation>
 </Method>