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

Patch level : 2.2 66

Browse Source 
Files correlati     :  ve1.exe
Ricompilazione Demo : [ ]
Commento            :

spostato il messaggio ditta (MESSAGE_DITTA o FIRM ) nei report


git-svn-id: svn://10.65.10.50/trunk@12880 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2005-03-31 22:21:15 +00:00
parent 1ba41a0b48
commit 8200acbd8b
2 changed files with 15 additions and 115 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ve/ve1300.alx
View File

@ -21,10 +21,6 @@
DOC_CLIENTE \ user defined word in ve1.exe DOC_CLIENTE \ user defined word in ve1.exe
; ;
: MESSAGE_DITTA ( s1 -- )
DOC_DITTA \ user defined word in ve1.exe
;
: MESSAGE_PARENTDOC ( [b1] s1 n1 -- ) : MESSAGE_PARENTDOC ( [b1] s1 n1 -- )
DOC_PARENT_DOC \ user defined word in ve1.exe DOC_PARENT_DOC \ user defined word in ve1.exe
; ;

126
ve/ve1300.cpp
View File

@ -160,7 +160,7 @@ TDoc_recordset::~TDoc_recordset()
class TReport_doc : public TReport class TReport_doc : public TReport
{ {
size_t _first_msg; size_t _first_msg;
TRelation _firmrel; // TRelation _firmrel;
protected: protected:
virtual void include_libraries(bool reload); virtual void include_libraries(bool reload);
@ -173,7 +173,6 @@ protected:
void reset_values(const TString& output); void reset_values(const TString& output);
bool msg_cliente(TVariant_stack& stack); bool msg_cliente(TVariant_stack& stack);
bool msg_ditta(TVariant_stack& stack);
bool msg_parent_doc(TVariant_stack& stack); bool msg_parent_doc(TVariant_stack& stack);
bool msg_parent_row(TVariant_stack& stack); bool msg_parent_row(TVariant_stack& stack);
bool msg_riepilogo_iva(TVariant_stack& stack); bool msg_riepilogo_iva(TVariant_stack& stack);
@ -360,100 +359,6 @@ bool TReport_doc::msg_cliente(TVariant_stack& stack)
return false; return false;
} }
bool TReport_doc::msg_ditta(TVariant_stack& stack)
{
TReport_field& cf = *curr_field();
TString in = stack.pop().as_string();
TString valore;
if (in[0]!='!')
{
cf.set(_firmrel.curr().get(in));
return true;
}
in.ltrim(1);
const bool is_fisc = _firmrel.curr(LF_ANAG).get("INDRF").not_empty();
if (in=="RAGSOC")
{
valore = _firmrel.curr().get(NDT_RAGSOC);
cf.set(valore);
return true;
}
if (in=="IND")
{
valore = _firmrel.curr(LF_ANAG).get(is_fisc ? "INDRF" : "INDRES");
cf.set(valore);
return true;
}
if (in=="NUM")
{
valore = _firmrel.curr(LF_ANAG).get(is_fisc ? "CIVRF" : "CIVRES");
cf.set(valore);
return true;
}
if (in=="CAP")
{
valore = _firmrel.curr(LF_ANAG).get(is_fisc ? "CAPRF" : "CAPRES");
cf.set(valore);
return true;
}
if (in=="COM")
{
valore = _firmrel.curr(is_fisc ? -213 : -113).get(COM_DENCOM);
cf.set(valore);
return true;
}
if (in=="PROV")
{
valore = _firmrel.curr(is_fisc ? -213 : -113).get(COM_PROVCOM);
cf.set(valore);
return true;
}
if (in=="IVA")
{
cf.set(_firmrel.curr(LF_ANAG).get("PAIV"));
return true;
}
if (in=="CF")
{
cf.set(_firmrel.curr(LF_ANAG).get("COFI"));
return true;
}
if (in=="TEL")
{
valore = _firmrel.lfile().get("PTEL");
valore << "/" << _firmrel.lfile().get("TEL");
cf.set(valore);
return true;
}
if (in=="FAX")
{
valore = _firmrel.lfile().get("PFAX");
valore << "/" << _firmrel.lfile().get("FAX");
cf.set(valore);
return true;
}
if (in=="REGSOC")
{
valore = _firmrel[LF_UNLOC].get("REGIMP");
valore.insert(" ", 2); valore.insert(" ", 6);
valore.insert(" ", 11); valore.insert(" ", 21);
valore.insert("Reg.Imp. ", 0);
cf.set(valore);
return true;
}
if (in=="CCIAA")
{
valore = _firmrel[LF_UNLOC].get("NUMCCIAA");
const TString & data = _firmrel[LF_UNLOC].get("DATAICCIAA");
if (data.not_empty())
valore << " del " << data;
cf.set(valore);
return true;
}
return false;
}
void TReport_doc::output_values(const TRectype& rec, const TString& output) void TReport_doc::output_values(const TRectype& rec, const TString& output)
{ {
TToken_string out(output, '!'); TToken_string out(output, '!');
@ -670,7 +575,6 @@ size_t TReport_doc::get_usr_words(TString_array& words) const
const char* const name[] = const char* const name[] =
{ {
"DOC_CLIENTE", "DOC_CLIENTE",
"DOC_DITTA",
"DOC_PARENT_DOC", "DOC_PARENT_ROW", "DOC_PARENT_DOC", "DOC_PARENT_ROW",
"DOC_RIEPILOGO_IVA", "DOC_RIEPILOGO_IVA",
"DOC_SCADENZE", "DOC_SCADENZE",
@ -694,12 +598,11 @@ bool TReport_doc::execute_usr_word(unsigned int opcode, TVariant_stack& stack)
switch (opcode) switch (opcode)
{ {
case 0 : msg_cliente(stack); break; case 0 : msg_cliente(stack); break;
case 1 : msg_ditta(stack); break; case 1 : msg_parent_doc(stack); break;
case 2 : msg_parent_doc(stack); break; case 2 : msg_parent_row(stack); break;
case 3 : msg_parent_row(stack); break; case 3 : msg_riepilogo_iva(stack); break;
case 4 : msg_riepilogo_iva(stack); break; case 4 : msg_scadenze(stack); break;
case 5 : msg_scadenze(stack); break; case 5 : msg_tot_imponibili(stack); break;
case 6 : msg_tot_imponibili(stack); break;
default: break; default: break;
} }
@ -716,15 +619,16 @@ void TReport_doc::include_libraries(bool reload)
} }
TReport_doc::TReport_doc(const char* name) TReport_doc::TReport_doc(const char* name)
: _firmrel(LF_NDITTE) // : _firmrel(LF_NDITTE)
{ {
// istanziamento e impostazione della relazione di gestione della ditta corrente // istanziamento e impostazione della relazione di gestione della ditta corrente
_firmrel.add(LF_ANAG, "TIPOA=TIPOA|CODANAGR=CODANAGR"); // _firmrel.add(LF_ANAG, "TIPOA=TIPOA|CODANAGR=CODANAGR");
_firmrel.add(LF_UNLOC,"CODDITTA=CODDITTA"); // si posiziona sulla prima unita' locale della ditta // _firmrel.add(LF_UNLOC,"CODDITTA=CODDITTA"); // si posiziona sulla prima unita' locale della ditta//
_firmrel.add(LF_COMUNI, "STATO=STATORES|COM=COMRES", 1, LF_ANAG, 100+LF_COMUNI); // _firmrel.add(LF_COMUNI, "COM=STATORES+COMRES", 1, LF_ANAG, 100+LF_COMUNI);
_firmrel.add(LF_COMUNI, "STATO=STATORES|COM=COMRF", 1, LF_ANAG, 200+LF_COMUNI); // _firmrel.add(LF_COMUNI, "COM=STATORES+COMRF", 1, LF_ANAG, 200+LF_COMUNI);
_firmrel.curr().put(NDT_CODDITTA, prefix().get_codditta()); // _firmrel.curr().put(NDT_CODDITTA, prefix().get_codditta());
_firmrel.read(); // _firmrel.read();
load(name); // Faccio la load altrimenti non include la libreria 1300.alx load(name); // Faccio la load altrimenti non include la libreria 1300.alx
} }
@ -978,4 +882,4 @@ int ve1300(int argc, char* argv[])
TReport_doc_app a; TReport_doc_app a;
a.run(argc, argv, TR("Stampa documenti")); a.run(argc, argv, TR("Stampa documenti"));
return (0); return (0);
} }