Index: EWRCPSW.mac.rou
===================================================================
diff -u -r29059 -r45846
--- EWRCPSW.mac.rou	(.../EWRCPSW.mac.rou)	(revision 29059)
+++ EWRCPSW.mac.rou	(.../EWRCPSW.mac.rou)	(revision 45846)
@@ -50,7 +50,7 @@
  Quit
  
 BLDSUB(ObjTyp,ObjRef,RCPNr,BONNr,LUNr,SubLNr,VervId,LC) 
- New SRec,FakNr,VervLNr,SC
+ New SRec,FakNr,VervLNr,SC,PalletNummer,ToeleverijnLijnNr,PalletAantal
  Set SRec=^RCP("D",RCPNr,"D",BONNr,LUNr,SubLNr)
  Do SCACHE(ObjTyp,ObjRef,RCPNr,BONNr,LUNr,SubLNr,SRec,.LC,.SC)
  Set SC="R01"
@@ -61,12 +61,31 @@
  If VervId,FakNr,VervLNr,$D(^Verv(ObjRef,"D",VervId,FakNr,VervLNr)) Do
  .Do BLDVP(ObjRef,VervId,FakNr,VervLNr,.SC)
  Else  Do
- .Set SC="R02"
- .Do PUT^EWRECS(DH,$NA(SC))
+ ;geen vervoer maar wel palletnummer op toelevering( die uit AX komt)
+ .Set ToeleverijnLijnNr = $G(^TO("IU",BONNr,LUNr_"A")),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
+ .else
+ ..Set SC="R02"
+ ..Do PUT^EWRECS(DH,$NA(SC))
  Set $P(SRec,D,2)="W"          
  Set ^RCP("D",RCPNr,"D",BONNr,LUNr,SubLNr)=SRec
  Quit
  
+BLDVPAX(PalletNr,CollieAantal,CollieAantalInCollie,SC)
+ Do ##class(Tools.Wlip).%New(207).String("BLDVPAX")
+ New C
+ Merge C=SC
+ Set C="R02"
+ Set C("COLLIEBARCODE")="0039002617"_PalletNr ; Verlengen barcode met het EAN:AT_BLUM voorloop nummer
+ Set C("COLLIEAANTAL")=CollieAantal
+ Set C("COLLIEAANTALINCOLLIE")=CollieAantalInCollie
+ Do PUT^EWRECS(DH,$NA(C))
+ Quit
+ 
 BLDVP(LEVNr,VervId,FakNr,VervLNr,SC) ; Doorgeven van de verpakkingsinformatie uit ^Verv
  New Rec,C,VRec
  Set Rec=$G(^Verv(LEVNr,"D",VervId,FakNr,VervLNr,"V"))