Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml =================================================================== diff -u -r41856 -r41867 --- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml (.../AankoopOrderHoofdingDixfConverter.cls.xml) (revision 41856) +++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml (.../AankoopOrderHoofdingDixfConverter.cls.xml) (revision 41867) @@ -64,15 +64,14 @@ Do ..ConvertGemeenschappelijk(Leverancier,Toelevering,Vestiging) - If Vestiging = "VHBE" { + If Vestiging = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv() { Do ..ConvertVanHoecke(Leverancier) - } - Else { - If Vestiging = "HLX" { + } Else { + If Vestiging = ##class(AX.common.enu.InterneFirmaInitialen).HaluxNv() { Do ..ConvertHalux(Leverancier) } Else { - Write !,"Geef als parameter ofwel VanHoecke, ofwel Halux mee!" + Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Geef als parameter ofwel VanHoecke, ofwel Halux mee! Huidige parameter = '"_Vestiging_"' <")) } } Quit ..AxHoofding