Index: APPS/VKP/impl/LeveringsbonOpkuisService.cls.xml =================================================================== diff -u -r50505 -r75037 --- APPS/VKP/impl/LeveringsbonOpkuisService.cls.xml (.../LeveringsbonOpkuisService.cls.xml) (revision 50505) +++ APPS/VKP/impl/LeveringsbonOpkuisService.cls.xml (.../LeveringsbonOpkuisService.cls.xml) (revision 75037) @@ -74,14 +74,19 @@ While OrderIdIterator.HasNext() { Set OrderId = OrderIdIterator.Next() Set KlantNrVerwijzingKO1 = $Piece($Get(^KO1(OrderId,"F")),"\",1) - If KlantNummer = KlantNrVerwijzingKO1 { - Do ..Console.WriteLine(" *** OrderId: '"_OrderId_"'") - Kill ^KO1(OrderId,"F") + If (KlantNummer = KlantNrVerwijzingKO1){ + if $$$Not($Data(^KOD(KlantNummer,"F",OrderId))) { + Do ..Console.WriteLine(" *** OrderId: '"_OrderId_"'") + Kill ^KO1(OrderId,"F") + } else { + ; mogelijks langlopend order, met lijn leverdatums per week. + } } Else { Do ..Logger.Warning("Inconsistent gebruik van ^KO1 voor OrderId t.o.v. BonNr, Klant matcht niet.","OrderId: '"_OrderId_"' met KlantNrVerwijzingKO1: '"_KlantNrVerwijzingKO1_"' VS BonId: '"_BonId_"' met KlantNummer: '"_KlantNummer_"'") } If ..OrderApi.BestaatOrder(OrderId) { - Do ..Logger.Warning("Order bestaat onterecht","OrderId: '"_OrderId_"'") + ; of de order nummers worden sneller dan 90 dagen herbruikt. + Do ..Logger.Warning("Order bestaat mogelijk onterecht","OrderId: '"_OrderId_"' Het kan ook een langlopend order zijn, met lijnen op verschillende leverdata meer dan 90 dagen uit elkaar") } } Do DELBON^FLOWBON3(KlantNummer,BonId)