Index: vhConsistency/Checks/InvoerUitvoerLinken.cls.xml =================================================================== diff -u -r2905 -r2907 --- vhConsistency/Checks/InvoerUitvoerLinken.cls.xml (.../InvoerUitvoerLinken.cls.xml) (revision 2905) +++ vhConsistency/Checks/InvoerUitvoerLinken.cls.xml (.../InvoerUitvoerLinken.cls.xml) (revision 2907) @@ -40,7 +40,7 @@ Set VerwachteInvoerInfo.TransactieReferentie = Toelevering.GeefToeNr() Set VerwachteInvoerInfo.TransactieLijnReferentie = ProductLijn.GeefUniekLijnNr() Do VerwachteInvoerAPI.RegistreerVerwachteInvoer(VerwachteInvoerInfo) - Do ..VoegMeldingToe("Verwachte invoer aangemaakt (Toelevering, LijnNr): "_Toelevering.GeefToeNr()_", "_ProductLijn.GeefLijnNr()) + Do ..VoegMeldingToe("Verwachte invoer aangemaakt (Toelevering, UniekLijnNr): "_Toelevering.GeefToeNr()_", "_ProductLijn.GeefUniekLijnNr()) } Else { @@ -174,7 +174,7 @@ Set Toelevering = ProductLijn.GeefToelevering() If ($IsObject(Toelevering)) { - Set ToeLijnNr = ProductLijn.GeefToeleveringLijn().GeefLijnNr() + Set ToeLijnNr = ProductLijn.GeefToeleveringLijn().GeefUniekLijnNr() Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(Toelevering.GeefToeNr(),ToeLijnNr,##class(DOM.common.enu.Bedrijf).VanHoecke()) If ($IsObject(VerwachteInvoer)) { @@ -250,7 +250,7 @@ Else { Set OrderLijn = Order.GeefOrderLijnViaCode(OrderLijnCode) - Set ToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeLijnNr) + Set ToeleveringLijn = Toelevering.GeefToeleveringLijnViaCode(ToeLijnNr) If ('$IsObject(OrderLijn)) && ('$IsObject(ToeleveringLijn)) { Do ..VoegMeldingToe("Invoer-uitvoer-link "_InvoerUitvoerLink.%Id()_" verwijst naar orderlijn "_OrderLijn.GeefLijnNr()_" van order "_OrderNr_" en toeleveringlijn "_ToeLijnNr_" van toelevering "_ToeNr_" die beiden niet bestaan (niet auto oplosbaar)")