Index: UI/Utils/MAppLauncher/MainForm.cls.xml
===================================================================
diff -u -r1926 -r3690
--- UI/Utils/MAppLauncher/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 1926)
+++ UI/Utils/MAppLauncher/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 3690)
@@ -537,10 +537,19 @@
 
  ;=============================================================================
 outFillGAPR
- Quit:('$D(..Params("GAPR")))
- Set ^IPCom("D",..ComKey,"P","HALID")=$G(..Params("GAPR","NewProductID"))
- Set ^IPCom("D",..ComKey,"P","PRNR")=$G(..Params("GAPR","PRNr"))
- Set ^IPCom("D",..ComKey,"P","AANTAL")=$G(..Params("GAPR","Qty"))
+ // De subnode DialogResult (CANCELLED of OK) is toegevoegd voor een vlottere communicatie via ECP - by WimV on 13/12/2011.
+ New IsCancelled
+ Set IsCancelled=0
+ If $D(..Params("GAPR")) Do
+ . Set ^IPCom("D",..ComKey,"P","HALID")=$G(..Params("GAPR","NewProductID"))
+ . Set ^IPCom("D",..ComKey,"P","PRNR")=$G(..Params("GAPR","PRNr"))
+ . Set ^IPCom("D",..ComKey,"P","AANTAL")=$G(..Params("GAPR","Qty"))
+ . Set IsCancelled=($G(..Params("GAPR","PRNr"))="")   ; in een meer gerafineerde versie kan men gaan kijken naar het ModalResult van het Dialog-screen
+ Else  Do
+ . Set IsCancelled=1
+
+ Set ^IPCom("D",..ComKey,"P","DialogResult")=$S(IsCancelled:"CANCELLED", 1:"OK")
+ 
  ;d ..TTrace($$ArrayToText^vhLib("^IPCom"))
  Quit