Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml =================================================================== diff -u -r37031 -r37139 --- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml (.../BLOrdRspService.cls.xml) (revision 37031) +++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml (.../BLOrdRspService.cls.xml) (revision 37139) @@ -73,6 +73,9 @@ #dim eersteindexvoortlnr = 0 #dim indexoudste as %integer = 0 #dim ToeleveringsLijnNummer as %String = "" + + Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")'="1") + set ToeleveringsLijnNummer = (ToeleveringsUniekLijnNummer\100) quit:$$$Not($data(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer))) @@ -112,13 +115,16 @@ ToeleveringsNummer:%String - zijn niet geleverd en moeten manueel behandeld worden + ; Do ..ZetVervallenLijnenAlsVerwerkt() Do ..Kopieerder.Kopieer() ]]>