Index: vhConsistency/Checks/InvoerUitvoerLinken.cls.xml =================================================================== diff -u -r56592 -r56594 --- vhConsistency/Checks/InvoerUitvoerLinken.cls.xml (.../InvoerUitvoerLinken.cls.xml) (revision 56592) +++ vhConsistency/Checks/InvoerUitvoerLinken.cls.xml (.../InvoerUitvoerLinken.cls.xml) (revision 56594) @@ -75,12 +75,13 @@ If $$$Not($IsObject(InvoerUitvoerLink)) { Do ..VoegMeldingToe("Invoer-uitvoer-link " _ ResultSet.Data("ID") _ " kon niet geopend worden") } Else { + #dim VerwachteInvoerReservatie As DOM.ProdRes.InvoerReservatie = InvoerUitvoerLink.GeefInvoerReservatie() #dim VerwachteUitvoerReservatie As DOM.ProdRes.UitvoerReservatie = InvoerUitvoerLink.GeefUitvoerReservatie() - Set VerwachteInvoer = InvoerUitvoerLink.GeefInvoerReservatie().GeefVerwachteInvoer() - Set VerwachteUitvoer = VerwachteUitvoerReservatie.GeefVerwachteUitvoer() + Set VerwachteInvoer = VerwachteInvoerReservatie.GeefVerwachteInvoer() + Set VerwachteUitvoer = VerwachteUitvoerReservatie.GeefVerwachteUitvoer() - If ('$IsObject(VerwachteUitvoerReservatie)) && ('$IsObject(VerwachteInvoer)){ + If ($$$Not($IsObject(VerwachteUitvoerReservatie))) && ($$$Not($IsObject(VerwachteInvoer))) { Do ..VoegMeldingToe("Invoer-uitvoer-link "_InvoerUitvoerLink.%Id()_" is niet gekoppeld aan een verwachte invoer en reservatie (alleenstaande invoer-uitvoer-link)") } ElseIf ('$IsObject(VerwachteUitvoerReservatie)){ Do ..VoegMeldingToe("Invoer-uitvoer-link "_InvoerUitvoerLink.%Id()_" is niet gekoppeld aan een reservatie maar wel aan (Toelevering, LijnNr): "_VerwachteInvoer.GeefTransactieReferentie()_", "_VerwachteInvoer.GeefTransactieLijnReferentie())