Correzione definitiva errore MI3228, aggiunto anche il controllo sul

tipo di delega da stampare scritto sull'anagrafica.


git-svn-id: svn://10.65.10.50/trunk@2063 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1995-11-02 09:58:44 +00:00
parent 426506d896
commit 2cfaa88a8e
4 changed files with 30 additions and 12 deletions

View File

@ -96,8 +96,12 @@ int TStampa_deleghe_IVA::select()
_profilo = m.get(F_PROFILO);
_codice = m.get_long(F_CODICE);
const bool contofis = _profilo != "DEL";
const bool contofis = _profilo.right(2) == "CF";
int del_dis_bol=0;
if (_profilo.left(3) == "DIS") del_dis_bol = 2;
else
if (_profilo.left(3) == "BOL") del_dis_bol = 1;
//const TDate pd(m.get(F_DATA));
//printer().setdate(pd);
@ -126,6 +130,9 @@ int TStampa_deleghe_IVA::select()
const bool cf = anag.get_bool("TITCF");
if (contofis != cf) continue;
const int tstdel = anag.get_int("TIPOSTDEL");
if (tstdel != del_dis_bol) continue;
const long dit = _nditte->lfile().get_long("CODDITTA");
chiave.format("%05ld%04d%02d%d", dit, _anno, _mese, _tipo);
deleghe.put("CODTAB", chiave);

View File

@ -6,13 +6,13 @@ LIST F_PROFILO 8 16
BEGIN
PROMPT 1 1 "Stampa "
ITEM "DELIVA|Delega"
MESSAGE ENABLE,F_CODICE|CLEAR,1@|ENABLE,2@|ENABLE,F_DESCR
MESSAGE ENABLE,3@|RESET,3@|CLEAR,1@|ENABLE,2@
ITEM "DELIVACF|Delega C.F."
MESSAGE ENABLE,F_CODICE|CLEAR,1@|ENABLE,2@|ENABLE,F_DESCR
MESSAGE ENABLE,3@|RESET,3@|CLEAR,1@|ENABLE,2@
ITEM "DISIVACF|Distinta C.F."
MESSAGE ENABLE,F_CODICE|CLEAR,2@|ENABLE,1@|ENABLE,F_DESCR
MESSAGE ENABLE,3@|RESET,3@|CLEAR,2@|ENABLE,1@
ITEM "BOLIVACF|Bollettino C.F."
MESSAGE CLEAR,F_CODICE|CLEAR,2@|ENABLE,1@|DISABLE,F_DESCR
MESSAGE CLEAR,F_CODICE|CLEAR,2@|ENABLE,1@|CLEAR,F_DESCR
END
NUMBER F_CODICE 5
@ -27,12 +27,14 @@ BEGIN
OUTPUT F_CODICE CODPROF
OUTPUT F_DESCR DESC
FLAGS "UZ"
GROUP 3
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 1 2 "Descrizione "
GROUP 3
END
GROUPBOX DLG_NULL 70 5

View File

@ -96,8 +96,12 @@ int TStampa_deleghe_IVA::select()
_profilo = m.get(F_PROFILO);
_codice = m.get_long(F_CODICE);
const bool contofis = _profilo != "DEL";
const bool contofis = _profilo.right(2) == "CF";
int del_dis_bol=0;
if (_profilo.left(3) == "DIS") del_dis_bol = 2;
else
if (_profilo.left(3) == "BOL") del_dis_bol = 1;
//const TDate pd(m.get(F_DATA));
//printer().setdate(pd);
@ -126,6 +130,9 @@ int TStampa_deleghe_IVA::select()
const bool cf = anag.get_bool("TITCF");
if (contofis != cf) continue;
const int tstdel = anag.get_int("TIPOSTDEL");
if (tstdel != del_dis_bol) continue;
const long dit = _nditte->lfile().get_long("CODDITTA");
chiave.format("%05ld%04d%02d%d", dit, _anno, _mese, _tipo);
deleghe.put("CODTAB", chiave);

View File

@ -6,13 +6,13 @@ LIST F_PROFILO 8 16
BEGIN
PROMPT 1 1 "Stampa "
ITEM "DELIVA|Delega"
MESSAGE ENABLE,F_CODICE|CLEAR,1@|ENABLE,2@|ENABLE,F_DESCR
MESSAGE ENABLE,3@|RESET,3@|CLEAR,1@|ENABLE,2@
ITEM "DELIVACF|Delega C.F."
MESSAGE ENABLE,F_CODICE|CLEAR,1@|ENABLE,2@|ENABLE,F_DESCR
MESSAGE ENABLE,3@|RESET,3@|CLEAR,1@|ENABLE,2@
ITEM "DISIVACF|Distinta C.F."
MESSAGE ENABLE,F_CODICE|CLEAR,2@|ENABLE,1@|ENABLE,F_DESCR
MESSAGE ENABLE,3@|RESET,3@|CLEAR,2@|ENABLE,1@
ITEM "BOLIVACF|Bollettino C.F."
MESSAGE CLEAR,F_CODICE|CLEAR,2@|ENABLE,1@|DISABLE,F_DESCR
MESSAGE CLEAR,F_CODICE|CLEAR,2@|ENABLE,1@|CLEAR,F_DESCR
END
NUMBER F_CODICE 5
@ -27,12 +27,14 @@ BEGIN
OUTPUT F_CODICE CODPROF
OUTPUT F_DESCR DESC
FLAGS "UZ"
GROUP 3
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 1 2 "Descrizione "
GROUP 3
END
GROUPBOX DLG_NULL 70 5