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

Filtri record in manutenzione archivi

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@23133 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2015-11-30 16:12:27 +00:00
parent 57565a44ac
commit 21d8c1f8f7
4 changed files with 33 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ba/ba1102.cpp
View File

@ -96,7 +96,7 @@ bool TEdit_file::browse_cursor(TCursor& cursor, const TFilename& fname)
const bool superprassi = user() == ::dongle().administrator();
TCursor_sheet sheet(&cursor, trac, fname, head, superprassi ? 6 : 0);
TCursor_sheet sheet(&cursor, trac, fname, head, superprassi ? 0x26 : 0);
KEY ch;
while ((ch = sheet.run()) != K_ESC)
{
@ -126,7 +126,7 @@ bool TEdit_file::browse_cursor(TCursor& cursor, const TFilename& fname)
}
// Forza update del cursore
cursor.set_filterfunction(NULL, TRUE);
cursor.set_filterfunction(NULL, true);
if (cursor.items() > 0)
sheet.select(1);
continue;

19
ba/ba4200.cpp
View File

@ -372,13 +372,14 @@ bool cod_reg(TMask_field& f, KEY key)
bool no_dup_fis(TMask_field& f, KEY key)
{
if (f.mask().query_mode() || !f.to_check(key)) return TRUE;
TPersone_app& app = (TPersone_app&)main_app();
TLocalisamfile& anag = app.get_relation()->lfile(LF_ANAG) ;
if (f.mask().query_mode() || !f.to_check(key))
return true;
const TString16 cofi(f.get());
if ( cofi.not_empty() )
const TString& cofi = f.get();
if (cofi.full())
{
TPersone_app& app = (TPersone_app&)main_app();
TLocalisamfile& anag = app.get_relation()->lfile(LF_ANAG) ;
anag.zero() ;
anag.put(N_TIPOA, app.tip_ana());
anag.put(N_COFI, cofi ) ;
@ -386,13 +387,13 @@ bool no_dup_fis(TMask_field& f, KEY key)
anag.read() ;
anag.setkey(1) ;
const char t = anag.get_char(N_TIPOA), t1 = app.tip_ana();
const TString16 s = anag.get(N_CODANAGR), s1 = app.cod_ana();
const TString16 s = anag.get(N_CODANAGR), s1 = app.cod_ana();
if (anag.good() && (t1 != t || s1 != s))
f.message_box(FR("Codice fiscale gia' utilizzato per il codice %c/%s"),
f.message_box(FR("Codice fiscale già utilizzato per il codice %c/%s"),
t, (const char*)s);
}
return TRUE ;
return true;
}
bool gest_iva(TMask_field& f, KEY key , short fd_sta ,short fd_iva )
@ -415,7 +416,7 @@ bool gest_iva(TMask_field& f, KEY key , short fd_sta ,short fd_iva )
const char t = anag.get_char(N_TIPOA), t1 = app.tip_ana();
const TFixed_string s(anag.get(N_CODANAGR)), s1(app.cod_ana());
if (anag.good() && (t1 != t || s1 != s))
f.message_box(FR("Partita iva gia' definita per il codice : %c/%s"),
f.message_box(FR("Partita iva già definita per il codice : %c/%s"),
t, (const char*) s);
}
return TRUE ;

6
ba/ba4200b.uml
View File

@ -149,7 +149,7 @@ END
STRING FLD_AF1_STATONASC_TABSTE_S0 10
BEGIN
PROMPT 44 6 "Nazionalita' "
PROMPT 44 6 "Nazionalità "
FIELD LF_ANAGFIS->NAZION
FLAGS "D"
HELP "Nazione di appartenenza della persona fisica"
@ -526,9 +526,9 @@ END
STRING F_LOCCORR 35
BEGIN
PROMPT 2 7 "Localita' "
PROMPT 2 7 "Località "
FIELD LF_ANAG->LOCCORR
HELP "Localita' in cui spedire la corrispondenza"
HELP "Località in cui spedire la corrispondenza"
END
NUMBER FLD_AF2_STATOCORR 3

36
ba/ba4200c.uml
View File

@ -106,13 +106,13 @@ BEGIN
VALIDATE XTZPI_FUNC FLD_AG1_STATOPAIV FLD_AG1_COMRF FLD_AG2_COMRES
END
STRING FLD_AG1_COFI 12
STRING FLD_AG1_COFI 16
BEGIN
PROMPT 42 5 "Codice fiscale "
PROMPT 42 5 "Codice fiscale "
FIELD LF_ANAG->COFI
FLAGS "U"
HELP "Codice fiscale della persona giuridica"
VALIDATE CF_FUNC FLD_AG1_STATOPAIV
VALIDATE CF_FUNC FLD_AF1_STATOPAIV
USE LF_ANAG KEY 3
INPUT TIPOA "G"
INPUT COFI FLD_AG1_COFI
@ -461,9 +461,9 @@ END
STRING F_LOCCORR 35
BEGIN
PROMPT 2 6 "Localita' "
PROMPT 2 6 "Località "
FIELD LF_ANAG->LOCCORR
HELP "Localita' in cui spedire la corrispondenza"
HELP "Località in cui spedire la corrispondenza"
END
NUMBER FLD_AG2_STATOCORR 3
@ -683,7 +683,7 @@ DATE FLD_AG3_DATASCAD
BEGIN
PROMPT 2 8 "Data scadenza "
FIELD LF_ANAGGIU->DATASCAD
HELP "Data di termine attivita' della società"
HELP "Data di termine attività della società"
WARNING "La data di scadenza non puo' precedere quella di costituzione"
VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST
END
@ -720,7 +720,7 @@ DATE FLD_AG3_DATACHIUS
BEGIN
PROMPT 2 12 "Data chiusura "
FIELD LF_ANAGGIU->DATACHIUS
HELP "Data di chiusura dell'anno di contabilita'"
HELP "Data di chiusura dell'anno di contabilità"
END
NUMBER LST_AG3_STATOSOC 1
@ -732,8 +732,8 @@ BEGIN
OUTPUT LST_AG3_STATOSOC
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'"
ITEM "1|Soggetto in normale attività"
ITEM "2|Soggetto in liquidazione per cessazione di attività"
ITEM "3|Soggetto in fallimento o in liquidazione coatta amministrativa"
ITEM "4|Soggetto estinto"
END
@ -767,21 +767,21 @@ BEGIN
OUTPUT LST_AG3_NATGIU
ITEM " |Sconosciuta"
ITEM "1|società in accomandita per azioni"
ITEM "2|società a resposabilita' limitata"
ITEM "2|società a resposabilità 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 "7|Consorzi con personalità giuridica"
ITEM "8|Associazioni riconosciute"
ITEM "9|Fondazioni"
ITEM "10|Altri enti od istituti con personalita' giuridica"
ITEM "11|Consorzi senza personalita' giuridica"
ITEM "10|Altri enti od istituti con personalità giuridica"
ITEM "11|Consorzi senza personalità giuridica"
ITEM "12|Associazioni non riconosciute e comitati"
ITEM "13|Altre organizzazioni di persone o di beni senza personalita' giuridica (escluse le comunioni)"
ITEM "13|Altre organizzazioni di persone o di beni senza personalità giuridica (escluse le comunioni)"
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 "16|Casse mutue e fondi di previdenza, assistenza, pensioni o simili con o senza personalità giuridica"
ITEM "17|Opere pie e società di mutuo soccorso"
ITEM "18|Enti ospedalieri"
ITEM "19|Enti ed istituti di previdenza e asssistenza sociale"
@ -795,19 +795,19 @@ BEGIN
ITEM "27|Associazioni tra artisti e professionisti"
ITEM "28|Aziende coniugali"
ITEM "29|GEIE"
ITEM "30|societàsemplici irregolari e di fatto (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|società in accomandita per azioni (Non residenti)"
ITEM "36|società a responsabilita' limitata (Non residenti)"
ITEM "36|società a responsabilità 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 società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