Index: EWORDSW.mac.rou
===================================================================
diff -u -r56968 -r57960
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 56968)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 57960)
@@ -142,21 +142,28 @@
  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
+ Set:$$IsAlpnachOfHerzog(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)
+
+IsAlpnachOfHerzog(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 $$IsAlpnach(CONSNr)||$$IsHerzog(CONSNr)
+ 
+IsAlpnach(CONSNr)
 	Set Alpnach = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId(##class(DOM.VKP.enu.SfsKlant).Alpnach(), ##class(DOM.common.enu.Personality).SFS())
 	Quit (oOrder.GeefDocumentReferenties().CommissieReferentie["/"_Alpnach_"/")
+ 
+IsHerzog(CONSNr)
+	Set Herzog = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId(##class(DOM.VKP.enu.SfsKlant).Herzog(), ##class(DOM.common.enu.Personality).SFS())
+	Quit (oOrder.GeefDocumentReferenties().CommissieReferentie["/"_Herzog_"/")
 	
 BepaalSubMagazijnen(CONSNr)
 	New ORDNr,OLUNr,SOLNr,Magazijnen,SOLRec,SoftV