Index: vhDeploy/D20171228xSluitenOrderMenuOrderIngave.cls.xml
===================================================================
diff -u
--- vhDeploy/D20171228xSluitenOrderMenuOrderIngave.cls.xml	(revision 0)
+++ vhDeploy/D20171228xSluitenOrderMenuOrderIngave.cls.xml	(revision 48784)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20171228xSluitenOrderMenuOrderIngave">
+<ClassType/>
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Order Menu, sluiten order aangepast</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set ^MN("D","FLOWORDFIL")="Orderverwerking file menu`1`"
+	set ^MN("D","FLOWORDFIL","F",2)="Sluit manueel order (Niet naar AX)``K`ManueelOrder````"
+	set ^MN("D","FLOWORDFIL","F",2)="Sluit tijdelijk order (naar AX)``K`TijdelijkOrder``"
+	set ^MN("D","FLOWORDFIL","F",3)="&S``B```"
+	set ^MN("D","FLOWORDFIL","F",4)="Fax/Mail order``K`PRINT``"
+	set ^MN("D","FLOWORDFIL","F",5)="Print Aventosbakken``D`PrintAventos^FLOWORD(ORDNr)`$$IsAventosOrder^FLOWORD(ORDNr)```"
+	set ^MN("D","FLOWORDFIL","F",6)="Print toelevering + Haluxetiket en wizard``X`I $$CLOSED^FLOWORD(ORDNr,1,1) D ORDER^HADETIK(ORDNr),PRINT^HADWIZ(""ORD"",ORDNr),PRINTTOE^FLOWORD`$$ISHALUX^FLOW(""O"",ORDNr),$$ISHALWIZ^FLOW(""O"",ORDNr)`"
+	set ^MN("D","FLOWORDFIL","F",7)="Print toelevering``X`I $$CLOSED^FLOWORD(ORDNr,1,1) D PRINTTOE^FLOWORD`$$ISHALUX^FLOW(""O"",ORDNr)`"
+	set ^MN("D","FLOWORDFIL","F",8)="Print Haluxwizard``D`PRINT^HADWIZ(""ORD"",ORDNr):$$CLOSED^FLOWORD(ORDNr,1,1)`$$ISHALWIZ^FLOW(""O"",ORDNr)`"
+	set ^MN("D","FLOWORDFIL","F",9)="Print Haluxetiket``D`ORDER^HADETIK(ORDNr):$$CLOSED^FLOWORD(ORDNr,1,1)`$$ISHALUX^FLOW(""O"",ORDNr)`"
+	set ^MN("D","FLOWORDFIL","F",10)="Behandel incident``D`KOPORD^KLACHT4(KLNr,ORDNr,$G(Detail(AD(6))))`'$G(Extern)`"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: FLOW.mac.rou
===================================================================
diff -u -r44636 -r48784
--- FLOW.mac.rou	(.../FLOW.mac.rou)	(revision 44636)
+++ FLOW.mac.rou	(.../FLOW.mac.rou)	(revision 48784)
@@ -734,4 +734,3 @@
  ;If PerDag,$ZU(5)'="DEV-ADMIN1",'$G(NoWachtW) Set PerDag=$$ASK^vhWACHTW("PROGMODE",,,0,,"Ingave levering per dag.")
  Quit PerDag
 
-
Index: FLOWORD.mac.rou
===================================================================
diff -u -r47577 -r48784
--- FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 47577)
+++ FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 48784)
@@ -121,7 +121,8 @@
  .If Input="I" Do LINSERT("","B")
  .If Input="K" Do QKORT
  .If Input="R" Do SORT(KLNr,ORDNr),FETCHDET,WL^PROC
- .If Input="S" Do CREATOR If $$CHKKRED^FLOW2(ORDNr,1) If $$CANCLOSE Do CLOSE If '$G(CashECar) Set Input="-" Quit
+ .If Input="TijdelijkOrder" Do SLUITTIJDELIJKORDER If '$G(CashECar) Set Input="-" Quit
+ .If Input="ManueelOrder" Do SLUITMANUEELORDER If '$G(CashECar) Set Input="-" Quit
  .If Input="V" Do LDELETE
  .If Input="X" Do DELETE Set Input=$S($G(K)="-":"",1:"-") Quit
  .If Input="E" Do NEWPROD^FLOWORD2
@@ -136,6 +137,20 @@
  Do PutViaFLOWORD^EWORDS6(ORDNr)
  Quit
  ;
+ ; Sluit tijdelijk Order
+SLUITTIJDELIJKORDER
+ Do CREATOR 
+ Set $P(^KOD(KLNr,"F",ORDNr,1),"\",60)="0" 
+ If $$CHKKRED^FLOW2(ORDNr,1) If $$CANCLOSE Do CLOSE 
+ Quit
+ ;
+ ; Sluit manueel Order
+SLUITMANUEELORDER
+ Do CREATOR 
+ Set $P(^KOD(KLNr,"F",ORDNr,1),"\",60) = "1"
+ If $$CHKKRED^FLOW2(ORDNr,1) If $$CANCLOSE Do CLOSE
+ Quit
+ ;
  ; Insert van een lijn
 INSERT(Rec,Insert,OLNr,Show) 
  Do INSERT^FLOWORD2(Rec,Insert,$G(OLNr),$G(Show))
@@ -1047,4 +1062,3 @@
 
 
 
-