Index: BL/Flow/Proxy/pxLevering.cls.xml =================================================================== diff -u -r59016 -r59234 --- BL/Flow/Proxy/pxLevering.cls.xml (.../pxLevering.cls.xml) (revision 59016) +++ BL/Flow/Proxy/pxLevering.cls.xml (.../pxLevering.cls.xml) (revision 59234) @@ -493,7 +493,7 @@ #dim TaalVV As DOM.enu.Taal = Partij.GeefTaal() Do ..VoegToeVerkoopsvoorwaarden(Oorsprong,TaalVV) Set ..HeaderType = HoofdingType.Custom - } ElseIf ..HeaderType = HoofdingType.HaefeleNL{ + } ElseIf ..HeaderType = HoofdingType.HaefeleNL { Set ..KlantTelefoon = "" Set ..BTWNR = "" Set ..HeaderType = HoofdingType.Custom @@ -505,6 +505,9 @@ Set ..KlantTelefoon = "" Set ..BTWNR = "" Set ..HeaderType = HoofdingType.Custom + } ElseIf ..HeaderType = HoofdingType.SFS { + Set ..KlantTelefoon = ..AfzenderHoofding.TELEFOON + Set ..HeaderType = HoofdingType.Custom } Else { Set ..KlantTelefoon=$P($$$KLRec(0),"\",13) Set ..CheckSumBon= "" ;CheckSumBon Index: vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml =================================================================== diff -u -r59225 -r59234 --- vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml (.../TestAfzenderHoofding.cls.xml) (revision 59225) +++ vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml (.../TestAfzenderHoofding.cls.xml) (revision 59234) @@ -131,8 +131,8 @@ Do $$$AssertEquals(afzender.T8,"") } - Do $$$AssertEquals(pxLevering.HeaderType,##class(BL.FOP.Proxy.enu.HoofdingType).SFS()) - Do $$$AssertEquals(pxLevering.KlantTelefoon,"0041-71-727 58 69") + Do $$$AssertEquals(pxLevering.HeaderType,##class(BL.FOP.Proxy.enu.HoofdingType).Custom()) + Do $$$AssertEquals(pxLevering.KlantTelefoon,"+41 (0)71 727 58 69") Do $$$AssertEquals(pxLevering.BTWNR,"CH116276910") Do $$$AssertEquals(pxLevering.FactuurAan,"SFS UNIMARKET") Do $$$AssertEquals(pxLevering.CheckSumBon,"","Checksum niet ingevuld")