From 03ee22437cb5ab41da61bdacaa7895e5e91adaee Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Wed, 12 Oct 1994 17:59:25 +0000
Subject: [PATCH] Corretto cambiamento files in comune

git-svn-id: svn://10.65.10.50/trunk@357 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 cg/cg5100.cpp  | 97 +++++++++++++++++++++++++++++++++++++-------------
 cg/cg5100a.uml |  8 -----
 2 files changed, 73 insertions(+), 32 deletions(-)

diff --git a/cg/cg5100.cpp b/cg/cg5100.cpp
index b07a5b8cd..33a1f6471 100755
--- a/cg/cg5100.cpp
+++ b/cg/cg5100.cpp
@@ -1,25 +1,74 @@
 #include <confapp.h>
 #include <lffiles.h>
 #include <files.h>
+#include <isam.h>
 #include "cg5100a.h"
 
 class CG51_App : public TConfig_application
 {
+  bool _change_pcon;
+  TString16 _val;
 public:
   virtual bool preprocess_config (TMask& mask, TConfig& config);
   virtual bool postprocess_config (TMask& mask, TConfig& config);
   virtual bool postprocess_config_changed(const char* par, const char* var, 
                                           const char* oldv, const char* newv);
 
+  virtual bool user_create() { _change_pcon = FALSE;}
+  virtual bool user_destroy();
   CG51_App() : TConfig_application(CONFIG_DITTA) {}
   virtual ~CG51_App() {}
 };
+bool CG51_App::user_destroy()
+{
+  TDir dir;
+  TString file(16);
+
+  if (_change_pcon)
+  {
+    dir.get(LF_PCON, _lock, _nordir, _sysdirop);
+    file = dir.name();
+    file[0] = _val[0] == 'X' ? '%' : '$';
+    dir.set(file, dir.eod(), dir.flags(), dir.des(), dir.expr());
+    dir.put(LF_PCON, _nordir, _sysdirop);
+    if (dir.eox() == 0L)
+    {
+      TSystemisamfile s(LF_PCON);
+      s.build(10L);
+    }
+    
+    dir.get(LF_CAUSALI, _lock, _nordir, _sysdirop);
+    file = dir.name();
+    file[0] = _val[0] == 'X' ? '%' : '$';
+    dir.set(file, dir.eod(), dir.flags(), dir.des(), dir.expr());
+    dir.put(LF_CAUSALI, _nordir, _sysdirop);
+    if (dir.eox() == 0L)
+    {
+      TSystemisamfile s(LF_CAUSALI);
+      s.build(10L);
+    }
+    
+    dir.get(LF_RCAUSALI, _lock, _nordir, _sysdirop);
+    file = dir.name();
+    file[0] = _val[0] == 'X' ? '%' : '$';
+    dir.set(file, dir.eod(), dir.flags(), dir.des(), dir.expr());
+    dir.put(LF_RCAUSALI, _nordir, _sysdirop);
+    if (dir.eox() == 0L)
+    {
+      TSystemisamfile s(LF_RCAUSALI);
+      s.build(10L);
+    }
+  }
+  return TRUE;
+}
 
 bool CG51_App::preprocess_config (TMask& mask, TConfig& config)
 { 
   // these are disabled in normal applications
-  mask.enable(CHK_ANCFCM);
-  mask.enable(CHK_PCTCCM);
+  TLocalisamfile mov(LF_MOV); 
+  const bool movempty = mov.empty();
+  mask.enable(CHK_ANCFCM, movempty);
+  mask.enable(CHK_PCTCCM, movempty);
   disable_menu_item(M_FILE_NEW);
   disable_menu_item(M_FILE_REVERT);
   return TRUE; 
@@ -41,31 +90,31 @@ bool CG51_App::postprocess_config_changed(const char* par, const char* var,
 
   if (v == "AnCfCm")
   {
-    dir.get(LF_CLIFO, _lock, _nordir, _sysdirop);
-    file = dir.name();
-    file[0] = *newv == 'X' ? '%' : '$';
-    dir.set(file, dir.eod(), dir.flags(), dir.des(), dir.expr());
-    dir.put(LF_CLIFO, _nordir, _sysdirop);
+    if (yesno_box("Confermi il cambiamento dell'anagrafica clienti/fornitori"))
+    {
+      dir.get(LF_CLIFO, _lock, _nordir, _sysdirop);
+      file = dir.name();
+      file[0] = *newv == 'X' ? '%' : '$';
+      dir.set(file, dir.eod(), dir.flags(), dir.des(), dir.expr());
+      dir.put(LF_CLIFO, _nordir, _sysdirop);
+      if (dir.eox() == 0L)
+      {
+        TSystemisamfile s(LF_CLIFO);
+        s.build(10L);
+      }
+    }
+    else
+      return FALSE;
   }
   else if (v == "PcTcCm")
   {
-    dir.get(LF_PCON, _lock, _nordir, _sysdirop);
-    file = dir.name();
-    file[0] = *newv == 'X' ? '%' : '$';
-    dir.set(file, dir.eod(), dir.flags(), dir.des(), dir.expr());
-    dir.put(LF_PCON, _nordir, _sysdirop);
-
-    dir.get(LF_CAUSALI, _lock, _nordir, _sysdirop);
-    file = dir.name();
-    file[0] = *newv == 'X' ? '%' : '$';
-    dir.set(file, dir.eod(), dir.flags(), dir.des(), dir.expr());
-    dir.put(LF_CAUSALI, _nordir, _sysdirop);
-
-    dir.get(LF_RCAUSALI, _lock, _nordir, _sysdirop);
-    file = dir.name();
-    file[0] = *newv == 'X' ? '%' : '$';
-    dir.set(file, dir.eod(), dir.flags(), dir.des(), dir.expr());
-    dir.put(LF_RCAUSALI, _nordir, _sysdirop);
+    if (yesno_box("Confermi il cambiamento del piano conti/causali"))
+    {
+      _change_pcon = TRUE;
+      _val = newv;
+    }
+    else
+      return FALSE;
   }
   return TRUE;
 }
diff --git a/cg/cg5100a.uml b/cg/cg5100a.uml
index 3c0c2b383..9ede6943c 100755
--- a/cg/cg5100a.uml
+++ b/cg/cg5100a.uml
@@ -189,14 +189,6 @@ BEGIN
 	FIELD CoCaAp
 END
 
-NUMBER  FLD_CRIVAP 15
-BEGIN
-	PROMPT 1 -2 "Credito IVA anno precedente "
-	PICTURE "."
-	HELP ""
-	FIELD CrIvAp
-END
-
 TEXT    DLG_NULL
 BEGIN
 	PROMPT 32 6 "Gruppo Conto Sottoconto"