Aggiunti in anagrafiche i campi per C.U.

git-svn-id: svn://10.65.10.50/branches/R_10_00@23035 c028cbd2-c16b-5b4b-a496-9718f37d4682

ba/ba1100.cpp

@@ -431,7 +431,7 @@ void TManutenzione_app::insert_riga (long riga_sel, TToken_string& riga)
   _mask->disable(DLG_RECORD);
   _mask->disable(DLG_LOAD);
   _mask->disable(DLG_DUMP);
-  _mask->show(F_TAB, logicnum >= LF_TABGEN && logicnum <= LF_TAB);
+  _mask->show(F_TAB, (logicnum >= LF_TABGEN && logicnum <= LF_TAB)||(logicnum == LF_TABMOD));
   _mask->hide(FLD_EXTEND);
   _mask->hide(FLD_EOX);
   _mask->set (FLD_NUM, riga.get(0));
@@ -596,9 +596,6 @@ void TManutenzione_app::edit_riga (const TString& name)
 
 void TManutenzione_app::edit_riga (long riga_sel, TToken_string& riga)
 {
-  KEY  tasto;
-  FileDes  dep;
-  TDir d;
   const int logicnum = int(riga_sel) + 1;
 
   _mask->enable(DLG_PACK, _superprassi);
@@ -627,8 +624,8 @@ void TManutenzione_app::edit_riga (long riga_sel, TToken_string& riga)
 
   _mask->show(FLD_EXTEND, enable_extend);
   _mask->show(FLD_EOX, enable_extend);
-  tasto = _mask->run();
 
+  KEY tasto = _mask->run();
   switch (tasto)
   {
   case K_F4:
@@ -651,6 +648,7 @@ void TManutenzione_app::edit_riga (long riga_sel, TToken_string& riga)
   case K_F7:
   case K_ENTER:
   {
+    FileDes  dep;
     strncpy (dep.SysName,_mask->get(FLD_NOME), sizeof(dep.SysName));
     dep.EOD = atol(_mask->get (FLD_EOD));
     dep.Flags = atol(_mask->get (FLD_FLAG));
@@ -668,7 +666,7 @@ void TManutenzione_app::edit_riga (long riga_sel, TToken_string& riga)
 
     if (eox != oldeox)
     {
-      d.get(logicnum);
+      TDir d; d.get(logicnum);
       TFilename f_name(d.name());
       f_name.ext("dbf");
 
@@ -835,11 +833,6 @@ bool TManutenzione_app::moveable_file(int file) const
 
 void TManutenzione_app::update_dir()
 {
-  // Particolare significato dei flags oltre i 10000:
-  // trattasi di files PRASSI, (ad esempio i cespiti) che da noi non vengono toccati,
-  // in modo da evitare colpe inutili. Noi aggiorniamo solo i tracciati su dir e trc,
-  // ma il file fisico manco lo tocchiamo!!
-  
   if (prefix().get_codditta() <= _history_firm)
     return;
 
@@ -1181,10 +1174,10 @@ void TManutenzione_app::convert_dir()
 		s << TR("ditta ") << atol (pref);
   s << ".\n";
 
-  TProgind p(update_items ? update_items : 1, s, is_power_station());
+  TProgress_monitor p(update_items ? update_items : 1, s, is_power_station());
   for (int i = LF_USER; i <= update_items; i++)
   {
-    if (!p.addstatus(1))
+    if (!p.add_status())
       break;
 
     const TTrec& rs = (const TTrec&)_recs[i]; // Nuovo tracciato record

ba/ba1100.h

@@ -43,8 +43,7 @@ public:
   void add();
   void rebuild() { _items = _dir.items();}
 
-  TDir_sheet(const char* title, bool superprassi, const char* col = "N.@3R|Nome@20|EOD@7R|EOX@7R|Lung.@7R|Descrizione@43|Formula@33|Flags@7R");
+  TDir_sheet(const char* title, bool superprassi);
-  virtual ~TDir_sheet();
 };
 
 class TRec_sheet : public TObject

ba/ba1101.cpp

@@ -25,8 +25,10 @@ void TDir_sheet::add()
   _items = nitems;
 }
 
-TDir_sheet::TDir_sheet(const char* title, bool superprassi, const char* colonne)
+TDir_sheet::TDir_sheet(const char* title, bool superprassi)
-          : TSheet(0, 0, 0, 0, title, colonne, superprassi ? 0xC : 0x8)
+          : TSheet(0, 0, 0, 0, title, 
+                   HR("N.@3R|Nome@20|EOD@7R|EOX@7R|Lung.@7R|Descrizione@43|Formula@33|Flags@7R"), 
+                   superprassi ? 0xC : 0x8)
 {
   add_button(DLG_PRINT, TR("Tracciati"), K_F3, TOOL_PRINT);
   add_button(DLG_NULL, "", 0); // Separatore
@@ -47,15 +49,11 @@ TDir_sheet::TDir_sheet(const char* title, bool superprassi, const char* colonne)
   rebuild();
 }
 
-TDir_sheet::~TDir_sheet()
+void TDir_sheet::get_row(long nrow, TToken_string& l)
 {
-}
+  const int logicnum = int(nrow+1);
-
+  _dir.get (logicnum,_nolock,_nordir,_sysdirop);
-void TDir_sheet::get_row(long n, TToken_string& l)
+  l.format("%d", logicnum); // Numero logico del file
-{
-  n++;
-  _dir.get ((int)n,_nolock,_nordir,_sysdirop);
-  l.format("%d", n); // Numero progressivo del file
   l.add(_dir.name());
   l.add(_dir.eod());
   l.add(_dir.eox());

ba/ba4200.h

@@ -389,5 +389,7 @@
 #define F_DESREG96     414
 #define H_TIPOA        415                           
 #define F_CAUSQUA      416
+#define F_CATPAR       417
+#define F_ESCPRECOMP   418
                           
 #endif  // __BA4200_H

ba/ba4200b.uml

@@ -892,16 +892,16 @@ SHEET "Codice|Descrizione@50"
   INPUT LST_AF4_EVECC
   OUTPUT LST_AF4_EVECC
   ITEM " |Nessuno"
-ITEM "1|Richieste di natura estorsiva"
+  ITEM "1|Vittime di richieste di natura estorsiva"
-ITEM "2|Zone colpite da eventi alluvionali"
+  ITEM "3|Residenti a Lampedusa e Linosa nel 2011"
-ITEM "3|Alluvionati Giugno 1996"
+  ITEM "8|Altri eventi eccezionali"
 END
 
 BOOLEAN FLD_AF4_RFDIVERSA
 BEGIN
   PROMPT 2 7 "Domicilio fiscale diverso da sede legale "
   FIELD LF_ANAG->RFDIVERSA
-HELP "Dire se il domicilio fiscale e' diverso della sede legale"
+  HELP "Indicare se il domicilio fiscale è diverso della sede legale"
 END
 
 STRING F_CODREG96 2
@@ -951,6 +951,26 @@ BEGIN
   FIELD CAUSQUA
 END
 
+STRING F_CATPAR 2
+BEGIN
+  PROMPT 41 11 "Categorie particolari      "
+  FIELD CATPAR
+  HELP "Puo' assumere i valori da 'A' a 'Z3'"
+END
+
+NUMBER F_ESCPRECOMP 1
+BEGIN
+  PROMPT 41 12 "Esclusione da precompilata "
+  SHEET "Codice|Descrizione@50"
+  INPUT F_ESCPRECOMP
+  OUTPUT F_ESCPRECOMP
+  ITEM " | "
+  ITEM "2|2"
+  HELP "Puo' assumere i valori 1 o 2"
+  FIELD ESCPRECOMP
+END
+
+
 GROUPBOX DLG_NULL 78 5
 BEGIN
 PROMPT 0 13 "Codici statistici"

ba/ba4200c.uml

@@ -614,7 +614,7 @@ END
 
 GROUPBOX DLG_NULL 78 13
 BEGIN
-  PROMPT 0 4 "Dati Societa'"
+  PROMPT 0 4 "Dati società"
 END
 
 STRING F_COMCOST 4
@@ -629,7 +629,7 @@ BEGIN
 #include <comdcod.h>
   OUTPUT F_COMCOST COM
   OUTPUT F_DENCOMCOST DENCOM
-  HELP "Codice del comune dove e' stata costituita la societa'"
+  HELP "Codice del comune dove e' stata costituita la società"
   CHECKTYPE NORMAL
   WARNING "Comune assente"
   ADD RUN ba4 -0
@@ -638,7 +638,7 @@ END
 STRING F_DENCOMCOST 50 46
 BEGIN
   PROMPT 26 5 ""
-  HELP "Nome del comune dove e' stata costituita la societa'"
+  HELP "Nome del comune dove e' stata costituita la società"
   COPY USE FLD_AG1_COMRF_COMUNI_DENCOM
   INPUT DENCOM F_DENCOMCOST
 #include <comdden.h>
@@ -651,14 +651,14 @@ DATE FLD_AG3_DATACOST
 BEGIN
   PROMPT 2 6 "Data costituz.  "
   FIELD LF_ANAGGIU->DATACOST
-  HELP "Data di costituzione della societa'"
+  HELP "Data di costituzione della società"
 END
 
 DATE FLD_AG3_DATAOMOL
 BEGIN
   PROMPT 31 6 "Data omologa                    "
   FIELD LF_ANAGGIU->DATAOMOL
-  HELP "Data di omologazione della societa'"
+  HELP "Data di omologazione della società"
   WARNING "Data non corretta"
   VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST
 END
@@ -667,7 +667,7 @@ DATE FLD_AG3_DATAISCRIZ
 BEGIN
   PROMPT 2 7 "Data iscrizione "
   FIELD LF_ANAGGIU->DATAISCRIZ
-  HELP "Data di iscrizione della societa'"
+  HELP "Data di iscrizione della società"
   WARNING "Data non corretta"
   VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST
 END
@@ -683,7 +683,7 @@ DATE FLD_AG3_DATASCAD
 BEGIN
   PROMPT 2 8 "Data scadenza   "
   FIELD LF_ANAGGIU->DATASCAD
-  HELP "Data di termine attivita' della societa'"
+  HELP "Data di termine attivita' della società"
   WARNING "La data di scadenza non puo' precedere quella di costituzione"
   VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST
 END
@@ -725,12 +725,12 @@ END
 
 NUMBER LST_AG3_STATOSOC 1
 BEGIN
-  PROMPT 2 15 "Stato Societa'  "
+  PROMPT 2 15 "Stato società  "
   FIELD LF_ANAGGIU->STATOSOC
   SHEET "Codice|Stato@50"
   INPUT LST_AG3_STATOSOC
   OUTPUT LST_AG3_STATOSOC
-  HELP "Stato in cui si trova la societa'"
+  HELP "Stato in cui si trova la società"
   ITEM " |Sconosciuto"
   ITEM "1|Soggetto in normale attivita'"
   ITEM "2|Soggetto in liquidazione per cessazione di attivita'"
@@ -740,12 +740,12 @@ END
 
 NUMBER LST_AG3_SITSOC 1
 BEGIN
-  PROMPT 29 15 "Situazione societa'"
+  PROMPT 29 15 "Situazione società"
   FIELD LF_ANAGGIU->SITSOC
   SHEET "Codice|Situazione@90"
   INPUT LST_AG3_SITSOC
   OUTPUT LST_AG3_SITSOC
-  HELP "Situazione in cui si trova la societa'"
+  HELP "Situazione in cui si trova la società"
   ITEM " |Sconosciuta"
   ITEM "1|Periodo d'imposta in cui ha avuto inizio la liquidazione"
   ITEM "2|Periodi d'imposta successivi a quello in cui ha avuto inizio la liquidazione"
@@ -761,16 +761,16 @@ NUMBER LST_AG3_NATGIU 2
 BEGIN
   PROMPT 53 15 "Natura Giuridica "
   FIELD LF_ANAGGIU->NATGIU
-  HELP "Natura giuridica della societa'"
+  HELP "Natura giuridica della società"
   SHEET "Codice|Natura Giuridica@150"
   INPUT LST_AG3_NATGIU
   OUTPUT LST_AG3_NATGIU
   ITEM " |Sconosciuta"
-  ITEM "1|Societa' in accomandita per azioni"
+  ITEM "1|società in accomandita per azioni"
-  ITEM "2|Societa' a resposabilita' limitata"
+  ITEM "2|società a resposabilita' limitata"
-  ITEM "3|Societa' per azioni"
+  ITEM "3|società per azioni"
-  ITEM "4|Societa' cooperative e loro consorzi iscritti nei registri prefettizi e nello schedario generale delle cooperazioni"
+  ITEM "4|società cooperative e loro consorzi iscritti nei registri prefettizi e nello schedario generale delle cooperazioni"
-  ITEM "5|Altre societa' cooperative"
+  ITEM "5|Altre società cooperative"
   ITEM "6|Mutue assicuratrici"
   ITEM "7|Consorzi con personalita' giuridica"
   ITEM "8|Associazioni riconosciute"
@@ -782,32 +782,32 @@ BEGIN
   ITEM "14|Enti pubblici economici"
   ITEM "15|Enti pubblici non economici"
   ITEM "16|Casse mutue e fondi di previdenza, assistenza, pensioni o simili con o senza personalita' giuridica"
-  ITEM "17|Opere pie e societa' di mutuo soccorso"
+  ITEM "17|Opere pie e società di mutuo soccorso"
   ITEM "18|Enti ospedalieri"
   ITEM "19|Enti ed istituti di previdenza e asssistenza sociale"
   ITEM "20|Aziende autonome di cure, soggiorno e turismo"
   ITEM "21|Aziende regionali, provinciali, comunali e loro consorzi"
-  ITEM "22|Societa', organizzazioni ed enti costituiti all'estero e non altrimenti classificabili con sede dell'amministrazione ad oggetto principale in Italia"
+  ITEM "22|società, organizzazioni ed enti costituiti all'estero e non altrimenti classificabili con sede dell'amministrazione ad oggetto principale in Italia"
-  ITEM "23|Societa' semplici, irregolari o di fatto"
+  ITEM "23|società semplici, irregolari o di fatto"
-  ITEM "24|Societa' in nome collettivo"
+  ITEM "24|società in nome collettivo"
-  ITEM "25|Societa' in accomamdita semplice"
+  ITEM "25|società in accomamdita semplice"
-  ITEM "26|Societa' d'armamento"
+  ITEM "26|società d'armamento"
   ITEM "27|Associazioni tra artisti e professionisti"
   ITEM "28|Aziende coniugali"
   ITEM "29|GEIE"
-  ITEM "30|Societa'semplici irregolari e di fatto (Non residenti)"
+  ITEM "30|societàsemplici irregolari e di fatto (Non residenti)"
-  ITEM "31|Societa' in nome collettivo (Non residenti)"
+  ITEM "31|società in nome collettivo (Non residenti)"
-  ITEM "32|Societa' in accomandita semplice (Non residenti)"
+  ITEM "32|società in accomandita semplice (Non residenti)"
-  ITEM "33|Societa' di armamento (Non residenti)"
+  ITEM "33|società di armamento (Non residenti)"
   ITEM "34|Associazioni tra professionisti (Non residenti)"
-  ITEM "35|Societa' in accomandita per azioni (Non residenti)"
+  ITEM "35|società in accomandita per azioni (Non residenti)"
-  ITEM "36|Societa' a responsabilita' limitata (Non residenti)"
+  ITEM "36|società a responsabilita' limitata (Non residenti)"
-  ITEM "37|Societa' per azioni (Non residenti)"
+  ITEM "37|società per azioni (Non residenti)"
   ITEM "38|Consorzi (Non residenti)"
   ITEM "39|Altri enti ed istituti (Non residenti)"
   ITEM "40|Associazioni riconosciute, non riconsciute e di fatto (Non residenti)"
   ITEM "41|Fondazioni (Non residenti)"
-  ITEM "42|Opere pie e societa'di mutuo soccorso (Non residenti)"
+  ITEM "42|Opere pie e societàdi mutuo soccorso (Non residenti)"
   ITEM "43|Altre organizzazioni di persone e di beni (Non residenti)"
 END
 
@@ -864,7 +864,7 @@ BEGIN
   PROMPT 42 5 "Numero azioni         "
   FIELD LF_ANAGGIU->NAZIONI
   FLAGS "R"
-  HELP "Numero di azioni emesse dalla societa'"
+  HELP "Numero di azioni emesse dalla società"
 END
 
 NUMBER FLD_AG4_VALNOM 15
@@ -1002,14 +1002,14 @@ NUMBER LST_AG5_EVECC 1
 BEGIN
   PROMPT 37 4 "Eventi di natura eccezionale     "
   FIELD LF_ANAG->EVECC
-  HELP "Codice degli eventi naturali eccezionali accaduti alla ditta"
+  HELP "Codice degli eventi eccezionali"
   SHEET "Codice|Descrizione@50"
   INPUT LST_AG5_EVECC
   OUTPUT LST_AG5_EVECC
   ITEM " |Nessuno"
-  ITEM "1|Richieste di natura estorsiva"
+  ITEM "1|Vittime di richieste di natura estorsiva"
-  ITEM "2|Zone colpite da eventi alluvionali"
+  ITEM "3|Residenti a Lampedusa e Linosa nel 2011"
-  ITEM "3|Alluvionati Giugno 1996"
+  ITEM "8|Altri eventi eccezionali"
 END
 
 BOOLEAN CHK_AG5_RFDSL
@@ -1039,14 +1039,33 @@ BEGIN
   FIELD CAUSQUA
 END
 
+STRING F_CATPAR 2
+BEGIN
+  PROMPT 41 6 "Categorie particolari      "
+  FIELD CATPAR
+  HELP "Puo' assumere i valori da 'A' a 'Z3'"
+END
+
+NUMBER F_ESCPRECOMP 1
+BEGIN
+  PROMPT 41 7 "Esclusione da precompilata "
+  SHEET "Codice|Descrizione@50"
+  INPUT F_ESCPRECOMP
+  OUTPUT F_ESCPRECOMP
+  ITEM " | "
+  ITEM "1|1"
+  HELP "Puo' assumere i valori 1 o 2"
+  FIELD ESCPRECOMP
+END
+
 GROUPBOX DLG_NULL 78 5
 BEGIN
-  PROMPT 0 7 "Codici statistici"
+  PROMPT 0 8 "Codici statistici"
 END
 
 STRING FLD_AG6_CODSTAT1 7
 BEGIN
-  PROMPT 2 8 "1  "
+  PROMPT 2 9 "1  "
   FIELD LF_ANAG->CODSTAT1
   USE %STT
   INPUT CODTAB FLD_AG6_CODSTAT1
@@ -1061,13 +1080,13 @@ END
 
 STRING FLD_AG6_CODSTAT1_TABSTT_S0 57
 BEGIN
-  PROMPT 16 8 ""
+  PROMPT 16 9 ""
   FLAGS "D"
 END
 
 STRING FLD_AG6_CODSTAT2 7
 BEGIN
-  PROMPT 2 9 "2  "
+  PROMPT 2 10 "2  "
   FIELD LF_ANAG->CODSTAT2
   COPY USE FLD_AG6_CODSTAT1
   INPUT CODTAB FLD_AG6_CODSTAT2
@@ -1081,13 +1100,13 @@ END
 
 STRING FLD_AG6_CODSTAT2_TABSTT_S0 57
 BEGIN
-  PROMPT 16 9 ""
+  PROMPT 16 10 ""
   FLAGS "D"
 END
 
 STRING FLD_AG6_CODSTAT3 7
 BEGIN
-  PROMPT 2 10 "3  "
+  PROMPT 2 11 "3  "
   FIELD LF_ANAG->CODSTAT3
   COPY USE FLD_AG6_CODSTAT1
   INPUT CODTAB FLD_AG6_CODSTAT3
@@ -1101,48 +1120,48 @@ END
 
 STRING FLD_AG6_CODSTAT3_TABSTT_S0 57
 BEGIN
-  PROMPT 16 10 ""
+  PROMPT 16 11 ""
   FLAGS "D"
 END
 
 TEXT DLG_NULL
 BEGIN
-  PROMPT 2 12 "Note"
+  PROMPT 2 13 "Note"
 END
 
 STRING FLD_AG6_NOTE1 70
 BEGIN
-  PROMPT 3 13 ""
+  PROMPT 3 14 ""
   FIELD LF_ANAGGIU->NOTE1
-  HELP "Eventuali note relative alla societa'"
+  HELP "Eventuali note relative alla società"
 END
 
 STRING FLD_AG6_NOTE2 70
 BEGIN
-  PROMPT 3 14 ""
+  PROMPT 3 15 ""
   FIELD LF_ANAGGIU->NOTE2
-  HELP "Eventuali note relative alla societa'"
+  HELP "Eventuali note relative alla società"
 END
 
 STRING FLD_AG6_NOTE3 70
 BEGIN
-  PROMPT 3 15 ""
+  PROMPT 3 16 ""
   FIELD LF_ANAGGIU->NOTE3
-  HELP "Eventuali note relative alla societa'"
+  HELP "Eventuali note relative alla società"
 END
 
 STRING FLD_AG6_NOTE4 70
 BEGIN
-  PROMPT 3 16 ""
+  PROMPT 3 17 ""
   FIELD LF_ANAGGIU->NOTE4
-  HELP "Eventuali note relative alla societa'"
+  HELP "Eventuali note relative alla società"
 END
 
 STRING FLD_AG6_NOTE5 70
 BEGIN
-  PROMPT 3 17 ""
+  PROMPT 3 18 ""
   FIELD LF_ANAGGIU->NOTE5
-  HELP "Eventuali note relative alla societa'"
+  HELP "Eventuali note relative alla società"
 END
 
 ENDPAGE

ba/ba7100.cpp

@@ -1,3 +1,5 @@
+#define XVT_INCL_NATIVE
+
 #include <applicat.h>
 #include <automask.h>
 #include <browfile.h>
@@ -1011,6 +1013,59 @@ void TMailer_mask::track(const TMail_message& msg, const TString& app, const TSt
   }
 }
 
+#ifdef WIN32
+
+#include <shellapi.h>
+
+static int run_sync(const char* appname)
+{
+  int err = 0;
+  TString app, par; 
+  app = appname;
+
+  const int spc = app.find(' ');
+  if (spc > 0)
+  {
+    par = app.mid(spc+1);
+    par << " /uADMIN";
+  
+    app.cut(spc);
+    if (app.find(".exe") < 0 && app.find(".bat") < 0)
+      app << ".exe";
+  }
+
+  SHELLEXECUTEINFO sei; memset(&sei, 0, sizeof(sei));
+  sei.cbSize = sizeof(sei);
+  sei.fMask = SEE_MASK_NOCLOSEPROCESS | SEE_MASK_FLAG_DDEWAIT;
+  sei.lpVerb = "";
+  sei.lpFile = app;
+  sei.lpParameters = par;
+  sei.nShow = SW_SHOWNORMAL;
+  if (::ShellExecuteEx(&sei))
+  {
+    if (sei.hProcess != NULL)
+    {
+      ::WaitForSingleObject(sei.hProcess, 0);
+      ::CloseHandle(sei.hProcess);
+    }
+    else
+      err = EBADF;
+  }
+  else
+    err = ENOEXEC;
+  return err;
+}
+
+#else
+
+static int run_sync(const char* appname)
+{
+  TExternal_app app(cmd);
+  return app.run(false, true, false);  // Don't iconize (nor restore) the task window!
+}
+
+#endif
+
 int TMailer_mask::exec_app(const TString& appname, TMail_message& msg, TToken_string & sh_row)
 {    
   int err = NOERR;
@@ -1054,8 +1109,7 @@ int TMailer_mask::exec_app(const TString& appname, TMail_message& msg, TToken_st
     
     TString command_line(appname);
     command_line << " /i" << tmp;
-    TExternal_app app(command_line);
+    err = run_sync(command_line);
-    err = app.run(false, true, false); // Don't iconize (nor restore) the task window!
     xvt_sys_sleep(1000);
 
     if (err == NOERR)

ba/ba8300d.uml

@@ -1,35 +1,35 @@
 #include "ba8300.h"
 
-PAGE "Report" -1 -1 66 18
+PAGE "Report" -1 -1 68 18
 
-RADIO F_ORIENTATION 1 24
+RADIO F_ORIENTATION 1 26
 BEGIN
   PROMPT 1 0 "@bOrientamento della carta"
   ITEM "0|Come da stampante"
   ITEM "1|Ritratto (Verticale)"
-  ITEM "2|Paesaggio (Orizzontale)"
+  ITEM "2|Paesaggio (Orizzont.)"
 END
 
 BOOLEAN F_PAGE_SPLIT
 BEGIN
-  PROMPT 26 1 "Suddividi una pagina su più fogli"
+  PROMPT 28 1 "Suddivisione pagina su più fogli"
 END
 
 BOOLEAN F_PAGE_MERGE
 BEGIN
-  PROMPT 26 2 "Raggruppa più pagine in un foglio"
+  PROMPT 28 2 "Raggruppa più pagine in un foglio"
 END
 
 BOOLEAN F_FONT_AUTO
 BEGIN
-  PROMPT 26 3 "Seleziona font della stampante"
+  PROMPT 28 3 "Seleziona font della stampante"
   MESSAGE FALSE ENABLE,F_FONT_SELECT|ENABLE,F_DY|ENABLE,F_DX
   MESSAGE TRUE DISABLE,F_FONT_SELECT|DISABLE,F_DY|DISABLE,F_DX
 END
 
 BOOLEAN F_SAVE_PRINTER
 BEGIN
-  PROMPT 26 4 "Memorizza ultima stampante utilizzata"
+  PROMPT 28 4 "Memorizzare stampante utilizzata"
 END
 
 NUMBER F_DX 2 

ba/ba8500.cpp

@@ -151,6 +151,24 @@ TReport* TKlarkKent_app::create_report(const char* name) const
   return r;
 }
 
+static TVariant* str2var(const char* str)
+{
+  TVariant* var = NULL;
+  if (str && *str)
+  {
+    const int len = strlen(str);
+    if (len <= 8 && real::is_natural(str))
+      var = new TVariant(atol(str)); else
+    if (len <= 15 && real::is_real(str))
+      var = new TVariant(real(str));
+    else
+      var = new TVariant(str);
+  }
+  else
+    var = new TVariant;
+  return var;
+}
+
 void TKlarkKent_app::main_loop()
 {
   TString_array arr;  // Lista dei reports
@@ -168,16 +186,7 @@ void TKlarkKent_app::main_loop()
       val = arg.mid(uguale+1); val.trim();
       if (name.full())
       {
-        TVariant* var = NULL;
+        TVariant* var = str2var(val);
-        if (val.full())
-        {
-          if (real::is_real(val))
-            var = new TVariant(real(val));
-          else
-            var = new TVariant(val);
-        }
-        else
-          var = new TVariant;
         if (name[0] != '#')
           name.insert("#");
         vars.add(name, var);
@@ -193,16 +202,7 @@ void TKlarkKent_app::main_loop()
         TAssoc_array& inivars = ini.list_variables();
         FOR_EACH_ASSOC_STRING(inivars, obj, key, str)
         {
-          TVariant* var = NULL;
+          TVariant* var = str2var(str);
-          if (str && *str)
-          {
-            if (real::is_real(str))
-              var = new TVariant(real(str));
-            else
-              var = new TVariant(str);
-          }
-          else
-            var = new TVariant;
           name = key;
           if (name[0] != '#')
             name.insert("#");

ba/f6.dir

@@ -1,3 +1,3 @@
 6
 1
-%anagr|0|0|593|0|Anagrafica persone fisiche e giuridiche|100||
+%anagr|0|0|596|0|Anagrafica persone fisiche e giuridiche|100||

ba/f6.trr

@@ -1,5 +1,5 @@
 6
-53
+55
 TIPOA|1|1|0|
 CODANAGR|3|5|0|
 COFI|1|16|0|
@@ -53,6 +53,8 @@ NISCRIIDD|1|10|0|
 UFFCONC|9|3|0|
 OGGETTI|11|10|0|
 CAUSQUA|1|2|0|
+CATPAR|1|2|0|
+ESCPRECOMP|2|1|0|
 4
 TIPOA+CODANAGR| 
 TIPOA+UPPER(RAGSOC)|X