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

Corretta gestione codici fiscali e IVA duplicati

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@92 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-08-30 08:04:56 +00:00
parent 153fc29d92
commit 4584da5e26
3 changed files with 505 additions and 499 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ba/ba1100.cpp
View File

@ -468,7 +468,8 @@ bool BA1100_application::menu(MENU_TAG m)
enable_menu_item(M_FILE_NEW);
}
return TRUE;
return xvt_test_menu_tag(BAR_ITEM(2));
}
int ba1100(int argc, char** argv)

36
ba/ba4200.cpp
View File

@ -54,14 +54,14 @@ public:
bool ba4200_handler(TMask& m, KEY k)
{
{
BA4200_application* app = (BA4200_application*) MainApp();
if (k == K_F10)
{
if (app->ana_fis()) app->set_tip_ana(TGIU);
else app->set_tip_ana(TFIS);
m.stop_run(k);
m.stop_run(K_ESC);
return FALSE;
}
if (k != K_F5 || m.mode() != MODE_MOD) return TRUE;
@ -98,14 +98,14 @@ bool ba4200_handler(TMask& m, KEY k)
d->read(_iscurr, _lock) ;
m.set_focus();
return FALSE;
}
}
void BA4200_application::init_query_mode(TMask& m)
{
{
m.disable(DLG_DITTE);
m.enable(DLG_CHGTIP);
}
}
const char* BA4200_application::get_next_key()
@ -185,7 +185,7 @@ bool gest_nazionalita(TMask_field& f, KEY key)
// Handler dell'ufficio imposte dirette
bool gest_uff_imp_nr(TMask_field& f, KEY key)
{
/*
/*
if (!f.to_check(key)) return TRUE;
const TString cod_uff(f.get());
@ -214,7 +214,7 @@ bool gest_uff_imp_nr(TMask_field& f, KEY key)
return f.error_box("L'ufficio deve appartenere al comune di residenza: %s", com);
}
}
*/
*/
return TRUE;
}
@ -285,22 +285,23 @@ bool no_dup_fis(TMask_field& f, KEY key)
BA4200_application* app = (BA4200_application*) MainApp();
TLocalisamfile& anag = *app->get_relation()->lfile(LF_ANAG) ;
const TString cofi(f.get());
if ( cofi.not_empty() && !anag.empty() )
const TString16 cofi(f.get());
if ( cofi.not_empty() )
{
beep();
anag.zero() ;
anag.put(N_TIPOA, app->tip_ana());
anag.put(N_COFI, cofi ) ;
anag.setkey(3) ;
anag.read() ;
anag.setkey(1) ;
char t = anag.get_char(N_TIPOA);
char t1 = app->tip_ana();
TString s = anag.get(N_CODANAGR), s1 = app->cod_ana();
const char t = anag.get_char(N_TIPOA), t1 = app->tip_ana();
const TString16 s = anag.get(N_CODANAGR), s1 = app->cod_ana();
if (anag.good() && (t1 != t || s1 != s))
{
f.error_box("Codice fiscale gia' utilizzato per il codice : %c/%s",
t, (const char*) s);
f.error_box("Codice fiscale gia' utilizzato per il codice %c/%s",
t, (const char*)s);
return FALSE;
}
}
@ -318,6 +319,7 @@ bool gest_iva(TMask_field& f, KEY key , short fd_sta ,short fd_iva )
if ( f.get().not_empty() && !anag.empty() )
{
anag.zero() ;
anag.put(N_TIPOA, app->tip_ana());
anag.put(N_STATOPAIV, msk.get(fd_sta) ) ;
anag.put(N_PAIV, msk.get(fd_iva) ) ;
anag.setkey(4) ;
@ -344,7 +346,7 @@ bool no_dup_iva_f(TMask_field& f, KEY key)
bool no_dup_iva_g(TMask_field& f, KEY key)
{
if (key == K_ENTER && f.get().empty())
if (key == K_ENTER && !f.mask().query_mode() && f.get().empty())
{
bool ok = FALSE;
if (!f.mask().get_bool(CHK_AG1_ENTENCOMM))
@ -400,12 +402,12 @@ 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, 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, TRUE); verificare
_rel[MSKG]->add(LF_ANAGGIU, "CODANAGR=CODANAGR", 1, 0, 0);
_comuni = new TLocalisamfile(LF_COMUNI) ;

3
ba/prassi.aut Executable file
View File

@ -0,0 +1,3 @@
ba Base
cg Contabilita' Generale
te Testmask