Index: EWRCPSW.mac.rou
===================================================================
diff -u -r45846 -r45907
--- EWRCPSW.mac.rou	(.../EWRCPSW.mac.rou)	(revision 45846)
+++ EWRCPSW.mac.rou	(.../EWRCPSW.mac.rou)	(revision 45907)
@@ -61,10 +61,9 @@
  If VervId,FakNr,VervLNr,$D(^Verv(ObjRef,"D",VervId,FakNr,VervLNr)) Do
  .Do BLDVP(ObjRef,VervId,FakNr,VervLNr,.SC)
  Else  Do
- ;geen vervoer maar wel palletnummer op toelevering( die uit AX komt)
- .Set ToeleverijnLijnNr = $G(^TO("IU",BONNr,LUNr_"A")),PalletNummer=""
+ ;geen vervoer maar wel palletnummer op toelevering( die uit AX komt)?
+ .Set ToeleverijnLijnNr = $G(^TO("IU",BONNr,LUNr)),PalletNummer=""
  .Set:ToeleverijnLijnNr PalletNummer=$P($G(^KTO(ObjRef,BONNr,ToeleverijnLijnNr)),"\",32)
- .Do ##class(Tools.Wlip).%New(207).String("Pallet "_PalletNummer)
  .If $L(PalletNummer) Do
  ..Set PalletAantal=$P(^KTO(ObjRef,BONNr,ToeleverijnLijnNr),"\",3)
  ..Do BLDVPAX(PalletNummer,PalletAantal,1,.SC) ; hier geen aantal/pack info -> 1
@@ -76,7 +75,6 @@
  Quit
  
 BLDVPAX(PalletNr,CollieAantal,CollieAantalInCollie,SC)
- Do ##class(Tools.Wlip).%New(207).String("BLDVPAX")
  New C
  Merge C=SC
  Set C="R02"