Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r62302 -r73297
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 62302)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 73297)
@@ -263,15 +263,23 @@
 <Parameter name="XMLPROJECTION" value="NONE"/>
 </Property>
 
+<Property name="NaleveringDataAanvuller">
+<Type>DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller</Type>
+<Private>1</Private>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>VerkoopsvoorwaardenURLBepaler:BL.Flow.Proxy.impl.VerkoopsvoorwaardenURLBepaler,KlantInstellingenService:APPS.common.KlantInstellingenService</FormalSpec>
+<FormalSpec>VerkoopsvoorwaardenURLBepaler:BL.Flow.Proxy.impl.VerkoopsvoorwaardenURLBepaler,KlantInstellingenService:APPS.common.KlantInstellingenService,NaleveringDataAanvuller:DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..VerkoopsvoorwaardenURLBepaler = $$$Implementation(VerkoopsvoorwaardenURLBepaler,##class(BL.Flow.Proxy.impl.VerkoopsvoorwaardenURLBepaler).%New())
+	Set ..VerkoopsvoorwaardenURLBepaler = $$$Implementation(VerkoopsvoorwaardenURLBepaler,##class(BL.Flow.Proxy.impl.VerkoopsvoorwaardenURLBepaler).%New())
 	Set ..KlantInstellingenService = $$$Inject(KlantInstellingenService, ##class(APPS.ApplicatieContext).Instance().GeefOrderVerwerkingAPI().GeefKlantInstellingenService())
+	Set ..NaleveringDataAanvuller = $$$Inject(NaleveringDataAanvuller, ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -328,15 +336,17 @@
 	#dim OrderAPI As DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
 	#dim Bon As DOM.VKP.Bon = OrderAPI.GeefBon(BONNr)
 	#dim Oorsprong As BL.Flow.Offerte.enu.Oorsprong = Bon.GeefOorsprong()
+	#dim OorsprongKetting As %String = ..GeefOorsprongKetting(BONNr)
 	
-	Set LeverbonHoofdingBepaler = ##class(BL.Flow.Proxy.impl.LeverbonHoofdingBepaler).%New()
+	Set LeverbonHoofdingBepaler = ##class(BL.Flow.Proxy.impl.LeverbonHoofdingBepaler).%New(,OorsprongKetting)
 	#dim AfzenderHoofdingDto As BL.Flow.Proxy.dto.AfzenderHoofdingDto = LeverbonHoofdingBepaler.BepaalLeverbonHoofding(##class(DOM.common.impl.PersonalityRepository).%New().GeefViaID(..GeefPersonalityId(Bon)), KLNr)
 	
 	#dim HeeftEigenHoofding As %Boolean = $$$False
+
+	Set HeeftEigenHoofding = ##class(TECH.StringUtils).Equals(AfzenderHoofdingDto.HeaderType, HoofdingType.HaefeleCH, HoofdingType.HaefeleSE,HoofdingType.HaefeleFI, HoofdingType.HaefeleNO,HoofdingType.HaefeleNL,HoofdingType.HaefeleDE,HoofdingType.HaefeleAT,HoofdingType.HaefeleIT,HoofdingType.HaefeleCH ,HoofdingType.Noteborn,HoofdingType.SFS,HoofdingType.VanRaemdonck, HoofdingType.CampeTonny,HoofdingType.OPO,HoofdingType.BlumPolen)
+	
 	If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefHeinNaarEindklant()) {
-		Set HeeftEigenHoofding = ##class(TECH.StringUtils).Equals(AfzenderHoofdingDto.HeaderType, HoofdingType.HaefeleNL,HoofdingType.HaefeleDE,HoofdingType.Noteborn,HoofdingType.SFS,HoofdingType.VanRaemdonck, HoofdingType.Hein,)
-	} Else {
-		Set HeeftEigenHoofding = ##class(TECH.StringUtils).Equals(AfzenderHoofdingDto.HeaderType, HoofdingType.HaefeleNL,HoofdingType.HaefeleDE,HoofdingType.Noteborn,HoofdingType.SFS,HoofdingType.VanRaemdonck)
+		Set HeeftEigenHoofding =  HeeftEigenHoofding || (AfzenderHoofdingDto.HeaderType = HoofdingType.Hein)
 	}
 	If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefDuPontNaarEindklant()){
 		Set HeeftEigenHoofding = HeeftEigenHoofding || (AfzenderHoofdingDto.HeaderType = HoofdingType.Dupont)
@@ -354,11 +364,15 @@
 	Do:(..KlantInstellingenService.MoetVhossNummerOpLeveringBon(KLNr)) MogelijkeDragersVoorKlant.Insert(##class(DOM.PM.enu.DragerType).Vhoss())
 
 	If (MogelijkeDragersVoorKlant.Count()>0) {
-		#dim ProductGroepVoorTeTonenDragers As %List = $lb(##class(APPS.PM.enu.ProductGroep).Tandembox(), ##class(APPS.PM.enu.ProductGroep).Legrabox(), ##class(APPS.PM.enu.ProductGroep).TAORBOX())
+		#dim ProductGroepVoorTeTonenDragers As %List = $lb(##class(APPS.PM.enu.ProductGroep).Tandembox(), ##class(APPS.PM.enu.ProductGroep).Legrabox(), ##class(APPS.PM.enu.ProductGroep).TAORBOX(), ##class(APPS.PM.enu.ProductGroep).Merivobox())
 		Do ..BldPalletLookup(BONNr,ProductGroepVoorTeTonenDragers,.DragerLookup) ; Uit ORDW pallet informatie halen
 	}
 
 	Do flbAlgemeen   ; (KLNr,KLID,Taal,BONNr,FactSoort)
+
+	#dim ProductOmschrijvingTaal = ##class(BL.Flow.Proxy.impl.LeverbonAfwijkendeTaalBepaler).%New().GeefAfwijkendeTaalVoorProductOpBonIndienNodig(BONNr,.Taal)
+	Do:($IsObject($G(%blFlowDoc))) %blFlowDoc.ProxySettings.SetAt(ProductOmschrijvingTaal,"ProductOmschrijvingTaal")
+
 	#dim pxOrd As BL.Flow.Proxy.pxLevOrd = ""
 	#dim LijnObj As BL.Flow.Proxy.pxProductLijn = ""
 	Do flbSortOrder(KLNr,FactSoort,BONNr,.Sort)	
@@ -391,9 +405,12 @@
 	..  Set LijnObj=""
 	. ; Next LijnNr
 	
+	Do ..VoegToeNaleveringsdataIndienNodig(Bon, Taal)
+	
 	Do flbLevBonEnd   ; (KLNr,BONNr,Taal,Rec,Rec3)
+	
 	Do flbPPODFields()
-
+	
 	; GEEN remboursbon als :
 	;  - er geen remboursbedrag is
 	;  - de verzendingswijze="DI1"
@@ -440,6 +457,8 @@
 	#dim Rec As %String = $G(^KUL(KLNr,FactSoort,BONNr,1))
 	#dim Rec3 As %String = $G(^KUL(KLNr,FactSoort,BONNr,3))
 	#dim Taal As %String = $S(+Rec3:$P(Rec3,"\",9), 1:$P($$$KLRec(0),"\",9))   ; Ophalen Taal uit Leveringsadres, indien aanwezig, anders uit klantdata
+	Set Taal = ##class(BL.Flow.Proxy.impl.LeverbonAfwijkendeTaalBepaler).%New().GeefAfwijkendeTaalVoorBonIndienNodig(BONNr,Taal)
+	
 	Set:(Taal="") Taal="N"
 	#dim Munt As %String = $P(Rec,"\",18)
 	#dim blnBruto As %Boolean = $P(Rec,"\",27)
@@ -460,7 +479,8 @@
 	Set ..CheckDigitLevNr=$$CalcCDigit6^vhRtn2(BONNr)
 	Set ..BarCodeBONNr=BONNr
 	
-	If (AfzenderHoofdingDto.HeaderType = HoofdingType.HaefeleNL) || ((AfzenderHoofdingDto.HeaderType = HoofdingType.HaefeleBE) && (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefHaefeleBENaarEindklant())) {
+	If (AfzenderHoofdingDto.HeaderType = HoofdingType.HaefeleNL) || 
+		((AfzenderHoofdingDto.HeaderType = HoofdingType.HaefeleBE) && (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefHaefeleBENaarEindklant())){
 		Set ..LEVERINGSNR=""
 		Set ..CheckDigitLevNr=""
 	}
@@ -516,6 +536,15 @@
 		Set ..KlantTelefoon = ""
 		Set ..BTWNR = ""
 		Set ..HeaderType = HoofdingType.Custom
+	} ElseIf ..HeaderType = HoofdingType.CampeTonny {
+		Set ..KlantTelefoon = ""
+		Set ..BTWNR = ""
+		Set ..HeaderType = HoofdingType.Custom
+	} ElseIf ..HeaderType = HoofdingType.BlumPolen {
+		Set ..KlantTelefoon = ""
+		Set ..BTWNR = ""
+		Set ..HeaderType = HoofdingType.Custom
+	
 	} Else {
 		Set ..KlantTelefoon=$P($$$KLRec(0),"\",13)
 		Set ..CheckSumBon= "" ;CheckSumBon
@@ -537,7 +566,7 @@
 	Set KLRec5=$$$KLRec(5)
 	For I=3:1:5 Do:($L($P(KLRec5,"\",I))) ..Opmerkingen.Insert($P(KLRec5,"\",I))
 	
-	if ((KlantID = Klant.HaefeleBelgie) || (KlantID = Klant.HaefeleNederland) || (KlantID = Klant.HaefeleDuitsland)|| (KlantID = Klant.IHCHolland) ) {
+	if ((KlantID = Klant.HaefeleBelgie) || (KlantID = Klant.HaefeleNederland) || (KlantID = Klant.HaefeleDuitsland)|| (KlantID = Klant.HaefeleOostenrijk)|| (KlantID = Klant.HaefeleItalie)|| (KlantID = Klant.IHCHolland) ) {
 		#Dim DragerIDs as %ArrayOfDataTypes
 		Set DragerIDs = ..GeefDragerIDsVanBon(MogelijkeDragersVoorKlant,.DragerLookup)
 		if DragerIDs.Count(){
@@ -555,6 +584,12 @@
 	Set ..Gewicht=##class(BL.FOP.Basis.pxAttribUnit).Create($P($P(Rec,"\",13),"#",3),"kg")
 	Set ..HoutCertificaten = ##class(BL.Flow.Proxy.pxHoutCertificaat).BepaalHoutCertificatenViaBon(BONNr,FactSoort,Taal)
 	
+	#dim ToonMeldingEuropaletOmruilen As %Boolean = ##class(TECH.StringUtils).Equals( $$$Trim(..VERZENDWIJZE), "DI1", "DD1", "DI2")
+	If ToonMeldingEuropaletOmruilen {
+		#dim pxMemo As BL.FOP.Basis.pxTekstHTML = ##class(BL.FOP.Basis.pxTekstHTML).Create("MEMO", ..GeefMeldingEuropaletOmruilen(Taal), $LB("type=MEMO"), 0, 1)
+		Do ..MEMO.Insert(pxMemo)
+	}
+	
 	Quit
 flbCalcRembours(KLNr,BONNr,FactSoort)
 	Quit ..CalcRembours(KLNr,BONNr,FactSoort)
@@ -576,6 +611,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMeldingEuropaletOmruilen">
+<FormalSpec>Taal:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim MeldingEuropaletOmruilen As %String = "Bij levering op europalletten dient het exacte aantal steeds omgeruild te worden op het moment van levering."
+	Set:(Taal = "F") MeldingEuropaletOmruilen = "En cas de livraison sur europalettes, le nombre exact doit toujours être échangé au moment de la livraison."
+	Quit MeldingEuropaletOmruilen
+]]></Implementation>
+</Method>
+
 <Method name="GeefDatumOpBonGezet">
 <FormalSpec>LeveringBonId:%String,Klantnummer:%String</FormalSpec>
 <Private>1</Private>
@@ -597,9 +643,12 @@
 <Implementation><![CDATA[
 	#dim PRNr As TECH.String = $P(LRec,"\",2)
 	#dim lbDragerIDs As %List = $G(Lookup(ORDNr,PRNr))
+	
 	If $LL(lbDragerIDs) {
+		Set lbDragerIDs = ..VerwijderDubbelePalletCodes(lbDragerIDs)
 		Set DragerTypeBepaler = ##class(DOM.PM.impl.DragerTypeBepaler).%New()
 		#dim DragerType As DOM.PM.enu.DragerType = DragerTypeBepaler.BepaalDragerType($ListGet(lbDragerIDs))
+		
 		If ##class(TECH.ListUtils).Contains(MogelijkeDragers, DragerType) {
 			#dim VertalingSleutel As TECH.String = "LEV:"_DragerType
 			//info toevoegen aan proxy object
@@ -615,6 +664,8 @@
 <FormalSpec><![CDATA[BONNr,lbLimProdGrp,&Lookup]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	#dim DnaCodeService As APPS.Halux.AAP.DnaCodeService = ##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService")
+	
 	; opbouw lookup
 	Kill Lookup
 	Set (ORDNr,OLUNr,SOLNr)=""
@@ -627,7 +678,13 @@
 	. . For  Set SOLNr=$O(^ORDW("D",BONNr,"D",ORDNr,OLUNr,SOLNr)) Quit:'SOLNr  Do
 	. . . Set SOLRec=^ORDW("D",BONNr,"D",ORDNr,OLUNr,SOLNr)
 	. . . Set PalletID=$P(SOLRec,"\",10)
-	. . . Set:PalletID'="" lbPalletIDs=lbPalletIDs_$LB(PalletID)
+	. . . Set PalletABKant = DnaCodeService.GeefPalletKantABVoorProduct(PRNr, PalletID)
+	. . . If (PalletABKant = "") Do
+	. . . . Set:PalletID'="" lbPalletIDs=lbPalletIDs_$LB(PalletID)
+	. . . If ((PalletABKant = "A") || (PalletABKant = "B")) Do
+	. . . . Set lbPalletIDs=lbPalletIDs_$LB(PalletID_PalletABKant)
+	. . . If ((PalletABKant = "AB") || (PalletABKant = "BA")) Do
+	. . . . Set lbPalletIDs=lbPalletIDs_$LB(PalletID_"A")_$LB(PalletID_"B")
 	. . Set:lbPalletIDs'="" Lookup(ORDNr,PRNr)=$G(Lookup(ORDNr,PRNr))_lbPalletIDs
 ]]></Implementation>
 </Method>
@@ -865,5 +922,50 @@
 	Quit PersonalityID
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeNaleveringsdataIndienNodig">
+<FormalSpec>Bon:DOM.VKP.Bon,Taal:DOM.enu.Taal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ConfigManager As TECH.Config.ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
+	#dim Sleutel As %String = "LeverbonNaleveringsdataToevoegen"
+	
+	If (ConfigManager.BestaatSleutel(Sleutel) && ConfigManager.GeefBoolean(Sleutel)) {
+		Do ..NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(Bon, ..Opmerkingen, Taal)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefOorsprongKetting">
+<FormalSpec>BONNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim OorsprongKetting As %String
+	
+	Try {
+		#dim KlantNummer As %Integer = $Piece(^ORDW("D",BONNr),"\",1)
+		#dim OrderNr As %String = $Order(^ORDW("D",BONNr,"D",""))
+		
+		Set OorsprongKetting = $Piece(^KOD(KlantNummer,"F",OrderNr,1),"\",59)
+	} Catch {
+		Set OorsprongKetting = ""
+	}
+	
+	Quit OorsprongKetting
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderDubbelePalletCodes">
+<FormalSpec>lbDragerIDs:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	#dim PalletCodesLijst = ##class(TECH.ListUtils).ListbuildToList(lbDragerIDs)
+	#dim PalletCodeLijstZonderDubbels = ##class(TECH.ListUtils).RemoveDuplicateItems(PalletCodesLijst)
+	
+	Quit ##class(TECH.ListUtils).ListToListbuild(PalletCodeLijstZonderDubbels)
+]]></Implementation>
+</Method>
 </Class>
 </Export>