Index: EWORDSW.mac.rou
===================================================================
diff -u -r38191 -r38931
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 38191)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 38931)
@@ -118,29 +118,30 @@
  Quit ##class(BL.Legacy.EWORDSW).Bevat(CONSNr)
  
 AanpassenDueOut(CONSNr,lbBevat)
- New Omz,OmzFakt,KLNr,DOut,SubMagazijnen,Verzendwijze
+ New Omz,OmzFakt,KLNr,DOut,SubMagazijnen,Verzendwijze,OldDOut
   ;Aanpassen van de DueOutTime volgens magazijn
  Set KLNr=$P(^ORDW("D",CONSNr),D)
  Set Omz=$P($G(^KKAAP(KLNr,0,0,0,0)),D)
  Set OmzFakt=$S(Omz>250000:100,Omz>25000:100,1:0)
- Set DOut=$P(^ORDW("D",CONSNr),D,3)
+ Set (OldDOut,DOut)=$P(^ORDW("D",CONSNr),D,3)
  Set SubMagazijnen=$$BepaalSubMagazijnen(CONSNr)
- Set Verzendwijze=$P(^ORDW("D",CONSNr),D,2)
- If ($E(Verzendwijze,1,2)="OD") && (SubMagazijnen["E")
+ Set Verzendwijze=$P($P($P(^ORDW("D",CONSNr),D,2),"`"),";")
+ If (Verzendwijze?1"OD"1N)&&(SubMagazijnen["E")
  {
-	 If $P($P(Verzendwijze,"`"),";")="OD1" Set $P(DOut,",",2)=21600 ; 6 uur
-	 If $P($P(Verzendwijze,"`"),";")="OD2" Set $P(DOut,",",2)=25200 ; 7 uur
-	 If $P($P(Verzendwijze,"`"),";")="OD3" Set $P(DOut,",",2)=28800 ; 8 uur
-	 If $P($P(Verzendwijze,"`"),";")="OD4" Set $P(DOut,",",2)=32400 ; 9 uur
-	 If $P($P(Verzendwijze,"`"),";")="OD5" Set $P(DOut,",",2)=36000 ; 10 uur
+	If Verzendwijze="OD1" Set $P(DOut,",",2)=21600 ; 6 uur
+ 	If Verzendwijze="OD2" Set $P(DOut,",",2)=25200 ; 7 uur
+ 	If Verzendwijze="OD3" Set $P(DOut,",",2)=28800 ; 8 uur
+ 	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
+ 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
- 
+
 BepaalSubMagazijnen(CONSNr)
 	New ORDNr,OLUNr,SOLNr,Magazijnen,SOLRec,SoftV
 	Set (ORDNr,OLUNr,SOLNr,Magazijnen)=""
@@ -230,7 +231,9 @@
  ...Set Key=$O(^KPR(PRNr,"I")) 
  ...Set HG=$S($E(Key)="I":$P(^KPR(PRNr,Key),D,1),1:"*")
  ...Set SoftV=$P(SOLRec,D,13)
- ...Set:SoftV'?1N SoftV=$$SOFTV(PRNr,KLNr,Aantal,lbBevat) ; Indien niet op voorhand gegroepeerd
+ ...If SoftV'?1N Do ; Indien niet op voorhand gegroepeerd voor WMS
+ .... Set SoftV=$$SOFTV(PRNr,KLNr,Aantal,lbBevat)
+ .... Set $P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr),D,13)=SoftV
  ...Set SortT1(SoftV,HG)=$G(SortT1(SoftV,HG))+$S((SoftV="E")!(SoftV?1N):Gewicht*Aantal/1000,1:0) ; Alleen voor die van het automatisch mag.
  ...Set SortT1(SoftV,HG,$$SORTKEY^PRODUKT(PRNr),ORDNr,OLUNr)=PRNr
  
@@ -498,6 +501,9 @@
 NOPROD ;"Geen product gedefinieerd in :"_ORDNr_";"_OLUNr
 NOSEND ;"Order kan niet worden doorgestuurd omwille van status :"_ORDNr_";"_$P(^ORD(KLNr,"F",ORDNr,1),D,30)
 UITLEV ;"Volledige terugname niet geimplementeerd "_KLNr_"; "_ORDNr)
+DUEOUT ;"Aanpassen DueOut "_$G(CONSNr)_"; "_$G(OldDOut)_"; "_$G(DOut)_"; "_$G(SubMagazijnen)_"; "_$G(Verzendwijze)
 
 
 
+
+