Index: EWORDSW.mac.rou
===================================================================
diff -u -r39393 -r41550
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 39393)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 41550)
@@ -138,14 +138,25 @@
  	If Verzendwijze="OD4" Set $P(DOut,",",2)=32400 ; 9 uur
  	If Verzendwijze="OD5" Set $P(DOut,",",2)=36000 ; 10 uur
   }
+  
  Set:OmzFakt>1 $P(DOut,",",2)=$P(DOut,",",2)-(4*60) ; Grote klanten worden voorgetrokken met 4 min.
  Set:$LF(lbBevat,"ORGALUX") $P(DOut,",",2)=$P(DOut,",",2)-(10*60) ; Orgalux orders voortrekken met 10 min.
  Set:$L(SubMagazijnen)=1 $P(DOut,",",2)=$P(DOut,",",2)-(5*60) ; picking uit slechts 1 submagazijn wordt voorgetrokken met 5 min
+ Set:$$IsAlpnach(CONSNr) $P(DOut,",",2)=$P(DOut,",",2)-(20*60) ; picking voor AlpNach (klant van SFS) wordt voorgetrokken met 20 min
  Do INFO^EWLOG($T(DUEOUT))
  Set $P(^ORDW("D",CONSNr),D,3)=DOut ; sinds uglypicking actief is niet meer nodig
  Set:$P(DOut,",",2)<0 $P(^ORDW("D",CONSNr),D,3)=$P(DOut,",") ; PV 15-04-2011 - blijkbaar wordt soms de DueOut verlaagd met x min als deze dan op nul staat dan mag deze niet negatief gaan
  Quit
-
+ 
+IsAlpnach(CONSNr)
+	Quit:$P($G(^ORDW("D",CONSNr)),"\",1)'=$$$KlantSFS 0
+	Set ORDNr=$O(^ORDW("D",CONSNr,"D"))
+	Quit:ORDNr="" 0
+	Quit:'$D(^KOD($$$KlantSFS,"F",ORDNr)) 0
+	Set oOrder=##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(ORDNr)
+	Quit:'$isObject(oOrder) 0
+	Quit oOrder.GeefDocumentReferenties().CommissieReferentie["/83723/"
+	
 BepaalSubMagazijnen(CONSNr)
 	New ORDNr,OLUNr,SOLNr,Magazijnen,SOLRec,SoftV
 	Set (ORDNr,OLUNr,SOLNr,Magazijnen)=""
@@ -346,7 +357,7 @@
  Set C("KLNM")=$P(^KKL(KLId,0),D,2)
  Set C("LEVDAT")=$P(ConsRec,D,5)
  Set C("DUEOUTTIME")=$P(ConsRec,D,3)
- Set:$$DIFFTIME^vhLib.DataTypes($H,C("DUEOUTTIME"))'>0 C("DUEOUTTIME")=($P(C("DUEOUTTIME"),",")-1)_","_$P(C("DUEOUTTIME"),",",2)  ; Bij afhaling de dueout nog vervroegen, hierdoor worden afhalingen die later dan 17:00 worden doorgestuurd toch nog voorgetrokken door EWMS
+ ;Set:$$DIFFTIME^vhLib.DataTypes($H,C("DUEOUTTIME"))'>0 C("DUEOUTTIME")=($P(C("DUEOUTTIME"),",")-1)_","_$P(C("DUEOUTTIME"),",",2)  ; Bij afhaling de dueout nog vervroegen, hierdoor worden afhalingen die later dan 17:00 worden doorgestuurd toch nog voorgetrokken door EWMS
  Set C("VERZENDW")=$$VerzendWijzeCompact($P(ConsRec,D,2),IsAndereControleWijze)
  Set C("KLNM")=C("VERZENDW")_" "_C("KLNM")
  Set VrzZone=$P(ConsRec,D,4)
Index: EWBON.mac.rou
===================================================================
diff -u -r40899 -r41550
--- EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 40899)
+++ EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 41550)
@@ -10,8 +10,10 @@
 BON(CONSNr,NoAsk) 
  New R,KLNr,ORDNr,VerzW,VerzZone,VerzDat,LevAdr,Port,LevVw,Taal,FullBO,KlachtId,Behand,VerpTyp,TransfWV,BelDat,RembAfgehandeld,FactFreq,Iterator,BonLijnTeller,BonMaxTeller
  Do GETFBO(CONSNr,.FullBO)
- If $$LOCK(CONSNr,$G(NoAsk)),$$BACKORD(CONSNr,$G(NoAsk))
+ If $$LOCK(CONSNr,$G(NoAsk))
  Else  Do UNLOCK(CONSNr) Quit 0
+ If $P($G(^ORDW("D",CONSNr)),"\",20)="B" Do UNLOCK(CONSNr) Quit 0 ; Reeds op bon gezet dit kan voorkomen als de lock te lang blijft wachten op bv. een iteractief op bon zetten
+ If '$$BACKORD(CONSNr,$G(NoAsk)) Do UNLOCK(CONSNr) Quit 0
  Do CheckAantORDW(CONSNr)
  Set R=^ORDW("D",CONSNr),KLNr=$P(R,D),$P(R,D,19)=$H,^ORDW("D",CONSNr)=R 
  Set ORDNr="",Behand("AUTO")=1
@@ -720,3 +722,4 @@
 
 
 
+
Index: PRBS.mac.rou
===================================================================
diff -u -r38002 -r41550
--- PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 38002)
+++ PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 41550)
@@ -502,19 +502,22 @@
  Set OldInp=Input
  Set VervangProductService=##class(APPS.PM.Bouwstenen.BouwsteenService).%New().GeefVervangProductService(MPRNr)
  Set VervangStatus=VervangProductService.Controle()
- If VervangStatus["NOK"
+ Set:$G(CalcNoSa)="S" VervangStatus="N/A"
+ 
+ If (VervangStatus["NOK")
  {
 	 Do VervangProductService.GeefControleTekstInLocal(.Txt)
 	 Set K=$$WILD^vhTXTPOP("C;C","Product kan niet vervangen worden: "_VervangStatus,"Txt") 
 
 	 Set Input="" ; geen save toegelaten
  }
- Elseif( VervangStatus="N/A")&&($$CHKWMS^PRBS(MPRNr)'="")
+ Elseif (VervangStatus="N/A")&&($G(CalcNoSa)'="S")&&($$CHKWMS^PRBS(MPRNr)'="")
  {
 	 Set K=$$^vhTXTPOP("PRBS","GEBRUIK WMS")
 	 Set Input="CANC"
 	 Set NoMod=1
  }
+
  ;past Input aan :
  ;  "-" voor exit met bewaar
  ;  "SAVE" voor tussentijds bewaar
@@ -1390,3 +1393,4 @@
 
 
 
+