845b53fc60
Files correlati : ca3 Ricompilazione Demo : [ ] Commento : Stampa bilanci anali...tici git-svn-id: svn://10.65.10.50/trunk@13210 c028cbd2-c16b-5b4b-a496-9718f37d4682
129 lines
3.4 KiB
C++
Executable File
129 lines
3.4 KiB
C++
Executable File
#include <xvt.h>
|
|
|
|
#include "calib01.h"
|
|
#include "calib02.h"
|
|
|
|
bool TAnal_report::get_usr_val(const TString& name, TVariant& var) const
|
|
{
|
|
// CODCONTO:1, CODCMS:3, FASCMS:2, ecc...
|
|
const int namelen = name.len();
|
|
if (namelen >= 6 && name[namelen-2] == ':')
|
|
{
|
|
int logicnum = 0;
|
|
if (name.starts_with("CODCONTO:"))
|
|
logicnum = LF_PCONANA; else
|
|
if (name.starts_with("CODCMS:"))
|
|
logicnum = LF_COMMESSE; else
|
|
if (name.starts_with("CODCOSTO:"))
|
|
logicnum = LF_CDC; else
|
|
if (name.starts_with("FASCMS:"))
|
|
logicnum = LF_FASI;
|
|
if (logicnum > 0)
|
|
{
|
|
const TMultilevel_code_info& mci = ca_multilevel_code_info(logicnum);
|
|
const int level = name[namelen-1]-'1';
|
|
if (level < mci.levels())
|
|
{
|
|
TString16 fldname = name; fldname.cut(namelen-2);
|
|
TFieldref field = mci.fieldref(level);
|
|
field.set_name(fldname);
|
|
field.set_from(0);
|
|
fldname.cut(0) << field; // Trasformo il TFieldref in stringa!
|
|
get_record_field(fldname, var);
|
|
}
|
|
else
|
|
var.set_null();
|
|
return true;
|
|
}
|
|
}
|
|
return TReport::get_usr_val(name, var);
|
|
}
|
|
|
|
size_t TAnal_report::get_usr_words(TString_array& words) const
|
|
{
|
|
TReport::get_usr_words(words);
|
|
|
|
const char* const name[] =
|
|
{
|
|
"CA_FORMAT_COSTO",
|
|
"CA_FORMAT_COMMESSA",
|
|
"CA_FORMAT_FASE",
|
|
"CA_FORMAT_CONTO",
|
|
"CA_FORMAT_CMSCDC",
|
|
NULL
|
|
};
|
|
|
|
((TAnal_report*)this)->_first_msg = words.items(); // Calcola il primo numero disponibile
|
|
size_t i;
|
|
for (i = 0; name[i] != NULL; i++)
|
|
words.add(name[i]);
|
|
|
|
return words.items();
|
|
}
|
|
|
|
void TAnal_report::msg_format(int logicnum, TVariant_stack& stack)
|
|
{
|
|
const TString& str_in = curr_field()->get().as_string();
|
|
if (str_in.not_empty())
|
|
{
|
|
TString80 separator = " ";
|
|
if (stack.items() > 0)
|
|
separator = stack.pop().as_string();
|
|
if (separator.not_empty())
|
|
{
|
|
const TMultilevel_code_info& mci = ca_multilevel_code_info(logicnum);
|
|
TString str_out;
|
|
for (int i = 0; i < mci.levels(); i++)
|
|
{
|
|
const TFieldref& fld = mci.fieldref(i);
|
|
const TString& str = str_in.sub(fld.from(), fld.to());
|
|
if (str.not_empty())
|
|
{
|
|
if (i > 0) str_out << separator;
|
|
str_out << str;
|
|
}
|
|
else
|
|
break;
|
|
}
|
|
curr_field()->set(str_out);
|
|
}
|
|
}
|
|
}
|
|
|
|
void TAnal_report::msg_format_costo (TVariant_stack& stack)
|
|
{ msg_format(LF_CDC, stack); }
|
|
|
|
void TAnal_report::msg_format_commessa(TVariant_stack& stack)
|
|
{ msg_format(LF_COMMESSE, stack); }
|
|
|
|
void TAnal_report::msg_format_fase (TVariant_stack& stack)
|
|
{ msg_format(LF_FASI, stack); }
|
|
|
|
void TAnal_report::msg_format_conto (TVariant_stack& stack)
|
|
{ msg_format(LF_PCONANA, stack); }
|
|
|
|
void TAnal_report::msg_format_commessa_costo(TVariant_stack& stack)
|
|
{
|
|
const TMultilevel_code_info& main_info = ca_multilevel_code_info(LF_FASI);
|
|
|
|
msg_format(main_info.parent(), stack);
|
|
}
|
|
|
|
bool TAnal_report::execute_usr_word(unsigned int opcode, TVariant_stack& stack)
|
|
{
|
|
if (opcode < _first_msg)
|
|
return TReport::execute_usr_word(opcode, stack);
|
|
opcode -= _first_msg;
|
|
switch (opcode)
|
|
{
|
|
case 0 : msg_format_costo(stack); break;
|
|
case 1 : msg_format_commessa(stack); break;
|
|
case 2 : msg_format_fase(stack); break;
|
|
case 3 : msg_format_conto(stack); break;
|
|
case 4 : msg_format_commessa_costo(stack); break;
|
|
default: break;
|
|
}
|
|
return true;
|
|
}
|
|
|