Index: cFA13.mac.rou
===================================================================
diff -u -r38073 -r38078
--- cFA13.mac.rou	(.../cFA13.mac.rou)	(revision 38073)
+++ cFA13.mac.rou	(.../cFA13.mac.rou)	(revision 38078)
@@ -48,7 +48,7 @@
  New AdresId set AdresId = $I(^KKL.AdresD)
  Set $P(@("^"_Q_"KL(KI1,KI2)"),"\",28)= AdresId
  Set ^KKL.AdresI("KlantId_AdresVolgNr",AdresId)=$listbuild(KlantId,AdresNr)
- Do ##class(DOM.VKP.VanHoeckeKlant.impl.EventRaiser).%New().RaiseKlantAdresGemaaktEvent(KlantId,AdresVolgNr)
+ Do ##class(DOM.VKP.VanHoeckeKlant.impl.EventRaiser).%New().RaiseKlantAdresGemaaktEvent(AdresId)
 83 S @%Q1=1,SW1=1
  ;
 YZ Q