Index: EWPAL.mac.rou
===================================================================
diff -u -r62600 -r65248
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 62600)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 65248)
@@ -445,7 +445,7 @@
  Do STORE^vhTERMINA()
  Do DISPLAY^vhScherm("EWPALRPLPR")
  Set GlobRef="Actueel"
- For  Do  Quit:"XD"'[Input
+ For  Do  Quit:"XDK"'[Input
  .If GlobRef="Actueel" Do
  ..Do FETCHACT(PRNr,%J)
  ..Do:InitList INIT^vhLIST("EWPAL","RPLPRACT",.LD)
@@ -458,6 +458,7 @@
  ..Do CALLSPEC^vhMenu(LD("POS")+LD("SELECT")-1_";80","EWPALSPEC")
  .If Input="X" Do RPLDAT(PRNr)
  .If Input="D" Do RPLPROD($P($G(^HULP(%J,LD("SELECT"))),D,1),GlobRef="Actueel")
+ .If Input="K" Do WijzigOrder(PRNr,$P($G(^HULP(%J,LD("SELECT"))),D,1))
  Do REFRESH^vhTERMINA()
  Kill ^HULP(%J)
  Set:RPLPR VTB=$G(U4),SW2=0,R=Input
@@ -475,7 +476,37 @@
  Set X=$$WILD^vhPOPUP("C;C","2O-","Oude gegevens+reservatie",.Y,X)
  If X Set InitList=$S(GlobRef'=Z(X):1,1:0),GlobRef=Z(X)
  Quit
- 
+
+WijzigOrder(PRNr, PalId)
+	New X, NewORDNr, Input, ORDNr, KLNr,PRList
+	
+	Set X=$O(^EWPAL("D",PRNr,PalId,"")) ; Oud ordernummer
+	Set NewORDNr=$$ASK^vhINP("Geef ordernummuer in ", 6, X,"Wijzig order voor pallet "_PalId)
+	Quit:NewORDNr'?6N
+ 	Set KLNr=$P($G(^KO1(NewORDNr,"F")),D)
+ 	Quit:'KLNr ; order bestaat niet
+ 	Write KLNr, " ", $P(^KKL(^KK1(KLNr),0),"\",2)
+ 	
+ 	; Ophalen korttekst van alle producten op de pallet
+ 	Set PRNr="", PRList=""
+ 	For  Set PRNr=$O(^EWPAL("D",PRNr)) Quit:PRNr=""  Do:$D(^EWPAL("D",PRNr,PalId))
+	. Set PRList=PRList_", "_$P(^KPR(PRNr,0),"\",1)
+	
+	; Bevestiging vragen
+	Set X=$$ASK^vhINP("Doorgaan=J[]",1,"", "Order voor klant : "_KLNr_" "_$P(^KKL(^KK1(KLNr),0),"\",2),"Prod: "_$E(PRList,3,75))
+	Quit:$ZCVT(X,"U")'="J"	
+
+	; Aanpassen voor alle producten van die pallet
+ 	Set PRNr=""
+ 	For  Set PRNr=$O(^EWPAL("D",PRNr)) Quit:PRNr=""  Do:$D(^EWPAL("D",PRNr,PalId))
+ 	. ; Opkuis oud ORDNr
+ 	. Set ORDNr=""
+ 	. For  Set ORDNr=$O(^EWPAL("D",PRNr,PalId,ORDNr)) Quit:ORDNr=""  Kill ^EWPAL("D",PRNr,PalId,ORDNr)
+ 	. ; Toevoegen NewORDNr met dummy lijnnummer
+ 	. Set ^EWPAL("D",PRNr,PalId,NewORDNr,100)=""
+
+	Quit
+
 RPLPROD(PalId,Actueel) 
  New PRNr,Y,Result,Query,Status
  Quit:'$L(PalId)