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

ba2100b.uml : aggiunto FLAGS "U" sul campo del tipo profilo

Browse Source 
ba2400.cpp  : modificata la validate del messaggio per stampare il
  centro di servizio; con un parametro in piu', relativo al campo
  sul form, si puo' ora stampare anche il codice numerico.


git-svn-id: svn://10.65.10.50/trunk@1973 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1995-10-18 11:27:59 +00:00
parent 3b0fee2a45
commit bd702079cc
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ba/ba2100b.uml
View File

@ -6,6 +6,7 @@ STRING F_BASE 8
BEGIN BEGIN
PROMPT 2 1 "Profilo base " PROMPT 2 1 "Profilo base "
FIELD TIPOPROF FIELD TIPOPROF
FLAGS "U"
HELP "Specificare il nome del profilo di base utilizzato" HELP "Specificare il nome del profilo di base utilizzato"
USE LF_FORM SELECT CODPROF=="" USE LF_FORM SELECT CODPROF==""
INPUT TIPOPROF F_BASE INPUT TIPOPROF F_BASE

13
ba/ba2400.cpp
View File

@ -55,14 +55,17 @@ bool TTab_form::validate(TForm_item& fld, TToken_string& s)
{ {
const int a_comres = s.get_int(); // Alias del comune di residenza (fiscale) const int a_comres = s.get_int(); // Alias del comune di residenza (fiscale)
const int a_anagr = s.get_int(); // Alias dell'anagrafica della persona const int a_anagr = s.get_int(); // Alias dell'anagrafica della persona
TString i_cod(s.get()); // Eventuale Id del campo codice (solo se != 0)
TString16 cod_us_uid; // Codice del Centro servizio o ufficio imposte dirette (NON E' IL CODICE DEL COMUNE)
TString80 desc; // Denominzazione centro servizi o ufficio imposte TString80 desc; // Denominzazione centro servizi o ufficio imposte
const TLocalisamfile& com = relation()->lfile(-a_comres); const TLocalisamfile& com = relation()->lfile(-a_comres);
TString16 cod = com.get("UFFCSERV"); TString16 cod = com.get("UFFCSERV");
if (cod.not_empty()) // Se specificato ... if (cod.not_empty()) // Se specificato ...
{ {
cod_us_uid = cod;
TTable ucc("%UCC"); // ... usa il centro servizi del comune TTable ucc("%UCC"); // ... usa il centro servizi del comune
ucc.put("CODTAB", cod); ucc.put("CODTAB", cod);
if (ucc.read() == NOERR) if (ucc.read() == NOERR)
@ -83,7 +86,8 @@ bool TTab_form::validate(TForm_item& fld, TToken_string& s)
uff[7] = u; uff[7] = u;
cod = com.get(uff); cod = com.get(uff);
} }
} }
cod_us_uid = cod;
TTable uffiva("%UID"); TTable uffiva("%UID");
uffiva.put("CODTAB", cod); uffiva.put("CODTAB", cod);
if (uffiva.read() == NOERR) if (uffiva.read() == NOERR)
@ -102,6 +106,11 @@ bool TTab_form::validate(TForm_item& fld, TToken_string& s)
_result = " "; _result = " ";
_result << " " << desc; _result << " " << desc;
if (i_cod.not_empty())
{
TForm_item& fi = fld.find_field(i_cod);
fi.set(cod_us_uid);
}
fld.set(_result); fld.set(_result);
return TRUE; return TRUE;
} }