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

Patch level : 10.0

Browse Source 
Files correlati     : ve0100b.msk ve0.exe ve6.exe
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/branches/R_10_00@21462 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2011-01-18 10:03:56 +00:00
parent 8052cf0ebb
commit 70544fb760
5 changed files with 511 additions and 498 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ve/ve0100b.uml
View File

@ -92,7 +92,7 @@ END
STRING F_CODNUM_ELAB 4 STRING F_CODNUM_ELAB 4
BEGIN BEGIN
PROMPT 2 4 "Cod. num. " PROMPT 2 4 "Numerazione "
HELP "Codice numerazione" HELP "Codice numerazione"
USE %NUM USE %NUM
INPUT CODTAB F_CODNUM_ELAB INPUT CODTAB F_CODNUM_ELAB

5
ve/velib04.h
View File

@ -180,7 +180,7 @@ public:
bool kill_descrizione_estesa() const { return get_bool("B10"); } bool kill_descrizione_estesa() const { return get_bool("B10"); }
bool pack_rif() const { return get_bool("B15"); } bool pack_rif() const { return get_bool("B15"); }
bool calcola_scarti() const { return get_bool("B11"); } bool calcola_scarti() const { return get_bool("B11"); }
bool reload_prices() { return get_bool("B13"); } bool reload_prices() const { return get_bool("B13"); }
const TString & num_riferimenti_in() const { return get("S11"); } const TString & num_riferimenti_in() const { return get("S11"); }
int intestazioni_sheet() const { return get_int("I1"); } int intestazioni_sheet() const { return get_int("I1"); }
@ -223,9 +223,10 @@ protected:
bool calcola_ncolli_tara_pnetto(const TString& codart, const real& qta, bool calcola_ncolli_tara_pnetto(const TString& codart, const real& qta,
real& nolli, real& tara, real& pnetto) const; real& nolli, real& tara, real& pnetto) const;
bool aggiorna_ncolli_tara_pnetto(TRiga_documento& r) const; bool aggiorna_ncolli_tara_pnetto(TRiga_documento& r) const;
bool genera_righe_riferimento(const TDocumento& indoc, TDocumento& outdoc, TSheet_field& s) const;
public: public:
bool nettifica() { return get_bool("B12"); } bool nettifica() const { return get_bool("B12"); }
virtual bool elabora(TLista_documenti& doc_in, TLista_documenti& doc_out, virtual bool elabora(TLista_documenti& doc_in, TLista_documenti& doc_out,
const TDate& data_elab, bool interattivo = false); const TDate& data_elab, bool interattivo = false);

72
ve/velib04b.cpp
View File

@ -2293,7 +2293,7 @@ error_type TContabilizzazione::compile_rows_mov(TDocumento& doc)
static TString_array tabella_ripartizione; static TString_array tabella_ripartizione;
if (fat_com && tabella_ripartizione.empty()) if (fat_com && tabella_ripartizione.empty())
{ {
TConfig cnf(CONFIG_STUDIO); TConfig cnf(CONFIG_STUDIO, "ve");
for (int k = 1; k <= MAX_IVA_SLICES; k++) for (int k = 1; k <= MAX_IVA_SLICES; k++)
{ {
TToken_string* tt = new TToken_string(); TToken_string* tt = new TToken_string();
@ -2312,8 +2312,7 @@ error_type TContabilizzazione::compile_rows_mov(TDocumento& doc)
const TString4 tiporiga = r.get(RDOC_TIPORIGA); const TString4 tiporiga = r.get(RDOC_TIPORIGA);
if (valid_row_type(tiporiga)) // controlla l'esistenza della riga if (valid_row_type(tiporiga)) // controlla l'esistenza della riga
{ {
TBill conto; TBill conto, contomat;
TBill contomat;
real pricemat; real pricemat;
const char tipo = r.tipo().tipo(); const char tipo = r.tipo().tipo();
// Le righe omaggio senza addebito IVA vanno saltate // Le righe omaggio senza addebito IVA vanno saltate
@ -2322,7 +2321,6 @@ error_type TContabilizzazione::compile_rows_mov(TDocumento& doc)
{ {
const bool spesa = r.tipo().tipo() == RIGA_SPESEDOC; const bool spesa = r.tipo().tipo() == RIGA_SPESEDOC;
char tipo_rit = '\0'; char tipo_rit = '\0';
if (spesa) if (spesa)
tipo_rit = r.spesa().tipo_ritenuta(); tipo_rit = r.spesa().tipo_ritenuta();
@ -2338,22 +2336,15 @@ error_type TContabilizzazione::compile_rows_mov(TDocumento& doc)
if (good()) if (good())
{ {
static TString16 fldvalmat("883"); static TString16 fldvalmat("883");
if (fldvalmat == "883") if (fldvalmat == "883")
{ fldvalmat = ini_get_string(CONFIG_DITTA, "ve", "FldValMat", "");
TConfig c(CONFIG_DITTA, "ve");
fldvalmat = c.get("FldValMat", "");
}
if (fldvalmat.full()) if (fldvalmat.full())
{ {
pricemat = real(cache().get(LF_ANAMAG, r.get(RDOC_CODARTMAG), fldvalmat)); pricemat = real(cache().get(LF_ANAMAG, r.get(RDOC_CODARTMAG), fldvalmat));
if (!pricemat.is_zero())
if (pricemat != ZERO)
{ {
contomat = conto; contomat = conto;
search_costo_ricavo_mat(contomat,r); // l'errore eventuale viene settato qui dentro search_costo_ricavo_mat(contomat, r); // l'errore eventuale viene settato qui dentro
} }
} }
} }
@ -2488,33 +2479,22 @@ error_type TContabilizzazione::compile_rows_mov(TDocumento& doc)
// crea le righe di contabilita' // crea le righe di contabilita'
if (good()) if (good())
{ {
const TString descr_cr(doc.clifor().get(CLI_RAGSOC)); const TString descr_cr = doc.clifor().get(CLI_RAGSOC); // Probabile porcata ... che Pharmatex non vuole!
switch (_movimento->recalc_cg_rows(descr_cr, *_caus)) switch (_movimento->recalc_cg_rows(descr_cr, *_caus))
{ {
case 1 : case 1 : _error = movement_error; break;
_error = movement_error; case 2 : _error = cau_ritintra_error; break;
break; default: break;
case 2 :
_error = cau_ritintra_error;
break;
default :
break;
} }
} }
const TRegistro& registro = _caus->reg(); const TRegistro& registro = _caus->reg();
const bool iva_mov = registro.ok(); const bool iva_mov = registro.ok();
if (!iva_mov) if (!iva_mov)
{ {
static int __check_sez = 2; static int __check_sez = -1;
if (__check_sez > 1) if (__check_sez < 0)
{ __check_sez = ini_get_bool(CONFIG_DITTA, "ve", "CHECK_SEZ");
TConfig c(CONFIG_DITTA, "ve");
__check_sez = c.get_bool("CHECK_SEZ", false);
}
bool swap = false; bool swap = false;
if (__check_sez) if (__check_sez)
@ -2667,10 +2647,10 @@ error_type TContabilizzazione::write_scadenze(TDocumento& doc)
{ {
const int tmov = _caus->tipomov(); const int tmov = _caus->tipomov();
const TString80 desc(head.get(MOV_DESCR)); const TString80 desc(head.get(MOV_DESCR));
const TString16 codcaus(_caus->codice()); const TString4 codcaus(_caus->codice());
const TString4 v(head.get(MOV_CODVAL)); const TString4 v(head.get(MOV_CODVAL));
const TDate d(head.get_date(MOV_DATACAM)); const TDate d(head.get_date(MOV_DATACAM));
const real c(head.get_real(MOV_CAMBIO)); const real c(head.get_real(MOV_CAMBIO));
const TValuta cambio(v, d, c); // verificare const TValuta cambio(v, d, c); // verificare
const TString8 agente(doc.get(DOC_CODAG)); const TString8 agente(doc.get(DOC_CODAG));
const int ndec = doc.decimals(); const int ndec = doc.decimals();
@ -2686,17 +2666,17 @@ error_type TContabilizzazione::write_scadenze(TDocumento& doc)
const int nuova_riga = partita.get_int(PART_NRIGA); const int nuova_riga = partita.get_int(PART_NRIGA);
// put data on partita // put data on partita
partita.put(PART_TIPOMOV, tmov); partita.put(PART_TIPOMOV, tmov);
partita.put(PART_NREG, nreg); // Riferimento alla registrazione contabile partita.put(PART_NREG, nreg); // Riferimento alla registrazione contabile
partita.put(PART_NUMRIG, 1); // Riferimento alla riga contabile del totale partita.put(PART_NUMRIG, 1); // Riferimento alla riga contabile del totale
partita.put(PART_DATAREG, head.get(MOV_DATAREG)); partita.put(PART_DATAREG, head.get(MOV_DATAREG));
partita.put(PART_DATADOC, head.get(MOV_DATADOC)); partita.put(PART_DATADOC, head.get(MOV_DATADOC));
partita.put(PART_NUMDOC, head.get(MOV_NUMDOC)); partita.put(PART_NUMDOC, head.get(MOV_NUMDOC));
partita.put(PART_DESCR, desc); partita.put(PART_DESCR, desc);
partita.put(PART_CODCAUS, codcaus); partita.put(PART_CODCAUS, codcaus);
partita.put(PART_REG, _caus->reg().name()); partita.put(PART_REG, _caus->reg().name());
partita.put(PART_PROTIVA, head.get(MOV_PROTIVA)); partita.put(PART_PROTIVA, head.get(MOV_PROTIVA));
partita.put(PART_SEZ, sezione); partita.put(PART_SEZ, sezione);
const real totdoc(head.get(MOV_TOTDOC)); const real totdoc(head.get(MOV_TOTDOC));
const real totdocval(head.get(MOV_TOTDOCVAL)); const real totdocval(head.get(MOV_TOTDOCVAL));

803
ve/velib04d.cpp
View File

@ -18,9 +18,7 @@ protected:
public: public:
void doc2mask(const TDocumento& doc, const TString & articolo); void doc2mask(const TDocumento& doc, const TString & articolo);
TConsegna_mask(int header_code = 0, bool per_codice = false, bool ignora_descrizioni = false);
TConsegna_mask(TConfig & c,int header_code = 0, bool per_codice = false, bool ignora_descrizioni = false);
virtual ~TConsegna_mask() { }
}; };
bool TConsegna_mask::on_field_event(class TOperable_field& f, TField_event e, long jolly) bool TConsegna_mask::on_field_event(class TOperable_field& f, TField_event e, long jolly)
@ -114,13 +112,13 @@ int rows_sort_func(TSheet_field& s, int i, int j)
{ {
const TToken_string& s1 = s.row(i); const TToken_string& s1 = s.row(i);
const TToken_string& s2 = s.row(j); const TToken_string& s2 = s.row(j);
TString ss1, ss2; TString80 ss1, ss2;
TDate dd1, dd2; TDate dd1, dd2;
real rr1, rr2; real rr1, rr2;
const int fields[] = { S_CODART, S_LIVGIAC1, S_LIVGIAC2, S_LIVGIAC3, S_LIVGIAC4, const int fields[] = { S_CODART, S_LIVGIAC1, S_LIVGIAC2, S_LIVGIAC3, S_LIVGIAC4,
S_CODMAG, S_CODDEP, S_RIGAEVASA, S_DATACONS, S_QTARESIDUA, -1 }; S_CODMAG, S_CODDEP, S_RIGAEVASA, S_DATACONS, S_QTARESIDUA, -1 };
int ret = 0, field = 0; int ret = 0;
while (fields[field] >= 0) for (short field = 0; fields[field] > 0; field++)
{ {
if (fields[field] == S_QTARESIDUA) if (fields[field] == S_QTARESIDUA)
{ {
@ -143,7 +141,6 @@ int rows_sort_func(TSheet_field& s, int i, int j)
} }
if (ret != 0) if (ret != 0)
break; break;
field++;
} }
return ret; return ret;
} }
@ -179,7 +176,7 @@ void TConsegna_mask::doc2mask(const TDocumento& doc, const TString & articolo)
if (rec.is_descrizione()) if (rec.is_descrizione())
show_line = !_ignora_descrizioni; show_line = !_ignora_descrizioni;
if ( show_line && (articolo.blank() || articolo == rec.get(RDOC_CODART))) if ( show_line && (articolo.blank() || articolo == rec.get(RDOC_CODART)) )
{ {
TToken_string& r = s.row(-1); TToken_string& r = s.row(-1);
r = " "; r = " ";
@ -219,8 +216,8 @@ void TConsegna_mask::doc2mask(const TDocumento& doc, const TString & articolo)
s.sort(rows_sort_func); s.sort(rows_sort_func);
} }
TConsegna_mask::TConsegna_mask(TConfig & c, int header_code, bool per_codice, bool ignora_descrizioni) TConsegna_mask::TConsegna_mask(int header_code, bool per_codice, bool ignora_descrizioni)
: TAutomask("velib04d") , _ordina_per_codice(per_codice), _doc(NULL), : TAutomask("velib04d"), _ordina_per_codice(per_codice), _doc(NULL),
_ignora_descrizioni(ignora_descrizioni) _ignora_descrizioni(ignora_descrizioni)
{ {
TCodgiac_livelli cl; TCodgiac_livelli cl;
@ -228,47 +225,35 @@ TConsegna_mask::TConsegna_mask(TConfig & c, int header_code, bool per_codice, bo
cl.set_sheet_columns(s, S_LIVGIAC1); cl.set_sheet_columns(s, S_LIVGIAC1);
if (header_code == 1) if (header_code == 1)
{ {
TString h; s.set_column_header(S_QTARESIDUA, HR("Quantita'\nconsegnata"));
h = HR("Quantita'\nconsegnata");
s.set_column_header(S_QTARESIDUA, h);
s.sheet_mask().field(S_QTARESIDUA).set_prompt(PR("Q.ta' consegnata")); s.sheet_mask().field(S_QTARESIDUA).set_prompt(PR("Q.ta' consegnata"));
h = HR("Quantita'\nda fatturare"); s.set_column_header(S_QTADAEVADERE, HR("Quantita'\nda fatturare"));
s.set_column_header(S_QTADAEVADERE, h);
s.sheet_mask().field(S_QTADAEVADERE).set_prompt(PR("Q.ta' da fatturare")); s.sheet_mask().field(S_QTADAEVADERE).set_prompt(PR("Q.ta' da fatturare"));
} } else
else if (header_code == 2)
if (header_code == 2) {
{ s.set_column_header(S_QTARESIDUA, HR("Residuo"));
TString h; s.sheet_mask().field(S_QTARESIDUA).set_prompt(PR("Residuo "));
h = HR("Residuo");
s.set_column_header(S_QTARESIDUA, h);
s.sheet_mask().field(S_QTARESIDUA).set_prompt(PR("Residuo "));
h = HR("Da evadere"); s.set_column_header(S_QTADAEVADERE, HR("Da evadere"));
s.set_column_header(S_QTADAEVADERE, h); s.sheet_mask().field(S_QTADAEVADERE).set_prompt(PR("Da evadere "));
s.sheet_mask().field(S_QTADAEVADERE).set_prompt(PR("Da evadere ")); }
TConfig c(CONFIG_DITTA, "ve");
for (int i = 1; i <= 2; i++)
{
TString8 n; n.format("CODAGG%d", i);
if (c.exist(n))
{
const short id = i == 1 ? S_CODAGG1 : S_CODAGG2;
TString80 codagg = c.get(n);
TMask_field& agg = s.sheet_mask().field(id);
s.set_column_header(id, codagg);
codagg.rpad(strlen(agg.prompt()));
agg.set_prompt(codagg);
} }
}
if (c.exist("CODAGG1"))
{
TString80 codagg1 = c.get("CODAGG1");
TMask_field & agg1 =s.sheet_mask().field(S_CODAGG1);
s.set_column_header(S_CODAGG1, codagg1);
codagg1.rpad(strlen(agg1.prompt()));
agg1.set_prompt(codagg1);
}
if (c.exist("CODAGG2"))
{
TString80 codagg2 = c.get("CODAGG2");
TMask_field & agg2 =s.sheet_mask().field(S_CODAGG2);
s.set_column_header(S_CODAGG2, codagg2);
codagg2.rpad(strlen(agg2.prompt()));
agg2.set_prompt(codagg2);
}
} }
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
@ -279,7 +264,7 @@ bool TConsegna_ordini::calcola_ncolli_tara_pnetto(const TString& codart, const r
real& ncolli, real& tara, real& pnetto) const real& ncolli, real& tara, real& pnetto) const
{ {
const TRectype& articolo = cache().get(LF_ANAMAG, codart); const TRectype& articolo = cache().get(LF_ANAMAG, codart);
real ppcollo = articolo.get_real(ANAMAG_PPCOLLO); const real ppcollo = articolo.get_real(ANAMAG_PPCOLLO);
if (ppcollo > ZERO) if (ppcollo > ZERO)
{ {
@ -298,7 +283,7 @@ bool TConsegna_ordini::calcola_ncolli_tara_pnetto(const TString& codart, const r
bool TConsegna_ordini::aggiorna_ncolli_tara_pnetto(TRiga_documento& r) const bool TConsegna_ordini::aggiorna_ncolli_tara_pnetto(TRiga_documento& r) const
{ {
const TString& codart = r.get(RDOC_CODARTMAG); const TString& codart = r.get(RDOC_CODARTMAG);
TArticolo & articolo = cached_article(codart); TArticolo& articolo = cached_article(codart);
const real qta = articolo.convert_to_um(r.quantita(), NULL, r.get(RDOC_UMQTA)); const real qta = articolo.convert_to_um(r.quantita(), NULL, r.get(RDOC_UMQTA));
real ncolli, tara, pnetto; real ncolli, tara, pnetto;
@ -313,6 +298,153 @@ bool TConsegna_ordini::aggiorna_ncolli_tara_pnetto(TRiga_documento& r) const
return ok; return ok;
} }
bool TConsegna_ordini::genera_righe_riferimento(const TDocumento& indoc, TDocumento& outdoc, TSheet_field& s) const
{
// Determina ed eventualmente crea la riga di riferimento
const int riga_rif = riferimenti_in_testa() ? 1 : outdoc.physical_rows()+1;
if (riga_rif > outdoc.physical_rows())
{
TRiga_documento& rout = outdoc.new_row();
rout.forza_sola_descrizione();
}
TRiga_documento& rout = outdoc[riga_rif];
TString memo(1024);
memo = rout.get(RDOC_DESCR);
if (rout.get_bool(RDOC_DESCLUNGA))
memo << rout.get(RDOC_DESCEST);
// Costruisce la stringa di riferimento
TString rifrow(indoc.tipo().descrizione());
TString rifext;
indoc.riferimento(rifext);
const int posrif = rifext.find("[RIF]");
if (rifext.full() && posrif < 0)
{
rifrow = rifext;
rifext.cut(0);
}
const TString4 numrif = num_riferimenti_in();
if (numrif.full())
{
TAssoc_array doc_rows;
TString riferimenti;
FOR_EACH_SHEET_ROW(s, n, row)
{
const int r = row->get_int(s.cid2index(S_NUMRIGA));
if (row->get_char(0) > ' ') // E' da consegnare?
{
const TRiga_documento& rin = indoc[r];
TString query("USE RDOC KEY 4");
TString select;
const char provv = rin.get_char(RDOC_PROVV);
const int anno = rin.get_int(RDOC_ANNO);
const TString4 codnum = rin.get(RDOC_CODNUM);
const long ndoc = rin.get_long(RDOC_NDOC);
const int idriga = rin.get_int(RDOC_IDRIGA);
query << "\nSELECT CODNUM=\"" << numrif << '\"';
select.format("DAPROVV=\"%c\" DAANNO=%d DACODNUM=\"%s\" DANDOC=%ld DAIDRIGA=%d", provv, anno, (const char *) codnum, ndoc, idriga);
query << "\nFROM " << select;
query << "\nTO " << select;
TISAM_recordset recset(query);
for (bool ok = recset.move_first(); ok; ok = recset.move_next())
{
const char provv = recset.get(RDOC_PROVV).as_string()[0];
const int anno = recset.get(RDOC_ANNO).as_int();
const TString4 codnum = recset.get(RDOC_CODNUM).as_string();
const long ndoc = recset.get(RDOC_NDOC).as_int();
TString doc_key; doc_key.format("%c|%d|%s|%ld", provv, anno, (const char *) codnum, ndoc);
if (!doc_rows.is_key(doc_key))
{
const TDocumento d(provv, anno, codnum, ndoc);
TString rif;
if (!d.empty())
{
d.riferimento(rif);
TString80 nrifin = d.get(DOC_NUMDOCRIF);
if (nrifin.blank())
nrifin = d.get(DOC_DOC1);
if (nrifin.blank())
nrifin = d.get(DOC_DOC2);
if (nrifin.blank())
nrifin = d.get(DOC_DOC3);
if (usa_doc_rif() && nrifin.full())
{
rif << " n. " << nrifin;
rif << " del " << d.get(DOC_DATADOCRIF);
}
else
{
rif << " n. " << d.numero();
rif << " del " << d.data().string();
}
if (riferimenti.full())
riferimenti << '\n';
riferimenti << rif; }
doc_rows.add(doc_key);
}
}
}
}
memo.insert(riferimenti);
}
TString80 nrif = indoc.get(DOC_NUMDOCRIF);
if (nrif.blank())
nrif = indoc.get(DOC_DOC1);
if (nrif.blank())
nrif = indoc.get(DOC_DOC2);
if (nrif.blank())
nrif = indoc.get(DOC_DOC3);
if (usa_doc_rif() && nrif.full())
{
rifrow << " n. " << nrif;
rifrow << " del " << indoc.get(DOC_DATADOCRIF);
}
else
{
rifrow << " n. " << indoc.numero();
rifrow << " del " << indoc.data().string();
}
if (memo.full())
memo << '\n';
if (rifext.blank())
memo << rifrow;
else
{
if (posrif >= 0)
{
int i ;
for (i = 0; rifext[posrif + i + 5] != '\0'; i++)
rifext[posrif + i] = rifext[posrif + i + 5];
rifext[posrif + i] = '\0';
rifext.insert(rifrow, posrif);
}
memo << rifext;
}
rout.put(RDOC_DESCLUNGA, memo.len() > 50);
rout.put(RDOC_DESCR, memo.left(50));
rout.put(RDOC_DESCEST, memo.mid(50));
rout.put("RIFR", "X");
return true;
}
bool TConsegna_ordini::elabora(TLista_documenti& doc_in, TLista_documenti& doc_out, bool TConsegna_ordini::elabora(TLista_documenti& doc_in, TLista_documenti& doc_out,
const TDate& data_elab, bool interattivo) const TDate& data_elab, bool interattivo)
{ {
@ -323,32 +455,38 @@ bool TConsegna_ordini::elabora(TLista_documenti& doc_in, TLista_documenti& doc_o
CHECK(items_in == 1 || items_out == 1 || items_out == items_in, CHECK(items_in == 1 || items_out == 1 || items_out == items_in,
"Numero di documenti da elaborare 'strano'"); "Numero di documenti da elaborare 'strano'");
bool ok = true; bool ok = false; // Ho elaborato almeno una riga?
const int header_code = intestazioni_sheet(); const int header_code = intestazioni_sheet();
TConfig c(CONFIG_DITTA, "ve"); TConsegna_mask m(header_code, ordina_per_codice(), get_bool("B3"));
const bool ordina_per_doc = c.get_bool("ORDINA_PER_DOC", "ve", -1, true);
TConsegna_mask m(c, header_code, ordina_per_codice(), get_bool("B3"));
const int items_max = items_in > items_out ? items_in : items_out; const int items_max = items_in > items_out ? items_in : items_out;
const TString& articolo = params().get("ARTICOLO");
const bool multi_evasion = interattivo && articolo.full() && !real::is_null(params().get("QUANTITA"));
pre_process_input(doc_in); pre_process_input(doc_in);
for (int d = 0; d < items_max && ok; d++)
for (int d = 0; d < items_max; d++)
{ {
TDocumento& indoc = doc_in[d < items_in ? d : 0]; TDocumento& indoc = doc_in[d < items_in ? d : 0];
TDocumento& outdoc = doc_out[d < items_out ? d : 0]; TDocumento& outdoc = doc_out[d < items_out ? d : 0];
const TString& articolo = params().get("ARTICOLO");
m.doc2mask(indoc, articolo); m.doc2mask(indoc, articolo);
// if (articolo.full()) if (multi_evasion)
// params().set("QUANTITA", ZERO);
if (articolo.full())
{ {
const TString& um = params().get("UM");
m.show(F_UMQTA); m.show(F_UMQTA);
m.set(F_UMQTA, params().get("UM")); m.set(F_UMQTA, um);
m.show(F_QTA);
m.set(F_QTA, params().get("QUANTITA")); int dec = 5;
TReal_field& fld_qta = (TReal_field&)m.efield(F_QTA);
const TRectype& rum = cache().get("%UMS", um);
if (!rum.empty() && rum.get_bool("B0"))
dec = rum.get_int("I0");
fld_qta.set_decimals(dec);
fld_qta.show();
fld_qta.set(params().get("QUANTITA"));
} }
else else
{ {
@ -356,360 +494,234 @@ bool TConsegna_ordini::elabora(TLista_documenti& doc_in, TLista_documenti& doc_o
m.hide(F_QTA); m.hide(F_QTA);
} }
ok = m.run() == K_ENTER; if (m.run() != K_ENTER)
if (ok) break;
TSheet_field& s = m.sfield(F_ROWS);
bool one_checked = false;
if (!s.empty())
{ {
if (gestione_riferimenti())
{
// Determina ed eventualmente crea la riga di riferimento
const int riga_rif = riferimenti_in_testa() ? 1 : outdoc.physical_rows()+1;
if (riga_rif > outdoc.physical_rows())
{
TRiga_documento& rout = outdoc.new_row();
rout.forza_sola_descrizione();
}
TRiga_documento& rout = outdoc[riga_rif];
TString memo(1024);
memo = rout.get(RDOC_DESCR);
if (rout.get_bool(RDOC_DESCLUNGA))
memo << rout.get(RDOC_DESCEST);
// Costruisce la stringa di riferimento
TString rifrow(indoc.tipo().descrizione());
TString rifext;
indoc.riferimento(rifext);
const int posrif = rifext.find("[RIF]");
if (rifext.full() && posrif < 0)
{
rifrow = rifext;
rifext.cut(0);
}
const TString4 numrif = num_riferimenti_in();
if (numrif.full())
{
TSheet_field& s = m.sfield(F_ROWS);
TAssoc_array doc_rows;
TString riferimenti;
FOR_EACH_SHEET_ROW(s, n, row)
{
const int r = row->get_int(s.cid2index(S_NUMRIGA));
if (row->get_char(0) > ' ') // E' da consegnare?
{
const TRiga_documento& rin = indoc[r];
TString query("USE RDOC KEY 4");
TString select;
const char provv = rin.get_char(RDOC_PROVV);
const int anno = rin.get_int(RDOC_ANNO);
const TString4 codnum = rin.get(RDOC_CODNUM);
const long ndoc = rin.get_long(RDOC_NDOC);
const int idriga = rin.get_int(RDOC_IDRIGA);
query << "\nSELECT CODNUM=\"" << numrif << '\"';
select.format("DAPROVV=\"%c\" DAANNO=%d DACODNUM=\"%s\" DANDOC=%ld DAIDRIGA=%d", provv, anno, (const char *) codnum, ndoc, idriga);
query << "\nFROM " << select;
query << "\nTO " << select;
TISAM_recordset recset(query);
for (bool ok = recset.move_first(); ok; ok = recset.move_next())
{
const char provv = recset.get(RDOC_PROVV).as_string()[0];
const int anno = recset.get(RDOC_ANNO).as_int();
const TString4 codnum = recset.get(RDOC_CODNUM).as_string();
const long ndoc = recset.get(RDOC_NDOC).as_int();
TString doc_key; doc_key.format("%c|%d|%s|%ld", provv, anno, (const char *) codnum, ndoc);
if (!doc_rows.is_key(doc_key))
{
const TDocumento d(provv, anno, codnum, ndoc);
TString rif;
if (!d.empty())
{
d.riferimento(rif);
TString80 nrifin = d.get(DOC_NUMDOCRIF);
if (nrifin.blank())
nrifin = d.get(DOC_DOC1);
if (nrifin.blank())
nrifin = d.get(DOC_DOC2);
if (nrifin.blank())
nrifin = d.get(DOC_DOC3);
if (usa_doc_rif() && nrifin.full())
{
rif << " n. " << nrifin;
rif << " del " << d.get(DOC_DATADOCRIF);
}
else
{
rif << " n. " << d.numero();
rif << " del " << d.data().string();
}
if (riferimenti.full())
riferimenti << '\n';
riferimenti << rif; }
doc_rows.add(doc_key);
}
}
}
}
memo.insert(riferimenti);
}
TString80 nrif = indoc.get(DOC_NUMDOCRIF);
if (nrif.blank())
nrif = indoc.get(DOC_DOC1);
if (nrif.blank())
nrif = indoc.get(DOC_DOC2);
if (nrif.blank())
nrif = indoc.get(DOC_DOC3);
if (usa_doc_rif() && nrif.full())
{
rifrow << " n. " << nrif;
rifrow << " del " << indoc.get(DOC_DATADOCRIF);
}
else
{
rifrow << " n. " << indoc.numero();
rifrow << " del " << indoc.data().string();
}
if (memo.full())
memo << '\n';
if (rifext.blank())
memo << rifrow;
else
{
if (posrif >= 0)
{
int i ;
for (i = 0; rifext[posrif + i + 5] != '\0'; i++)
rifext[posrif + i] = rifext[posrif + i + 5];
rifext[posrif + i] = '\0';
rifext.insert(rifrow, posrif);
}
memo << rifext;
}
rout.put(RDOC_DESCLUNGA, memo.len() > 50);
rout.put(RDOC_DESCR, memo.left(50));
rout.put(RDOC_DESCEST, memo.mid(50));
rout.put("RIFR", "X");
}
TToken_string campi_riga(80);
const bool ragg_rig = raggruppa_righe();
if (ragg_rig)
{
campi_riga = "CODART|LIVELLO|UMQTA"; // Uguali sempre
// Uguali opzionalmente
if (riga_uguale(0)) campi_riga.add("CODMAG");
if (riga_uguale(1)) campi_riga.add("CODIVA");
if (riga_uguale(2)) campi_riga.add("PREZZO|SCONTO");
}
const bool evadi = outdoc.tipo().da_evadere();
TAssoc_array scarti;
TSheet_field& s = m.sfield(F_ROWS);
FOR_EACH_SHEET_ROW(s, n, row) FOR_EACH_SHEET_ROW(s, n, row)
{ {
const int r = row->get_int(s.cid2index(S_NUMRIGA)); one_checked = row->get_char(0) > ' '; // E' da consegnare?;
if (row->get_char(0) > ' ') // E' da consegnare? if (one_checked)
{ break;
TRiga_documento& inrec = indoc[r]; }
const real daeva = row->get(S_QTADAEVADERE - FIRST_FIELD); }
const bool eva = row->get_char(S_RIGAEVASA - FIRST_FIELD) > ' '; if (!one_checked)
if (evadi && (daeva > ZERO || eva)) continue;
{
const char* fqe = inrec.field_qtaevasa(); // Genera riferimenti solo se c'e' almeno una riga spuntata
inrec.add(fqe, daeva); // nuovo modo di incrementare if (gestione_riferimenti())
inrec.put(RDOC_RIGAEVASA, eva ? "X" : ""); genera_righe_riferimento(indoc, outdoc, s);
TToken_string campi_riga(80);
const bool ragg_rig = raggruppa_righe();
if (ragg_rig)
{
campi_riga = "CODART|LIVELLO|UMQTA"; // Uguali sempre
// Uguali opzionalmente
if (riga_uguale(0)) campi_riga.add("CODMAG");
if (riga_uguale(1)) campi_riga.add("CODIVA");
if (riga_uguale(2)) campi_riga.add("PREZZO|SCONTO");
}
if (eva && calcola_scarti()) const bool evadi = outdoc.tipo().da_evadere();
TAssoc_array scarti;
FOR_EACH_SHEET_ROW(s, n, row)
{
const int r = row->get_int(s.cid2index(S_NUMRIGA));
TRiga_documento& inrec = indoc[r];
if (row->get_char(0) > ' ') // E' da consegnare?
{
const real daeva = row->get(S_QTADAEVADERE - FIRST_FIELD);
const bool eva = row->get_char(S_RIGAEVASA - FIRST_FIELD) > ' ';
if (evadi && (daeva > ZERO || eva))
{
ok = true; // Ho evaso almeno una riga!
const char* fqe = inrec.field_qtaevasa();
inrec.add(fqe, daeva); // nuovo modo di incrementare
inrec.put(RDOC_RIGAEVASA, eva ? "X" : "");
if (eva && calcola_scarti())
{
real scarto = inrec.quantita() - inrec.qtaevasa();
if (scarto > ZERO)
{ {
real scarto = inrec.quantita() - inrec.qtaevasa(); const TString& articolo = inrec.get(RDOC_CODARTMAG);
if (scarto > ZERO) if (articolo.full())
{ {
const TString& articolo = inrec.get(RDOC_CODARTMAG); TToken_string* ska = (TToken_string*)scarti.objptr(articolo);
if (articolo.full()) if (ska == NULL)
{ {
TToken_string* ska = (TToken_string*)scarti.objptr(articolo); ska = new TToken_string(inrec.get(RDOC_UMQTA));
if (ska == NULL) ska->add(scarto.string(), 1);
{ scarti.add(articolo, ska);
ska = new TToken_string(inrec.get(RDOC_UMQTA));
ska->add(scarto.string(), 1);
scarti.add(articolo, ska);
}
else
{
scarto = inrec.articolo().convert_to_um(scarto, inrec.get(RDOC_UMQTA), ska->get(0));
real s = ska->get(1); s += scarto;
ska->add(s.string(), 1);
}
ska->add(r, 2);
} }
else
{
scarto = inrec.articolo().convert_to_um(scarto, inrec.get(RDOC_UMQTA), ska->get(0));
real s = ska->get(1); s += scarto;
ska->add(s.string(), 1);
}
ska->add(r, 2);
} }
} }
} }
if (articolo.not_empty()) }
{ if (multi_evasion)
const TString4 um(inrec.get(RDOC_UMQTA)); {
const real qta = inrec.articolo().convert_to_um(daeva, params().get("UM"), um); const TString4 um = inrec.get(RDOC_UMQTA);
params().set("QUANTITA", params().get_real("QUANTITA") - qta); const real qta = inrec.articolo().convert_to_um(daeva, params().get("UM"), um);
} params().set("QUANTITA", params().get_real("QUANTITA") - qta);
}
bool elaborata = false; bool elaborata = false;
if (ragg_rig) if (ragg_rig)
{
for (int i = 1; i <= outdoc.physical_rows(); i++)
{ {
for (int i = 1; i <= outdoc.physical_rows(); i++) TRiga_documento& outrec = outdoc[i];
{ if (outrec.sola_descrizione()) // Ignora le righe descrittive
TRiga_documento& outrec = outdoc[i]; continue;
if (outrec.sola_descrizione()) // Ignora le righe descrittive if (inrec.raggruppabile(outrec, campi_riga)) // Se esiste una riga compatibile ...
continue; {
if (inrec.raggruppabile(outrec, campi_riga)) // Se esiste una riga compatibile ... if (!daeva.is_zero())
{ {
if (!daeva.is_zero()) const TString& qta_field = outrec.field_qta();
{ outrec.add(qta_field, daeva); // nuovo modo di incrementare
const TString& qta_field = outrec.field_qta();
outrec.add(qta_field, daeva); // nuovo modo di incrementare
real ncolli, tara, pnetto; real ncolli, tara, pnetto;
calcola_ncolli_tara_pnetto(outrec.get(RDOC_CODARTMAG), daeva, ncolli, tara, pnetto); calcola_ncolli_tara_pnetto(outrec.get(RDOC_CODARTMAG), daeva, ncolli, tara, pnetto);
outrec.add(RDOC_NCOLLI, ncolli); outrec.add(RDOC_NCOLLI, ncolli);
outrec.add(RDOC_TARA, tara); outrec.add(RDOC_TARA, tara);
outrec.add(RDOC_PNETTO, pnetto); outrec.add(RDOC_PNETTO, pnetto);
outrec.dirty_fields(); // Forza ricalcolo formule outrec.dirty_fields(); // Forza ricalcolo formule
} }
elaborata = true; // Ricorda di averla gia' elaborata elaborata = true; // Ricorda di averla gia' elaborata
break; break;
}
} }
}
}
if (!elaborata) // Se la riga non e' stata gia' sommata ...
{
int j = outdoc.physical_rows();
const bool ordina_per_doc = ini_get_bool(CONFIG_DITTA, "ve", "ORDINA_PER_DOC", true);
if (ordina_per_doc)
{
TToken_string key = inrec.get_rdoc_key();
key.add("",4);
for (; j >= 1; j--)
{
TToken_string keyrow = outdoc[j].get_original_rdoc_key();
keyrow.add("",4);
if (key == keyrow)
break;
}
}
const TString4 tiporiga = inrec.get(RDOC_TIPORIGA);
TRiga_documento& outrec = j < 1 || j >= outdoc.physical_rows() ? outdoc.new_row(tiporiga) : outdoc.insert_row(j + 1, tiporiga);
const TString& qta_field_orig = inrec.field_qta();
const TString& qta_field = outrec.field_qta();
const TString& qtaevasa_field = inrec.field_qtaevasa();
TDocumento::copy_data(outrec, inrec);
if (qta_field_orig != RDOC_QTA)
{
outrec.put(RDOC_QTA, UNO);
outrec.put(qta_field_orig, daeva);
}
else
{
outrec.put(qta_field, daeva);
if (qta_field != RDOC_QTA)
outrec.put(RDOC_QTA, UNO);
}
aggiorna_ncolli_tara_pnetto(outrec);
if (outrec.tipo().tipo() != RIGA_DESCRIZIONI && kill_descrizione_estesa()) // Cancello eventualmente la descrizione estesa
{
outrec.zero(RDOC_DESCLUNGA);
outrec.zero(RDOC_DESCEST);
} }
if (!elaborata) // Se la riga non e' stata gia' sommata ...
{
int j = outdoc.physical_rows();
if (ordina_per_doc) outrec.dirty_fields(); // Forza ricalcolo peso etc.
outrec.zero(qtaevasa_field); // Azzera quantita' evasa erroneamente copiata dall'ordine
outrec.zero(RDOC_RIGAEVASA); // Azzera flag di evasa erroneamente copiata dall'ordine
outrec.set_original_rdoc_key(inrec);
if (reload_prices())
outrec.zero(RDOC_CHECKED);
if (prezzo_da_ordine())
{
//const bool doc_al_lordo = outdoc.tipo().calcolo_lordo();
const TString & codart = outrec.get(RDOC_CODARTMAG);
const TRectype & anamag = cache().get(LF_ANAMAG, codart);
if (!anamag.empty())
{ {
TToken_string key = inrec.get_rdoc_key(); const TString16 field_prezzo = outdoc.tipo().field_prezzo();
if (field_prezzo.full())
key.add("",4); outrec.put(RDOC_PREZZO, anamag.get_real(field_prezzo));
for (; j >= 1; j--) else
{ {
TToken_string keyrow = outdoc[j].get_original_rdoc_key(); const TString4 um = outrec.get(RDOC_UMQTA);
keyrow.add("",4); if (um.full())
{
if (key == keyrow) TLocalisamfile umart(LF_UMART);
break; umart.setkey(2);
umart.put(UMART_CODART, codart);
umart.put(UMART_UM, um);
if (umart.read() == NOERR)
outrec.put(RDOC_PREZZO, umart.get_real(UMART_PREZZO));
}
} }
} }
const TString4 tiporiga = inrec.get(RDOC_TIPORIGA); }
TRiga_documento& outrec = j < 1 || j >= outdoc.physical_rows() ? outdoc.new_row(tiporiga) : outdoc.insert_row(j + 1, tiporiga);
const TString& qta_field_orig = inrec.field_qta(); const int last_row = outdoc.physical_rows();
const TString& qta_field = outrec.field_qta(); if (j > 0 && last_row > 0 && gestione_riferimenti())
const TString& qtaevasa_field = inrec.field_qtaevasa(); {
const TRiga_documento& last_rdoc = outdoc[last_row];
TDocumento::copy_data(outrec, inrec); if (last_rdoc.is_descrizione() && last_rdoc.get("RIFR").full())
if (qta_field_orig != RDOC_QTA)
{
outrec.put(RDOC_QTA, UNO);
outrec.put(qta_field_orig, daeva);
}
else
{
outrec.put(qta_field, daeva);
if (qta_field != RDOC_QTA)
outrec.put(RDOC_QTA, UNO);
}
aggiorna_ncolli_tara_pnetto(outrec);
if (outrec.tipo().tipo() != RIGA_DESCRIZIONI && kill_descrizione_estesa()) // Cancello eventualmente la descrizione estesa
{
outrec.zero(RDOC_DESCLUNGA);
outrec.zero(RDOC_DESCEST);
}
outrec.dirty_fields(); // Forza ricalcolo peso etc.
outrec.zero(qtaevasa_field); // Azzera quantita' evasa erroneamente copiata dall'ordine
outrec.zero(RDOC_RIGAEVASA); // Azzera flag di evasa erroneamente copiata dall'ordine
outrec.set_original_rdoc_key(inrec);
if (reload_prices())
outrec.zero(RDOC_CHECKED);
if (prezzo_da_ordine())
{
const TString & codart = outrec.get(RDOC_CODARTMAG);
const bool doc_al_lordo = outdoc.tipo().calcolo_lordo();
const TRectype & anamag = cache().get(LF_ANAMAG, codart);
if (!anamag.empty())
{
TString16 field_prezzo(outdoc.tipo().field_prezzo());
if (field_prezzo.full())
outrec.put(RDOC_PREZZO, anamag.get_real(field_prezzo));
else
{
const TString16 um(outrec.get(RDOC_UMQTA));
if (um.full())
{
TLocalisamfile umart(LF_UMART);
umart.setkey(2);
umart.put("CODART", codart);
umart.put("UM", um);
if (umart.read() == NOERR)
outrec.put(RDOC_PREZZO, umart.get_real("PREZZO"));
}
}
}
}
const int last_row = outdoc.physical_rows();
if (gestione_riferimenti() && j > 0 && last_row > 0 && outdoc[last_row].tipo().tipo() == RIGA_DESCRIZIONI && outdoc[last_row].get("RIFR").full())
outdoc.destroy_row(last_row, true); outdoc.destroy_row(last_row, true);
} }
} }
}
// Inserisce le eventuali righe di scarto al posto giusto
FOR_EACH_ASSOC_OBJECT(scarti, h, codart, obj)
{
TString4 tiporiga = "01"; // Riga merce standard
int i = 0;
// Cerca l'ultima riga del documento avente lo stesso articolo dello scarto
for (i = outdoc.physical_rows(); i > 0; i--)
{
const TRiga_documento& or = outdoc[i];
if (or.get(RDOC_CODARTMAG) == codart && or.is_articolo())
{
tiporiga = or.get(RDOC_TIPORIGA); // Memorizza tipo riga preferito dall'utente
break;
}
}
// Crea una nuova riga merce senza articolo e con sola descrizione, qta ed um
TRiga_documento& outrec = outdoc.insert_row(i+1, tiporiga);
TString descr;
descr << TR("Scarto") << ' ' << codart;
outrec.put(RDOC_DESCR, descr);
TToken_string& ska = *(TToken_string*)obj;
outrec.put(RDOC_UMQTA, ska.get(0));
outrec.put(RDOC_QTA, ska.get());
const TRiga_documento & inrec = indoc[ska.get_int()];
outrec.set_original_rdoc_key(inrec);
} }
} }
// Inserisce le eventuali righe di scarto al posto giusto
FOR_EACH_ASSOC_OBJECT(scarti, h, codart, obj)
{
TString4 tiporiga = "01"; // Riga merce standard
int i = 0;
// Cerca l'ultima riga del documento avente lo stesso articolo dello scarto
for (i = outdoc.physical_rows(); i > 0; i--)
{
const TRiga_documento& or = outdoc[i];
if (or.get(RDOC_CODARTMAG) == codart && or.is_articolo())
{
tiporiga = or.get(RDOC_TIPORIGA); // Memorizza tipo riga preferito dall'utente
break;
}
}
// Crea una nuova riga merce senza articolo e con sola descrizione, qta ed um
TRiga_documento& outrec = outdoc.insert_row(i+1, tiporiga);
TString descr;
descr << TR("Scarto") << ' ' << codart;
outrec.put(RDOC_DESCR, descr);
TToken_string& ska = *(TToken_string*)obj;
outrec.put(RDOC_UMQTA, ska.get(0));
outrec.put(RDOC_QTA, ska.get());
const TRiga_documento & inrec = indoc[ska.get_int()];
outrec.set_original_rdoc_key(inrec);
}
if (reload_prices()) if (reload_prices())
{ {
TDocumento_mask * m = new TDocumento_mask(outdoc.get(DOC_TIPODOC)); TDocumento_mask * m = new TDocumento_mask(outdoc.get(DOC_TIPODOC));
@ -723,11 +735,9 @@ bool TConsegna_ordini::elabora(TLista_documenti& doc_in, TLista_documenti& doc_o
if (nettifica()) if (nettifica())
{ {
int i; FOR_EACH_PHYSICAL_RDOC_BACK(indoc, i, rdoc)
for (i = indoc.physical_rows(); i >= 1; i--)
{ {
TRiga_documento& inrec = indoc[i]; TRiga_documento& inrec = *rdoc;
const int nrow = inrec.get_int(RDOC_NRIGA); const int nrow = inrec.get_int(RDOC_NRIGA);
if (inrec.is_evasa()) if (inrec.is_evasa())
@ -744,11 +754,14 @@ bool TConsegna_ordini::elabora(TLista_documenti& doc_in, TLista_documenti& doc_o
} }
} }
if (indoc.is_evaso()) if (indoc.is_evaso())
{
indoc.stato(stato_finale_doc_iniziale()[0]); indoc.stato(stato_finale_doc_iniziale()[0]);
} }
if (ok) // Ho elaborato almeno una riga?
{
post_process_input(doc_in); post_process_input(doc_in);
post_process(doc_out, doc_in); post_process(doc_out, doc_in);
} }
return ok; return ok;
} }

127
ve/velib06.cpp
View File

@ -2927,6 +2927,19 @@ bool TElabora_mask::on_field_event(TOperable_field& o, TField_event e, long joll
if (e == fe_modify) if (e == fe_modify)
update_ndoc_filter(); update_ndoc_filter();
break; break;
case F_UMQTA:
if (e == fe_init || e == fe_modify)
{
int dec = 5;
if (!o.empty())
{
const TRectype& um = cache().get("%UMS", o.get());
if (!um.empty() && um.get_bool("B0")) // Ha dei decimali specificati?
dec = um.get_int("I0");
}
((TReal_field&)field(F_QTA)).set_decimals(dec);
}
break;
case F_TYPE: case F_TYPE:
if (e == fe_init || e == fe_modify) if (e == fe_init || e == fe_modify)
{ {
@ -2956,7 +2969,7 @@ bool TElabora_mask::on_field_event(TOperable_field& o, TField_event e, long joll
const TString_array& handlers = _main->doc().tipo().handlers(); const TString_array& handlers = _main->doc().tipo().handlers();
const int items = handlers.items(); const int items = handlers.items();
for (int i = 0; i < items; i ++ ) for (int i = 0; i < items; i++)
{ {
TToken_string& riga = (TToken_string&) handlers[i]; TToken_string& riga = (TToken_string&) handlers[i];
@ -3128,10 +3141,10 @@ bool TElabora_mask::on_field_event(TOperable_field& o, TField_event e, long joll
int TElabora_mask::update_list() int TElabora_mask::update_list()
{ {
TString_array elabs; TString_array elabs;
const TString16 tipo(_main->get(F_TIPODOC)); const TString4 tipo(_main->get(F_TIPODOC));
const TString16 stato(_main->get(F_STATO)); const TString4 stato(_main->get(F_STATO));
const TString16 tipo_elab(get(F_TIPODOC_ELAB)); const TString4 tipo_elab(get(F_TIPODOC_ELAB));
const TString16 stato_elab(get(F_STATODOC_ELAB)); const TString4 stato_elab(get(F_STATODOC_ELAB));
const bool from_elab = !get_bool(F_TYPE); const bool from_elab = !get_bool(F_TYPE);
int items = 0; int items = 0;
@ -3146,7 +3159,7 @@ int TElabora_mask::update_list()
items = _elab.select(elabs, tipo_elab, stato_elab, tipo, stato); items = _elab.select(elabs, tipo_elab, stato_elab, tipo, stato);
} }
TList_field & f = (TList_field &) field(F_ELAB); TList_field & f = lfield(F_ELAB);
TToken_string codes; TToken_string codes;
TToken_string descrs; TToken_string descrs;
for (int i = 0; i < items; i++) for (int i = 0; i < items; i++)
@ -3301,6 +3314,13 @@ bool TElabora_mask::elabora()
update_mask = true; update_mask = true;
} }
in.rewrite(); in.rewrite();
// Aggiorna eventuale residuo da consegnare
if (e->tipo() == _consegna_ordini)
{
TParametri_elaborazione& p = e->params();
set(F_QTA, p.get("QUANTITA"));
}
} }
const TString8 num_in = e->codice_numerazione_iniziale(); const TString8 num_in = e->codice_numerazione_iniziale();
set(F_CODNUM_ELAB, num_in); set(F_CODNUM_ELAB, num_in);
@ -3330,7 +3350,7 @@ TElaborazione * TElabora_mask::curr_elab()
void TElabora_mask::add_valuta_filter(TString& filter) const void TElabora_mask::add_valuta_filter(TString& filter) const
{ {
TString16 valuta = get(F_CODVAL_ELAB); TString4 valuta = get(F_CODVAL_ELAB);
if (::is_firm_value(valuta)) if (::is_firm_value(valuta))
{ {
filter << "((CODVAL==\"" << valuta << "\")"; filter << "((CODVAL==\"" << valuta << "\")";
@ -3394,7 +3414,7 @@ void TElabora_mask::update_ndoc_filter(bool is_tipo_elaborazione)
//field(F_STATODOC_ELAB).check(); // sostituito da 0x2 //field(F_STATODOC_ELAB).check(); // sostituito da 0x2
// Azzero anno di elaaborazione quando ho a che fare con degli ordini // Azzero anno di elaaborazione quando ho a che fare con degli ordini
const TTipo_documento& tipodocin = cached_tipodoc(tipo_in); const TTipo_documento& tipodocin = cached_tipodoc(tipo_in);
if (tipodocin.is_ordine()) if (tipodocin.is_ordine())
reset(F_ANNO_ELAB); reset(F_ANNO_ELAB);
} }
@ -3435,18 +3455,18 @@ void TElabora_mask::update_ndoc_filter(bool is_tipo_elaborazione)
} }
else else
{ {
bool almost_one = FALSE; bool almost_one = false;
for (int i = 0; i < TElaborazione::_max_tipi_doc_elab; i++) for (int i = 0; i < TElaborazione::_max_tipi_doc_elab; i++)
{ {
const TString16 tipo_in(e->tipo_iniziale(i)); const TString4 tipo_in(e->tipo_iniziale(i));
if (tipo_in.not_empty()) if (tipo_in.full())
{ {
if (almost_one) if (almost_one)
filter << "||"; filter << "||";
else else
filter << "&&("; filter << "&&(";
almost_one = TRUE; almost_one = true;
filter << "((TIPODOC==\"" << tipo_in << "\")"; filter << "((TIPODOC==\"" << tipo_in << "\")";
const char stato_in[2] = { e->stato_iniziale(i), '\0' }; const char stato_in[2] = { e->stato_iniziale(i), '\0' };
@ -3599,55 +3619,54 @@ bool TDocumento_mask::elabora_handler( TMask_field& f, KEY key )
{ {
TDocumento_mask& m = (TDocumento_mask&)f.mask(); TDocumento_mask& m = (TDocumento_mask&)f.mask();
m.update_progs(); m.update_progs();
if (m.check_fields()) // Check values if (!m.check_fields()) // Check values
return false;
TElabora_mask* selection = new TElabora_mask(m); // No woman no stack
bool do_checks = false;
const char stato_iniziale = m.doc().stato();
m.update_father_rows();
while (selection->run() == K_ENTER) //NON riportare modifiche dalla 3.1!! Già sistemato
{ {
TElabora_mask* selection = new TElabora_mask(m); // No woman no stack m.mask2doc();
bool do_checks = false; const bool processed = selection->elabora();
const char stato_iniziale = m.doc().stato(); do_checks |= processed;
m.update_father_rows();
while (selection->run() == K_ENTER) //NON riportare modifiche dalla 3.1!! Già sistemato
{
m.mask2doc();
const bool processed = selection->elabora();
do_checks |= processed;
if (m.doc().stato() != stato_iniziale) if (m.doc().stato() != stato_iniziale)
break; break;
if (processed) if (processed)
{ {
m.doc2mask(false); m.doc2mask(false);
TSheet_field& ss = m.sfield(F_SHEET); TSheet_field& ss = m.sfield(F_SHEET);
for (int i = 0; i < ss.items(); i++) for (int i = 0; i < ss.items(); i++)
{
m.ss_notify(ss,i,K_TAB);
m.ss_notify(ss,i,K_SPACE);
m.ss_notify(ss,i,K_ENTER);
}
}
if (!m.get_bool(F_TYPE)) // non aggiunge al documento attuale
break;
}
if (do_checks) //NON riportare modifiche dalla 3.1!! Già sistemato
{
m.doc2mask(false);
// Provoca decodifiche necessarie
const int tutti = m.fields();
int i;
for (i = 0; i < tutti; i++)
{ {
TMask_field& f = m.fld(i); m.ss_notify(ss,i,K_TAB);
if (f.dlg() <= BASE_PIEDE) m.ss_notify(ss,i,K_SPACE);
f.check(STARTING_CHECK); m.ss_notify(ss,i,K_ENTER);
} }
for (i = tutti-1; i >= 0; i--)
m.fld(i).set_dirty(FALSE);
} }
m.update_father_rows(false);
delete selection; if (!selection->get_bool(F_TYPE)) // non aggiunge al documento attuale
break;
} }
if (do_checks) //NON riportare modifiche dalla 3.1!! Già sistemato
{
m.doc2mask(false);
// Provoca decodifiche necessarie
const int tutti = m.fields();
int i;
for (i = 0; i < tutti; i++)
{
TMask_field& f = m.fld(i);
if (f.dlg() <= BASE_PIEDE)
f.check(STARTING_CHECK);
}
for (i = tutti-1; i >= 0; i--)
m.fld(i).set_dirty(FALSE);
}
m.update_father_rows(false);
delete selection;
} }
return true; return true;
} }