Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@17519 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2008-10-31 10:33:32 +00:00
parent 03397b3e62
commit 9365854f44
2 changed files with 16 additions and 12 deletions

View File

@ -28,7 +28,7 @@ BEGIN
FLAGS "U" FLAGS "U"
END END
TEXT -1 TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 5 "@bNumerazioni/Tipi documenti da considerare" PROMPT 1 5 "@bNumerazioni/Tipi documenti da considerare"
END END

View File

@ -87,7 +87,7 @@ void TIndustriosa_app::get_field(const TDocumento& doc, const TRectype& mov, TCa
if (field[0] == '_') if (field[0] == '_')
{ {
val.cut(0); val.cut(0);
if (stricmp(field, "_CANTIERE") == 0) if (xvt_str_compare_ignoring_case(field, "_CANTIERE") == 0)
{ {
TString cms, fas; TString cms, fas;
cms = rec.get(RDOC_CODCMS); cms = rec.get(RDOC_CODCMS);
@ -102,21 +102,21 @@ void TIndustriosa_app::get_field(const TDocumento& doc, const TRectype& mov, TCa
trim_and_cut(fas, _len_fase); trim_and_cut(fas, _len_fase);
val << cms << fas; val << cms << fas;
} else } else
if (stricmp(field, "_CODCAUS") == 0) if (xvt_str_compare_ignoring_case(field, "_CODCAUS") == 0)
{ {
val = causale.codice(); val = causale.codice();
} else } else
if (stricmp(field, "_CONINDU") == 0) if (xvt_str_compare_ignoring_case(field, "_CONINDU") == 0)
{ {
conto_industriale((TRiga_documento&)rec, val); conto_industriale((TRiga_documento&)rec, val);
} else } else
if (stricmp(field, "_IMPORTO") == 0) if (xvt_str_compare_ignoring_case(field, "_IMPORTO") == 0)
{ {
TCurrency_documento imp(((TRiga_documento&)rec).importo(TRUE, FALSE), doc); TCurrency_documento imp(((TRiga_documento&)rec).importo(TRUE, FALSE), doc);
imp.change_to_firm_val(); imp.change_to_firm_val();
val = imp.get_num().stringa(); val = imp.get_num().stringa();
} else } else
if (stricmp(field, "_IMPORTOVAL") == 0) if (xvt_str_compare_ignoring_case(field, "_IMPORTOVAL") == 0)
{ {
if (doc.in_valuta()) if (doc.in_valuta())
{ {
@ -124,7 +124,7 @@ void TIndustriosa_app::get_field(const TDocumento& doc, const TRectype& mov, TCa
val = imp.get_num().stringa(); val = imp.get_num().stringa();
} }
} else } else
if (stricmp(field, "_IMPOSTADOC") == 0) if (xvt_str_compare_ignoring_case(field, "_IMPOSTADOC") == 0)
{ {
TString16 conto; TString16 conto;
real impval; real impval;
@ -139,12 +139,12 @@ void TIndustriosa_app::get_field(const TDocumento& doc, const TRectype& mov, TCa
imposta.change_to_firm_val(); imposta.change_to_firm_val();
val = imposta.get_num().stringa(); val = imposta.get_num().stringa();
} else } else
if (stricmp(field, "_SEZIONE") == 0) if (xvt_str_compare_ignoring_case(field, "_SEZIONE") == 0)
{ {
const char str[2] = { causale.sezione(2), '\0' }; const char str[2] = { causale.sezione(2), '\0' };
val = str; val = str;
} else } else
if (stricmp(field, "_TOTDOC") == 0) if (xvt_str_compare_ignoring_case(field, "_TOTDOC") == 0)
{ {
TString16 conto; TString16 conto;
real totval; real totval;
@ -187,21 +187,25 @@ void TIndustriosa_app::get_field(const TDocumento& doc, const TRectype& mov, TCa
val = n.stringa(); val = n.stringa();
} }
break; break;
case _nullfld: val.cut(0); break; case _nullfld:
val.cut(0);
break;
case _realfld: case _realfld:
{ {
const real n(r->get(field)); const real n(r->get(field));
if (!n.is_zero()) if (!n.is_zero())
{ {
val = n.stringa(); val = n.stringa();
if (val[0] == '-' && r->num() == LF_MOV && strcmp(field, MOV_TOTDOC) == 0) if (val[0] == '-' && r->num() == LF_MOV && xvt_str_compare_ignoring_case(field, MOV_TOTDOC) == 0)
val.ltrim(1); val.ltrim(1);
} }
else else
val.cut(0); val.cut(0);
} }
break; break;
default: val = r->get(field); break; default:
val = r->get(field);
break;
} }
} }
} }