From 26ad777cf56a3dbc45adf02b29201383b155d47a Mon Sep 17 00:00:00 2001
From: angelo <angelo@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Fri, 21 Jul 1995 10:45:17 +0000
Subject: [PATCH] Corretta creazione contemporanea di una stessa ditta.

git-svn-id: svn://10.65.10.50/trunk@1631 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/ba0.cpp | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/ba/ba0.cpp b/ba/ba0.cpp
index a823a27f0..edc227da7 100755
--- a/ba/ba0.cpp
+++ b/ba/ba0.cpp
@@ -10,6 +10,8 @@
 #include <tabutil.h>
 #include <utility.h>
 #include <urldefid.h>
+#include <lffiles.h>
+#include <nditte.h>
 
 #include "ba0.h"
 #include "ba0100a.h"
@@ -123,7 +125,17 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
   if (exist)
     return message_box("Direttorio dati danneggiato, impossibile attivare la ditta %ld", codditta);
   if (!yesno_box("Gli archivi della ditta %ld non esistono: si desidera generarli?", codditta))
-    return FALSE; 
+    return FALSE;         
+  
+  TLocalisamfile ditte(LF_NDITTE);
+  ditte.zero();
+  ditte.put(NDT_CODDITTA,codditta);   
+  if (ditte.read(_isequal,_testandlock) == _islocked)
+  {
+    message_box("Archivi della ditta %ld in fase di creazione da parte di un altro utente.",codditta);
+    return FALSE;
+  }
+  
   set_autoload_new_files(yesno_box("Si desidera precaricare gli archivi standard"));
   s = s.path();   s.rtrim(1);
   
@@ -204,7 +216,9 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
       reg.put("B9", "X");
       reg.rewrite();
     }
-  }           
+  } 
+  ditte.reread(_unlock);
+  
   set_firm(codditta);
   set_autoload_new_files(TRUE);