Index: EWBON.mac.rou =================================================================== diff -u -r52252 -r61744 --- EWBON.mac.rou (.../EWBON.mac.rou) (revision 52252) +++ EWBON.mac.rou (.../EWBON.mac.rou) (revision 61744) @@ -73,7 +73,7 @@ .Do MAILEXP^EWBON4(KLNr,CONSNr,LevAdr) .Do RCP(CONSNr) .Do ##class(BL.Flow.RecuPak.Main).AddVerpakToBon(CONSNr) - Else Do ; Verwerking transfertorders + Else Do:TransfWV ; Verwerking transfertorders .Set ^KU1(CONSNr,"F")=KLNr_D_CONSNr_"\T\",^KU1(CONSNr,"F",CONSNr)="" .If '$$ISTERUGN^FLOWBON5(CONSNr) Do ..Merge ^KUL(KLNr,"T",CONSNr)=^KUL(KLNr,"F",CONSNr)