Index: EWRCPSW.mac.rou
===================================================================
diff -u -r45907 -r46116
--- EWRCPSW.mac.rou	(.../EWRCPSW.mac.rou)	(revision 45907)
+++ EWRCPSW.mac.rou	(.../EWRCPSW.mac.rou)	(revision 46116)
@@ -61,13 +61,13 @@
  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)?
+ .;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)
  .If $L(PalletNummer) Do
  ..Set PalletAantal=$P(^KTO(ObjRef,BONNr,ToeleverijnLijnNr),"\",3)
  ..Do BLDVPAX(PalletNummer,PalletAantal,1,.SC) ; hier geen aantal/pack info -> 1
- .else
+ .else  Do
  ..Set SC="R02"
  ..Do PUT^EWRECS(DH,$NA(SC))
  Set $P(SRec,D,2)="W"