Patch level : 2.1 94
Files correlati : 777.exe 77qla.frm 77qst.frm Ricompilazione Demo : [ ] Commento : 0000171 Bisogna Aggiornare l'invio ministeriale del 770 secondo le specifiche di quest'anno git-svn-id: svn://10.65.10.50/trunk@12258 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
76c88609d7
commit
ecf6b69682
@ -243,7 +243,7 @@ bool TForm770::validate(TForm_item &cf, TToken_string &s)
|
||||
TString8 str;
|
||||
str.format("%02d%04d", mese, anno);
|
||||
cf.set(str);
|
||||
return TRUE;
|
||||
return true;
|
||||
}
|
||||
return TForm::validate(cf, s);
|
||||
}
|
||||
@ -357,18 +357,18 @@ void TForm770::transfer_section(TPrint_section& body, int rigo,
|
||||
bool TForm770::compatible(const TRectype& r1, const TRectype& r2)
|
||||
{
|
||||
if (r1.empty() || r2.empty())
|
||||
return TRUE;
|
||||
return true;
|
||||
|
||||
if (r1.get_long(QUC_CODDITTA) != r2.get_long(QUC_CODDITTA))
|
||||
return FALSE;
|
||||
return false;
|
||||
if (r1.get_char(QUC_TIPOA) != r2.get_char(QUC_TIPOA))
|
||||
return FALSE;
|
||||
return false;
|
||||
if (r1.get_long(QUC_CODANAGR) != r2.get_long(QUC_CODANAGR))
|
||||
return FALSE;
|
||||
return false;
|
||||
if (r1.get_char(QUC_CAUSALE) != r2.get_char(QUC_CAUSALE))
|
||||
return FALSE;
|
||||
return false;
|
||||
if (r1.get_int(QUC_TASSAZIONE) != r2.get_int(QUC_TASSAZIONE))
|
||||
return FALSE;
|
||||
return false;
|
||||
|
||||
const real p1 = r1.get_real(QUC_PERC);
|
||||
const real p2 = r2.get_real(QUC_PERC);
|
||||
@ -403,7 +403,7 @@ long TForm770::raggruppa_c()
|
||||
_records.destroy();
|
||||
for (cur = 0; cur.ok(); ++cur)
|
||||
{
|
||||
bool append = TRUE;
|
||||
bool append = true;
|
||||
const int last = _records.items()-1;
|
||||
if (last >= 0)
|
||||
{
|
||||
@ -411,7 +411,7 @@ long TForm770::raggruppa_c()
|
||||
if (compatible(sum, rc))
|
||||
{
|
||||
add_rec(sum, rc);
|
||||
append = FALSE;
|
||||
append = false;
|
||||
}
|
||||
}
|
||||
if (append)
|
||||
@ -482,7 +482,7 @@ long TForm770::trasfer(long codditta, TTrasferimento770& file,
|
||||
const long items = cur.items();
|
||||
if (items > 0) // Se c'e almeno un record ...
|
||||
{
|
||||
cur.freeze(TRUE); // Per efficienza congela il cursore
|
||||
cur.freeze(true); // Per efficienza congela il cursore
|
||||
|
||||
// Inizializza record col primo modulo
|
||||
TRecord770 rec(rectype);
|
||||
@ -518,7 +518,7 @@ long TForm770::trasfer(long codditta, TTrasferimento770& file,
|
||||
if (rec.ha_campi_non_posizionali_compilati())
|
||||
file << rec;
|
||||
|
||||
cur.freeze(FALSE);
|
||||
cur.freeze(false);
|
||||
}
|
||||
|
||||
return items;
|
||||
@ -1002,7 +1002,7 @@ bool TTrasferimento770::open(const char* path, char mode)
|
||||
else
|
||||
_out_stream = new ofstream(_name, ios::out | ios::binary);
|
||||
|
||||
return TRUE;
|
||||
return true;
|
||||
}
|
||||
|
||||
bool TTrasferimento770::close()
|
||||
@ -1017,7 +1017,7 @@ bool TTrasferimento770::close()
|
||||
delete _out_stream;
|
||||
_out_stream = NULL;
|
||||
}
|
||||
return TRUE;
|
||||
return true;
|
||||
}
|
||||
|
||||
bool TTrasferimento770::write(const TRecord770& rec)
|
||||
@ -1103,14 +1103,14 @@ bool TTrasferimento770::split(const char* path)
|
||||
if (!yesno_box("Inserire il primo disco del trasferimento nell'unita' %s\n"
|
||||
"Tutti i dischi devono essere vuoti ed avere la stesso formato.\n"
|
||||
"Si desidera iniziare il trasferimento?", path))
|
||||
return FALSE;
|
||||
return false;
|
||||
|
||||
unsigned long disk_size = ::xvt_fsys_get_disk_size(path, 'b') != 0;
|
||||
records_per_disk = long(disk_size / TOTAL_SIZE) - 3; // Tolgo A,B,Z
|
||||
volumes = int((records-1)/records_per_disk)+1;
|
||||
}
|
||||
|
||||
TProgind pi(records, "Trasferimento records", FALSE, TRUE);
|
||||
TProgind pi(records, "Trasferimento records", false, true);
|
||||
|
||||
// Read from start
|
||||
open("", 'r');
|
||||
@ -1174,7 +1174,7 @@ bool TTrasferimento770::split(const char* path)
|
||||
outfile << rec;
|
||||
*/
|
||||
}
|
||||
return TRUE;
|
||||
return true;
|
||||
}
|
||||
|
||||
// Cancella il file
|
||||
@ -1224,7 +1224,7 @@ bool TTransfer770_msk::on_field_event(TOperable_field& of, TField_event fe, long
|
||||
default:
|
||||
break;
|
||||
}
|
||||
return TRUE;
|
||||
return true;
|
||||
}
|
||||
|
||||
TTransfer770_msk::TTransfer770_msk() : TAutomask("777100a")
|
||||
@ -1257,7 +1257,7 @@ void TTransfer770_app::main_loop()
|
||||
filter << "ANNODIC=" << anno_dic();
|
||||
TCursor cur_base(&rel_base, filter, 1, &da_rec, &a_rec);
|
||||
|
||||
TProgind pi(cur_base.items(), "Generazione file di trasferimento", FALSE, TRUE);
|
||||
TProgind pi(cur_base.items(), "Generazione file di trasferimento", false, true);
|
||||
cur_base.freeze();
|
||||
for (cur_base = 0; cur_base.ok(); ++cur_base)
|
||||
{
|
||||
|
||||
@ -264,56 +264,73 @@ END
|
||||
|
||||
NUMBER 23
|
||||
BEGIN
|
||||
KEY "Ritenute operate"
|
||||
KEY "Ritenute operate a titolo di acconto"
|
||||
PROMPT 109 9 ""
|
||||
FIELD IMPORTO
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "AU001023" ""
|
||||
SPECIAL STRING DYLOG "NU,273,11" ""
|
||||
END
|
||||
|
||||
|
||||
NUMBER 24
|
||||
BEGIN
|
||||
KEY "RITENUTE SOSPESE"
|
||||
KEY "Ritenute operate a titolo di imposta"
|
||||
PROMPT 109 9 ""
|
||||
FIELD RITSOSPESE
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "AU001024" ""
|
||||
SPECIAL STRING DYLOG "NU,284,11" ""
|
||||
SPECIAL STRING DYLOG "NU,273,11" ""
|
||||
END
|
||||
|
||||
NUMBER 25
|
||||
BEGIN
|
||||
KEY "ADDIZIONALE REGIONALE"
|
||||
KEY "RITENUTE SOSPESE"
|
||||
PROMPT 109 9 ""
|
||||
FIELD ADDREG
|
||||
FIELD RITSOSPESE
|
||||
SPECIAL STRING TRASFER "AU001025" ""
|
||||
SPECIAL STRING DYLOG "NU,295,11" ""
|
||||
SPECIAL STRING DYLOG "NU,284,11" ""
|
||||
END
|
||||
|
||||
NUMBER 26
|
||||
BEGIN
|
||||
KEY "ADDIZIONALE REGIONALE SOSPESA"
|
||||
KEY "ADDIZIONALE REGIONALE a titolo di acconto"
|
||||
PROMPT 109 9 ""
|
||||
FIELD ADDREGSOSP
|
||||
FIELD ADDREG
|
||||
SPECIAL STRING TRASFER "AU001026" ""
|
||||
SPECIAL STRING DYLOG "NU,306,11" ""
|
||||
SPECIAL STRING DYLOG "NU,295,11" ""
|
||||
END
|
||||
|
||||
NUMBER 27
|
||||
BEGIN
|
||||
KEY "IMPONIBILE ANNI PRECEDENTI"
|
||||
KEY "ADDIZIONALE REGIONALE a titolo di imposta"
|
||||
PROMPT 109 9 ""
|
||||
FIELD IMPANNIPRE
|
||||
SPECIAL STRING TRASFER "AU001027" ""
|
||||
SPECIAL STRING DYLOG "NU,317,11" ""
|
||||
SPECIAL STRING DYLOG "NU,295,11" ""
|
||||
END
|
||||
|
||||
NUMBER 28
|
||||
BEGIN
|
||||
KEY "ADDIZIONALE REGIONALE SOSPESA"
|
||||
PROMPT 109 9 ""
|
||||
FIELD ADDREGSOSP
|
||||
SPECIAL STRING TRASFER "AU001028" ""
|
||||
SPECIAL STRING DYLOG "NU,306,11" ""
|
||||
END
|
||||
|
||||
NUMBER 29
|
||||
BEGIN
|
||||
KEY "IMPONIBILE ANNI PRECEDENTI"
|
||||
PROMPT 109 9 ""
|
||||
FIELD IMPANNIPRE
|
||||
SPECIAL STRING TRASFER "AU001029" ""
|
||||
SPECIAL STRING DYLOG "NU,317,11" ""
|
||||
END
|
||||
|
||||
NUMBER 30
|
||||
BEGIN
|
||||
KEY "RITENUTE ANNI PRECEDENTI"
|
||||
PROMPT 109 9 ""
|
||||
FIELD RITANNIPRE
|
||||
SPECIAL STRING TRASFER "AU001028" ""
|
||||
SPECIAL STRING TRASFER "AU001030" ""
|
||||
SPECIAL STRING DYLOG "NU,328,11" ""
|
||||
END
|
||||
|
||||
|
||||
@ -47,7 +47,7 @@ BEGIN
|
||||
KEY "RITENUTE"
|
||||
PROMPT 79 2 ""
|
||||
FIELD QLRITEFF
|
||||
SPECIAL STRINGA TRASFER "ST002002" ""
|
||||
SPECIAL STRINGA TRASFER "ST002002" "CU"
|
||||
SPECIAL STRINGA DYLOG "NU,6,11" ""
|
||||
END
|
||||
|
||||
@ -56,22 +56,22 @@ BEGIN
|
||||
KEY "RITENUTE NON VERSATE PER ECCESSO E RESTITUZIONI"
|
||||
PROMPT 79 2 ""
|
||||
FIELD QLRITVEREC
|
||||
SPECIAL STRINGA TRASFER "ST002003" ""
|
||||
SPECIAL STRINGA TRASFER "ST002003" "CU"
|
||||
SPECIAL STRINGA DYLOG "NU,17,11" ""
|
||||
END
|
||||
|
||||
NUMERO 4
|
||||
BEGIN
|
||||
KEY "RITENUTE NON VERSATE PER CREDITI"
|
||||
KEY "RITENUTE COMPENSATE CON CREDITI D'IMPOSTA"
|
||||
PROMPT 79 2 ""
|
||||
FIELD QLRITCOMP
|
||||
SPECIAL STRINGA TRASFER "ST002004" ""
|
||||
SPECIAL STRINGA TRASFER "ST002004" "CU"
|
||||
SPECIAL STRINGA DYLOG "NU,28,11" ""
|
||||
END
|
||||
|
||||
NUMERO 5
|
||||
BEGIN
|
||||
KEY "DIFFERENZA"
|
||||
KEY "IMPORTO VERSATO"
|
||||
PROMPT 79 2 ""
|
||||
MESSAGE _NUMEXPR,#2-#3-#4
|
||||
SPECIAL STRINGA TRASFER "ST002005" "CU"
|
||||
@ -83,7 +83,7 @@ BEGIN
|
||||
KEY "INTERESSI VERSATI"
|
||||
PROMPT 79 2 ""
|
||||
FIELD QLINTERESS
|
||||
SPECIAL STRINGA TRASFER "ST002006" ""
|
||||
SPECIAL STRINGA TRASFER "ST002006" "CU"
|
||||
SPECIAL STRINGA DYLOG "NU,50,11" ""
|
||||
END
|
||||
|
||||
@ -106,60 +106,49 @@ BEGIN
|
||||
END
|
||||
|
||||
STRINGA 9
|
||||
BEGIN
|
||||
KEY "Diversa valuta"
|
||||
PROMPT 79 2 ""
|
||||
FIELD QLVALDIV
|
||||
SPECIAL STRINGA TRASFER "ST002009" ""
|
||||
SPECIAL STRINGA DYLOG "AN,81,1" ""
|
||||
END
|
||||
|
||||
STRINGA 10
|
||||
BEGIN
|
||||
KEY "CODICE TRIBUTO"
|
||||
PROMPT 79 2 ""
|
||||
FIELD QLCT
|
||||
SPECIAL STRINGA TRASFER "ST002010" "AN"
|
||||
SPECIAL STRINGA TRASFER "ST002009" "AN"
|
||||
SPECIAL STRINGA DYLOG "AN,82,4" ""
|
||||
END
|
||||
|
||||
STRINGA 11
|
||||
BEGIN
|
||||
KEY "ARTICOLO"
|
||||
PROMPT 79 2 ""
|
||||
FIELD QLAB
|
||||
SPECIAL STRINGA TRASFER "ST002011" ""
|
||||
SPECIAL STRINGA DYLOG "NU,86,2" ""
|
||||
END
|
||||
|
||||
LISTA 120
|
||||
LISTA 100
|
||||
BEGIN
|
||||
KEY "Tesoreria"
|
||||
PROMPT 79 2 ""
|
||||
FIELD QLLV
|
||||
ITEM " | " MESSAGE " ",12
|
||||
ITEM "C| " MESSAGE " ",12
|
||||
ITEM "T|X" MESSAGE "X",12
|
||||
ITEM " | " MESSAGE " ",10
|
||||
ITEM "C| " MESSAGE " ",10
|
||||
ITEM "T|X" MESSAGE "X",10
|
||||
END
|
||||
|
||||
STRINGA 12
|
||||
STRINGA 10
|
||||
BEGIN
|
||||
KEY "Tesoreria"
|
||||
PROMPT 79 2 ""
|
||||
SPECIAL STRINGA TRASFER "ST002012" "BO"
|
||||
SPECIAL STRINGA TRASFER "ST002010" "BO"
|
||||
SPECIAL STRINGA DYLOG "AN,88,1" ""
|
||||
END
|
||||
|
||||
NUMERO 14
|
||||
|
||||
END
|
||||
|
||||
NUMERO 13
|
||||
|
||||
NUMERO 11
|
||||
BEGIN
|
||||
KEY "Regione"
|
||||
PROMPT 79 2 ""
|
||||
SPECIAL STRINGA TRASFER "ST002013" "NU"
|
||||
SPECIAL STRINGA TRASFER "ST002011" "NU"
|
||||
SPECIAL STRINGA DYLOG "NU,89,2" ""
|
||||
FIELD QLREGIONE
|
||||
END
|
||||
END
|
||||
|
||||
NUMERO 12
|
||||
BEGIN
|
||||
KEY "Data versamento"
|
||||
PROMPT 79 2 ""
|
||||
SPECIAL STRINGA TRASFER "ST002012" "NU"
|
||||
FIELD QLDV
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user