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

Correzioni varie date da paolo rivolta

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@562 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-11-08 10:33:36 +00:00
parent b4dacf2f97
commit 371f51b1a3
12 changed files with 422 additions and 328 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
ba/ba4.cpp
View File

@ -8,47 +8,27 @@
int main(int argc,char** argv)
{
int rt = 0 ;
TString p = argv[0], s = argv[1] ;
{
int rt = -1 ;
const int r = (argc > 1) ? atoi(&argv[1][1]) : -1;
if (argc!=2 && argc != 3) fatal_box(usage, (const char*) p) ;
else
{
if (s == "-0") rt = ba4100(argc,argv) ;
else
if (s == "-1") rt = ba4200(argc,argv) ;
else
if (s == "-2") rt = ba4300(argc,argv) ;
else
if (s == "-3") rt = ba4400(argc,argv) ;
else
if (s == "-4") rt = ba4500(argc,argv) ;
else
if (s == "-5") rt = ba4600(argc,argv) ;
else fatal_box(usage, (const char*) p) ;
}
return rt;
switch (r)
{
case 0:
rt = ba4100(argc,argv) ; break;
case 1:
rt = ba4200(argc,argv) ; break;
case 2:
rt = ba4300(argc,argv) ; break;
case 3:
rt = ba4400(argc,argv) ; break;
case 4:
rt = ba4500(argc,argv) ; break;
case 5:
rt = ba4600(argc,argv) ; break;
default:
error_box(usage, argv[0]) ; break;
return rt;
}
}

82
ba/ba4200.cpp
View File

@ -184,39 +184,44 @@ bool gest_nazionalita(TMask_field& f, KEY key)
return TRUE ;
}
// Handler dell'ufficio imposte dirette
bool gest_uff_imp_nr(TMask_field& f, KEY key)
bool clear_cap(TMask_field& f, KEY key)
{
/*
if (!f.to_check(key)) return TRUE;
if (f.mask().query_mode() || !f.to_check(key, TRUE))
return TRUE;
const TString cod_uff(f.get());
if (cod_uff.empty()) return TRUE;
TMask& msk = f.mask() ;
TTable uff_imp("%UID");
TMask& msk = f.mask() ;
const short dlg = f.dlg();
const bool giuridica = ((BA4200_application&)main_app()).ana_giu();
const TString16 val(f.get());
uff_imp.zero() ;
uff_imp.put(N_CODTAB, cod_uff);
uff_imp.read() ;
if ( uff_imp.good() )
{
const bool giuridica = ((BA4200_application*)main_app())->ana_giu();
const TFixed_string codcom(uff_imp.get(N_COMUNE));
const char* com = msk.get(giuridica ? FLD_AG1_COMRF : FLD_AF2_COMRF);
if (*com)
{
if(codcom != com)
return f.error_box("L'ufficio deve appartenere al comune di residenza fiscale: %s", com);
}
else
{
com = msk.get(giuridica ? FLD_AG2_COMRES : FLD_AF1_COMRES);
if(codcom != com)
return f.error_box("L'ufficio deve appartenere al comune di residenza: %s", com);
}
}
*/
if ( giuridica )
{
if (val.empty())
{
if (dlg == FLD_AG1_COMRF)
msk.set(FLD_AG1_CAPRF, "");
else
if (dlg == FLD_AG2_COMRES)
msk.set(FLD_AG2_CAPRES, "");
else
if (dlg == FLD_AG2_COMCORR)
msk.set(FLD_AG2_CAPCORR, "");
}
}
else
{
if (val.empty())
{
if (dlg == FLD_AF2_COMRF)
msk.set(FLD_AF2_CAPRF, "");
else
if (dlg == FLD_AF1_COMRES)
msk.set(FLD_ANAG_CAPRES, "");
else
if (dlg == FLD_AF2_COMCORR)
msk.set(FLD_AF2_CAPCORR, "");
}
}
return TRUE;
}
@ -246,7 +251,7 @@ bool gest_uff_imp(TMask_field& f, KEY key)
if (cod_com.not_empty()) return TRUE;
cod_sta = msk.get(FLD_AF2_STATORF);
}
clear_cap(f,key);
if (cod_com.empty())
{
cod_com = msk.get(giuridica ? FLD_AG2_COMRES : FLD_AF1_COMRES) ;
@ -270,6 +275,10 @@ bool gest_uff_imp(TMask_field& f, KEY key)
if (s.empty()) s = comuni.get(N_IMPDIR2) ;
if (s.empty()) s = comuni.get(N_IMPDIR3) ;
msk.set(F_UFFIIDD, s) ; msk.field(F_UFFIIDD).on_key(K_TAB);
s = comuni.get(N_IVA1);
if (s.empty()) s = comuni.get(N_IVA2) ;
if (s.empty()) s = comuni.get(N_IVA3) ;
msk.set(F_UFFIVA, s) ; msk.field(F_UFFIVA).on_key(K_TAB);
msk.set(F_UFFREG, comuni.get("UFFREG")); msk.field(F_UFFREG).on_key(K_TAB);
msk.set(F_UFFCONC, comuni.get("UFFCONC")); msk.field(F_UFFCONC).on_key(K_TAB);
msk.set(F_UFFSERV, comuni.get("UFFCSERV")); msk.field(F_UFFSERV).on_key(K_TAB);
@ -377,7 +386,7 @@ TMask* BA4200_application::get_mask(int mode)
_msk[MSKF]->set_handler(FLD_AF1_COFI, no_dup_fis);
_msk[MSKF]->set_handler(FLD_AF1_COMRES, gest_uff_imp);
_msk[MSKF]->set_handler(FLD_AF2_COMRF, gest_uff_imp);
_msk[MSKF]->set_handler(F_UFFIIDD, gest_uff_imp_nr);
_msk[MSKF]->set_handler(FLD_AF2_COMCORR, clear_cap);
_msk[MSKF]->set_handler(FLD_AF1_STATORES, gest_nazionalita);
_msk[MSKF]->set_handler(FLD_AF1_PAIV, no_dup_iva_f);
_msk[MSKF]->set_handler(FLD_AF1_COFI, no_dup_fis);
@ -390,7 +399,7 @@ TMask* BA4200_application::get_mask(int mode)
_msk[MSKG] = new TMask("ba4200c") ;
_msk[MSKG]->set_handler(FLD_AG2_COMRES, gest_uff_imp);
_msk[MSKG]->set_handler(FLD_AG1_COMRF, gest_uff_imp);
_msk[MSKG]->set_handler(F_UFFIIDD, gest_uff_imp_nr);
_msk[MSKG]->set_handler(FLD_AG2_COMCORR, clear_cap);
_msk[MSKG]->set_handler(FLD_AG1_COFI, no_dup_fis);
_msk[MSKG]->set_handler(FLD_AG1_PAIV, no_dup_iva_g);
_msk[MSKG]->set_handler(ba4200_handler);
@ -403,12 +412,10 @@ bool BA4200_application::user_create()
{
_msk[MSKF] = NULL;
_rel[MSKF] = new TRelation(LF_ANAG);
// _rel[MSKF]->add(LF_ANAGFIS, "CODANAGR=CODANAGR", 1, 0, 0, TRUE); verificare
_rel[MSKF]->add(LF_ANAGFIS, "CODANAGR=CODANAGR", 1, 0, 0);
_msk[MSKG] = NULL;
_rel[MSKG] = new TRelation(LF_ANAG);
// _rel[MSKG]->add(LF_ANAGGIU, "CODANAGR=CODANAGR", 1, 0, 0, TRUE); verificare
_rel[MSKG]->add(LF_ANAGGIU, "CODANAGR=CODANAGR", 1, 0, 0);
_comuni = new TLocalisamfile(LF_COMUNI) ;
@ -493,9 +500,12 @@ int BA4200_application::rewrite(const TMask& m)
int ba4200(int argc, char* argv[])
{
char ta = 'F';
if (argc > 2 && toupper(*argv[2]) == 'G') ta = 'G';
check_parameters(argc, argv);
if (argc > 2 && toupper(*argv[2]) == 'G') ta = 'G';
BA4200_application a(ta);
TString80 titolo("Anagrafica Persone ");
titolo << (ta == 'F' ? "Fisiche" : "Giuridiche");

25
ba/ba4200.h
View File

@ -19,6 +19,9 @@
#define N_IMPDIR1 "UFFIIDD1"
#define N_IMPDIR2 "UFFIIDD2"
#define N_IMPDIR3 "UFFIIDD3"
#define N_IVA1 "UFFIVA1"
#define N_IVA2 "UFFIVA2"
#define N_IVA3 "UFFIVA3"
#define N_DEN_COM "DENCOM"
#define N_PROV "PROVCOM"
#define N_CAP "CAPCOM"
@ -59,8 +62,6 @@
#define N_EVECC "EVECC"
#define N_SOGGNRES "SOGGNRES"
#define N_RESZTERR "RESZTERR"
#define N_VARSLORES "VARSLORES"
#define N_DVARSLORES "DVARSLORES"
#define N_RFDIVERSA "RFDIVERSA"
#define N_UFFIIDD "UFFIIDD"
@ -95,8 +96,6 @@
#define N_DATASORAMM "DATASORAMM"
#define N_DATASCSIND "DATASCSIND"
#define N_VARDEN "VARDEN"
#define N_VARRF "VARRF"
#define N_DATAVARRF "DATAVARRF"
#define N_SIGLA "SIGLA"
#define N_NATGIU "NATGIU"
#define N_ENTENCOMM "ENTENCOMM"
@ -112,7 +111,6 @@
#define N_SAUB "SAUB"
#define N_CODCONIUGE "CODCONIUGE"
#define N_CPARTRF "CPARTRF"
#define N_ISCRCAF "ISCRCAF"
#define N_NAZION "NAZION"
@ -120,22 +118,16 @@
#define CHK_AF4_RESZTERR 102
#define CHK_AF4_RFDIVERSA 103
#define CHK_AF4_SOGGNRES 104
#define CHK_AF4_VARSLORES 105
#define CHK_AFIS_SAUB 106
#define CHK_AG1_ENTENCOMM 108
#define CHK_AG5_RESZTERR 109
#define CHK_AG5_RFDSL 110
#define CHK_AG5_VARSLORES 111
#define CHK_AGIU2_VARDEN 112
#define CHK_AGIU2_VARRF 113
#define CHK_AGIU_ENTENCOMM 114
#define CHK_AGIU_VARDEN 115
#define CHK_AGIU_VARRF 116
#define CHK_ANAG2_RESZTERR 118
#define CHK_ANAG2_RFDIVERSA 119
#define CHK_ANAG2_SOGGNRES 120
#define CHK_ANAG2_VARSLORES 121
#define DLG_AG5_DVARSLOR 122
#define FLD_AF1_CIVRES 123
#define FLD_AF1_CODCONIUGE 124
#define FLD_AF1_CODCONIUGE_ANAGR_RAGSOC 125
@ -175,8 +167,6 @@
#define FLD_AF2_TELRF 159
#define FLD_AF2_TLEXRF 160
#define FLD_AF3_DVARSCIV 161
#define FLD_AF3_ISCRCAF 162
#define FLD_AF4_DVARSLORES 164
#define FLD_AF4_RFDIVERSA 165
#define F_UFFIIDD 166
#define F_DENUFFIIDD 168
@ -257,7 +247,6 @@
#define FLD_AG3_DATASCSIND 247
#define FLD_AG3_DATASORAMM 248
#define FLD_AG3_DATATAPPBI 249
#define FLD_AG3_DATAVARRF 250
#define FLD_AG4_CAPSOC 251
#define FLD_AG4_CAPVER 252
#define FLD_AG4_ESTROMOL 253
@ -282,7 +271,6 @@
#define FLD_AGIU2_DATASCSIND 276
#define FLD_AGIU2_DATASORAMM 277
#define FLD_AGIU2_DATATAPPBI 278
#define FLD_AGIU2_DATAVARRF 279
#define FLD_AGIU2_STATOSOC 280
#define FLD_AGIU_CAPSOC 281
#define FLD_AGIU_CAPVER 282
@ -294,7 +282,6 @@
#define FLD_AGIU_DATASCSIND 289
#define FLD_AGIU_DATASORAMM 290
#define FLD_AGIU_DATATAPPBI 291
#define FLD_AGIU_DATAVARRF 292
#define FLD_AGIU_ESTROMOL 293
#define FLD_AGIU_FATT 294
#define FLD_AGIU_NAZIONI 295
@ -315,7 +302,6 @@
#define FLD_ANAG2_CODSTAT3 311
#define FLD_ANAG2_COMCORR 312
#define FLD_ANAG2_COMCORR_COMUNI_DESCR 313
#define FLD_ANAG2_DVARSLORES 314
#define FLD_ANAG2_INDCORR 315
#define FLD_ANAG2_RESZTERR 316
#define FLD_ANAG2_STATOCORR 317
@ -388,5 +374,10 @@
#define F_CODCAB 397
#define F_COMCOST 398
#define F_DENCOMCOST 399
#define F_UFFIVA 400
#define F_DENUFFIVA 401
#define F_NISCRIIDD 402
#define F_VARSLORES 403
#define F_DVARSLORES 404
#endif // __BA4200_H

132
ba/ba4200b.uml
View File

@ -361,15 +361,15 @@ END
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 0 11 "Residenza Fiscale (solo se diversa)"
PROMPT 0 11 "Domicilio Fiscale (solo se diverso)"
END
STRING FLD_AF2_INDRF 35
BEGIN
PROMPT 2 12 "Indirizzo "
FIELD LF_ANAG->INDRF
HELP "Indirizzo della residenza fiscale"
WARNING "Completare l'indirizzo di residenza fiscale"
HELP "Inserire l'indirizzo del domicilio fiscale"
WARNING "Completare l'indirizzo di domicilio fiscale"
VALIDATE REQIF_FUNC 1 FLD_AF2_COMRF
END
@ -377,7 +377,7 @@ STRING FLD_AF2_CIVRF 10
BEGIN
PROMPT 56 12 "N."
FIELD LF_ANAG->CIVRF
HELP "Numero civico della residenza fiscale"
HELP "Inserire il numero civico della domicilio fiscale"
END
NUMBER FLD_AF2_STATORF 3
@ -389,7 +389,7 @@ BEGIN
INPUT CODTAB FLD_AF2_STATORF
COPY DISPLAY FLD_AF1_STATONASC
OUTPUT FLD_AF2_STATORF CODTAB
HELP "Codice dello stato di residenza fiscale"
HELP "Inserire il codice dello stato di domicilio fiscale"
CHECKTYPE NORMAL
WARNING "Stato assente"
END
@ -408,7 +408,7 @@ BEGIN
OUTPUT FLD_AF2_COMRF_COMUNI_DENCOM DENCOM
OUTPUT FLD_AF2_COMRF_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_AF2_CAPRF CAPCOM
HELP "Codice del comune di residenza fiscale"
HELP "Inserire il codice del comune di domicilio fiscale"
CHECKTYPE NORMAL
WARNING "Comune assente"
ADD MASK ba4100a
@ -424,7 +424,7 @@ STRING FLD_AF2_CAPRF 5
BEGIN
PROMPT 56 14 "CAP "
FIELD LF_ANAG->CAPRF
HELP "CAP del comune di residenza fiscale"
HELP "Inserire il CAP del comune di domicilio fiscale"
END
STRING FLD_AF2_COMRF_COMUNI_DENCOM 50
@ -726,17 +726,14 @@ BEGIN
HELP "Iscrizione al servizio sanitario nazionale"
END
STRING FLD_AF3_ISCRCAF 10
LIST LST_AF3_CPARTRF 28
BEGIN
PROMPT 42 10 "Iscrizione CAF "
FIELD LF_ANAGFIS->ISCRCAF
HELP "Numero di iscrizione al CAF"
END
BOOLEAN LST_AF3_CPARTRF
BEGIN
PROMPT 2 11 "Casi Particolari Residenza Fiscale"
PROMPT 2 11 "Casi Particolari Domicilio Fiscale "
FIELD LF_ANAGFIS->CPARTRF
ITEM "1|Nessuno"
ITEM "2|Residente all'estero"
ITEM "3|Provvedimento amministrativo"
ITEM "4|Variato da meno di 60gg"
HELP "Soggetto a a casi particolari di residenza fiscale"
END
@ -759,8 +756,8 @@ BEGIN
FIELD LF_ANAG->TIPOSTDEL
HELP "Tipo di ducumento da stampare"
ITEM "0|Delega"
ITEM "1|Bollettino"
ITEM "2|Distinta"
ITEM "1|Bollettino"
END
NUMBER F_CODABI 5
@ -827,39 +824,31 @@ BEGIN
HELP "Residenza della persona fisica in zona dichiarate terremotate"
END
BOOLEAN CHK_AF4_RFDIVERSA
BEGIN
PROMPT 2 6 "Residenza fiscale variata"
FIELD LF_ANAG->RFDIVERSA
HELP "Indicare se la persona ha variato la residenza fiscale"
END
NUMBER LST_AF4_EVECC 1
BEGIN
PROMPT 36 6 "Eventi di natura eccezionale "
PROMPT 36 5 "Eventi di natura eccezionale "
HELP "Codice degli eventi di natura eccezionale"
FIELD LF_ANAG->EVECC
SHEET "Codice|Descrizione@40"
SHEET "Codice|Descrizione@70"
INPUT LST_AF4_EVECC
OUTPUT LST_AF4_EVECC
ITEM " |Non definito"
ITEM "1|Nessuno"
ITEM "2|Eventi criminosi RM FI 1993"
ITEM "3|Sisma Dicembre 1990 in Sicilia"
ITEM "4|Richieste di natura estorsiva"
ITEM " |Nessuno"
ITEM "1|Eventi criminosi RM FI 1993"
ITEM "2|Sisma Dicembre 1990 in Sicilia"
ITEM "3|Richieste di natura estorsiva"
ITEM "4|Interventi urgenti in Liguria e Toscana per avversita' atmosferiche"
END
BOOLEAN CHK_AF4_VARSLORES
BOOLEAN F_VARSLORES
BEGIN
PROMPT 2 7 "Sede legale variata"
PROMPT 2 7 "Domicilio Fiscale variato"
FIELD LF_ANAG->VARSLORES
HELP "Indicare se e' stata variata la sede legale"
MESSAGE FALSE DISABLE,FLD_AF4_DVARSLORES
MESSAGE FALSE RESET,FLD_AF4_DVARSLORES
MESSAGE TRUE ENABLE,FLD_AF4_DVARSLORES
MESSAGE FALSE CLEAR,F_DVARSLORES
MESSAGE TRUE ENABLE,F_DVARSLORES
END
DATE FLD_AF4_DVARSLORES
DATE F_DVARSLORES
BEGIN
PROMPT 36 7 "Data variazione "
FIELD LF_ANAG->DVARSLORES
@ -868,20 +857,16 @@ END
BOOLEAN CHK_AF4_SOGGNRES
BEGIN
PROMPT 2 8 "Non residente"
PROMPT 2 9 "Non residente"
FIELD LF_ANAG->SOGGNRES
HELP "Dire se si tratta di persone non residente"
END
LIST FLD_AF4_RFDIVERSA 28
BOOLEAN FLD_AF4_RFDIVERSA
BEGIN
PROMPT 2 9 "Domicilio fiscale diverso da sede legale "
PROMPT 2 11 "Domicilio fiscale diverso da sede legale "
FIELD LF_ANAG->RFDIVERSA
HELP "Descrizione per eventuale domicilio fiscale diverso diverso da sede legale"
ITEM "1|Nessuno"
ITEM "2|Residente all'estero"
ITEM "3|Provvedimento amministrativo"
ITEM "4|Variato da meno di 60gg"
HELP "Dire se il domicilio fiscale e' diverso della sede legale"
END
GROUPBOX DLG_NULL 76 5
@ -1030,15 +1015,37 @@ BEGIN
COPY OUTPUT F_UFFIIDD
END
STRING F_CC_ESATTORIA 8
STRING F_NISCRIIDD 10
BEGIN
PROMPT 1 8 "C/C Esattoria "
PROMPT 1 8 "N.ro iscrizione "
FIELD LF_ANAG->NISCRIIDD
END
STRING F_UFFIVA 3
BEGIN
PROMPT 1 9 "Ufficio IVA "
FLAGS "RZ"
USE %UIV
INPUT CODTAB F_UFFIVA
DISPLAY "Ufficio" CODTAB
DISPLAY "Denominazione@50" S0
OUTPUT F_UFFIVA CODTAB
OUTPUT F_DENUFFIVA S0
OUTPUT F_CC_ESATTORIA S4
HELP "Numero dell'ufficio delle imposte dirette competente"
CHECKTYPE NORMAL
WARNING "Ufficio imposte assente"
END
STRINF F_DENUFFIVA 50 48
BEGIN
PROMPT 23 9 " "
FLAGS "D"
END
STRING F_UFFREG 3
BEGIN
PROMPT 1 9 "Registro "
PROMPT 1 10 "Registro "
USE %URE
INPUT CODTAB F_UFFREG
OUTPUT F_UFFREG CODTAB
@ -1049,13 +1056,13 @@ END
STRING F_DENUFFREG 50 48
BEGIN
PROMPT 24 9 ""
PROMPT 24 10 ""
FLAGS "D"
END
NUMBER F_UFFCONC 3
BEGIN
PROMPT 1 10 "Concessioni "
PROMPT 1 11 "Concessioni "
FLAGS "DRZG"
USE %UCC
INPUT CODTAB F_UFFCONC
@ -1066,13 +1073,13 @@ END
STRING F_DENUFFCONC 50 48
BEGIN
PROMPT 24 10 ""
PROMPT 24 11 ""
FLAGS "D"
END
NUMBER F_UFFSERV 3
BEGIN
PROMPT 1 11 "Centro Servizi "
PROMPT 1 12 "Centro Servizi "
FLAGS "DRZG"
USE %UCS
INPUT CODTAB F_UFFSERV
@ -1083,40 +1090,47 @@ END
STRING F_DENUFFSERV 50 48
BEGIN
PROMPT 24 11 ""
PROMPT 24 12 ""
FLAGS "D"
END
GROUPBOX -1 76 3
GROUPBOX -1 76 4
BEGIN
PROMPT 0 13 "Codice contribuente"
PROMPT 0 14 "Codice contribuente"
END
STRING F_CODCONTR_EP 2
BEGIN
PROMPT 1 14 "Esattoria Prov."
PROMPT 1 15 "Esattoria Prov."
FIELD CODCONTR[1,2]
FLAGS "D"
END
STRING F_CODCONTR_EC 3
BEGIN
PROMPT 23 14 "Esattoria Com."
PROMPT 23 15 "Esattoria Com."
FIELD CODCONTR[3,5]
FLAGS "D"
END
STRING F_CODCONTR 8
BEGIN
PROMPT 46 14 "Codice "
PROMPT 46 15 "Codice "
FIELD CODCONTR[6,13]
HELP "Codice assegnato al contribuente"
END
STRING F_CODCONTR_CC 2
BEGIN
PROMPT 66 14 "C.c."
PROMPT 66 15 "C.c."
FIELD CODCONTR[14,15]
HELP "Codice assegnato al contribuente"
END
STRING F_CC_ESATTORIA 8
BEGIN
PROMPT 1 16 "C/C Esattoria "
FLAGS "D"
END
ENDPAGE

146
ba/ba4200c.uml
View File

@ -111,7 +111,7 @@ BEGIN
FIELD LF_ANAG->COFI
FLAGS "U"
HELP "Codice fiscale della persona giuridica"
VALIDATE XTZPI_FUNC FLD_AG1_STATOPAIV FLD_AG1_COMRF FLD_AG2_COMRES
VALIDATE CF_FUNC FLD_AG1_STATOPAIV
USE LF_ANAG KEY 3
INPUT TIPOA "G"
INPUT COFI FLD_AG1_COFI
@ -285,23 +285,23 @@ END
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 0 10 "Residenza Fiscale"
PROMPT 0 10 "Domicilio Fiscale (solo se diverso)"
END
STRING FLD_AG1_INDRF 35
BEGIN
PROMPT 2 11 "Indirizzo "
FIELD LF_ANAG->INDRF
HELP "Indirizzo della residenza fiscale"
WARNING "Completare l'indirizzo di residenza fiscale"
VALIDATE REQIF_FUNC 1 FLD_AG1_COMRF
HELP "Indirizzo della domicilio fiscale della ditta"
WARNING "Completare l'indirizzo di domicilio fiscale"
VALIDATE REQIF_FUNC 1 FLD_AG1_COMRF
END
STRING FLD_AG1_CIVRF 10
BEGIN
PROMPT 56 11 "N."
FIELD LF_ANAG->CIVRF
HELP "Numero civico della residenza fiscale"
HELP "Numero civico della domicilio fiscale della ditta"
END
NUMBER FLD_AG1_STATORF 3
@ -313,7 +313,7 @@ BEGIN
INPUT CODTAB FLD_AG2_STATORES
COPY DISPLAY FLD_AG2_STATORES
OUTPUT FLD_AG1_STATORF CODTAB
HELP "Codice dello stato residenza fiscale"
HELP "Codice dello stato domicilio fiscale della ditta"
CHECKTYPE NORMAL
WARNING "Stato assente"
END
@ -332,7 +332,7 @@ BEGIN
OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM
OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_AG1_CAPRF CAPCOM
HELP "Codice del comune residenza fiscale"
HELP "Codice del comune domicilio fiscale della ditta"
CHECKTYPE NORMAL
WARNING "Comune assente"
ADD MASK ba4100a
@ -348,7 +348,7 @@ STRING FLD_AG1_CAPRF 5
BEGIN
PROMPT 56 13 "CAP "
FIELD LF_ANAG->CAPRF
HELP "CAP del comune residenza fiscale"
HELP "CAP del comune domicilio fiscale della ditta"
END
STRING FLD_AG1_COMRF_COMUNI_DENCOM 50
@ -660,23 +660,6 @@ BEGIN
HELP "Data di approvazione del bilancio"
END
BOOLEAN CHK_AGIU2_VARRF
BEGIN
PROMPT 29 11 "Variata residenza fiscale "
FIELD LF_ANAGGIU->VARRF
HELP "Indicare se e' stata variata la residenza fiscale"
MESSAGE FALSE DISABLE,FLD_AG3_DATAVARRF
MESSAGE FALSE RESET,FLD_AG3_DATAVARRF
MESSAGE TRUE ENABLE,FLD_AG3_DATAVARRF
END
DATE FLD_AG3_DATAVARRF
BEGIN
PROMPT 60 11 "il "
FIELD LF_ANAGGIU->DATAVARRF
HELP "Data di variazione della residenza fiscale"
END
DATE FLD_AG3_DATACHIUS
BEGIN
PROMPT 2 12 "Data chiusura "
@ -759,7 +742,8 @@ BEGIN
ITEM "24|Societa' in nome collettivo"
ITEM "25|Societa' in accomamdita semplice"
ITEM "26|Societa' d'armamento"
ITEM "27|Associazioni"
ITEM "28|Aziende coniugali"
ITEM "29|GEIE"
END
ENDPAGE
@ -866,8 +850,8 @@ BEGIN
FIELD LF_ANAG->TIPOSTDEL
HELP "Tipo di documento per i versamenti"
ITEM "0|Delega"
ITEM "1|Bollettino"
ITEM "2|Distinta"
ITEM "1|Bollettino"
END
NUMBER F_CODABI 5
@ -920,45 +904,48 @@ BEGIN
GROUP 2
END
LIST LST_AG5_EVECC 2
BEGIN
PROMPT 37 4 "Eventi di natura eccezionale "
FIELD LF_ANAG->EVECC
HELP "Codice degli eventi naturali eccezionali accaduti alla ditta"
ITEM " | "
ITEM "A|A"
ITEM "B|B"
ITEM "C|C"
ITEM "D|D"
END
BOOLEAN CHK_AG5_RESZTERR
BEGIN
PROMPT 2 5 "Residente in zona terremotata"
PROMPT 2 4 "Residente in zona terremotata"
FIELD LF_ANAG->RESZTERR
HELP "Indicare se la ditta ha residenza in zona terremotata"
END
BOOLEAN CHK_AG5_VARSLORES
NUMBER LST_AG5_EVECC 1
BEGIN
PROMPT 2 6 "Sede legale variata"
FIELD LF_ANAG->VARSLORES
HELP "Indicare se e' stata variata la sede legale della ditta"
MESSAGE FALSE DISABLE,DLG_AG5_DVARSLOR
MESSAGE FALSE RESET,DLG_AG5_DVARSLOR
MESSAGE TRUE ENABLE,DLG_AG5_DVARSLOR
PROMPT 37 4 "Eventi di natura eccezionale "
FIELD LF_ANAG->EVECC
HELP "Codice degli eventi naturali eccezionali accaduti alla ditta"
SHEET "Codice|Descrizione@70"
INPUT LST_AG5_EVECC
OUTPUT LST_AG5_EVECC
ITEM " |Nessuno"
ITEM "1|Eventi criminosi RM FI 1993"
ITEM "2|Sisma Dicembre 1990 in Sicilia"
ITEM "3|Richieste di natura estorsiva"
ITEM "4|Interventi urgenti in Liguria e Toscana per avversita' atmosferiche"
END
DATE DLG_AG5_DVARSLOR
BOOLEAN F_VARSLORES
BEGIN
PROMPT 37 6 "Data variazione "
PROMPT 2 5 "Sede legale variata"
FIELD LF_ANAG->VARSLORES
HELP "Indicare se e' stata variata la sede legale della ditta"
MESSAGE FALSE CLEAR,F_DVARSLORES
MESSAGE FALSE RESET,F_DVARSLORES
MESSAGE TRUE ENABLE,F_DVARSLORES
END
DATE F_DVARSLORES
BEGIN
PROMPT 37 5 "Data variazione "
FIELD LF_ANAG->DVARSLORES
HELP "Data di variazione delle sede legale"
END
BOOLEAN CHK_AG5_RFDSL
BEGIN
PROMPT 37 5 "Dom. fiscale diverso sede legale"
PROMPT 2 6 "Domcilio fiscale diverso sede legale"
FIELD LF_ANAG->RFDIVERSA
HELP "Indicare se il domicilio fiscale e' diverso dalla sede legale"
END
@ -1140,15 +1127,37 @@ BEGIN
COPY OUTPUT F_UFFIIDD
END
STRING F_CC_ESATTORIA 8
STRING F_NISCRIIDD 10
BEGIN
PROMPT 1 8 "C/C Esattoria "
PROMPT 1 8 "N.ro iscrizione "
FIELD LF_ANAG->NISCRIIDD
END
STRING F_UFFIVA 3
BEGIN
PROMPT 1 9 "Ufficio IVA "
FLAGS "RZ"
USE %UIV
INPUT CODTAB F_UFFIVA
DISPLAY "Ufficio" CODTAB
DISPLAY "Denominazione@50" S0
OUTPUT F_UFFIVA CODTAB
OUTPUT F_DENUFFIVA S0
OUTPUT F_CC_ESATTORIA S4
HELP "Numero dell'ufficio delle imposte dirette competente"
CHECKTYPE NORMAL
WARNING "Ufficio imposte assente"
END
STRINF F_DENUFFIVA 50 48
BEGIN
PROMPT 23 9 " "
FLAGS "D"
END
STRING F_UFFREG 3
BEGIN
PROMPT 1 9 "Registro "
PROMPT 1 10 "Registro "
USE %URE
INPUT CODTAB F_UFFREG
OUTPUT F_UFFREG CODTAB
@ -1159,13 +1168,13 @@ END
STRING F_DENUFFREG 50 48
BEGIN
PROMPT 24 9 ""
PROMPT 24 10 ""
FLAGS "D"
END
NUMBER F_UFFCONC 3
BEGIN
PROMPT 1 10 "Concessioni "
PROMPT 1 11 "Concessioni "
FLAGS "DRZG"
USE %UCC
INPUT CODTAB F_UFFCONC
@ -1176,13 +1185,13 @@ END
STRING F_DENUFFCONC 50 48
BEGIN
PROMPT 24 10 ""
PROMPT 24 11 ""
FLAGS "D"
END
NUMBER F_UFFSERV 3
BEGIN
PROMPT 1 11 "Centro Servizi "
PROMPT 1 12 "Centro Servizi "
FLAGS "DRZG"
USE %UCS
INPUT CODTAB F_UFFSERV
@ -1193,40 +1202,47 @@ END
STRING F_DENUFFSERV 50 48
BEGIN
PROMPT 24 11 ""
PROMPT 24 12 ""
FLAGS "D"
END
GROUPBOX -1 76 3
GROUPBOX -1 76 4
BEGIN
PROMPT 0 13 "Codice contribuente"
PROMPT 0 14 "Codice contribuente"
END
STRING F_CODCONTR_EP 2
BEGIN
PROMPT 1 14 "Esattoria Prov."
PROMPT 1 15 "Esattoria Prov."
FIELD CODCONTR[1,2]
FLAGS "D"
END
STRING F_CODCONTR_EC 3
BEGIN
PROMPT 23 14 "Esattoria Com."
PROMPT 23 15 "Esattoria Com."
FIELD CODCONTR[3,5]
FLAGS "D"
END
STRING F_CODCONTR 8
BEGIN
PROMPT 46 14 "Codice "
PROMPT 46 15 "Codice "
HELP "Codice contribuente assegnato alla persona giuridica"
FIELD CODCONTR[6,13]
END
STRING F_CODCONTR_CC 2
BEGIN
PROMPT 66 14 "C.c."
PROMPT 66 15 "C.c."
FIELD CODCONTR[14,15]
HELP "Codice assegnato al contribuente"
END
STRING F_CC_ESATTORIA 8
BEGIN
PROMPT 1 16 "C/C Esattoria "
FLAGS "D"
END
ENDMASK

84
ba/ba4300.cpp
View File

@ -62,6 +62,7 @@ class BA4300_application : public TRelation_application
TLocalisamfile* _unloc;
TLocalisamfile* _attiv;
TLocalisamfile* _tabcom;
TString16 _oldattprev;
protected:
bool user_create() ;
@ -71,12 +72,14 @@ protected:
virtual void init_query_mode(TMask& m) ;
virtual void init_insert_mode(TMask& m) ;
virtual void init_modify_mode(TMask& m) ;
void set_att_prev(TMask& m);
bool build_firm_data(long cod, bool flagcom);
public:
BA4300_application();
virtual TRelation* get_relation() const { return _rel;}
virtual int rewrite(const TMask& m);
virtual int write(const TMask& m);
virtual ~BA4300_application() {}
};
@ -296,31 +299,71 @@ bool BA4300_application::user_destroy() // releasev e arrmask
return TRUE;
}
void BA4300_application::set_att_prev(TMask& m)
{
const TString16 attprev(m.get(FLD_GD1_CODATTPREV));
if (_oldattprev == attprev)
return;
TRectype& ditte=_rel->curr();
TString codditta(ditte.get(CODDITTA)) ;
if (_oldattprev.not_empty())
{
_attiv->zero() ;
_attiv->put(CODDITTA, codditta) ;
_attiv->put(CODATT, _oldattprev);
if (_attiv->read() == NOERR)
{
_attiv->put("ATTPREV", FALSE);
if (_attiv->rewrite() != NOERR)
error_box("Non posso aggiornare l'attivita' prevalente precedente : errore n. %d", _attiv->status());
}
}
_attiv->zero() ;
_attiv->put(CODDITTA, codditta) ;
_attiv->put(CODATT, attprev) ;
const bool itwas = _attiv->read() == NOERR;
if (!itwas)
{
_attiv->zero() ;
_attiv->put(CODDITTA, codditta) ;
_attiv->put(CODATT, attprev) ;
TTable tabatt = TTable(TABATT);
tabatt.zero();
tabatt.put(CODTAB, ditte.get(CODATTPREV)) ;
if (tabatt.read() == NOERR)
_attiv->put(DESCR, tabatt.get(S0)) ;
}
_attiv->put("ATTPREV", TRUE) ;
if (itwas)
{
if (_attiv->rewrite() != NOERR)
error_box("Non posso aggiornare l'attivita' prevalente : errore n. %d", _attiv->status());
}
else
{
if (_attiv->write() != NOERR)
error_box("Non posso creare l'attivita' prevalente : errore n. %d", _attiv->status());
}
}
int BA4300_application::write(const TMask& m)
{
_rel->zero();
m.autosave();
_rel->write();
if (_rel->bad())
if (_rel->write() != NOERR)
return _rel->status();
TRectype& ditte=_rel->curr();
TString codditta(ditte.get(CODDITTA)) ;
_attiv->zero() ;
_attiv->put(CODDITTA, (const char*) codditta) ;
_attiv->put(CODATT, ditte.get(CODATTPREV)) ;
TTable* tabatt = new TTable(TABATT);
tabatt->zero();
tabatt->put(CODTAB, ditte.get(CODATTPREV)) ;
tabatt->read();
if (tabatt->good()) _attiv->put(DESCR, tabatt->curr().get(S0)) ;
delete tabatt;
_attiv->write();
set_att_prev(m);
_anag->zero() ;
_anag->put(TIPOA, ditte.get(TIPOA));
@ -356,6 +399,17 @@ int BA4300_application::write(const TMask& m)
return NOERR;
}
int BA4300_application::rewrite(const TMask& m)
{
_rel->zero();
m.autosave();
if (_rel->rewrite() != NOERR)
return _rel->status();
set_att_prev(m);
return NOERR;
}
void BA4300_application::init_query_mode(TMask& m)
{
@ -391,6 +445,7 @@ void BA4300_application::init_insert_mode(TMask& m)
m.disable(DLG_ULC);
m.disable(DLG_SOC);
m.disable(DLG_REG);
_oldattprev = "";
}
void BA4300_application::init_modify_mode(TMask& m)
@ -412,6 +467,7 @@ void BA4300_application::init_modify_mode(TMask& m)
m.enable(DLG_ULC);
m.enable(DLG_SOC);
m.enable(DLG_REG);
_oldattprev = m.get(FLD_GD1_CODATTPREV);
}
int ba4300(int argc, char* argv[])

89
ba/ba4300.h
View File

@ -1,50 +1,50 @@
#ifndef __BA4300_H
#define __BA4300_H
#define FN_CODDITTA "CODITTA" /* FLD_GD1_PROGD */
#define FN_TIPOA "TIPOA" /* LST_GD1_TIPOA */
#define FN_RAGSOC "RAGSOC" /* FLD_GD1_RAGSOC */
#define FN_PERRIF "PERRIF" /* FLD_GD1_PERRIF */
#define FN_PTEL "PTEL" /* FLD_GD1_PTEL */
#define FN_TEL "TEL" /* FLD_GD1_TEL */
#define FN_PFAX "PFAX" /* FLD_GD1_PFAX */
#define FN_FAX "FAX" /* FLD_GD1_FAX */
#define FN_CODATTPREV "CODATTPREV" /* FLD_GD1_CODATTPREV */
#define FN_ARTIG "ARTIG" /* CHK_GD1_ARTIG */
#define FN_NISCRAA "NISCRAA" /* FLD_GD1_NISCRAA */
#define FN_DATAISCRAA "DATAISCRAA" /* FLD_GD1_DATAISCRAA */
#define FN_CAPAA "CAPAA" /* FLD_GD1_CAPAA */
#define FN_COMAA "COMAA" /* FLD_GD1_COMAA */
#define FN_CONTORD "CONTORD" /* CHK_GD1_CONTORD */
#define FN_REGMAG "REGMAG" /* CHK_GD1_REGMAG */
#define FN_IMPRFAM "IMPRFAM" /* CHK_GD1_IMPRFAM */
#define FN_FLIVA11Q "FLIVA11Q" /* CHK_GD1_FLIVA11Q */
#define FN_DATLAV "DATLAV" /* LST_GD2_DATLAV */
#define FN_NAPP "NAPP" /* FLD_GD2_NAPP */
#define FN_NULC "NULC" /* FLD_GD2_NULC */
#define FN_DINIZIOATT "DINIZIOATT" /* FLD_GD2_DINIZIOATT */
#define FN_NENASARCO "NENASARCO" /* FLD_GD2_NENASARCO */
#define FN_MESIREDD "MESIREDD" /* FLD_GD2_MESIREDD */
#define FN_CODSTAT1 "CODSTAT1" /* FLD_GD2_CODSTAT1 */
#define FN_CODSTAT2 "CODSTAT2" /* FLD_GD2_CODSTAT2 */
#define FN_CODSTAT3 "CODSTAT3" /* FLD_GD2_CODSTAT3 */
#define FN_CABBAN "CABBAN" /* FLD_GD2_CABBAN */
#define FN_ABIBAN "ABIBAN" /* FLD_GD2_ABIBAN */
#define FN_SITSOC "SITSOC" /* LST_GD2_SITSOC */
#define FN_STATOSOC "STATOSOC" /* LST_GD2_STATOSOC */
#define FN_DENEST1 "DENEST1" /* FLD_DE_DENEST1 */
#define FN_DENEST2 "DENEST2" /* FLD_DE_DENEST2 */
#define FN_DENEST3 "DENEST3" /* FLD_DE_DENEST3 */
#define FN_FIRMAT "FIRMAT" /* FLD_GD3_FIRMAT */
#define FN_ESILOR "ESILOR" /* CHK_GD3_ESILOR */
#define FN_REGSTATSP "REGSTATSP" /* CHK_GD3_REGSTATSP */
#define FN_AZCONIUG "AZCONIUG" /* CHK_GD3_AZCONIUG */
#define FN_CONDFAM "CONDFAM" /* CHK_GD3_CONDFAM */
#define FN_DEDART13 "DEDART13" /* CHK_GD3_DEDART13 */
#define FN_RICSUP20 "RICSUP20" /* CHK_GD3_RICSUP20 */
#define FN_RAPPR "RAPPR" /* FLD_GD3_RAPPR */
#define FN_CARRAPP "CARRAPP" /* FLD_GD3_CARRAPP */
#define FN_DECCARRAPP "DECCARRAPP" /* FLD_GD3_DECCARRAPP */
#define FN_CODDITTA "CODITTA" /* FLD_GD1_PROGD */
#define FN_TIPOA "TIPOA" /* LST_GD1_TIPOA */
#define FN_RAGSOC "RAGSOC" /* FLD_GD1_RAGSOC */
#define FN_PERRIF "PERRIF" /* FLD_GD1_PERRIF */
#define FN_PTEL "PTEL" /* FLD_GD1_PTEL */
#define FN_TEL "TEL" /* FLD_GD1_TEL */
#define FN_PFAX "PFAX" /* FLD_GD1_PFAX */
#define FN_FAX "FAX" /* FLD_GD1_FAX */
#define FN_CODATTPREV "CODATTPREV" /* FLD_GD1_CODATTPREV */
#define FN_ARTIG "ARTIG" /* CHK_GD1_ARTIG */
#define FN_NISCRAA "NISCRAA" /* FLD_GD1_NISCRAA */
#define FN_DATAISCRAA "DATAISCRAA" /* FLD_GD1_DATAISCRAA */
#define FN_CAPAA "CAPAA" /* FLD_GD1_CAPAA */
#define FN_COMAA "COMAA" /* FLD_GD1_COMAA */
#define FN_CONTORD "CONTORD" /* CHK_GD1_CONTORD */
#define FN_REGMAG "REGMAG" /* CHK_GD1_REGMAG */
#define FN_IMPRFAM "IMPRFAM" /* CHK_GD1_IMPRFAM */
#define FN_FLIVA11Q "FLIVA11Q" /* CHK_GD1_FLIVA11Q */
#define FN_DATLAV "DATLAV" /* LST_GD2_DATLAV */
#define FN_NAPP "NAPP" /* FLD_GD2_NAPP */
#define FN_NULC "NULC" /* FLD_GD2_NULC */
#define FN_DINIZIOATT "DINIZIOATT" /* FLD_GD2_DINIZIOATT */
#define FN_NENASARCO "NENASARCO" /* FLD_GD2_NENASARCO */
#define FN_MESIREDD "MESIREDD" /* FLD_GD2_MESIREDD */
#define FN_CODSTAT1 "CODSTAT1" /* FLD_GD2_CODSTAT1 */
#define FN_CODSTAT2 "CODSTAT2" /* FLD_GD2_CODSTAT2 */
#define FN_CODSTAT3 "CODSTAT3" /* FLD_GD2_CODSTAT3 */
#define FN_CABBAN "CABBAN" /* FLD_GD2_CABBAN */
#define FN_ABIBAN "ABIBAN" /* FLD_GD2_ABIBAN */
#define FN_SITSOC "SITSOC" /* LST_GD2_SITSOC */
#define FN_STATOSOC "STATOSOC" /* LST_GD2_STATOSOC */
#define FN_DENEST1 "DENEST1" /* FLD_DE_DENEST1 */
#define FN_DENEST2 "DENEST2" /* FLD_DE_DENEST2 */
#define FN_DENEST3 "DENEST3" /* FLD_DE_DENEST3 */
#define FN_FIRMAT "FIRMAT" /* FLD_GD3_FIRMAT */
#define FN_ESILOR "ESILOR" /* CHK_GD3_ESILOR */
#define FN_REGSTATSP "REGSTATSP" /* CHK_GD3_REGSTATSP */
#define FN_AZCONIUG "AZCONIUG" /* CHK_GD3_AZCONIUG */
#define FN_CONDFAM "CONDFAM" /* CHK_GD3_CONDFAM */
#define FN_DEDART13 "DEDART13" /* CHK_GD3_DEDART13 */
#define FN_RICSUP20 "RICSUP20" /* CHK_GD3_RICSUP20 */
#define FN_RAPPR "RAPPR" /* FLD_GD3_RAPPR */
#define FN_CARRAPP "CARRAPP" /* FLD_GD3_CARRAPP */
#define FN_DECCARRAPP "DECCARRAPP" /* FLD_GD3_DECCARRAPP */
#define RDB_GD1_FREQVIVA 102
#define FLD_GD3_FIRMAT 107
@ -127,5 +127,6 @@
#define DLG_ULC 186
#define DLG_SOC 187
#define DLG_REG 188
#define F_ISCRCAF 189
#endif // __BA4300_H

22
ba/ba4300a.uml
View File

@ -46,7 +46,7 @@ BEGIN
USE LF_NDITTE KEY 1
INPUT CODDITTA FLD_GD1_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
OUTPUT FLD_GD1_CODDITTA CODDITTA
OUTPUT FLD_GD1_CODDITTAH CODDITTA
OUTPUT FLD_GD1_RAGSOC RAGSOC
@ -67,7 +67,7 @@ BEGIN
INPUT CODANAGR FLD_GD1_CODANAGR
INPUT CODDITTA FLD_GD1_CODDITTAH
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
OUTPUT FLD_GD1_CODDITTAH CODDITTA
OUTPUT FLD_GD1_CODDITTA CODDITTA
OUTPUT FLD_GD1_RAGSOC RAGSOC
@ -86,7 +86,7 @@ BEGIN
INPUT RAGSOC FLD_GD1_RAGSOC
INPUT CODDITTA FLD_GD1_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
OUTPUT FLD_GD1_CODDITTA CODDITTA
OUTPUT FLD_GD1_RAGSOC RAGSOC
HELP "Ragione sociale della ditta"
@ -119,7 +119,7 @@ BEGIN
INPUT CODANAGR FLD_GD1_CODANAGR
DISPLAY "Tipo" TIPOA
DISPLAY "Codice" CODANAGR
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
OUTPUT FLD_GD1_CODANAGR CODANAGR
OUTPUT FLD_GD1_TIPOA TIPOA
OUTPUT FLD_GD1_CODANAGR_ANAGR_RAGSOC RAGSOC
@ -136,7 +136,7 @@ BEGIN
USE LF_ANAG KEY 2
INPUT TIPOA FLD_GD1_TIPOA
INPUT RAGSOC FLD_GD1_CODANAGR_ANAGR_RAGSOC
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Cognome - Nome o Ragione Sociale@50" RAGSOC
DISPLAY "Tipo" TIPOA
DISPLAY "Codice" CODANAGR
OUTPUT FLD_GD1_TIPOA TIPOA
@ -147,7 +147,7 @@ END
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 0 8 "Attivita' principale"
PROMPT 0 8 "Attivita' prevalente"
END
STRING FLD_GD1_CODATTPREV 5
@ -241,11 +241,18 @@ END
STRING FLD_GD1_PERRIF 20
BEGIN
PROMPT 24 5 "Persona di riferimento "
PROMPT 26 5 "Persona di riferimento "
FIELD LF_NDITTE->PERRIF
HELP "Nominativo della persona a cui fare rfierimento"
END
STRING F_ISCRCAF 10
BEGIN
PROMPT 26 6 "Iscrizione CAF "
FIELD LF_NDITTE->ISCRCAF
HELP "Numero di iscrizione al CAF"
END
BOOLEAN CHK_GD1_ARTIG
BEGIN
PROMPT 1 8 "Artigiano"
@ -529,6 +536,7 @@ BEGIN
OUTPUT FLD_GD2_CODSTAT2 CODTAB
OUTPUT FLD_GD2_CODSTAT2_TABSTT_S0 S0
HELP "Secondo codice statistico"
CHECKTYPE NORMAL
WARNING "Codice assente"
END

10
ba/ba4400a.uml
View File

@ -320,7 +320,7 @@ BEGIN
PROMPT 0 6 "Posizioni"
END
STRING FLD_UL2_POSINPS 14
STRING FLD_UL2_POSINPS 13
BEGIN
PROMPT 1 7 "INPS "
FIELD LF_UNLOC->POSINPS
@ -328,7 +328,7 @@ BEGIN
HELP "Numero della posizione INPS"
END
STRING FLD_UL2_POSINAIL 12
STRING FLD_UL2_POSINAIL 11
BEGIN
PROMPT 55 7 "INAIL "
FIELD LF_UNLOC->POSINAIL
@ -341,14 +341,14 @@ BEGIN
PROMPT 0 9 "Tribunale"
END
STRING FLD_UL2_REGTRIB 10
STRING FLD_UL2_REGTRIB 9
BEGIN
PROMPT 1 10 "Regist."
FIELD LF_UNLOC->REGTRIB
HELP "Numero di registro del tribunale in cui e' iscritta la ditta"
END
STRING FLD_UL2_VOLTRIB 8
STRING FLD_UL2_VOLTRIB 7
BEGIN
PROMPT 30 10 "Volume "
FIELD LF_UNLOC->VOLTRIB
@ -356,7 +356,7 @@ BEGIN
HELP "Numero del volume del tribunale in cui e' iscritta la ditta"
END
STRING FLD_UL2_FSCTRIB 6
STRING FLD_UL2_FSCTRIB 5
BEGIN
PROMPT 57 10 "Fascicolo "
FIELD LF_UNLOC->FASCTRIB

41
ba/ba4500.h
View File

@ -1,26 +1,26 @@
#ifndef __BA4500_H
#define __BA4500_H
#define FN_CODULC "CODULC" /* FLD_UL1_CODULC */
#define FN_CODANGRDS "CODANGRDS" /* FLD_AT2_CODANGRDS */
#define FN_INDCS "INDCS" /* FLD_ATT2_INDCS */
#define FN_CIVCS "CIVCS" /* FLD_AT2_CIVCS */
#define FN_COMCS "COMCS" /* FLD_AT2_COMCS */
#define FN_CAPCS "CAPCS" /* FLD_AT2_CAPCS */
#define FN_PTELCS "PTELCS" /* FLD_AT2_PTELCS */
#define FN_TELCS "TELCS" /* FLD_AT2_TELCS */
#define FN_CODITTA "CODITTA" /* FLD_AT1_CODITTA */
#define FN_PROGD "PROGD" /* FLD_AT1_PROGD */
#define FN_CODATT "CODATT" /* FLD_AT1_CODATT */
#define FN_OLDCODATT "OLDCODATT" /* FLD_AT1_OLDCODATT */
#define FN_SUBCOD "SUBCOD" /* FLD_AT1_SUBCOD */
#define FN_DATAISCIVA "DATAISCIVA" /* FLD_AT1_DATAISCIVA */
#define FN_DATAVARIVA "DATAVARIVA" /* FLD_AT1_DATAVARIVA */
#define FN_DCESSATT "DCESSATT" /* FLD_ATT_DCESSATT */
#define FN_CODULIVA11 "CODULIVA11" /* FLD_AT1_CODULIVA11 */
#define FN_NSOCILDIP "NSOCILDIP" /* FLD_AT1_NSOCILDIP */
#define FN_GIATTANN "GIATTANN" /* FLD_AT1_GIATTANN */
#define FN_GILAVASTAG "GILAVASTAG" /* FLD_AT1_GILAVASTAG */
#define FN_CODULC "CODULC" /* FLD_UL1_CODULC */
#define FN_CODANGRDS "CODANGRDS" /* FLD_AT2_CODANGRDS */
#define FN_INDCS "INDCS" /* FLD_ATT2_INDCS */
#define FN_CIVCS "CIVCS" /* FLD_AT2_CIVCS */
#define FN_COMCS "COMCS" /* FLD_AT2_COMCS */
#define FN_CAPCS "CAPCS" /* FLD_AT2_CAPCS */
#define FN_PTELCS "PTELCS" /* FLD_AT2_PTELCS */
#define FN_TELCS "TELCS" /* FLD_AT2_TELCS */
#define FN_CODITTA "CODITTA" /* FLD_AT1_CODITTA */
#define FN_PROGD "PROGD" /* FLD_AT1_PROGD */
#define FN_CODATT "CODATT" /* FLD_AT1_CODATT */
#define FN_OLDCODATT "OLDCODATT" /* FLD_AT1_OLDCODATT */
#define FN_SUBCOD "SUBCOD" /* FLD_AT1_SUBCOD */
#define FN_DATAISCIVA "DATAISCIVA" /* FLD_AT1_DATAISCIVA */
#define FN_DATAVARIVA "DATAVARIVA" /* FLD_AT1_DATAVARIVA */
#define FN_DCESSATT "DCESSATT" /* FLD_ATT_DCESSATT */
#define FN_CODULIVA11 "CODULIVA11" /* FLD_AT1_CODULIVA11 */
#define FN_NSOCILDIP "NSOCILDIP" /* FLD_AT1_NSOCILDIP */
#define FN_GIATTANN "GIATTANN" /* FLD_AT1_GIATTANN */
#define FN_GILAVASTAG "GILAVASTAG" /* FLD_AT1_GILAVASTAG */
#define N_TIPOA "TIPOA"
#define N_CODANAGR "CODANAGR"
#define N_STATORF "STATORF"
@ -134,5 +134,6 @@
#define FLD_ATT_OLDCODATT 197
#define FLD_AT1_CODDITTAH 198
#define FLD_AT1_CODATTH 199
#define F_ATTPREV 200
#endif // __BA4500_H

25
ba/ba4500a.uml
View File

@ -34,14 +34,16 @@ STRING FLD_AT1_CODDITTAH 5
BEGIN
FLAGS "HD"
USE LF_ATTIV KEY 1
JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
// JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA
// JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
INPUT CODDITTA FLD_AT1_CODDITTA
INPUT CODATT FLD_AT1_CODATT
// DISPLAY "Codice" CODDITTA
// DISPLAY "Ditta@50" LF_NDITTE->RAGSOC
DISPLAY "Attivita'" CODATT
DISPLAY " @50" %AIS->S0
DISPLAY "Prevalente" ATTPREV
// DISPLAY " @50" %AIS->S0
DISPLAY " @50" DESCR
OUTPUT FLD_AT1_CODDITTA CODDITTA
OUTPUT FLD_AT1_CODATT CODATT
END
@ -99,6 +101,14 @@ BEGIN
MESSAGE COPY,FLD_AT1_CODATTH
END
BOOLEAN F_ATTPREV
BEGIN
PROMPT 55 3 "Prevalente"
FIELD LF_ATTIV->ATTPREV
FLAGS "DG"
MESSAGE COPY,5@
END
STRING FLD_AT1_ATTCODATT_TABATT_DESCR 50
BEGIN
PROMPT 1 4 "Nome Attivita' "
@ -309,9 +319,16 @@ BEGIN
GROUP 3
END
BOOLEAN DLG_NULL
BEGIN
PROMPT 55 3 "Prevalente"
FLAGS "D"
GROUP 5
END
STRING FLD_AT1_ATTCODATT_TABATT_DESCR 50
BEGIN
PROMPT 1 4 "Nome Attivita' "
PROMPT 1 4 "Nome Attivita' "
FLAGS "D"
GROUP 4
END

32
ba/ba4600a.uml
View File

@ -45,9 +45,20 @@ BEGIN
MESSAGE COPY,3@
END
NUMBER FLD_SC1_ANNO 4
BEGIN
PROMPT 1 3 "Anno "
FIELD LF_SOCI->ANNO
FLAGS "A"
KEY 1
CHECKTYPE REQUIRED
WARNING "Inserire l'anno"
MESSAGE COPY,7@
END
LIST LST_SC1_TIPOASOC 1 12
BEGIN
PROMPT 1 3 "Socio : Tipo "
PROMPT 1 4 "Socio : Tipo "
FIELD LF_SOCI->TIPOASOC
KEY 1
FLAGS "G"
@ -60,7 +71,7 @@ END
NUMBER FLD_SC1_CODANAGRSOH 5
BEGIN
PROMPT 30 3 "Codice "
PROMPT 30 4 "Codice "
FIELD LF_SOCI->CODANAGRSO
FLAGS "R"
KEY 1
@ -88,7 +99,7 @@ END
NUMBER FLD_SC1_CODANAGRSO 5
BEGIN
PROMPT 30 3 "Codice "
PROMPT 30 4 "Codice "
FIELD LF_SOCI->CODANAGRSO
FLAGS "RG"
KEY 1
@ -103,14 +114,14 @@ BEGIN
OUTPUT FLD_SC1_CODANAGR_ANAGR_RAGSOC RAGSOC
HELP "Codice dell'anagrafica del socio"
MESSAGE COPY,5@|COPY,8@
CHECKTYPE REQUIRED
CHECKTYPE FORCED
WARNING "Anagrafica assente o nulla"
MESSAGE COPY,FLD_SC1_CODANAGRSOH
END
STRING FLD_SC1_CODANAGR_ANAGR_RAGSOC 50
BEGIN
PROMPT 7 4 ": Nome "
PROMPT 7 5 ": Nome "
HELP "Nome dell'anagrafica del socio"
KEY 1
USE LF_ANAG KEY 2
@ -126,17 +137,6 @@ BEGIN
MESSAGE COPY,6@
END
NUMBER FLD_SC1_ANNO 4
BEGIN
PROMPT 1 5 "Anno "
FIELD LF_SOCI->ANNO
FLAGS "A"
KEY 1
CHECKTYPE REQUIRED
WARNING "Inserire l'anno per le dichiarazioni o le analisi di bilancio"
MESSAGE COPY,7@
END
STRING FLD_SC1_CODCAR 2
BEGIN
PROMPT 1 7 "Codice carica "