Index: BL/Flow/Proxy/pxLevering.cls.xml =================================================================== diff -u -r55951 -r55961 --- BL/Flow/Proxy/pxLevering.cls.xml (.../pxLevering.cls.xml) (revision 55951) +++ BL/Flow/Proxy/pxLevering.cls.xml (.../pxLevering.cls.xml) (revision 55961) @@ -461,6 +461,9 @@ Set ..CheckDigitLevNr="" Set ..BarCodeBONNr="" } + If AfzenderHoofdingDto.HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).Dupont() { + Set ..BarCodeBONNr="" + } #dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr) Set ..KlantType=$S(##class(DOM.DomeinContext).Instance().GeefKlantTypeAPI().IsIndustriePoolKlant(KlantID):"I", 1:"K") ; Industrie klant of KS Index: vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml =================================================================== diff -u -r55960 -r55961 --- vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml (.../TestAfzenderHoofding.cls.xml) (revision 55960) +++ vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml (.../TestAfzenderHoofding.cls.xml) (revision 55961) @@ -179,7 +179,7 @@ Do $$$AssertEquals(pxLevering.BTWNR,"") Do $$$AssertEquals(pxLevering.FactuurAan,"","""Factuur aan: "" niet ingevuld") Do $$$AssertEquals(pxLevering.CheckSumBon,"","Checksum niet ingevuld") - Do $$$AssertEquals(pxLevering.BarCodeBONNr,"900000") + Do $$$AssertEquals(pxLevering.BarCodeBONNr,"") Do $$$AssertEquals(pxLevering.LEVERINGSNR,"900000") }