Index: FLOWTOE.mac.rou =================================================================== diff -u -r67110 -r67114 --- FLOWTOE.mac.rou (.../FLOWTOE.mac.rou) (revision 67110) +++ FLOWTOE.mac.rou (.../FLOWTOE.mac.rou) (revision 67114) @@ -473,9 +473,9 @@ . Set PalletAantal=##class(BL.Prod.sub.pxVoorraadIdentificatieDocs).GeefToeleveringEenheid(PRNr) . Set AantalPaginas=(Aantal\PalletAantal)+(Aantal#PalletAantal>0) . Do ##class(CHUI.Prod.VoorraadIdentificatieDoc).PrintProductVoorraadPagina(PRNr,PalletAantal,AantalPaginas,TLNr) - If $Data(^AfdrukkenVoorraadIdentificatieToelevering(ToeleveringID)) Do + If $Data(^AfdrukkenVoorraadIdentificatieToelevering(TLNr)) Do . Do VerwijderToelevering^FLOWTOE3(LEVNr,TLNr) - . Kill ^AfdrukkenVoorraadIdentificatieToelevering(ToeleveringID) + . Kill ^AfdrukkenVoorraadIdentificatieToelevering(TLNr) Quit ; INIT