Index: FLOWORD9.mac.rou
===================================================================
diff -u -r55344 -r56733
--- FLOWORD9.mac.rou	(.../FLOWORD9.mac.rou)	(revision 55344)
+++ FLOWORD9.mac.rou	(.../FLOWORD9.mac.rou)	(revision 56733)
@@ -12,12 +12,12 @@
 	Set Status =""
 	If $P(LijnRec,"\",27)'="" ; kom link 
 	{
-		Set Status="1;Productie : Onbekend"
+		Set Status="1;In productie"
 		Set FabKey=$$FABKEYO^HADOPV(KLNr,ORDNr,OLUNr)
 		Set TOENr=$P(FabKey,";")
 		If $L(FabKey) && ($P($G(^HADPR("F",FabKey,"K")),"\",3)="A")
 		{
-			Set Status="2;Productie : klaargezet"
+			Set Status="2;In productie"
 		}
 		try
 		{
@@ -30,27 +30,27 @@
 		}
 		If $isObject(pxZoek)
 		{
-			Set Status="3;Productie : in batch;"_$$FormatVanafNu($ZDTH(pxZoek.ToeleveringGeplandTijdstip,3,,2))
+			Set Status="3;In productie;"_$$FormatVanafNu($ZDTH(pxZoek.ToeleveringGeplandTijdstip,3,,2))
 		}
 	}
 	
 	Set CONSNr=$G(^ORDW("IO",ORDNr,OLUNr))
 
 	If Status="" && 'CONSNr &&($$GETSTOCK^PRODUKT4(PRNr,"F")<$P(LijnRec,"\",3))
 	{
-		Set Status="4;Onvoldoende stock;"_$$GETSTOCK^PRODUKT4(PRNr,"F")
+		Set Status="4;Zonder stock;"_$$GETSTOCK^PRODUKT4(PRNr,"F")
 	}
 	
 	
 	If Status="" && ($P(LijnRec,"\",28)'="") && 'CONSNr 
 	{
 		If $$GoederenBijHalux(ORDNr)
 		{		
-			Set Status="5;Geproduceerd, nog in Halux;"_$$FormatVanafNu($$ZoekLaatsteReceptie(PRNr))
+			Set Status="5;Nog in Halux;"_$$FormatVanafNuHalux($$ZoekLaatsteReceptie(PRNr))
 		}
 		Else
 		{
-			Set Status="6;Wachten op doorsturen"
+			Set Status="6;Doorsturen"
 		}
 	}
 	If Status="" ; status picking
@@ -72,19 +72,32 @@
 			}
 			If (Status="") && ((PickStatus="W")||(PickStatus="P"))
 			{
-				Set Status="77;Wachtend op picking;"_$$TranslateMag($P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr),"\",8))
+				Set Status="77;Te picken;"_$$TranslateMag($P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr),"\",8))
 			}
 			If (Status="") && (PickStatus="")
 			{
-				Set Status="8;Wachtend op picking activatie"
+				Set Status="8;Te activeren"
 			}
 		}
 		Else
 		{
-			Set Status="6;Wachten op doorsturen"
+			Set Status="6;Doorsturen"
 		}
 
 	}
+	; ophalen verzendwijze
+	If Status'=""
+	{
+		If CONSNr {
+			Set VerzendWijze=$P($G(^ORDW("D",CONSNr)),"\",2)
+		}
+		Else
+		{
+			Set VerzendWijze=$P($G(^KOD(KLNr,"F",ORDNr,1)),"\",7)
+			Set VerzendWijze=$P($P(VerzendWijze,"`"),";") ;alleen eerste code zonder de dag
+		}
+		Set $P(Status,";",4)=VerzendWijze
+	}
 	Quit Status
 TranslateMag(MagCode)
 	Quit:MagCode="U" "Ugly"
@@ -106,6 +119,24 @@
 	Set Diff=$$DIFFTIME^vhLib.DataTypes(DatumEnTijd,$H)
 	Set Uur=Diff\3600
 	Quit Uur_" u"
+	
+FormatVanafNuHalux(DatumEnTijd)
+	New Dag,Uur,Werkdagen
+	Set Werkdagen=0
+	If +DatumEnTijd<+$H ; Verschillende dagen
+	{
+		For Dag=+DatumEnTijd:1:($H-1)
+		{
+			Set Werkdagen=Werkdagen+($$CALCDATE^vhLib.DataTypes(Dag,"A","+0")=Dag)
+		}
+	}
+	Set Diff=$$DIFFTIME^vhLib.DataTypes(DatumEnTijd,$H)\3600
+	Set Result=(Diff)_" u"
+	;w Werkdagen, " ", Result,!
+	Set:(Werkdagen=1)&&(Diff>10) Result=(Diff-10)_" u"
+	Set:(Werkdagen>1) Result=Werkdagen_" D"
+	Quit Result
+	
 ZoekLaatsteReceptie(PRNr)
 	New VolgNr
 	Set VolgNr=$O(^PRHIST(PRNr,""),-1)