Corretta creazione direttorio di una nuova ditta

Corretta maschera registri e vidimazioni


git-svn-id: svn://10.65.10.50/trunk@1022 c028cbd2-c16b-5b4b-a496-9718f37d4682

ba/ba0.cpp

@@ -13,7 +13,6 @@
 #include <direct.h>
 #endif
 
-
 #if XVT_OS == XVT_OS_WIN
 extern "C" 
 { 
@@ -54,8 +53,10 @@ void TPicture_mask::set_picture(short id)
   {
     _id = id;
 #if XVT_OS == XVT_OS_WIN
-    if (_picture) picture_free(_picture);
-    _picture = xvt_picture_load(id, id == BA0_PICTURE);
+    if (_picture) 
+      picture_free(_picture); // xvt_pict_destroy(_picture);
+    
+    _picture = xvt_picture_load(id, FALSE);
 #endif
   }
 }
@@ -65,7 +66,7 @@ void TPicture_mask::reset()
 #if XVT_OS == XVT_OS_WIN
   if (_picture)
   {
-    picture_free(_picture);
+    picture_free(_picture); // xvt_pict_destroy(_picture);
     _picture = 0L;
     _id = 0;
   }  
@@ -166,14 +167,18 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
     return FALSE; 
   set_autoload_new_files(yesno_box("Si desidera precaricare gli archivi standard"));
   s = s.path();
+  
+  if (!fexist(s))
+  {
 #if XVT_OS == XVT_OS_SCOUNIX
-  if (mkdir(s, 0777) == -1)
+    if (mkdir(s, 0777) == -1)
 #else
-    if (mkdir(s) == -1)
+      if (mkdir(s) == -1)
 #endif
-      return error_box("Impossibile creare il direttorio della ditta %ld (%s)",
-                       codditta, (const char*) ndir);
-
+        return error_box("Impossibile creare il direttorio della ditta %ld (%s)",
+                         codditta, (const char*)s);
+  }
+  
   s << ndir;
   if (!fcopy(&ndir[1], s))
     return error_box("Impossibile copiare il file %s della ditta %ld",
@@ -290,7 +295,7 @@ void TMenu_application::load_menu()
     }
 
     _menu.add(ts);
-    const TString16 action = ts->get(2);
+    const TString80 action(ts->get(2));
     const int last = _menu.items() - 1;
 
     if (atoi(action) > 0)

ba/ba0.h

@@ -1,8 +1,6 @@
-#ifndef __BA0_H
-#define __BA0_H
-
-#define BA0_PICTURE 883
-
-#endif
-
-
+#ifndef __BA0_H
+#define __BA0_H
+
+#define BA0_PICTURE 883
+
+#endif

ba/ba1400.cpp

@@ -1,6 +1,7 @@
 #include <relapp.h>
 #include <stdtypes.h>
 #include <modaut.h>
+#include <prefix.h>
 #include <utility.h>
 
 #include "ba1.h"

ba/ba1500.cpp

@@ -1,8 +1,10 @@
 #include <applicat.h>
 #include <modaut.h>
 #include <mask.h>
+#include <prefix.h>
 #include <utility.h>
 #include <urldefid.h>
+
 #include <extcdecl.h>
 
 #include "ba1.h"

ba/ba4300.cpp

@@ -79,12 +79,21 @@ public:
 
 bool ba4300_handler(TMask& m, KEY k)
 
-{
+{    
+  TDitte_application&  app = (TDitte_application&)main_app();
+
+  if (k == (K_SHIFT+K_F12) && m.mode() == MODE_MOD && app.user() == "PRASSI")
+  {
+    m.enable(FLD_GD1_TIPOA);
+    m.enable(FLD_GD1_CODANAGR);
+    m.enable(FLD_GD1_CODANAGR_ANAGR_RAGSOC);
+    return TRUE;
+  }
+
   if (k != K_F5 && k != K_F6 && k != K_F7 && k != K_F8)
     return TRUE;
   if (m.mode() == MODE_MOD || m.mode() == MODE_INS)
   {
-    TDitte_application&  app = (TDitte_application&)main_app();
     if (m.mode() == MODE_INS)
     {
       if (!m.check_fields()) return FALSE;

ba/bacnv.cpp

@@ -171,7 +171,7 @@ void TConversione_archivi::contropartita_rmov()
 
 void TConversione_archivi::liala(const char* table)
 {                                                 
-  TString16 tab(table);
+  TString16 tab(table);                                      
   
   TTable lia(tab);
   tab.insert("%", 0);

ba/batbreg.uml

@@ -214,7 +214,6 @@ BEGIN
   FIELD S6
   HELP "Codice del libro unico a cui fa riferimento"
   FLAGS "UZ"
-  VALIDATE NOT_EMPTY_CHECK_FIELD
   GROUP 2 3 4
   USE %LBU
   INPUT CODTAB[1,4] F_ANNO
@@ -226,6 +225,7 @@ BEGIN
   OUTPUT F_CODLBU CODTAB[5,7]
   WARNING "Libro unico assente"
   CHECKTYPE NORMAL
+  VALIDATE NOT_EMPTY_CHECK_FIELD
 END 
  
 ENDPAGE

ba/batbvid.uml

@@ -11,18 +11,13 @@ PAGE "Tabella Vidimazioni" -1 -1 78 18
 STRING F_CODICE 3
 BEGIN              
   PROMPT 4 1 "Codice vidimazione  "
-  USE VID           
-  FIELD VID->CODTAB
+  FIELD CODTAB
+  USE %VID           
   INPUT CODTAB F_CODICE
   DISPLAY "Codice" CODTAB
   DISPLAY "Intestatario@50" S0
   OUTPUT F_CODICE CODTAB
   OUTPUT F_INTESTA S0
-  OUTPUT F_DATAVID D0
-  OUTPUT F_UFFVID S1
-  OUTPUT F_NUMFOGLI I0
-  OUTPUT F_PAGDA I1
-  OUTPUT F_PAGA I2
   CHECKTYPE REQUIRED 
   KEY 1
 END
@@ -32,15 +27,20 @@ BEGIN
   PROMPT 4 3 "Intestatario        "
   HELP "Inserire l'intestatario del codice di vidimazione"
   WARNING "E' necessario specificare l'intestatario"
-  FIELD VID->S0
+  FIELD S0
+  USE %VID KEY 2
+  INPUT S0 F_INTESTA
+  DISPLAY "Intestatario@50" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODICE
   CHECKTYPE REQUIRED  
+  KEY 2
 END
 
 DATE F_DATAVID
 BEGIN
   PROMPT 4 5 "Data vidimazione    "
-  FIELD VID->D0
-  FLAGS "A"
+  FIELD D0
   WARNING "E' necessario specificare la data di vidimazione"
   CHECKTYPE REQUIRED 
 END
@@ -49,7 +49,7 @@ STRING F_UFFVID 50
 BEGIN
   PROMPT 4 7 "Ufficio vidimazione "
   WARNING "E' necessario specificare il nome dell'ufficio"
-  FIELD VID->S1
+  FIELD S1
   CHECKTYPE REQUIRED 
 END 
 
@@ -57,7 +57,7 @@ NUMBER F_NUMFOGLI 5
 BEGIN
   PROMPT 4 9 "Numero fogli libro  "
   WARNING "E' necessario specificare il numero dei fogli"
-  FIELD VID->I0
+  FIELD I0
   FLAGS "R"
   CHECKTYPE REQUIRED
 END
@@ -66,7 +66,7 @@ NUMBER F_PAGDA 5
 BEGIN
   PROMPT 4 11 "Dalla pagina "
   WARNING "E' necessario specificare un numero di pagina iniziale"
-  FIELD VID->I1
+  FIELD I1
   FLAGS "R"
   CHECKTYPE REQUIRED
 END
@@ -74,7 +74,7 @@ END
 NUMBER F_PAGA 5
 BEGIN
   PROMPT 30 11 "Alla pagina "
-  FIELD VID->I2
+  FIELD I2
   FLAGS "R"
   CHECKTYPE REQUIRED  
   WARNING "Specificare un numero di pagina superiore a quella iniziale"