31781521f5
Files correlati : ca1.exe Ricompilazione Demo : [ ] Commento : Prima bozza stampe anagrafiche git-svn-id: svn://10.65.10.50/trunk@12881 c028cbd2-c16b-5b4b-a496-9718f37d4682
92 lines
2.3 KiB
C++
Executable File
92 lines
2.3 KiB
C++
Executable File
#include <xvt.h>
|
|
|
|
#include "calib01.h"
|
|
#include "calib02.h"
|
|
|
|
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();
|
|
}
|
|
|
|
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;
|
|
}
|
|
|
|
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);
|
|
}
|