Index: EWORDS.mac.rou =================================================================== diff -u -r734 -r921 --- EWORDS.mac.rou (.../EWORDS.mac.rou) (revision 734) +++ EWORDS.mac.rou (.../EWORDS.mac.rou) (revision 921) @@ -471,7 +471,7 @@ .Set:Ok Ok=$$CHKMUNT(%J,KLNr,$G(NoAsk)) .;Do:Ok VERZABX^EWORDS4(%J,KLNr,0) ; blijkbaar niet meer nodig om controle op gewicht uit te voeren. .;If Ok,'$G(NoAsk) Do AnderTransport^EWORDS5(%J) - .If Ok Do AnderTransport^EWORDS5(%J,KLNr) ; altijd uitvoeren niet afhankelijk van NoAsk param + .If Ok,KLNr'=$$$KlantHalux Do AnderTransport^EWORDS5(%J,KLNr) ; altijd uitvoeren niet afhankelijk van NoAsk param, niet voor Halux. .If Ok Set Ok=$G(NoAsk) Set:'Ok Ok=$$^vhTXTPOP("EWORDS","SAVE") .Quit:'Ok .Set CONSNr=$$GETNUM^FLOW("KUL","KU1") ; Tijdelijk