root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Aggiunti in anagrafiche i campi per C.U.

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@23035 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2015-02-24 08:25:45 +00:00
parent d4c46df06c
commit 9da5c33da5
11 changed files with 1982 additions and 1895 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ba/ba1100.cpp
View File

@ -1,7 +1,7 @@
#ifdef WIN32
#define _CRT_NONSTDC_NO_DEPRECATE 1
#define _CRT_SECURE_NO_WARNINGS 1
#include <io.h>
#include <io.h>
#include <share.h>
#else
#include <unistd.h>
@ -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

3
ba/ba1100.h
View File

@ -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");
virtual ~TDir_sheet();
TDir_sheet(const char* title, bool superprassi);
};
class TRec_sheet : public TObject

18
ba/ba1101.cpp
View File

@ -25,8 +25,10 @@ void TDir_sheet::add()
_items = nitems;
}
TDir_sheet::TDir_sheet(const char* title, bool superprassi, const char* colonne)
: TSheet(0, 0, 0, 0, title, colonne, superprassi ? 0xC : 0x8)
TDir_sheet::TDir_sheet(const char* title, bool superprassi)
: 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)
{
}
void TDir_sheet::get_row(long n, TToken_string& l)
{
n++;
_dir.get ((int)n,_nolock,_nordir,_sysdirop);
l.format("%d", n); // Numero progressivo del file
const int logicnum = int(nrow+1);
_dir.get (logicnum,_nolock,_nordir,_sysdirop);
l.format("%d", logicnum); // Numero logico del file
l.add(_dir.name());
l.add(_dir.eod());
l.add(_dir.eox());

2
ba/ba4200.h
View File

@ -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

76
ba/ba4200b.uml
View File

@ -850,58 +850,58 @@ PAGE "Pag.5" -1 -1 77 20
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 0 0 "Persone fisiche"
FLAGS "R"
PROMPT 0 0 "Persone fisiche"
FLAGS "R"
END
NUMBER DLG_NULL 5
BEGIN
PROMPT 2 1 "Codice "
FIELD LF_ANAGFIS->CODANAGR
FLAGS "DR"
GROUP 1
PROMPT 2 1 "Codice "
FIELD LF_ANAGFIS->CODANAGR
FLAGS "DR"
GROUP 1
END
STRING DLG_NULL 30
BEGIN
PROMPT 2 2 "Cognome "
FLAGS "D"
GROUP 2
PROMPT 2 2 "Cognome "
FLAGS "D"
GROUP 2
END
STRING DLG_NULL 20
BEGIN
PROMPT 2 3 "Nome "
FLAGS "D"
GROUP 3
PROMPT 2 3 "Nome "
FLAGS "D"
GROUP 3
END
BOOLEAN CHK_AF4_RESZTERR
BEGIN
PROMPT 2 5 "Residenza in zone terremotate"
FIELD LF_ANAG->RESZTERR
HELP "Residenza della persona fisica in zona dichiarate terremotate"
PROMPT 2 5 "Residenza in zone terremotate"
FIELD LF_ANAG->RESZTERR
HELP "Residenza della persona fisica in zona dichiarate terremotate"
END
NUMBER LST_AF4_EVECC 1
BEGIN
PROMPT 36 5 "Eventi di natura eccezionale "
HELP "Codice degli eventi di natura eccezionale"
FIELD LF_ANAG->EVECC
SHEET "Codice|Descrizione@50"
INPUT LST_AF4_EVECC
OUTPUT LST_AF4_EVECC
ITEM " |Nessuno"
ITEM "1|Richieste di natura estorsiva"
ITEM "2|Zone colpite da eventi alluvionali"
ITEM "3|Alluvionati Giugno 1996"
PROMPT 36 5 "Eventi di natura eccezionale "
HELP "Codice degli eventi di natura eccezionale"
FIELD LF_ANAG->EVECC
SHEET "Codice|Descrizione@50"
INPUT LST_AF4_EVECC
OUTPUT LST_AF4_EVECC
ITEM " |Nessuno"
ITEM "1|Vittime di richieste di natura estorsiva"
ITEM "3|Residenti a Lampedusa e Linosa nel 2011"
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"
PROMPT 2 7 "Domicilio fiscale diverso da sede legale "
FIELD LF_ANAG->RFDIVERSA
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"

127
ba/ba4200c.uml
View File

@ -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 "2|Societa' a resposabilita' limitata"
ITEM "3|Societa' per azioni"
ITEM "4|Societa' cooperative e loro consorzi iscritti nei registri prefettizi e nello schedario generale delle cooperazioni"
ITEM "5|Altre societa' cooperative"
ITEM "1|società in accomandita per azioni"
ITEM "2|società a resposabilita' limitata"
ITEM "3|società per azioni"
ITEM "4|società cooperative e loro consorzi iscritti nei registri prefettizi e nello schedario generale delle cooperazioni"
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 "23|Societa' semplici, irregolari o di fatto"
ITEM "24|Societa' in nome collettivo"
ITEM "25|Societa' in accomamdita semplice"
ITEM "26|Societa' d'armamento"
ITEM "22|società, organizzazioni ed enti costituiti all'estero e non altrimenti classificabili con sede dell'amministrazione ad oggetto principale in Italia"
ITEM "23|società semplici, irregolari o di fatto"
ITEM "24|società in nome collettivo"
ITEM "25|società in accomamdita semplice"
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 "31|Societa' in nome collettivo (Non residenti)"
ITEM "32|Societa' in accomandita semplice (Non residenti)"
ITEM "33|Societa' di armamento (Non residenti)"
ITEM "30|societàsemplici irregolari e di fatto (Non residenti)"
ITEM "31|società in nome collettivo (Non residenti)"
ITEM "32|società in accomandita semplice (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 "36|Societa' a responsabilita' limitata (Non residenti)"
ITEM "37|Societa' per azioni (Non residenti)"
ITEM "35|società in accomandita per azioni (Non residenti)"
ITEM "36|società a responsabilita' limitata (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 "2|Zone colpite da eventi alluvionali"
ITEM "3|Alluvionati Giugno 1996"
ITEM "1|Vittime di richieste di natura estorsiva"
ITEM "3|Residenti a Lampedusa e Linosa nel 2011"
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

3570
ba/ba7100.cpp
View File

File diff suppressed because it is too large Load Diff

14
ba/ba8300d.uml
View File

@ -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

40
ba/ba8500.cpp
View File

@ -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;
if (val.full())
{
if (real::is_real(val))
var = new TVariant(real(val));
else
var = new TVariant(val);
}
else
var = new TVariant;
TVariant* var = str2var(val);
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;
if (str && *str)
{
if (real::is_real(str))
var = new TVariant(real(str));
else
var = new TVariant(str);
}
else
var = new TVariant;
TVariant* var = str2var(str);
name = key;
if (name[0] != '#')
name.insert("#");

2
ba/f6.dir
View File

@ -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||

4
ba/f6.trr
View File

@ -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