Index: HADWIZ.mac.rou =================================================================== diff -u -r3690 -r3691 --- HADWIZ.mac.rou (.../HADWIZ.mac.rou) (revision 3690) +++ HADWIZ.mac.rou (.../HADWIZ.mac.rou) (revision 3691) @@ -77,6 +77,7 @@ Set ^IPCom("D",Key,"P","AANTAL")=Aantal Set ^IPCom("D",Key,"P","KLANT")=$G(KLNr) Set ^IPCom("D",Key,"P","QU")=$G(QU) + Set ^IPCom("D",Key,"P","ECPSessionStarted")="" If (X="T"),$G(PRNr)?4.7N,$D(^HADPR("P",PRNr,"BP")) Set ^IPCom("D",Key,"P","DFLREF")=$NA(^HADPR("P",PRNr,"BP")),^IPCom("D",Key,"P","DFLPR")=PRNr ; Start Applicatie Set FP=2001 Write @F,"VBA:\\"