From 9f0b80ed8cbd735fde092d4eb9e75a7b81c14b96 Mon Sep 17 00:00:00 2001
From: luca <luca@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Fri, 28 Sep 2007 10:13:18 +0000
Subject: [PATCH] Patch level         :4.0 787 Files correlati     :
 Ricompilazione Demo : [ ] Commento            :riporto della 3.0 / 3.1 alla
 986 (elenco clifo)

git-svn-id: svn://10.65.10.50/trunk@15655 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 cg/cg3900.cpp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/cg/cg3900.cpp b/cg/cg3900.cpp
index f10717199..28bd795f4 100755
--- a/cg/cg3900.cpp
+++ b/cg/cg3900.cpp
@@ -655,6 +655,7 @@ class TAlleg_mask : public TAutomask
 
 protected: // TAutomask
   virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
+  virtual void on_firm_change();
 
 protected: // Elaborazione
   const TRectype& contribuente() const;
@@ -1232,7 +1233,7 @@ bool TAlleg_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
   case F_NAME:
     if (e == fe_init || e == fe_modify)
     {
-      if (o.empty())
+      if (e == fe_init || o.empty())
       {
         const TRectype& anag = contribuente();
         TFilename ecf = anag.get(ANA_PAIV);
@@ -1324,6 +1325,12 @@ bool TAlleg_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
   return true;
 }
 
+void TAlleg_mask::on_firm_change()
+{
+  set(F_NAME, "", 3);
+}
+
+
 TAlleg_mask::TAlleg_mask() : TAutomask("cg3900a") 
 { }