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

Patch level :

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ve/ve0200h.uml
View File

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

26
ve/ve6600.cpp
View File

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