Index: AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml
===================================================================
diff -u -r48574 -r50282
--- AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml	(.../HelperLeveringenOphalen.cls.xml)	(revision 48574)
+++ AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml	(.../HelperLeveringenOphalen.cls.xml)	(revision 50282)
@@ -73,9 +73,10 @@
 	Set pxHoofding.OorsprongDocType="L"
 
 	Set LeveringRec=$LG(lbHoofding,3)
+	
 	Set pxHoofding.VerzendWijze=..TranslateVerzendWijze($P($P(LeveringRec,"\",7)," #"))
-	Set pxHoofding.LeveringsDatum=$$INTDATE^vhLib.DataTypes($P($P(LeveringRec,"\",7)," #"))
-	If (pxHoofding.LeveringsDatum>($H-150))&&(pxHoofding.VerzendWijze="DI1") ;bon nummers worden herbruikt
+	Set pxHoofding.LeveringsDatum=$$INTDATE^vhLib.DataTypes($P($P(LeveringRec,"\",2)," #"))
+	If (pxHoofding.LeveringsDatum>($H-150))&&(pxHoofding.VerzendWijze?1(1"DI1",1"DD1")) ;bon nummers worden herbruikt
 	{
 		try{
 		 	Set pxHoofding.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxHoofding.LeveringId)
@@ -84,6 +85,8 @@
 		 	/// geen TrackAndTrace URL beschikbaar
 		}
 	}
+	Set pxHoofding.LeverAdresTekst=##class(AX.Uitgaand.EC.DataAX.impl.HelperAdresConverteren).MaakAdresTekstVanAdmin(..KlantId,$LG(lbHoofding,4))
+
 	; Niet voor AX
 	;Do ..VulAanMetFactuur(pxHoofding, lbHoofding)
 ]]></Implementation>
@@ -302,7 +305,7 @@
 <Method name="CheckLevering">
 <FormalSpec>BONNr,Periode</FormalSpec>
 <Implementation><![CDATA[
-	If Periode && (..Node'="F")
+	If Periode ;&& (..Node'="F")
 	{
 		Set LeverDatum=$$INTDATE^vhLib.DataTypes($P(^KUL(..KlantId,..Node,BONNr,1),"\",2))
 		Set Check=LeverDatum'<($H-Periode)
@@ -338,7 +341,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
-	SEt Datum=""
+	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
@@ -349,7 +352,7 @@
 <FormalSpec>ORDRec</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
+	Set Ref=$P($P(ORDRec,"\",5)," - ",3,99)
 	Set:Ref?2N1"."2N1"."2N.E Ref=$E(Ref,9,99) ; Strip datum
 	Set:$E(Ref)=" " Ref=$E(Ref,2,99)