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

Corretto n. decimali e conseguenti casini

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2722 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1996-04-12 09:50:22 +00:00
parent 9f168594ce
commit 785f657ebd
1 changed files with 35 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
sc/sc2200.cpp
View File

@ -469,9 +469,9 @@ bool TStampaScadenzario::preprocess_page(int file, int counter)
_imp_pag = "";
if (_stvaluta && _codval != " ")
{
_imp_scad = imp_scad.string(".2");
_imp_scad = imp_scad.string(".3");
if (_w_imp_pag != 0.0)
_imp_pag=_w_imp_pag.string(".2");
_imp_pag=_w_imp_pag.string(".3");
}
else
{
@ -484,7 +484,7 @@ bool TStampaScadenzario::preprocess_page(int file, int counter)
case 1: // Rimesse dirette
if (_w_imp_res != 0.0)
{
if (_stvaluta && _codval != " ") _rimdir = _w_imp_res.string(".2");
if (_stvaluta && _codval != " ") _rimdir = _w_imp_res.string(".3");
else _rimdir=_w_imp_res.string(".");
}
break;
@ -492,14 +492,14 @@ bool TStampaScadenzario::preprocess_page(int file, int counter)
case 3:
if (_w_imp_res != 0.0)
{
if (_stvaluta && _codval != " ") _riba = _w_imp_res.string(".2");
if (_stvaluta && _codval != " ") _riba = _w_imp_res.string(".3");
else _riba=_w_imp_res.string(".");
}
break;
default: // Altri
if (_w_imp_res != 0.0)
{
if (_stvaluta && _codval != " ") _altri = _w_imp_res.string(".2");
if (_stvaluta && _codval != " ") _altri = _w_imp_res.string(".3");
else _altri=_w_imp_res.string(".");
}
break;
@ -974,7 +974,7 @@ void TStampaScadenzario::print_header()
set_header(soh++,"@28gRif.@38gData@47gData@77gCd/Tp@91g%s",(const char*)s1);
set_header(soh++,"Codice@9gRagione sociale@28gpartita@38gscadenza@47gRegistr."
"@56gDescrizione@77gPag.@86gRata@91g%s@97gVal."
"@106gImp. in sca.@124gImp. pagati@142gRimesse dir.@160gRi.ba./Tratte@178gAltri",(const char*)s2);
"@106gImp. in sca.@125gImp. pagati@144gRimesse dir.@163gRi.ba./Tratte@182gAltri",(const char*)s2);
set_header(soh++,"@28gData e Nr doc. @46gProt. IVA");
set_header(soh++,(const char *)rw);
break;
@ -991,7 +991,7 @@ void TStampaScadenzario::print_header()
set_header(soh++,"@33gRif.@43gData@53gData@82gCd/Tp");
set_header(soh++,"Gr. Co. So.@16gDescrizione@33gpartita@43gscadenza@53gRegistr."
"@61gDescrizione@82gPag.@89gRata@97gVal."
"@106gImp. in sca.@124gImp. pagati@142gRimesse dir.@160gRi.ba./Tratte@178gAltri");
"@106gImp. in sca.@125gImp. pagati@144gRimesse dir.@163gRi.ba./Tratte@182gAltri");
set_header(soh++,"@36gData e Nr doc. @54gProt. IVA");
@ -1020,11 +1020,11 @@ void TStampaScadenzario::set_page_clifo(int nriga)
if (_tipost == fornitori)
set_row(nriga,"@91g@5pn",FLD(LF_SCADENZE,SCAD_CODABIPR,"@@@@@"));
set_row(nriga,"@97g#t", &_codval);
set_row(nriga,"@101g#17t",&_imp_scad);
set_row(nriga,"@119g#17t",&_imp_pag);
set_row(nriga,"@137g#17t",&_rimdir); // rimesse dirette
set_row(nriga,"@155g#17t",&_riba); // Ri.ba. / tratte
set_row(nriga++,"@173g#17t",&_altri); // Altri tipi di pagamento
set_row(nriga,"@101g#18t",&_imp_scad);
set_row(nriga,"@120g#18t",&_imp_pag);
set_row(nriga,"@139g#18t",&_rimdir); // rimesse dirette
set_row(nriga,"@158g#18t",&_riba); // Ri.ba. / tratte
set_row(nriga++,"@177g#18t",&_altri); // Altri tipi di pagamento
set_row(nriga,"@31g#t",&_datadoc);
set_row(nriga,"@40g#t",&_numdoc);
set_row(nriga,"@49g#-5t",&_protiva);
@ -1042,11 +1042,11 @@ void TStampaScadenzario::set_page_pcon(int nriga)
set_row(nriga,"@82g@4,rs/@1n@89g@4n",FLD(LF_SCADENZE,SCAD_CODPAG),FLD(LF_SCADENZE,SCAD_TIPOPAG),
FLD(LF_SCADENZE,SCAD_NRATA));
set_row(nriga,"@97g#t", &_codval);
set_row(nriga,"@101g#17t",&_imp_scad);
set_row(nriga,"@119g#17t",&_imp_pag);
set_row(nriga,"@137g#17t",&_rimdir); // rimesse dirette
set_row(nriga,"@155g#17t",&_riba); // Ri.ba. / tratte
set_row(nriga++,"@173g#17t",&_altri); // Altri tipi di pagamento
set_row(nriga,"@101g#18t",&_imp_scad);
set_row(nriga,"@120g#18t",&_imp_pag);
set_row(nriga,"@139g#18t",&_rimdir); // rimesse dirette
set_row(nriga,"@158g#18t",&_riba); // Ri.ba. / tratte
set_row(nriga++,"@177g#17t",&_altri); // Altri tipi di pagamento
set_row(nriga,"@36g#t@45g#t@54g#-5t",&_datadoc,&_numdoc,&_protiva);
}
@ -1087,10 +1087,10 @@ void TStampaScadenzario::print_rows_riepilogo(int& nriga, bool type, TAssoc_arra
const int tipo = k[0]-'0';
const char ult = k[1];
if (_stvaluta && val != " ") value = v.string(".2");
if (_stvaluta && val != " ") value = v.string(".3");
else value = v.string(".");
if (v != 0.0)
set_row(nriga++,"@0g!@3g%s@25g!@27g%c@32g!@34g%s@39g!@42g%17s@59g!",
set_row(nriga++,"@0g!@3g%s@25g!@27g%c@32g!@34g%s@39g!@42g%18s@60g!",
tipi_tab[tipo], ult, (const char*) val, (const char*) value);
// Cerca la valuta "val" nell'assoc array dei totali per il prospetto
if (tot.is_key(val))
@ -1108,7 +1108,7 @@ void TStampaScadenzario::print_riepilogo(int &nriga, bool type)
// Setta le righe di stampa per lo schema riepilogativo con ordinamento primario per data
// Con type == 1 stampa il riepilogo del periodo; viceversa quello del mese.
{
TString s(60);
TString s(61);
TAssoc_array totali; // Assoc array per i totali distinti per valuta
TString_array as;
@ -1119,13 +1119,13 @@ void TStampaScadenzario::print_riepilogo(int &nriga, bool type)
{
if (_ordata)
{
set_row(nriga++,"@0g!@2g%s@59g!",itom(_cur_data.month()));
set_row(nriga++,"@0g!@2g%s@60g!",itom(_cur_data.month()));
set_row(nriga++,"%s",(const char*)s);
}
} else
{
set_row(nriga,"!@5gTotali dal %s al ",_datai.string(brief));
set_row(nriga++,"%s@59g!",_dataf.string(brief));
set_row(nriga++,"%s@60g!",_dataf.string(brief));
set_row(nriga++,"%s",(const char *)s);
}
print_rows_riepilogo(nriga, type, totali);
@ -1137,19 +1137,19 @@ void TStampaScadenzario::print_riepilogo(int &nriga, bool type)
TString val(as.row(i));
TString value;
real& tot = (real&)totali[val];
if (_stvaluta && val != " ") value = tot.string(".2");
if (_stvaluta && val != " ") value = tot.string(".3");
else value = tot.string(".");
if (tot != 0.0)
{
if (i == 0)
set_row(nriga++,"%s",(const char *)s); // Se c'e' almeno un totale != 0 allora stampa il separe'
set_row(nriga++,"!@34g%s@42g%17s@59g!",(const char*) val, (const char*) value);
set_row(nriga++,"!@34g%s@42g%18s@60g!",(const char*) val, (const char*) value);
}
else
{
if (val == " ") val = "LIT";
set_row(nriga++,"! Nessun valore totale in %s. @59g!",(const char*) val);
set_row(nriga++,"! Nessun valore totale in %s. @60g!",(const char*) val);
}
}
set_row(nriga++,"%s",(const char *)s);
@ -1182,26 +1182,26 @@ void TStampaScadenzario::print_rows_totali(int &nriga, tipo_pe p)
_LinearTotal& v = (_LinearTotal&)xassoc[k];
if (k != " ")
set_row(nriga,"@97g%3s",(const char*)k);
if (_stvaluta && k != " ") value = v._is.string(".2");
if (_stvaluta && k != " ") value = v._is.string(".3");
else value = v._is.string(".");
if (v._is != 0.0)
set_row(nriga,"@101g%17s",(const char*) value);
if (_stvaluta && k != " ") value = v._ip.string(".2");
set_row(nriga,"@101g%18s",(const char*) value);
if (_stvaluta && k != " ") value = v._ip.string(".3");
else value = v._ip.string(".");
if (v._ip != 0.0)
set_row(nriga,"@119g%17s",(const char*) value);
if (_stvaluta && k != " ") value = v._rd.string(".2");
set_row(nriga,"@120g%18s",(const char*) value);
if (_stvaluta && k != " ") value = v._rd.string(".3");
else value = v._rd.string(".");
if (v._rd != 0.0)
set_row(nriga,"@137g%17s",(const char*) value);
if (_stvaluta && k != " ") value = v._ri.string(".2");
set_row(nriga,"@139g%18s",(const char*) value);
if (_stvaluta && k != " ") value = v._ri.string(".3");
else value = v._ri.string(".");
if (v._ri != 0.0)
set_row(nriga,"@155g%17s",(const char*) value);
if (_stvaluta && k != " ") value = v._al.string(".2");
set_row(nriga,"@158g%18s",(const char*) value);
if (_stvaluta && k != " ") value = v._al.string(".3");
else value = v._al.string(".");
if (v._al != 0.0)
set_row(nriga,"@173g%17s",(const char*) value);
set_row(nriga,"@177g%18s",(const char*) value);
set_row(++nriga,"");
}
set_row(++nriga,"");