Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml =================================================================== diff -u -r37933 -r37938 --- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml (.../BLOrdRspService.cls.xml) (revision 37933) +++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml (.../BLOrdRspService.cls.xml) (revision 37938) @@ -98,14 +98,12 @@ Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")'="1") Do ..Logger.Info("BLOrdRsp UpdateVerwerkVlag ", "Toelevering : "_ToeleveringsNummer_"."_ToeleveringsUniekLijnNummer_" Aantal "_Aantal_" op "_LeverDatum ) - if (ToeleveringsUniekLijnNummer >= 100) { set ToeleveringsLijnNummer = (ToeleveringsUniekLijnNummer\100) } else { set ToeleveringsLijnNummer = ToeleveringsUniekLijnNummer } - - + quit:(ToeleveringsLijnNummer="") quit:$$$Not($data(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer))) set eersteindexvoortlnr = $Order(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer,0))