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

Patch level : 12.00 1388

Browse Source 
Files correlati     : cg0.exe ve0.exe

Commento:
Trasformazione occasionali in clienti/fornitori
This commit is contained in:
Alessandro Bonazzi 2025-04-11 15:18:53 +02:00
parent 98be734862
commit efa0663940
3 changed files with 137 additions and 221 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ve/ve0100o.h
View File

@ -32,6 +32,7 @@
#define O_TEL3 127 #define O_TEL3 127
#define O_TIPOCF 128 #define O_TIPOCF 128
#define O_CODCF 129 #define O_CODCF 129
#define O_AGGCF 130
#define DLG_CLIFOR 150
#endif #endif

41
src/ve/ve0100o.uml
View File

@ -2,9 +2,15 @@
TOOLBAR "topbar" 0 0 0 2 TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_CLIFOR 2 2
BEGIN
PROMPT -13 1 "->~Cli/For"
PICTURE TOOL_EDIT
END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -23 -1 ""
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
@ -286,11 +292,6 @@ BEGIN
HELP "Numero telefonico terzo recapito" HELP "Numero telefonico terzo recapito"
END END
BUTTON DLG_ELABORA 12 2
BEGIN
PROMPT 2 22 "Crea Cliente"
END
LIST O_TIPOCF 1 12 LIST O_TIPOCF 1 12
BEGIN BEGIN
PROMPT 17 22 "Tipo " PROMPT 17 22 "Tipo "
@ -303,37 +304,9 @@ END
NUMBER O_CODCF 6 NUMBER O_CODCF 6
BEGIN BEGIN
PROMPT 41 22 "Codice " PROMPT 41 22 "Codice "
USE LF_CLIFO
INPUT TIPOCF O_TIPOCF SELECT
INPUT CODCF O_CODCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Partita IVA@12" PAIV
DISPLAY "Partita IVA@16" COFI
OUTPUT O_TIPOCF TIPOCF
OUTPUT O_CODCF CODCF
CHECKTYPE NORMAL
END
BOOLEAN O_AGGCF
BEGIN
PROMPT 17 23 "Aggiorna dati cliente"
END
STRING DLG_NULL 50 32
BEGIN
PROMPT 1 -1 "Ultimo aggiornamento "
FLAGS "D" FLAGS "D"
FIELD UTENTE
END END
DATE DLG_NULL
BEGIN
PROMPT 60 -1 ""
FLAGS "D"
FIELD DATAAGG
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

192
src/ve/velib06.cpp
View File

@ -1,10 +1,13 @@
#include <colmask.h> #include <colmask.h>
#include <dongle.h> #include <dongle.h>
#include <defmask.h>
#include <execp.h> #include <execp.h>
#include <multirel.h> #include <multirel.h>
#include <postman.h> #include <postman.h>
#include <progind.h>
#include <recset.h> #include <recset.h>
#include <sheet.h> #include <sheet.h>
#include <transaction.h>
#include <treectrl.h> #include <treectrl.h>
#include <toolfld.h> #include <toolfld.h>
#include <urldefid.h> #include <urldefid.h>
@ -153,6 +156,7 @@ TDocumento_mask::TDocumento_mask(const char* td)
set_field_handler( F_DATADOCRIF, datadocrif_handler); set_field_handler( F_DATADOCRIF, datadocrif_handler);
set_field_handler( F_LIQDIFF, liqdiff_handler); set_field_handler( F_LIQDIFF, liqdiff_handler);
set_field_handler(F_TIPO_SDI, tipodocsdi_handler); set_field_handler(F_TIPO_SDI, tipodocsdi_handler);
set_field_handler( F_SHEET, sheet_handler); set_field_handler( F_SHEET, sheet_handler);
set_handler( DLG_ELABORA, elabora_handler ); set_handler( DLG_ELABORA, elabora_handler );
set_handler( DLG_PRINT, print_handler ); set_handler( DLG_PRINT, print_handler );
@ -163,6 +167,7 @@ TDocumento_mask::TDocumento_mask(const char* td)
set_handler( DLG_BARCODE, barcode_handler ); set_handler( DLG_BARCODE, barcode_handler );
const TPointer_array& handlers = tdoc.handlers(); const TPointer_array& handlers = tdoc.handlers();
FOR_EACH_ARRAY_ITEM(handlers, r, riga) FOR_EACH_ARRAY_ITEM(handlers, r, riga)
user_set_handler( r, (int)riga); user_set_handler( r, (int)riga);
@ -474,6 +479,7 @@ TDocumento_mask::TDocumento_mask(const char* td)
// Legge i colori personalizzati dal .ini gestito dalla TSelect_color_mask // Legge i colori personalizzati dal .ini gestito dalla TSelect_color_mask
TString tmp; tmp << doc().tipo().mask_name() << "_0"; tmp.lower(); TString tmp; tmp << doc().tipo().mask_name() << "_0"; tmp.lower();
TConfig conf(CONFIG_GUI, tmp); TConfig conf(CONFIG_GUI, tmp);
conf.write_protect(); conf.write_protect();
FOR_EACH_ARRAY_ITEM(color_rules(), j, o) FOR_EACH_ARRAY_ITEM(color_rules(), j, o)
{ {
@ -511,12 +517,15 @@ int TDocumento_mask::insert_anal_fields(TMask& m, int page, int lf, int& y,
{ {
TEdit_field& fld = m.efield(dlg+i); TEdit_field& fld = m.efield(dlg+i);
int logic = lf; int logic = lf;
if (logic == LF_FASI) if (logic == LF_FASI)
{ {
const TMultilevel_code_info& fasinfo = ca_multilevel_code_info(LF_FASI); const TMultilevel_code_info& fasinfo = ca_multilevel_code_info(LF_FASI);
if (fasinfo.parent() != 0) if (fasinfo.parent() != 0)
{ {
const TMultilevel_code_info& parinfo = ca_multilevel_code_info(fasinfo.parent()); const TMultilevel_code_info& parinfo = ca_multilevel_code_info(fasinfo.parent());
if (i < parinfo.levels()) if (i < parinfo.levels())
logic = fasinfo.parent(); logic = fasinfo.parent();
} }
@ -656,11 +665,16 @@ void TDocumento_mask::insert_anal_page()
set_field_handler(_fsc_end, codfase_handler); set_field_handler(_fsc_end, codfase_handler);
} }
//aggiunge campi per date di competenza (inizio e fine) //aggiunge campi per date di competenza (inizio e fine)
add_static(DLG_NULL, newpage, TR("@bDate di competenza"), 2, y); add_static(DLG_NULL, newpage, TR("@bDate di competenza"), 2, y);
const TFixed_string f_datacomp = DOC_DATACOMP; const TFixed_string f_datacomp = DOC_DATACOMP;
add_date(F_DATACOMP, newpage, "Inizio ", 30, y).set_field(f_datacomp); add_date(F_DATACOMP, newpage, "Inizio ", 30, y).set_field(f_datacomp);
const TFixed_string f_datafcomp = DOC_DATAFCOMP; const TFixed_string f_datafcomp = DOC_DATAFCOMP;
add_date(F_DATAFCOMP, newpage, "Fine ", 59, y).set_field(f_datafcomp); add_date(F_DATAFCOMP, newpage, "Fine ", 59, y).set_field(f_datafcomp);
set_field_handler(F_DATACOMP, datacomp_handler); //gestore del campo inizio competenza.. set_field_handler(F_DATACOMP, datacomp_handler); //gestore del campo inizio competenza..
set_field_handler(F_DATAFCOMP, datafcomp_handler); //..e della fine competenza set_field_handler(F_DATAFCOMP, datafcomp_handler); //..e della fine competenza
@ -849,7 +863,8 @@ TCond_vendita& TDocumento_mask::condv() const
if (_condv == NULL) if (_condv == NULL)
{ {
TDocumento_mask* myself = (TDocumento_mask*)this; TDocumento_mask* myself = (TDocumento_mask*)this;
myself->_condv = new TCond_vendita(myself, NULL);
myself->_condv = new TCond_vendita(myself, nullptr);
} }
return *_condv; return *_condv;
} }
@ -877,6 +892,7 @@ void TDocumento_mask::update_progs(bool stop_run)
if (page == field_page || stop_run) if (page == field_page || stop_run)
{ {
const TFieldref* recfld = mf.field(); const TFieldref* recfld = mf.field();
if (recfld != NULL) if (recfld != NULL)
{ {
const TString & name = recfld->name(); const TString & name = recfld->name();
@ -957,6 +973,7 @@ bool TDocumento_mask::on_key(KEY key)
TRelation r(LF_DOC); TRelation r(LF_DOC);
r.curr()=doc(); r.curr()=doc();
bool can_save = !doc().bloccato() && !doc().chiuso(); bool can_save = !doc().bloccato() && !doc().chiuso();
if (can_save && ::user_can_write(&r)) if (can_save && ::user_can_write(&r))
{ {
TMask_field& stato = field(F_STATO); TMask_field& stato = field(F_STATO);
@ -965,11 +982,12 @@ bool TDocumento_mask::on_key(KEY key)
enable(DLG_DELREC); enable(DLG_DELREC);
xvtil_statbar_set(TR("Modifica")); xvtil_statbar_set(TR("Modifica"));
doc().force_recalc(true); doc().force_recalc(true);
} }
else else
warning_box("L'utente %s non puo' modificare questo documento", warning_box("L'utente %s non puo' modificare questo documento",
(const char*)user()); (const char*)user());
return TRUE; return true;
} }
else else
if (key == K_SHIFT + K_F9) if (key == K_SHIFT + K_F9)
@ -1380,6 +1398,7 @@ void TDocumento_mask::cli2mask(bool force_load)
set(F_STATOCF, c.get(CLI_STATOCF)); set(F_STATOCF, c.get(CLI_STATOCF));
check_field( F_CODINDSP ); check_field( F_CODINDSP );
} }
const TString4 newcodval = get(F_CODVAL); const TString4 newcodval = get(F_CODVAL);
short pos = id2pos(F_CAMBIO); short pos = id2pos(F_CAMBIO);
@ -1564,6 +1583,7 @@ void TDocumento_mask::doc2mask(bool reload_clifo, bool force_load, bool update)
if (id2pos(F_IBAN_STATO) > 0) if (id2pos(F_IBAN_STATO) > 0)
{ {
const TString80 iban = doc().get(DOC_IBAN); const TString80 iban = doc().get(DOC_IBAN);
set(F_IBAN, iban); set(F_IBAN, iban);
if (iban.full()) if (iban.full())
{ {
@ -1656,6 +1676,7 @@ TVariable_mask* TDocumento_mask::riga_mask(int numriga)
m->lfield(FR_TIPORIGA).replace_items(codes, values); m->lfield(FR_TIPORIGA).replace_items(codes, values);
int pos = m->id2pos(FR_CODART); int pos = m->id2pos(FR_CODART);
if (pos >= 0) if (pos >= 0)
{ {
const TMask_field & f = m->fld(pos); const TMask_field & f = m->fld(pos);
@ -1742,9 +1763,9 @@ TVariable_mask* TDocumento_mask::riga_mask(int numriga)
} }
} }
m->set_handler(DLG_USER, link_handler); m->set_handler(DLG_USER, link_handler);
// Quasi qualsiasi cosa analitica va bene // Quasi qualsiasi cosa analitica va bene
const bool ca_active = _ges_ca && !(riga.is_descrizione() || riga.is_sconto() /*|| riga.is_omaggio()*/); const bool ca_active = _ges_ca && !(riga.is_descrizione() || riga.is_sconto() /*|| riga.is_omaggio()*/);
if (ca_active) if (ca_active)
{ {
const int page = m->win2page(m->fld(m->fields()-1).parent()); // Calcolo bastardo dell'ultima pagina const int page = m->win2page(m->fld(m->fields()-1).parent()); // Calcolo bastardo dell'ultima pagina
@ -2193,10 +2214,6 @@ bool TDocumento_mask::ss_notify( TSheet_field& ss, int r, KEY key )
} }
if (s.full()) if (s.full())
riga.put(RDOC_CODMAG, s); riga.put(RDOC_CODMAG, s);
riga.autoload(ss);
ss.check_row(r);
t.set_defaults(ss, r + 1);
m.highlight_row(r); m.highlight_row(r);
} }
break; break;
@ -2214,6 +2231,7 @@ bool TDocumento_mask::ss_notify( TSheet_field& ss, int r, KEY key )
const bool on = rdoc.get(RDOC_DACODNUM).full(); const bool on = rdoc.get(RDOC_DACODNUM).full();
riga_mask.enable(DLG_USER, on); riga_mask.enable(DLG_USER, on);
} }
const bool merce = TRiga_documento::tipo(riga_mask.get(FR_TIPORIGA)).is_merce(); const bool merce = TRiga_documento::tipo(riga_mask.get(FR_TIPORIGA)).is_merce();
if (merce) if (merce)
@ -2344,7 +2362,7 @@ bool TOccas_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
if (occas.read(_isequal) == NOERR) if (occas.read(_isequal) == NOERR)
{ {
autoload(occas); autoload(occas);
field(O_BYMAIL).on_hit();; field(O_BYMAIL).on_hit();
send_key(K_TAB, O_COMUNE); // Forza decodifica comuni send_key(K_TAB, O_COMUNE); // Forza decodifica comuni
send_key(K_TAB, O_COMUNENAS); send_key(K_TAB, O_COMUNENAS);
} }
@ -2361,40 +2379,38 @@ bool TOccas_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
return error_box(TR("E' necessario specificare il codice fiscale o la partita IVA")); return error_box(TR("E' necessario specificare il codice fiscale o la partita IVA"));
} }
break; break;
case DLG_ELABORA: case DLG_CLIFOR:
if (e == fe_button) if (e == fe_button)
{ {
TToken_string key(get(O_TIPOCF)); TFilename temp; temp.temp("occ");
TTransaction t(temp, LF_OCCAS);
key.add(get(O_COFI)); t.set_executer(LF_OCCAS);
t.set_firm(main_app().get_firm());
t.set_user();
t.set_hostname();
t.set_version();
t.set_action(TRANSACTION_MODIFY);
t.set_mode(transaction_mode_automatic);
t.set_stop_on_error(true);
t.set_caller("ve0");
const TRectype & cfcofi = cache().get(LF_CLIFO, key, 4); t.set(OCC_CFPI, get(O_CODICE), -1, LF_OCCAS);
t.set(CLI_TIPOCF, get(O_TIPOCF), -1, LF_CLIFO);
set(O_AGGCF, true); t.write();
if (get(O_COFI).full() && cfcofi.full()) if (t.execute())
{ {
clear(O_AGGCF); t.read();
set(O_CODCF, cfcofi.get(CLI_CODCF));
}
else
{
if (get(O_PAIV).full())
{
key = get(O_TIPOCF);
key.add(get(O_STATOPAIV));
key.add(get(O_PAIV));
const TRectype & cfpaiv = cache().get(LF_CLIFO, key, 5); const long codcf = t.get_long(CLI_CODCF, -1, LF_CLIFO);
if (cfpaiv.full()) set(O_CODCF, codcf);
{ stop_run(K_ENTER);
clear(O_AGGCF);
set(O_CODCF, cfcofi.get(CLI_CODCF));
}
}
} }
} }
break; break;
default:
break;
} }
return true; return true;
} }
@ -2402,6 +2418,7 @@ bool TOccas_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
bool TDocumento_mask::occas_handler( TMask_field& f, KEY key ) bool TDocumento_mask::occas_handler( TMask_field& f, KEY key )
{ {
TDocumento_mask & m = (TDocumento_mask &)f.mask(); TDocumento_mask & m = (TDocumento_mask &)f.mask();
if ( key == K_SPACE && m.is_running( ) ) if ( key == K_SPACE && m.is_running( ) )
{ {
TDocumento& doc = m.doc(); TDocumento& doc = m.doc();
@ -2418,95 +2435,23 @@ bool TDocumento_mask::occas_handler( TMask_field& f, KEY key )
} }
const TString& cf = occas_mask.get(O_COFI); const TString& cf = occas_mask.get(O_COFI);
const TString& tipo = m.doc().get(DOC_TIPOCF);
if (cf.full() && atoi(cf.mid(9, 2)) > 40) if (cf.full() && atoi(cf.smid(9, 2)) > 40)
occas_mask.set(O_SESSO, "F"); occas_mask.set(O_SESSO, "F");
occas_mask.set(O_TIPOCF, m.doc().get(DOC_TIPOCF)); occas_mask.set(O_TIPOCF, tipo);
// Set propmt dei buttontool ? occas_mask.field(DLG_CLIFOR).set_prompt(tipo == "C" ? "Cliente" : "Fornitore");
if (occas_mask.run() != K_ESC) if (occas_mask.run() == K_ENTER)
{ {
long codcf = occas_mask.get_long(O_CODCF); long codcf = occas_mask.get_long(O_CODCF);
if (codcf != 0L || occas_mask.get_bool(O_AGGCF)) if (codcf != 0L)
{
TRectype clifor(LF_CLIFO);
if (codcf == 0L)
{
clifor.put(CLI_TIPOCF, doc.get(DOC_TIPOCF));
TCursor clifo(new TRelation(LF_CLIFO), "", 1, &clifor, &clifor);
const int items = clifo.items();
if (items > 0L)
codcf = clifo.last().get_long(CLI_CODCF);
codcf++;
clifor.zero();
clifor.put(CLI_TIPOCF, doc.get(DOC_TIPOCF));
clifor.put(CLI_CODCF, codcf);
const int err = clifor.write();
if (err != NOERR)
return error_box(FR("Errore in creazione %s %ld n. %d"), doc.get(DOC_TIPOCF) == "C" ? "Cliente" : "Fornitore", codcf, err);
}
else
{
TToken_string key(doc.get(DOC_TIPOCF));
key.add(codcf);
clifor = (TRectype &)cache().get(LF_CLIFO, key);
if (clifor.empty())
{
clifor.zero();
clifor.put(CLI_TIPOCF, doc.get(DOC_TIPOCF));
clifor.put(CLI_CODCF, codcf);
}
}
clifor.put(CLI_RAGSOC, occas_mask.get(O_RAGSOC));
clifor.put(CLI_STATOCF, occas_mask.get(O_STATO));
clifor.put(CLI_COMCF, occas_mask.get(O_COMUNE));
clifor.put(CLI_CAPCF, occas_mask.get(O_CAP));
clifor.put(CLI_INDCF, occas_mask.get(O_INDIRIZZO));
clifor.put(CLI_CIVCF, occas_mask.get(O_NUMERO));
clifor.put(CLI_COFI, occas_mask.get(O_COFI));
clifor.put(CLI_STATOPAIV, occas_mask.get(O_STATOPAIV));
clifor.put(CLI_PAIV, occas_mask.get(O_PAIV));
clifor.put(CLI_SESSO, occas_mask.get(O_SESSO));
clifor.put(CLI_DATANASC, occas_mask.get(O_DATANAS));
clifor.put(CLI_STATONASC, occas_mask.get(O_STATONAS));
clifor.put(CLI_COMNASC, occas_mask.get(O_COMUNENAS));
clifor.put(CLI_LOCCF, occas_mask.get(O_LOCALITA));
clifor.put(CLI_REFERENTE, occas_mask.get(O_REFERENTE));
clifor.put(CLI_BYMAIL, occas_mask.get(O_BYMAIL));
clifor.put(CLI_MAIL, occas_mask.get(O_MAIL));
clifor.put(CLI_DOCMAIL, occas_mask.get(O_DOCMAIL));
clifor.put(CLI_PEC, occas_mask.get(O_PEC));
clifor.put(CLI_PTEL, occas_mask.get(O_PTEL));
clifor.put(CLI_TEL, occas_mask.get(O_TEL));
clifor.put(CLI_PTEL2, occas_mask.get(O_PTEL2));
clifor.put(CLI_TEL2, occas_mask.get(O_TEL2));
clifor.put(CLI_PTEL3, occas_mask.get(O_PTEL3));
clifor.put(CLI_TEL3, occas_mask.get(O_TEL3));
const int err = clifor.rewrite();
if (err == NOERR)
{ {
const TString pag = m.get(F_CODPAG); const TString pag = m.get(F_CODPAG);
m.set(F_CODCF, (long)codcf, 0x3); m.set(F_CODCF, (long)codcf, 0x3);
m.set(F_CODPAG, pag, 0x3); m.set(F_CODPAG, pag, 0x3);
} }
else
return error_box(FR("Errore in creazione aggiornamento %s %ld n. %d"), doc.get(DOC_TIPOCF) == "C" ? "Cliente" : "Fornitore", codcf, err);
TLocalisamfile occ(LF_OCCAS);
occ.put(OCC_CFPI, occas_mask.get(O_CODICE));
occ.remove();
}
else else
{ {
const TString ocfpi(occas_mask.get(O_CODICE)); const TString ocfpi(occas_mask.get(O_CODICE));
@ -2518,23 +2463,18 @@ bool TDocumento_mask::occas_handler( TMask_field& f, KEY key )
{ {
const TMask_field& f = occas_mask.fld(i); const TMask_field& f = occas_mask.fld(i);
const TFieldref* c = f.field(); const TFieldref* c = f.field();
if (c) if (c)
{ {
const char* val = f.get(); const char* val = f.get();
c->write(val, occ); c->write(val, occ);
} }
} }
m.occ2mask();
/* int err = occ.rewrite();
if (err != NOERR)
error_box(FR("Errore %d"), err);*/
} }
} }
f.set_focus( ); f.set_focus( );
} }
return TRUE; return true;
} }
bool TDocumento_mask::clifo_handler( TMask_field& f, KEY key ) bool TDocumento_mask::clifo_handler( TMask_field& f, KEY key )
@ -2551,7 +2491,6 @@ bool TDocumento_mask::clifo_handler( TMask_field& f, KEY key )
const TCli_for& cli_for = d.clifor(true); // force reload const TCli_for& cli_for = d.clifor(true); // force reload
if ( cli_for.get_bool(CLI_SOSPESO) ) if ( cli_for.get_bool(CLI_SOSPESO) )
return f.error_box( "Il codice '%ld' e' sospeso e non puo' essere utilizzato", atol(f.get())); return f.error_box( "Il codice '%ld' e' sospeso e non puo' essere utilizzato", atol(f.get()));
m.cli2mask(); m.cli2mask();
if (m.id2pos(F_CODCONT) >= 0) if (m.id2pos(F_CODCONT) >= 0)
@ -2678,6 +2617,7 @@ void TLista_elaborazioni::read()
for (int err = eld.first(); err == NOERR; err = eld.next()) for (int err = eld.first(); err == NOERR; err = eld.next())
{ {
TElaborazione* el = NULL; TElaborazione* el = NULL;
switch (eld.curr().get_int("I0")) switch (eld.curr().get_int("I0"))
{ {
case _esterna : case _esterna :
@ -2724,6 +2664,7 @@ int TLista_elaborazioni::select(TString_array & result, const char * tipo_inizia
for (TElaborazione* el = (TElaborazione*)_elab->get(); el != NULL; el = (TElaborazione*)_elab->get()) for (TElaborazione* el = (TElaborazione*)_elab->get(); el != NULL; el = (TElaborazione*)_elab->get())
{ {
bool ok = false; bool ok = false;
if ((tipo_iniziale && *tipo_iniziale) && (stato_iniziale && *stato_iniziale)) if ((tipo_iniziale && *tipo_iniziale) && (stato_iniziale && *stato_iniziale))
{ {
for (int i = 0; !ok && i < TElaborazione::_max_tipi_doc_elab; i++) for (int i = 0; !ok && i < TElaborazione::_max_tipi_doc_elab; i++)
@ -2752,7 +2693,7 @@ TElaborazione& TLista_elaborazioni::operator[](const char * key) const
void TLista_elaborazioni::update() void TLista_elaborazioni::update()
{ {
delete _elab; _elab = NULL; safe_delete(_elab);
read(); read();
} }
@ -3289,9 +3230,7 @@ void TDocument_tree::set_cursor(char tipocf, long codcf, int anno, const TString
if (anno <= 2000 && codnum.full()) // In assenza di anno azzero CODNUM che è già nel filtro (4-9-2014) if (anno <= 2000 && codnum.full()) // In assenza di anno azzero CODNUM che è già nel filtro (4-9-2014)
rec.zero(DOC_CODNUM); rec.zero(DOC_CODNUM);
} }
safe_delete(_cursor);
if (_cursor != NULL)
delete _cursor;
_cursor = new TCursor(_relation, filtro, key, &rec, &rec); _cursor = new TCursor(_relation, filtro, key, &rec, &rec);
if (_art_filter.full()) if (_art_filter.full())
_cursor->set_filterfunction(doc_article_filter); _cursor->set_filterfunction(doc_article_filter);
@ -3616,6 +3555,7 @@ int TElabora_mask::update_list()
if (codes != f.get_codes()) if (codes != f.get_codes())
f.replace_items(codes, descrs); f.replace_items(codes, descrs);
const TElaborazione* e = curr_elab(); const TElaborazione* e = curr_elab();
if (e != NULL && e->tipo() == _consegna_ordini) if (e != NULL && e->tipo() == _consegna_ordini)
show(-GRP_ART); show(-GRP_ART);
@ -3833,9 +3773,7 @@ void TElabora_mask::update_ndoc_filter(bool is_tipo_elaborazione)
const bool enable_group_doc = e != NULL && e->tipo() != _generazione_effetti && e->tipo() != _contabilizzazione; const bool enable_group_doc = e != NULL && e->tipo() != _generazione_effetti && e->tipo() != _contabilizzazione;
show(-GRP_DOC, enable_group_doc); show(-GRP_DOC, enable_group_doc);
enable(DLG_SELECT, aggiungi_doc_att && enable_group_doc); // Attiva la selezione multipla se possibile enable(DLG_SELECT, aggiungi_doc_att && enable_group_doc); // Attiva la selezione multipla se possibile
if (e != NULL) if (e != NULL)
{ {
if (aggiungi_doc_att) if (aggiungi_doc_att)
@ -3976,6 +3914,7 @@ void TElabora_mask::update_ndoc_filter(bool is_tipo_elaborazione)
const char tipocf = get(F_TIPOCF_ELAB)[0]; const char tipocf = get(F_TIPOCF_ELAB)[0];
const TString& codnum = get(F_CODNUM_ELAB); const TString& codnum = get(F_CODNUM_ELAB);
const bool allow_zero_cf = tipocf == 'F' && aggiungi_doc_att && codnum.full() && e->tipo() == _consegna_ordini; const bool allow_zero_cf = tipocf == 'F' && aggiungi_doc_att && codnum.full() && e->tipo() == _consegna_ordini;
_tree.set_cursor(tipocf, get_long(F_CODCF_ELAB), get_int(F_ANNO_ELAB), _tree.set_cursor(tipocf, get_long(F_CODCF_ELAB), get_int(F_ANNO_ELAB),
codnum, filter, allow_zero_cf); codnum, filter, allow_zero_cf);
efield(F_NDOC_ELAB).browse()->replace_cursor(_tree.get_cursor()); efield(F_NDOC_ELAB).browse()->replace_cursor(_tree.get_cursor());
@ -4084,6 +4023,7 @@ bool TDocumento_mask::elabora_handler( TMask_field& f, KEY key )
{ {
m.mask2doc(); m.mask2doc();
const bool processed = selection->elabora(); const bool processed = selection->elabora();
do_checks |= processed; do_checks |= processed;
if (m.doc().stato() != stato_iniziale) if (m.doc().stato() != stato_iniziale)
@ -4189,6 +4129,7 @@ bool TDocumento_mask::call_handler( TMask_field& f, KEY key)
{ {
const short id = f.dlg(); const short id = f.dlg();
CONTROL_HANDLER h = (CONTROL_HANDLER) _handlers.objptr(id); CONTROL_HANDLER h = (CONTROL_HANDLER) _handlers.objptr(id);
if (h != NULL) if (h != NULL)
return h(f, key); return h(f, key);
return true; return true;
@ -4202,14 +4143,15 @@ bool TDocumento_mask::universal_handler( TMask_field& f, KEY key)
if (ok && key == K_TAB && f.focusdirty()) if (ok && key == K_TAB && f.focusdirty())
{ {
const TFieldref* fr = f.field(); const TFieldref* fr = f.field();
if (fr != NULL && (fr->file() == 0 || fr->file() == LF_DOC)) if (fr != NULL && (fr->file() == 0 || fr->file() == LF_DOC))
fr->write(f.get(), m.doc()); fr->write(f.get(), m.doc());
const int page = f.page(); const int page = f.page();
if (m.is_calculated_page(page)) if (m.is_calculated_page(page))
m.update_progs(); m.update_progs();
} }
return ok; return ok;
} }