diff --git a/ba/ba4200.cpp b/ba/ba4200.cpp
index 74849c73f..1f15e10d6 100755
--- a/ba/ba4200.cpp
+++ b/ba/ba4200.cpp
@@ -528,6 +528,7 @@ int TPersone_app::write(const TMask& m)
 
 {
   TRelation *r = get_relation();
+  r->zero();
   m.autosave(r);
   set_cod_ana(r->lfile().get(N_CODANAGR));
   if (_reset_uff_conc)