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

Patch level : 12.0 344

Browse Source 
Files correlati     : li
Commento            : 
- Aggiunto scelta anno alla maschera

git-svn-id: svn://10.65.10.50/branches/R_10_00@23630 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2017-02-17 10:43:09 +00:00
parent c41a999931
commit a7f0824e35
3 changed files with 23 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/li/li0200.cpp
View File

@ -26,6 +26,9 @@ public:
void TResDI_mask::load_config()
{
//Anno
set(FLD_ANNO, TDate(TODAY).year());
set(FLD_TABIVA_CODTAB, ini_get_string(CONFIG_DITTA, "li", "CODIVA"));
TToken_string tipidoc(ini_get_string(CONFIG_DITTA, "li", "TIPIDOC"));
@ -76,7 +79,9 @@ public:
void TResDI_app::elab(TResDI_mask& m)
{
int clifoda = m.get_long(F_CODICE_CLIFO_DA), clifoa = m.get_long(F_CODICE_CLIFO_A);
int clifoda = m.get_long(F_CODICE_CLIFO_DA);
int clifoa = m.get_long(F_CODICE_CLIFO_A);
int anno = m.get_int(FLD_ANNO);
// Creo le TToken_string necessarie per filtrare i documenti
TToken_string tipi, stati;
@ -100,7 +105,7 @@ void TResDI_app::elab(TResDI_mask& m)
{
TRectype row_clifo(c_clifo.curr());
TLi_manager currentCli(row_clifo.get_char("TIPOCF"), row_clifo.get_long("CODCF"), TDate(TODAY).year()); // Inizializzo l'oggetto per la gestione del plafond
TLi_manager currentCli(row_clifo.get_char("TIPOCF"), row_clifo.get_long("CODCF"), anno); // Inizializzo l'oggetto per la gestione del plafond
if(currentCli.hasValidPlafond())
{
real plafond = currentCli.getPlafond();
@ -109,7 +114,7 @@ void TResDI_app::elab(TResDI_mask& m)
TString msg;
msg << "\nDichiarazione di intento cliente N." << row_clifo.get_long("CODCF") << "\nRagione sociale: " << row_clifo.get("RAGSOC") << "\nPlafond totale: " << static_cast<TCurrency>(plafond).string() << "€\n";
log.log(0, msg);
msg = TString("Plafond disponibile: ") << static_cast<TCurrency>(resPlafond).string() << "€";
msg = TString("Plafond disponibile: ") << static_cast<TCurrency>((resPlafond > ZERO ? resPlafond : ZERO )).string() << "€";
log.log(0, msg);
msg = TString("Tipo dichiarazione: ") << (currentCli.isSoluzione() ? "Singola\n" : "A concorrenza\n");
log.log(0, msg);

5
src/li/li0200a.h
View File

@ -5,5 +5,6 @@
#define DOCUMENTI_STATO 201
#define FLD_TABIVA_CODTAB 301
#define F_CODICE_CLIFO_DA 302
#define F_CODICE_CLIFO_A 303
#define FLD_ANNO 302
#define F_CODICE_CLIFO_DA 303
#define F_CODICE_CLIFO_A 304

14
src/li/li0200a.msk
View File

@ -26,9 +26,19 @@ BEGIN
VALIDATE ZEROFILL_FUNC 2
END
NUMBER FLD_ANNO 4
BEGIN
PROMPT 1 2 "Anno:"
HELP "Inserire l'anno"
FIELD ANNO
CHECKTYPE REQUIRED
WARNING "Inserire l'anno"
NUM_EXPR #FLD_ANNO>0
END
NUMBER F_CODICE_CLIFO_DA 6
BEGIN
PROMPT 1 2 "Da cod. cliente "
PROMPT 1 3 "Da cod. cliente: "
FLAG "UR"
USE LF_CLIFO
INPUT TIPOCF "C"
@ -41,7 +51,7 @@ END
NUMBER F_CODICE_CLIFO_A 6
BEGIN
PROMPT 32 2 "a "
PROMPT 32 3 "a: "
FLAG "UR"
USE LF_CLIFO
INPUT TIPOCF "C"