Corretta richiesta di creazione dei dati di una nuova ditta

Disabilitati alcuni campi nella modifica dei form di stampa


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

ba/ba0.cpp

@@ -184,13 +184,12 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
                      ntrc, codditta);
 
   begin_wait();
-  const long old_firm = get_firm();
   TDir dir, dir1;
   TTrec rec;
 
   prefhndl->set("");
   dir1.get(LF_DIR, _nolock, _nordir, _sysdirop);
-  const long    maxeod0 = dir1.eod();
+  const long maxeod0 = dir1.eod();
 
   prefhndl->set_codditta(codditta);
   dir.get(LF_DIR, _nolock, _nordir, _sysdirop);
@@ -243,7 +242,7 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
     }
   }
 
-  set_firm(old_firm);
+  set_firm(codditta);
   set_autoload_new_files(TRUE);
   end_wait();
   
@@ -558,9 +557,13 @@ bool TMenu_application::menu(MENU_TAG)
           const TString16 module(cmd2name(option));
           if (!_ditta_asked && module.left(2) == "cg" && module != "cg5100")
             _ditta_asked = ok = set_firm();
-          TExternal_app a(option);
+          if (ok)
-          if (ok) a.run();
+          {  
-          prefhndl->set("DEF");  // Aggiorna prefix se hanno cambiato ditta
+            prefhndl->set(NULL);  
+            TExternal_app a(option);
+            a.run();
+            prefhndl->set("DEF");  // Aggiorna prefix se hanno cambiato ditta
+          }  
         }
       }
     }

ba/ba2100.cpp

@@ -11,6 +11,7 @@
 class TForm_editor : public TApplication
 {
   TForm* _form;
+  bool _edit;
 
 protected:
   virtual bool create();
@@ -57,10 +58,13 @@ bool TForm_editor::create()
       return error_box("Impossibile copiare %s in %s", (const char*)base, (const char*)form);
   }
 
+  _edit = argc() > 3;
   _form = new TForm(form);
   
   enable_menu_item(M_FILE_PRINT);
-
+  
+  if (!_edit) dispatch_e_menu(MENU_ITEM(31));
+  
   return TRUE;
 }
 
@@ -109,7 +113,7 @@ bool TForm_editor::menu(MENU_TAG tag)
   }
   
   edit(sec, pt);
-  return TRUE;
+  return _edit;
 } 
 
 void TForm_editor::print()
@@ -230,8 +234,8 @@ bool TForm_editor::edit(char s, pagetype t)
     dirty = TRUE;
     if (!_form->exist(s, t))
     {
-      const KEY k = yesnocancel_box("La sezione %s non esiste: "
+      const KEY k = yesnocancel_box("La sezione %s non esiste:\n"
-                                    "si desidera ricopiare quella standard", 
+                                    "si desidera ricopiare quella standard?", 
                                     (const char*)caption);
       if (k == K_ESC) 
         dirty = FALSE;
@@ -247,7 +251,7 @@ bool TForm_editor::edit(char s, pagetype t)
       }
     }            
     if (dirty)
-      dirty = _form->section(s, t).edit(caption);
+      dirty = _form->section(s, t).edit(caption, _edit);
   }
   
   if (dirty && yesno_box("Salvare le modifiche?"))

ba/ba2100f.uml

@@ -20,11 +20,11 @@ LIST F_CLASS 10
 BEGIN
 	PROMPT 1 1 "Tipo          "
 	FLAGS "DG"
-	ITEM "STRINGA|Testo" MESSAGE HIDE,2@|SHOW,F_HEIGHT|HIDE,F_ITEMS
+	ITEM "STRINGA|Testo" MESSAGE HIDE,F_DECIMALS|SHOW,F_HEIGHT|HIDE,F_ITEMS
-	ITEM "NUMERO|Numero" MESSAGE SHOW,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS
+	ITEM "NUMERO|Numero" MESSAGE SHOW,F_DECIMALS|HIDE,F_HEIGHT|HIDE,F_ITEMS
-	ITEM "DATA|Data"     MESSAGE HIDE,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS
+	ITEM "DATA|Data"     MESSAGE HIDE,F_DECIMALS|HIDE,F_HEIGHT|HIDE,F_ITEMS
-	ITEM "LISTA|Lista"   MESSAGE HIDE,2@|HIDE,F_HEIGHT|SHOW,F_ITEMS
+	ITEM "LISTA|Lista"   MESSAGE HIDE,F_DECIMALS|HIDE,F_HEIGHT|SHOW,F_ITEMS
-	ITEM "GRUPPO|Gruppo" MESSAGE HIDE,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS
+	ITEM "GRUPPO|Gruppo" MESSAGE HIDE,F_DECIMALS|HIDE,F_HEIGHT|HIDE,F_ITEMS
 END
 
 STRING F_KEY 80 60
@@ -32,6 +32,7 @@ BEGIN
 	PROMPT 1 2 "Descrizione   "
   HELP "Descrizione del campo da configurare"
   CHECKTYPE REQUIRED
+  GROUP 7
 END
 
 NUMBER F_Y 3
@@ -46,16 +47,24 @@ BEGIN
   HELP "Colonna in cui stampare"
 END
 
+BOOLEAN F_HIDDEN
+BEGIN
+	PROMPT 60 3 "Nascosto"
+  HELP "Il campo va elaborato ma non stampato"
+END
+
 NUMBER F_WIDTH 3
 BEGIN
 	PROMPT 1 4 "Larghezza     "
   HELP "Lunghezza massima da stampare"
+  GROUP 7
 END
 
 NUMBER F_HEIGHT 2
 BEGIN
 	PROMPT 24 4 "Altezza  "
   HELP "Righe massime su cui stampare"
+  GROUP 7
 END
 
 NUMBER F_DECIMALS 2
@@ -63,114 +72,127 @@ BEGIN
 	PROMPT 24 4 "Decimali "
   HELP "Numero di decimali"
   MESSAGE COPY,F_HEIGHT
-  GROUP 2
+  GROUP 7
 END
 
 STRING F_PROMPT 80 60
 BEGIN
 	PROMPT 1 5 "Testo         "
   HELP "Eventuale testo fisso da stampare"
+  GROUP 7
 END
 
 STRING F_PICTURE 80 40
 BEGIN
 	PROMPT 1 6 "Formato       "
   HELP "Formato di stampa (vedere codici sul manuale)"
+  GROUP 7
 END
 
 STRING F_FIELD 40
 BEGIN
 	PROMPT 1 7 "Campo su file "
   HELP "Nome del campo su file"
+  GROUP 7
 END
 
 STRING F_FIELD2 40
 BEGIN
 	PROMPT 1 8 "II campo      "
   HELP "Nome del campo su file da utilizzare se il primo e' vuoto"
-END
+  GROUP 7
-
-BOOLEAN F_HIDDEN
-BEGIN
-	PROMPT 60 6 "Nascosto"
-  HELP "Il campo va elaborato ma non stampato"
 END
 
 BOOLEAN F_DISABLED
 BEGIN
   PROMPT 60 7 "Disabilitato"
   HELP "Il campo viene completamente ignorato e quindi nemmeno stampato"
+  GROUP 7
 END
 
 BOOLEAN F_AUTOMAGIC
 BEGIN
 	PROMPT 60 8 "Automatico"
   HELP "Il campo viene calcolato automaticamente"
+  GROUP 7
 END
 
 GROUPBOX F_GROUP 78 3
 BEGIN
 	PROMPT 1 9 "Gruppi di stampa"
+  GROUP 7
 END
 
 BOOLEAN F_GROUP1
 BEGIN
   PROMPT 4 10 "1"
+  GROUP 7
 END
 
 BOOLEAN F_GROUP2
 BEGIN
   PROMPT 10 10 "2"
+  GROUP 7
 END
 
 BOOLEAN F_GROUP3
 BEGIN
   PROMPT 16 10 "3"
+  GROUP 7
 END
 
 BOOLEAN F_GROUP4
 BEGIN
   PROMPT 22 10 "4"
+  GROUP 7
 END
 
 BOOLEAN F_GROUP5
 BEGIN
   PROMPT 28 10 "5"
+  GROUP 7
 END
 
 BOOLEAN F_GROUP6
 BEGIN
   PROMPT 34 10 "6"
+  GROUP 7
 END
 
 BOOLEAN F_GROUP7
 BEGIN
   PROMPT 40 10 "7"
+  GROUP 7
 END
 
 BOOLEAN F_GROUP8
 BEGIN
   PROMPT 46 10 "8"
+  GROUP 7
 END
 
 BOOLEAN F_GROUP9
 BEGIN
   PROMPT 52 10 "9"
+  GROUP 7
 END
 
 BOOLEAN F_GROUP10
 BEGIN
   PROMPT 58 10 "10"
+  GROUP 7
 END
 
 BOOLEAN F_GROUP11
 BEGIN
   PROMPT 64 10 "11"
+  GROUP 7
 END
 
 BOOLEAN F_GROUP12
 BEGIN
   PROMPT 70 10 "12"
+  GROUP 7
 END
 
 SPREADSHEET F_ITEMS
@@ -179,6 +201,7 @@ BEGIN
   ITEM "Codice@8"
   ITEM "Testo@32"
   ITEM "Messaggio@80"
+  GROUP 7
 END
 
 ENDPAGE

ba/ba3200.cpp

@@ -283,9 +283,11 @@ void BA3200_application::set_footers()
 
   line = rpt.line();
   footer_len = line.get_int(); 
-  if (footer_len) printer().footerlen (footer_len);
+  if (footer_len != 0) 
-
+  {
-  line = rpt.line();
+    printer().footerlen(footer_len);
+    line = rpt.line();
+  }  
   while ( (line != "") && (line[0] != '[') )
   {
     riga = line.get_int();

ba/ba4200c.uml

@@ -339,7 +339,8 @@ BEGIN
   PROMPT 2 13 "Comune : Codice "
   FIELD LF_ANAG->COMRF
   FLAGS "U"
-  USE LF_COMUNI KEY 2 SELECT STATO==""
+  USE LF_COMUNI
+  INPUT STATO ""
   INPUT COM FLD_AG1_COMRF
   COPY DISPLAY FLD_AG2_COMRES
   OUTPUT FLD_AG1_COMRF COM

ba/ba4600a.uml

@@ -333,30 +333,9 @@ BEGIN
   HELP "Indicare se il socio partecipa alle assemblee sociali"
 END
 
-GROUPBOX DLG_NULL 26 4
-BEGIN
-  PROMPT 0 8 ""
-END
-
-DATE FLD_SC1_PARTECDAL
-BEGIN
-  PROMPT 1 9 "Data inizio "
-  FIELD LF_SOCI->PARTECDAL
-  HELP "Data di inizio partecipazione alle assemblee"
-END
-
-DATE FLD_SC2_PARTECAL
-BEGIN
-  PROMPT 1 10 "Data fine   "
-  FIELD LF_SOCI->PARTECAL
-  HELP "Data di fine partecipazione alle assemblee"
-  WARNING "Data non corretta"
-  VALIDATE DATE_CMP_FUNC >= FLD_SC1_PARTECDAL
-END
-
 LIST LST_SC2_QUATTPREV 10
 BEGIN
-  PROMPT 27 9 "Quadro 750 "
+  PROMPT 1 9 "Quadro 750 "
   FIELD LF_SOCI->QUATTPREV
   HELP "Quadro in cui compare il socio sul 750"
   ITEM " |Nessuno"
@@ -367,7 +346,7 @@ END
 
 LIST LST_SC2_Q740 10
 BEGIN
-  PROMPT 27 10 "Quadro 740 "
+  PROMPT 1 10 "Quadro 740 "
   FIELD LF_SOCI->Q740
   HELP "Quadro in cui compare il socio sul modello 740"
   ITEM " |Nessuno"

ba/batbiva.rpt

@@ -2,7 +2,7 @@
 132
 Tabella dei codici IVA
 1|%s|Codice  
-1|@14g%s|Descrizione
+1|@9g%s|Descrizione
 1|@60g%s|Tipo codice
 1|@84g%s|%
 1|@88g%s|Cod.
@@ -10,7 +10,7 @@ Tabella dei codici IVA
 1|@109g%s|101
 1|@113g%s|102
 1|@117g%s|Sospeso
-2|@14g%s|Vendite IVA11
+2|@9g%s|Vendite IVA11
 2|@28g%s|Acquisti IVA11
 2|@44g%s|Gestione plafond
 2|@62g%s|Regime agricolo
@@ -18,16 +18,16 @@ Tabella dei codici IVA
 2|@100g%s|Codice per calcolo rimborso infrannuale
 
 [Rows]
-1|CODTAB|@2g@10,cs 
+1|CODTAB|@2g@8,cs 
-1|S0|@14g@50,ls 
+1|S0|@9g@50,ls 
 1|S1|@60g@20t 
 1|R0|@84g@2n
 1|S6|@88g@2s
 1|S7|@92g@15t
 1|B0|@110g@f
 1|B1|@114g@f
-1|B2|@119g@f
+1|B2|@118g@f
-2|I3|@14g@2n
+2|I3|@9g@2n
 2|I4|@28g@2n
 2|S3|@44g@10s
 2|S4|@62g@10s

ba/prassi.mnu

@@ -4,7 +4,7 @@
 0|Terreni e fabbricati|tefa -t
 0|Modello 740|740 -t
 0|Modello 770|17|4
-0|Manutenzione|15
+0|Manutenzione|15|P
 1|Gestione Anagrafiche|1
 1|Persone fisiche|ba4 -1 F
 1|Persone giuridiche|ba4 -1 G
@@ -135,6 +135,7 @@
 15|Archivi|ba1
 15|Utenti|ba1 -3
 15|Attivazione|ba1 -4
+15|Salvataggi|ba2 -1
 16|Servizio|
 16|Copia Archivi|cg4 -1
 16|Ripristino stampa registri|cg5 -4