diff --git a/ba/ba0.cpp b/ba/ba0.cpp index cf09baf43..54426ecdb 100755 --- a/ba/ba0.cpp +++ b/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) a.run(); - prefhndl->set("DEF"); // Aggiorna prefix se hanno cambiato ditta + if (ok) + { + prefhndl->set(NULL); + TExternal_app a(option); + a.run(); + prefhndl->set("DEF"); // Aggiorna prefix se hanno cambiato ditta + } } } } diff --git a/ba/ba2100.cpp b/ba/ba2100.cpp index 4ed3d03e4..2f43ec952 100755 --- a/ba/ba2100.cpp +++ b/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: " - "si desidera ricopiare quella standard", + const KEY k = yesnocancel_box("La sezione %s non esiste:\n" + "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?")) diff --git a/ba/ba2100f.uml b/ba/ba2100f.uml index c2ec52023..a88304a2c 100755 --- a/ba/ba2100f.uml +++ b/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 "NUMERO|Numero" MESSAGE SHOW,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS - ITEM "DATA|Data" MESSAGE HIDE,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS - ITEM "LISTA|Lista" MESSAGE HIDE,2@|HIDE,F_HEIGHT|SHOW,F_ITEMS - ITEM "GRUPPO|Gruppo" MESSAGE HIDE,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS + ITEM "STRINGA|Testo" MESSAGE HIDE,F_DECIMALS|SHOW,F_HEIGHT|HIDE,F_ITEMS + ITEM "NUMERO|Numero" MESSAGE SHOW,F_DECIMALS|HIDE,F_HEIGHT|HIDE,F_ITEMS + ITEM "DATA|Data" MESSAGE HIDE,F_DECIMALS|HIDE,F_HEIGHT|HIDE,F_ITEMS + ITEM "LISTA|Lista" MESSAGE HIDE,F_DECIMALS|HIDE,F_HEIGHT|SHOW,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 - -BOOLEAN F_HIDDEN -BEGIN - PROMPT 60 6 "Nascosto" - HELP "Il campo va elaborato ma non stampato" + GROUP 7 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 diff --git a/ba/ba3200.cpp b/ba/ba3200.cpp index c9e317a97..5492d27e2 100755 --- a/ba/ba3200.cpp +++ b/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); - - line = rpt.line(); + if (footer_len != 0) + { + printer().footerlen(footer_len); + line = rpt.line(); + } while ( (line != "") && (line[0] != '[') ) { riga = line.get_int(); diff --git a/ba/ba4200c.uml b/ba/ba4200c.uml index ad5806595..e17567909 100755 --- a/ba/ba4200c.uml +++ b/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 diff --git a/ba/ba4600a.uml b/ba/ba4600a.uml index 391fd1882..5208b9dc1 100755 --- a/ba/ba4600a.uml +++ b/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" diff --git a/ba/batbiva.rpt b/ba/batbiva.rpt index bfaeda0aa..2e506f52a 100755 --- a/ba/batbiva.rpt +++ b/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|S0|@14g@50,ls +1|CODTAB|@2g@8,cs +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 -2|I3|@14g@2n +1|B2|@118g@f +2|I3|@9g@2n 2|I4|@28g@2n 2|S3|@44g@10s 2|S4|@62g@10s diff --git a/ba/prassi.mnu b/ba/prassi.mnu index 4fc4dd134..02aee5b61 100755 --- a/ba/prassi.mnu +++ b/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