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            :
Aggiunta la gestione dei message di lavanderia


git-svn-id: svn://10.65.10.50/branches/R_10_00@21332 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2010-12-17 16:08:38 +00:00
parent 1caf118fc7
commit c1f8c4c830
2 changed files with 36 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ve/ve1300.alx
View File

@ -44,4 +44,8 @@
: MESSAGE_TOTIMPONIBILI ( [n1] -- ) : MESSAGE_TOTIMPONIBILI ( [n1] -- )
DOC_TOT_IMPONIBILI \ user defined word in ve1.exe DOC_TOT_IMPONIBILI \ user defined word in ve1.exe
;
: MESSAGE_LV_DOT ( s1 -- )
DOC_LV_DOT \ user defined word in ve1.exe
; ;

33
ve/ve1300.cpp
View File

@ -20,6 +20,8 @@
#include <nditte.h> #include <nditte.h>
#include <multirel.h> #include <multirel.h>
#include "../lv/lvlib.h"
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
// TDoc_recordset // TDoc_recordset
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
@ -294,6 +296,7 @@ protected:
bool msg_riepilogo_iva(TVariant_stack& stack); bool msg_riepilogo_iva(TVariant_stack& stack);
bool msg_scadenze(TVariant_stack& stack); bool msg_scadenze(TVariant_stack& stack);
bool msg_tot_imponibili(TVariant_stack& stack); bool msg_tot_imponibili(TVariant_stack& stack);
bool msg_lv_dot(TVariant_stack& stack);
int set_printed_status(TDocumento& doc) const; int set_printed_status(TDocumento& doc) const;
@ -762,6 +765,32 @@ bool TReport_doc::msg_tot_imponibili(TVariant_stack& stack)
return true; return true;
} }
bool TReport_doc::msg_lv_dot(TVariant_stack& stack)
{
TReport_field& cf = *curr_field();
const TString& field = stack.pop().as_string();
if(field == "DOTOD" || field == "DOTMP" || field == "DOTIN")
{
const TRectype& rdoc = riga_doc();
const TDocumento& h = doc();
//instanzio un TArticolo_lavanderie per poter recuperare i dati di interesse
TArticolo_lavanderie& artrec = cached_article_laundry(rdoc.get(RDOC_CODARTMAG), h.get(DOC_TIPOCF)[0], h.get_long(DOC_CODCF), h.get_int(DOC_CODINDSP));
//setto datasc a oggi e fisso l'anno esercizio
TEsercizi_contabili& esc = esercizi();
const int last_esc = esc.last();
//estraggo il record corrispondente su LF_CLIFOGIAC
const TRecmag_lavanderie& reclav = artrec.find_rec(last_esc);
const TVariant x = reclav.get(field);
cf.set(x);
}
else
cf.set("");
return true;
}
size_t TReport_doc::get_usr_words(TString_array& words) const size_t TReport_doc::get_usr_words(TString_array& words) const
{ {
TReport::get_usr_words(words); TReport::get_usr_words(words);
@ -772,7 +801,8 @@ size_t TReport_doc::get_usr_words(TString_array& words) const
"DOC_PARENT_DOC", "DOC_PARENT_ROW", "DOC_PARENT_DOC", "DOC_PARENT_ROW",
"DOC_RIEPILOGO_IVA", "DOC_RIEPILOGO_IVA",
"DOC_SCADENZE", "DOC_SCADENZE",
"DOC_TOT_IMPONIBILI", "DOC_TOT_IMPONIBILI",
"DOC_LV_DOT",
NULL NULL
}; };
@ -798,6 +828,7 @@ bool TReport_doc::execute_usr_word(unsigned int opcode, TVariant_stack& stack)
case 3: msg_riepilogo_iva(stack); break; case 3: msg_riepilogo_iva(stack); break;
case 4: msg_scadenze(stack); break; case 4: msg_scadenze(stack); break;
case 5: msg_tot_imponibili(stack); break; case 5: msg_tot_imponibili(stack); break;
case 6: msg_lv_dot(stack); break;
default: ok = false; break; default: ok = false; break;
} }
stack.reset(); // Svuota eventuali parametri variabili inutilizzati stack.reset(); // Svuota eventuali parametri variabili inutilizzati