Index: DOM/ProdRes/impl/ReservatieImpl.cls.xml =================================================================== diff -u -r2161 -r2169 --- DOM/ProdRes/impl/ReservatieImpl.cls.xml (.../ReservatieImpl.cls.xml) (revision 2161) +++ DOM/ProdRes/impl/ReservatieImpl.cls.xml (.../ReservatieImpl.cls.xml) (revision 2169) @@ -181,16 +181,19 @@ While ($$$ISOK(Status) && InvoerUitvoerLinkIterator.HasNext()) { Set InvoerUitvoerLink = InvoerUitvoerLinkIterator.Next() - Set VerwachteInvoer = InvoerUitvoerLink.GeefVerwachteInvoer() - If ($IsObject(VerwachteInvoer)) + If ($IsObject(InvoerUitvoerLink)) { - Do VerwachteInvoer.VerwijderInvoerUitvoerLink(InvoerUitvoerLink) - Set Status = VerwachteInvoer.%Save() + Set VerwachteInvoer = InvoerUitvoerLink.GeefVerwachteInvoer() + If ($IsObject(VerwachteInvoer)) + { + Do VerwachteInvoer.VerwijderInvoerUitvoerLink(InvoerUitvoerLink) + Set Status = VerwachteInvoer.%Save() + } + If ($$$ISOK(Status)) + { + Set Status = InvoerUitvoerLink.%DeleteId(InvoerUitvoerLink.%Id()) + } } - If ($$$ISOK(Status)) - { - Set Status = InvoerUitvoerLink.%DeleteId(InvoerUitvoerLink.%Id()) - } } } Quit Status