Patch level :10.0 peronalizzazione
Files correlati : Ricompilazione Demo : [ ] Commento : prima stesura della personalizzazione HK; ancora non va! git-svn-id: svn://10.65.10.50/trunk@19125 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca
parent
37d43268ca
commit
3587bb603a
15
ps/pg0068.cpp
Executable file
15
ps/pg0068.cpp
Executable file
@ -0,0 +1,15 @@
|
|||||||
|
#include <xvt.h>
|
||||||
|
|
||||||
|
#include "pg0068.h"
|
||||||
|
|
||||||
|
int main( int argc, char** argv )
|
||||||
|
{
|
||||||
|
const int r = (argc > 1) ? argv[1][1]-'0' : -1;
|
||||||
|
|
||||||
|
switch (r)
|
||||||
|
{
|
||||||
|
case 0: pg0068100(argc, argv); break; // contabilizzazione Hair Kulture
|
||||||
|
default: break;
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
1
ps/pg0068.h
Executable file
1
ps/pg0068.h
Executable file
@ -0,0 +1 @@
|
|||||||
|
int pg0068100(int, char**);
|
||||||
543
ps/pg0068100.cpp
Executable file
543
ps/pg0068100.cpp
Executable file
@ -0,0 +1,543 @@
|
|||||||
|
#include <automask.h>
|
||||||
|
#include <defmask.h>
|
||||||
|
#include <modaut.h>
|
||||||
|
#include <progind.h>
|
||||||
|
#include <relation.h>
|
||||||
|
#include <sheet.h>
|
||||||
|
#include <tabutil.h>
|
||||||
|
#include <viswin.h>
|
||||||
|
|
||||||
|
#include "../ca/movana.h"
|
||||||
|
#include "../ca/rmovana.h"
|
||||||
|
#include "../ve/velib04.h"
|
||||||
|
#include "../cg/cgsaldac.h"
|
||||||
|
|
||||||
|
#include "pg0068100a.h"
|
||||||
|
|
||||||
|
|
||||||
|
///////////////////////////////////////////////
|
||||||
|
// MASCHERA
|
||||||
|
///////////////////////////////////////////////
|
||||||
|
class TEleabollazione_HK_mask : public TAutomask
|
||||||
|
{
|
||||||
|
TArray_sheet* _num_sheet; // TArray_sheet contenente le selezioni sui codici numerazione
|
||||||
|
TString_array _tipi_doc; // Array di stringhe contenente i tipi documenti da elaborare
|
||||||
|
|
||||||
|
protected:
|
||||||
|
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||||
|
// Costruisce lo sheet dei codici numerazione
|
||||||
|
void build_num_sheet();
|
||||||
|
|
||||||
|
public:
|
||||||
|
// Controlla se lo stato ed il tipo del documento sono validi e rispettano la selezione
|
||||||
|
bool doc_tipo_stato_ok(const TRectype& doc);
|
||||||
|
// Restituisce lo sheet con le numerazioni da elaborare
|
||||||
|
TArray_sheet& num_sheet() const { return *_num_sheet; }
|
||||||
|
// Constructor and Distructor
|
||||||
|
TEleabollazione_HK_mask();
|
||||||
|
~TEleabollazione_HK_mask();
|
||||||
|
};
|
||||||
|
|
||||||
|
TEleabollazione_HK_mask::TEleabollazione_HK_mask() : TAutomask("ve6800a")
|
||||||
|
{
|
||||||
|
_num_sheet = new TArray_sheet(-1, -1, -4, -4, "Codici numerazione", "@1|Cod. numerazione|Descrizione@50");
|
||||||
|
}
|
||||||
|
|
||||||
|
TEleabollazione_HK_mask::~TEleabollazione_HK_mask()
|
||||||
|
{
|
||||||
|
delete _num_sheet;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TEleabollazione_HK_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||||
|
{
|
||||||
|
switch (o.dlg())
|
||||||
|
{
|
||||||
|
case F_CODICE_ELAB:
|
||||||
|
if (e == fe_modify || e == fe_init)
|
||||||
|
{
|
||||||
|
const bool full = !o.empty();
|
||||||
|
if (full)
|
||||||
|
build_num_sheet();
|
||||||
|
enable(DLG_USER, full);
|
||||||
|
enable(DLG_OK, full && _num_sheet->one_checked());
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case DLG_USER:
|
||||||
|
if (e == fe_button && _num_sheet->run())
|
||||||
|
{
|
||||||
|
// Hai selezionato qualcosa ? allora abilita il pulsante di conferma
|
||||||
|
enable(DLG_OK, _num_sheet->one_checked());
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
void TEleabollazione_HK_mask::build_num_sheet()
|
||||||
|
{
|
||||||
|
_num_sheet->destroy();
|
||||||
|
_tipi_doc.destroy();
|
||||||
|
|
||||||
|
const TContabilizzazione_analitica contanal(get(F_CODICE_ELAB));
|
||||||
|
if (!contanal.empty())
|
||||||
|
{
|
||||||
|
TToken_string t;
|
||||||
|
TString4 tipo;
|
||||||
|
for (int i = 0; i < TElaborazione::_max_tipi_doc_elab; i++)
|
||||||
|
{
|
||||||
|
tipo = contanal.tipo_iniziale(i);
|
||||||
|
if (tipo.full())
|
||||||
|
{
|
||||||
|
t = tipo;
|
||||||
|
t.add(contanal.stato_iniziale(i)); // Stato iniziale
|
||||||
|
_tipi_doc.add(t); // Aggiunge questo tipo documento alla lista
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
TString s1,s2,s3;
|
||||||
|
TTable num("%NUM");
|
||||||
|
for (num.first(); num.good(); num.next()) // scorre tutte le numerazioni possibili
|
||||||
|
{
|
||||||
|
TToken_string t,z;
|
||||||
|
t.add(" ");
|
||||||
|
t.add(num.get("CODTAB"));
|
||||||
|
t.add(num.get("S0"));
|
||||||
|
|
||||||
|
s2 = num.get("S2"); // reperisce i tipi documento validi per questa numerazione
|
||||||
|
|
||||||
|
for (int x = 0; x <= s2.len(); x += 4)
|
||||||
|
z.add(s2.mid(x,4));
|
||||||
|
|
||||||
|
bool found = false;
|
||||||
|
for (int i = _tipi_doc.last(); !found && i >= 0; i--)
|
||||||
|
found |= s2.find(_tipi_doc.row(i).get(0)) >= 0;
|
||||||
|
if (found)
|
||||||
|
_num_sheet->add(t);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (_num_sheet->items() == 1)
|
||||||
|
_num_sheet->check(0);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TEleabollazione_HK_mask::doc_tipo_stato_ok(const TRectype& doc)
|
||||||
|
// Verifica che il tipo documento corrente esista tra i tipi previsti dalla elaborazione
|
||||||
|
// differita selezionata
|
||||||
|
{
|
||||||
|
bool found = false;
|
||||||
|
const TString4 tipo = doc.get(DOC_TIPODOC);
|
||||||
|
const char stato = doc.get_char(DOC_STATO);
|
||||||
|
const int items = _tipi_doc.items();
|
||||||
|
for (int i = 0; i < items && !found; i++)
|
||||||
|
{
|
||||||
|
TToken_string& t = _tipi_doc.row(i);
|
||||||
|
const TString4 tipox(t.get(0));
|
||||||
|
const char statox = t.get(1)[0];
|
||||||
|
if (tipo == tipox && stato == statox)
|
||||||
|
found = true;
|
||||||
|
}
|
||||||
|
return found;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
class TContabilizzazione_analitica_costi : public TContabilizzazione_analitica
|
||||||
|
{
|
||||||
|
TString4 _codcaus;
|
||||||
|
bool _costi;
|
||||||
|
|
||||||
|
public:
|
||||||
|
virtual bool elabora(TDocumento& doc, long numreg_cg, TViswin* viswin, bool can_write, TAnal_mov& mov,
|
||||||
|
bool riclassifica_fdr_fde = true);
|
||||||
|
|
||||||
|
TContabilizzazione_analitica_costi(const TString& codcaus, const char* cod = NULL, bool costi = true)
|
||||||
|
: TContabilizzazione_analitica(cod), _codcaus(codcaus), _costi(costi) {}
|
||||||
|
TContabilizzazione_analitica_costi(const TString& codcaus, const TRectype& rec, bool costi = true)
|
||||||
|
: TContabilizzazione_analitica(rec), _codcaus(codcaus), _costi(costi) {}
|
||||||
|
virtual ~TContabilizzazione_analitica_costi() {}
|
||||||
|
|
||||||
|
};
|
||||||
|
|
||||||
|
bool TContabilizzazione_analitica_costi::elabora(TDocumento& doc, long numreg_cg, TViswin* viswin, bool can_write,
|
||||||
|
TAnal_mov& mov, bool riclassifica_fdr_fde)
|
||||||
|
{
|
||||||
|
TDate datareg, datacomp, datadoc;
|
||||||
|
int annoes = 0;
|
||||||
|
TString descr, msg, codcaus;
|
||||||
|
bool dare = false;
|
||||||
|
TCausale caus(_codcaus);
|
||||||
|
|
||||||
|
datadoc = doc.get(DOC_DATADOC);
|
||||||
|
datareg = datacomp = datadoc;
|
||||||
|
annoes = esercizi().date2esc(datareg);
|
||||||
|
doc.riferimento(descr);
|
||||||
|
if (descr.empty())
|
||||||
|
descr = doc.tipo().descrizione();
|
||||||
|
|
||||||
|
const TString8 rif = doc.get(DOC_NUMDOCRIF);
|
||||||
|
codcaus = caus.codice();
|
||||||
|
const bool use_rif = caus.iva() == iva_acquisti && rif.not_empty();
|
||||||
|
if (use_rif)
|
||||||
|
{
|
||||||
|
descr << TR(" n. ") << rif;
|
||||||
|
descr << TR(" del ") << doc.get(DOC_DATADOCRIF);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
descr << TR(" n. ") << doc.numero();
|
||||||
|
descr << TR(" del ") << datadoc;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
if (_costi)
|
||||||
|
dare = true;
|
||||||
|
else
|
||||||
|
dare = doc.get_char(DOC_TIPOCF) == 'F';
|
||||||
|
|
||||||
|
if (doc.is_nota_credito())
|
||||||
|
dare = !dare;
|
||||||
|
|
||||||
|
const char sezione = dare ? 'D' : 'A';
|
||||||
|
const int decimals = TCurrency::get_firm_dec();
|
||||||
|
|
||||||
|
long numreg_ca = doc.get_long(DOC_NUMREGCA);
|
||||||
|
if (numreg_ca > 0)
|
||||||
|
{
|
||||||
|
const int err = mov.read(numreg_ca);
|
||||||
|
if (err == NOERR)
|
||||||
|
{
|
||||||
|
if (viswin != NULL)
|
||||||
|
{
|
||||||
|
msg.format("--- Il documento verrà ricontabilizzato nel movimento analitico %ld", numreg_ca);
|
||||||
|
viswin->add_line(msg);
|
||||||
|
}
|
||||||
|
mov.body().destroy_rows();
|
||||||
|
}
|
||||||
|
else
|
||||||
|
mov.put(MOVANA_NUMREG, numreg_ca = 0);
|
||||||
|
}
|
||||||
|
mov.put(MOVANA_DATAREG, datareg);
|
||||||
|
mov.put(MOVANA_DATACOMP, datacomp);
|
||||||
|
mov.put(MOVANA_DATADOC, datadoc);
|
||||||
|
mov.put(MOVANA_ANNOES, annoes);
|
||||||
|
mov.put(MOVANA_DESCR, descr);
|
||||||
|
mov.put(MOVANA_NUMREGCG, numreg_cg);
|
||||||
|
mov.put(MOVANA_CODCAUS, caus.codice());
|
||||||
|
mov.put(MOVANA_DPROVV, doc.get(DOC_PROVV)); // Documento originale
|
||||||
|
mov.put(MOVANA_DANNO, doc.get(DOC_ANNO));
|
||||||
|
mov.put(MOVANA_DCODNUM, doc.get(DOC_CODNUM));
|
||||||
|
mov.put(MOVANA_DNDOC, doc.get(DOC_NDOC));
|
||||||
|
|
||||||
|
|
||||||
|
TImporto totdoc; // Totale movimento analitico
|
||||||
|
const TipoIVA tiva = caus.iva();
|
||||||
|
TBill bill; caus.bill(RIGA_IVA_NON_DETRAIBILE, bill);
|
||||||
|
|
||||||
|
// Scandisco le righe del documento,
|
||||||
|
int i;
|
||||||
|
for (i = 1; i <= doc.physical_rows(); i++)
|
||||||
|
{
|
||||||
|
const TRiga_documento& riga = doc[i];
|
||||||
|
bool pareggio = false;
|
||||||
|
|
||||||
|
// salto descrizioni, e omaggi
|
||||||
|
if (riga.is_descrizione() || riga.is_omaggio())
|
||||||
|
continue;
|
||||||
|
|
||||||
|
// salto valori nulli
|
||||||
|
const real qta = riga.get(RDOC_QTA);
|
||||||
|
const real costo = riga.articolo().get_real(ANAMAG_ULTCOS1);
|
||||||
|
real valore = _costi ? qta * costo : riga.provvigione();
|
||||||
|
|
||||||
|
/*real valore;
|
||||||
|
if (_costi)
|
||||||
|
valore = qta * costo;
|
||||||
|
else
|
||||||
|
valore = riga.provvigione();*/
|
||||||
|
|
||||||
|
if (valore.is_zero())
|
||||||
|
continue;
|
||||||
|
|
||||||
|
if (tiva != iva_vendite && !riga.is_sconto())
|
||||||
|
{
|
||||||
|
const TString4 tipodet = riga.get(RDOC_TIPODET);
|
||||||
|
int td;
|
||||||
|
const real pind = indetraibile_al(tipodet, caus, datareg.year(), td);
|
||||||
|
|
||||||
|
if (pind > ZERO)
|
||||||
|
{
|
||||||
|
const real imposta = riga.iva().imposta(valore);
|
||||||
|
const real ivaind = (imposta * pind) / CENTO;
|
||||||
|
if (bill.ok())
|
||||||
|
{
|
||||||
|
if (bill.is_analitico())
|
||||||
|
{
|
||||||
|
TString_array conti_ind;
|
||||||
|
const char tipomov = mov.get_char(MOVANA_TIPOMOV);
|
||||||
|
if (find_conti_iva_indetraibile(riga, bill, conti_ind, annoes, tipomov, pareggio)) //qui
|
||||||
|
{
|
||||||
|
TGeneric_distrib esso(ivaind, decimals);
|
||||||
|
|
||||||
|
init_distrib(conti_ind, esso, pareggio);
|
||||||
|
FOR_EACH_ARRAY_ROW(conti_ind, j, row_ind)
|
||||||
|
{
|
||||||
|
TRectype& rmov = mov.new_row();
|
||||||
|
rmov.put(RMOVANA_ANNOES, annoes);
|
||||||
|
rmov.put(RMOVANA_CODCONTO, row_ind->get(0));
|
||||||
|
rmov.put(RMOVANA_CODCCOSTO,row_ind->get());
|
||||||
|
rmov.put(RMOVANA_CODCMS, row_ind->get());
|
||||||
|
rmov.put(RMOVANA_CODFASE, row_ind->get());
|
||||||
|
rmov.put(RMOVANA_DESCR, riga.get(RDOC_DESCR));
|
||||||
|
|
||||||
|
const bool negative = pareggio && j > 0;
|
||||||
|
const bool totale = pareggio && j == 0;
|
||||||
|
TImporto imp(sezione, totale ? ivaind : real(esso.get()));
|
||||||
|
|
||||||
|
if (negative)
|
||||||
|
imp.swap_section();
|
||||||
|
imp.normalize();
|
||||||
|
rmov.put(RMOVANA_SEZIONE, imp.sezione());
|
||||||
|
rmov.put(RMOVANA_IMPORTO, imp.valore());
|
||||||
|
totdoc += imp;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
valore += ivaind;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (valore.is_zero())
|
||||||
|
continue;
|
||||||
|
|
||||||
|
TString_array conti;
|
||||||
|
const char tipomov = mov.get_char(MOVANA_TIPOMOV);
|
||||||
|
const bool ok = find_conti(riga, conti, annoes, riclassifica_fdr_fde, tipomov, pareggio);
|
||||||
|
if (!ok)
|
||||||
|
{
|
||||||
|
if (viswin != NULL)
|
||||||
|
{
|
||||||
|
TString msg;
|
||||||
|
msg.format(FR("*** Riga %d: Manca il conto analitico dell'articolo '%s'"), i, (const char*)riga.get(RDOC_CODART));
|
||||||
|
viswin->add_line(msg);
|
||||||
|
}
|
||||||
|
//_error = conto_error;
|
||||||
|
can_write = false;
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
|
TGeneric_distrib esso(valore, decimals);
|
||||||
|
|
||||||
|
init_distrib(conti, esso, pareggio);
|
||||||
|
FOR_EACH_ARRAY_ROW(conti, i, row)
|
||||||
|
{
|
||||||
|
TRectype& rmov = mov.new_row();
|
||||||
|
rmov.put(RMOVANA_ANNOES, annoes);
|
||||||
|
rmov.put(RMOVANA_CODCONTO, row->get(0));
|
||||||
|
rmov.put(RMOVANA_CODCCOSTO,row->get());
|
||||||
|
rmov.put(RMOVANA_CODCMS, row->get());
|
||||||
|
rmov.put(RMOVANA_CODFASE, row->get());
|
||||||
|
rmov.put(RMOVANA_DESCR, riga.get(RDOC_DESCR));
|
||||||
|
|
||||||
|
const bool negative = pareggio && i > 0;
|
||||||
|
const bool totale = pareggio && i == 0;
|
||||||
|
TImporto imp(sezione, totale ? valore : real(esso.get()));
|
||||||
|
|
||||||
|
if (negative)
|
||||||
|
imp.swap_section();
|
||||||
|
imp.normalize();
|
||||||
|
rmov.put(RMOVANA_SEZIONE, imp.sezione());
|
||||||
|
rmov.put(RMOVANA_IMPORTO, imp.valore());
|
||||||
|
totdoc += imp;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (can_write && mov.rows() > 0)
|
||||||
|
{
|
||||||
|
totdoc.normalize();
|
||||||
|
mov.put(MOVANA_SEZIONE, totdoc.sezione());
|
||||||
|
mov.put(MOVANA_TOTDOC, totdoc.valore());
|
||||||
|
|
||||||
|
TLocalisamfile movana(LF_MOVANA);
|
||||||
|
if (numreg_ca > 0)
|
||||||
|
mov.rewrite(movana);
|
||||||
|
else
|
||||||
|
{
|
||||||
|
mov.write(movana);
|
||||||
|
numreg_ca = mov.get_long(MOVANA_NUMREG);
|
||||||
|
doc.put(DOC_NUMREGCA, numreg_ca);
|
||||||
|
}
|
||||||
|
if (viswin != NULL)
|
||||||
|
{
|
||||||
|
msg.format(FR("--- Movimento analitico $[r,w]%ld$[n,w] del %s"), numreg_ca, datacomp.string());
|
||||||
|
viswin->add_line(msg);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return can_write;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
class TContabilizzazione_analitica_provvigioni : public TContabilizzazione_analitica_costi
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
TContabilizzazione_analitica_provvigioni(const TString& codcaus, const char* cod = NULL)
|
||||||
|
: TContabilizzazione_analitica_costi(codcaus, cod, false) {}
|
||||||
|
TContabilizzazione_analitica_provvigioni(const TString& codcaus, const TRectype& rec)
|
||||||
|
: TContabilizzazione_analitica_costi(codcaus, rec, false) {}
|
||||||
|
virtual ~TContabilizzazione_analitica_provvigioni() {}
|
||||||
|
|
||||||
|
};
|
||||||
|
|
||||||
|
//////////////////////////////////////////////
|
||||||
|
// APPLICAZIONE
|
||||||
|
/////////////////////////////////////////////
|
||||||
|
|
||||||
|
// TEleabollazione_HK
|
||||||
|
// Applicazione di contabilizzazione documenti
|
||||||
|
class TEleabollazione_HK_app : public TSkeleton_application
|
||||||
|
{
|
||||||
|
TEleabollazione_HK_mask* _msk;
|
||||||
|
|
||||||
|
virtual bool check_autorization() const {return false;}
|
||||||
|
virtual const char * extra_modules() const {return "ve";}
|
||||||
|
|
||||||
|
protected: // TApplication
|
||||||
|
// Contabilizza i documenti
|
||||||
|
void contabilize();
|
||||||
|
|
||||||
|
public:
|
||||||
|
virtual bool create();
|
||||||
|
virtual bool destroy();
|
||||||
|
virtual void main_loop();
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
void TEleabollazione_HK_app::contabilize()
|
||||||
|
{
|
||||||
|
//Prende i dati dalla maschera (date,sheet numerazioni)
|
||||||
|
const TDate data_ini = _msk->get_date(F_DATA_INI);
|
||||||
|
int year_from = data_ini.year();
|
||||||
|
const TDate data_fine = _msk->get_date(F_DATA_FIN);
|
||||||
|
int year_to = data_fine.year();
|
||||||
|
const TDate data_reg = _msk->get_date(F_DATA_REG);
|
||||||
|
TArray_sheet& num_sheet = _msk->num_sheet();
|
||||||
|
const long items = num_sheet.items();
|
||||||
|
|
||||||
|
//Relazione su LF_DOC
|
||||||
|
TRelation doc_rel(LF_DOC);
|
||||||
|
TRectype da(LF_DOC);
|
||||||
|
TRectype a(LF_DOC);
|
||||||
|
|
||||||
|
TString16 codnum;
|
||||||
|
TString msg, filt_expr;
|
||||||
|
TToken_string nums;
|
||||||
|
|
||||||
|
// Compone la lista dei documenti da elaborare
|
||||||
|
for (long i = 0L; i < items; i++) // Scorre per tutte le numerazioni dello sheet
|
||||||
|
{
|
||||||
|
if (num_sheet.checked(i)) // Costruisce una espressione sul codice numerazione: "CODNUM="x0" || CODNUM="x1" || ..."
|
||||||
|
{
|
||||||
|
codnum = num_sheet.row(i).get(1);
|
||||||
|
filt_expr << "(CODNUM=\"";
|
||||||
|
filt_expr << codnum << "\")||";
|
||||||
|
nums.add(codnum);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
filt_expr.rtrim(2);
|
||||||
|
|
||||||
|
da.put(DOC_DATADOC, data_ini);
|
||||||
|
da.put(DOC_PROVV, "D");
|
||||||
|
da.put(DOC_ANNO, year_from);
|
||||||
|
a.put(DOC_DATADOC, data_fine);
|
||||||
|
a.put(DOC_PROVV, "D");
|
||||||
|
a.put(DOC_ANNO, year_to);
|
||||||
|
|
||||||
|
// Se ho una sola numerazione ottimizzo la setregion!
|
||||||
|
if (nums.items() == 1)
|
||||||
|
{
|
||||||
|
da.put(DOC_CODNUM, nums);
|
||||||
|
a.put(DOC_CODNUM, nums);
|
||||||
|
//filt_expr.cut(0); // Il filtro diventa inutile
|
||||||
|
}
|
||||||
|
|
||||||
|
// Cursore complessivo con limiti di data (chiave 3). Viene sfruttata l'ottimizzazione
|
||||||
|
// sulla costruzione dei cursori nel caso i campi presenti nell'espressione siano campi
|
||||||
|
// chiave, nel nostro caso CODNUM soddisfa i requisiti.
|
||||||
|
TCursor doc_cur(&doc_rel, filt_expr, 3, &da, &a);
|
||||||
|
const TRecnotype cur_items = doc_cur.items();
|
||||||
|
if (cur_items > 0)
|
||||||
|
{
|
||||||
|
TLista_documenti lista_in, lista_out;
|
||||||
|
|
||||||
|
doc_cur.freeze();
|
||||||
|
msg = "Selezione documenti dal ";
|
||||||
|
msg << data_ini.string() << " al ";
|
||||||
|
msg << data_fine.string();
|
||||||
|
TProgind p(cur_items, msg, false, true);
|
||||||
|
const TRectype& cur_rec = doc_cur.curr();
|
||||||
|
|
||||||
|
// Scorre tutti i documenti che rientrano nell'intervallo selezionato
|
||||||
|
for (doc_cur = 0; doc_cur.pos() < cur_items; ++doc_cur)
|
||||||
|
{
|
||||||
|
p.addstatus(1);
|
||||||
|
// controlla che il tipo documento e lo stato siano coerenti con la ELD selezionata
|
||||||
|
if (nums.get_pos(cur_rec.get(DOC_CODNUM)) >= 0 && _msk->doc_tipo_stato_ok(cur_rec))
|
||||||
|
{
|
||||||
|
TDocumento* doc = new TDocumento;
|
||||||
|
if (doc->read(doc_cur.curr()) == NOERR) // legge il documento
|
||||||
|
lista_in.add(doc); // Viene aggiunto alla lista dei documenti
|
||||||
|
else
|
||||||
|
delete doc;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//E finalmente fa l'agognata elaborazione!!!!!
|
||||||
|
TString16 elaborazione = _msk->get(F_CODICE_ELAB);
|
||||||
|
TContabilizzazione_analitica contanal(elaborazione);
|
||||||
|
contanal.elabora(lista_in, lista_out, data_reg);
|
||||||
|
|
||||||
|
if (contanal.processed_docs() > 0L)
|
||||||
|
message_box(FR("Totale documenti contabilizzati: %ld"), contanal.processed_docs());
|
||||||
|
}
|
||||||
|
else
|
||||||
|
warning_box(TR("Non vi sono documenti da contabilizzare per le numerazioni selezionate."));
|
||||||
|
|
||||||
|
xvtil_statbar_set("");
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
bool TEleabollazione_HK_app::create()
|
||||||
|
{
|
||||||
|
//se non ha le vendite è impossibile da utilizzare
|
||||||
|
if (!has_module(VEAUT) && !has_module(CAAUT))
|
||||||
|
return error_box(TR("Modulo non autorizzato"));
|
||||||
|
|
||||||
|
open_files(LF_TABCOM, LF_TAB, LF_DOC, LF_RIGHEDOC, LF_MOVANA, LF_RMOVANA, 0);
|
||||||
|
_msk = new TEleabollazione_HK_mask();
|
||||||
|
return TSkeleton_application::create();
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TEleabollazione_HK_app::destroy()
|
||||||
|
{
|
||||||
|
if (_msk) delete _msk;
|
||||||
|
return TSkeleton_application::destroy();
|
||||||
|
}
|
||||||
|
|
||||||
|
void TEleabollazione_HK_app::main_loop()
|
||||||
|
{
|
||||||
|
while (_msk->run() == K_ENTER)
|
||||||
|
contabilize();
|
||||||
|
}
|
||||||
|
|
||||||
|
int pg0068100 (int argc, char **argv)
|
||||||
|
{
|
||||||
|
TEleabollazione_HK_app a;
|
||||||
|
a.run(argc,argv, TR("Contabilizzazione Hair Kulture"));
|
||||||
|
return true;
|
||||||
|
}
|
||||||
8
ps/pg0068100a.h
Executable file
8
ps/pg0068100a.h
Executable file
@ -0,0 +1,8 @@
|
|||||||
|
// Include file per ve6800a.uml
|
||||||
|
|
||||||
|
#define F_CODICE_ELAB 101
|
||||||
|
#define F_DESC_ELAB 102
|
||||||
|
#define F_DATA_INI 103
|
||||||
|
#define F_DATA_FIN 104
|
||||||
|
#define F_DATA_AUTO 105
|
||||||
|
#define F_DATA_REG 106
|
||||||
70
ps/pg0068100a.uml
Executable file
70
ps/pg0068100a.uml
Executable file
@ -0,0 +1,70 @@
|
|||||||
|
#include "pg0068100a.h"
|
||||||
|
|
||||||
|
PAGE "Contabilizzazione HAIR KULTURE" -1 -1 78 8
|
||||||
|
|
||||||
|
STRING F_CODICE_ELAB 8
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 1 "Codice "
|
||||||
|
FLAG "U"
|
||||||
|
USE %ELD SELECT I0 == 7
|
||||||
|
INPUT CODTAB F_CODICE_ELAB
|
||||||
|
DISPLAY "Codice@8" CODTAB
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
OUTPUT F_CODICE_ELAB CODTAB
|
||||||
|
OUTPUT F_DESC_ELAB S0
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
WARNING "E' necessario specificare il codice elaborazione"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_DESC_ELAB 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 20 1 ""
|
||||||
|
USE %ELD KEY 2 SELECT I0 == 7
|
||||||
|
INPUT S0 F_DESC_ELAB
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
DISPLAY "Codice@8" CODTAB
|
||||||
|
COPY OUTPUT F_CODICE_ELAB
|
||||||
|
END
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 26 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 2 "Date intervallo documenti"
|
||||||
|
END
|
||||||
|
|
||||||
|
DATE F_DATA_INI
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 3 "Inizio "
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
WARNING "La data di inizio intervallo e' obbligatoria"
|
||||||
|
END
|
||||||
|
|
||||||
|
DATE F_DATA_FIN
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 4 "Fine "
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
WARNING "La data di fine intervallo deve essere successiva a quella di inizio"
|
||||||
|
VALIDATE DATE_CMP_FUNC >= F_DATA_INI
|
||||||
|
END
|
||||||
|
|
||||||
|
DATE F_DATA_REG
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 6 "Data registrazione "
|
||||||
|
FLAGS "A"
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
TOOLBAR "topbar" 0 0 0 2
|
||||||
|
|
||||||
|
BUTTON DLG_USER 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -12 -1 "~Selezione"
|
||||||
|
PICTURE TOOL_MULTISEL
|
||||||
|
END
|
||||||
|
|
||||||
|
#include <elabar.h>
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
Loading…
x
Reference in New Issue
Block a user