Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml =================================================================== diff -u -r37898 -r37903 --- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml (.../BLOrdRspService.cls.xml) (revision 37898) +++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml (.../BLOrdRspService.cls.xml) (revision 37903) @@ -96,7 +96,6 @@ Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")'="1") Do ..Logger.Info("BLOrdRsp UpdateVerwerkVlag ", "Toelevering : "_ToeleveringsNummer_"."_ToeleveringsUniekLijnNummer_" Aantal "_Aantal_" op "_LeverDatum ) - Do ##class(Tools.Wlip).%New(207).String("BLOrdRsp UpdateVerwerkVlag Toelevering : "_ToeleveringsNummer_"."_ToeleveringsUniekLijnNummer_" Aantal "_Aantal_" op "_LeverDatum ) if (ToeleveringsUniekLijnNummer >= 100) { set ToeleveringsLijnNummer = (ToeleveringsUniekLijnNummer\100) @@ -213,7 +212,6 @@ #dim Record as %String = @..#Global(ToeleveringNummer,+ToeleveringLijnNummer,index) Set ToeleveringAantal = +$Extract($Piece(Record,"\",1),28,34) Set ToeleveringLeverDatum = $Extract($Piece(Record,"\",1),46,51) - Do ##class(Tools.Wlip).%New(207).String("Matching " _ ToeleveringLeverDatum _ " en " _ LeverDatum) Quit (ToeleveringAantal = +Aantal) && (ToeleveringLeverDatum = LeverDatum) ]]>