Index: FLOWTOE.mac.rou =================================================================== diff -u -r67656 -r67681 --- FLOWTOE.mac.rou (.../FLOWTOE.mac.rou) (revision 67656) +++ FLOWTOE.mac.rou (.../FLOWTOE.mac.rou) (revision 67681) @@ -476,6 +476,7 @@ If $Data(^AfdrukkenVoorraadIdentificatieToelevering(TLNr)) Do . Do DELOBJ^FLOWTOE3(TLNr) . Kill ^AfdrukkenVoorraadIdentificatieToelevering(TLNr) + . Do ##class(vhLib.Logger).%New("VoorraadIdentificatie").Debug("Toelevering wijderd", "Toelevering '"_ TLNr _"' werd verwijderd in de context van voorraadidentificatie.") Quit ; INIT Index: BL/Legacy/FLOW.cls.xml =================================================================== diff -u -r67656 -r67681 --- BL/Legacy/FLOW.cls.xml (.../FLOW.cls.xml) (revision 67656) +++ BL/Legacy/FLOW.cls.xml (.../FLOW.cls.xml) (revision 67681) @@ -105,7 +105,10 @@ #dim ToeleveringID As %String = ..GeefIDNieuweToelevering(ResultSet, JournaalId) - Set:$$$Not(ToeleveringID=0) ^AfdrukkenVoorraadIdentificatieToelevering(ToeleveringID) = "DummyWaarde" + If $$$Not(ToeleveringID=0) { + Set ^AfdrukkenVoorraadIdentificatieToelevering(ToeleveringID) = "DummyWaarde" + Do ##class(vhLib.Logger).%New("VoorraadIdentificatie").Debug("Toelevering aangemaakt", "Toelevering '"_ ToeleveringID _"' werd aangemaakt in de context van voorraadidentificatie.") + } Do SqlQueryConnection.Disconnect()