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

cg0500.cpp Corretta lettura anno iva da config

Browse Source 
cg2100.cpp     Rifatta gestione pagamento immediato
cg2102.cpp     COrretto handler della data di registrazione
cg2104.cpp     Corretta gestione numero di riferimento partita
cg2105.cpp     Proposto in automatico l'importo dei pagamenti
cg2200.cpp     Azzerata ad ogni ciclo la maschera dei provisori
cg3100.cpp     Eliminati tutti gli accessi diretti alla tabella esercizi
cg3600.cpp     Aggiunta gestione e salvataggio colonne
cglib04.cpp    Tolti accessi diretti alla tabella degli esercizi
pagament.cpp   Corretta creazione nuove rate rispettando le classificazioni


git-svn-id: svn://10.65.10.50/trunk@3985 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1996-12-10 08:23:20 +00:00
parent 2d4866ed71
commit ceb86a9c6b
15 changed files with 858 additions and 490 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
cg/cg0500.cpp
View File

@ -109,12 +109,11 @@ HIDDEN TCaus_app& app() { return (TCaus_app&) main_app(); }
bool TCaus_app::filtra_reg(const TRelation * r)
{
bool ok = TRUE;
const TRectype& rec = r->lfile().curr();
const int anno = atoi(rec.get("CODTAB").left(4));
if (anno == app().anno_iva())
bool ok = anno == app().anno_iva();
if (ok)
{
const TipoIVA tiporeg = (TipoIVA)rec.get_int("I0");
const bool corrisp = rec.get_bool("B0");
@ -798,8 +797,12 @@ void TCaus_app::on_config_change()
TConfig conf(CONFIG_DITTA);
_saldaconto = conf.get_bool("GesSal");
_valuta = conf.get_bool("GesVal");
_anno_iva = (int)conf.get_long("AnLiIv", NULL, -1, TDate(TODAY).year());
_valuta = conf.get_bool("GesVal");
const int questanno = TDate(TODAY).year();
_anno_iva = (int)conf.get_long("AnLiIv", NULL, -1, questanno);
if (_anno_iva <= 0)
_anno_iva = questanno;
_msk->show(F_TIPO_MOV_1, saldaconto());
_msk->show(F_TIPO_MOV_2, saldaconto());

169
cg/cg2100.cpp
View File

@ -14,9 +14,30 @@
#include <clifo.h>
#include <rcausali.h>
///////////////////////////////////////////////////////////
// Dati incasso immediato
///////////////////////////////////////////////////////////
class TDati_incasso : public TObject
{
public:
int _step;
TString _causale;
TBill _clifo;
TDate _datadoc;
TString _numdoc;
real _totale;
TString _descrizione;
TString _causale_fattura;
};
///////////////////////////////////////////////////////////
// Applicazione principale
///////////////////////////////////////////////////////////
TPrimanota_application::TPrimanota_application()
: _rel(NULL), _mode(0), _iva(nessuna_iva), _causale(NULL), _giornale(NULL),
_lastreg(0), _last_dreg(TODAY), _last_dcom(TODAY)
_lastreg(0), _last_dreg(TODAY), _last_dcom(TODAY), _incasso(NULL)
{
memset(_msk, 0, sizeof(_msk));
}
@ -164,6 +185,8 @@ bool TPrimanota_application::user_create()
open_files(LF_ATTIV, LF_SALDI, LF_COMUNI, LF_OCCAS, LF_NDITTE, 0);
open_files(LF_SCADENZE, LF_PAGSCA, 0);
_incasso = new TDati_incasso;
_rel = new TMovimentoPN;
_rel->add(LF_PARTITE, "NREG=NUMREG", 2); // Collega la partita aperta dalla fattura
@ -184,7 +207,9 @@ bool TPrimanota_application::user_create()
bool TPrimanota_application::save_and_new() const
{ return _savenew; }
{
return _savenew || _incasso->_step == 1;
}
bool TPrimanota_application::user_destroy()
@ -197,6 +222,9 @@ bool TPrimanota_application::user_destroy()
delete _giornale;
delete _causale;
delete _rel;
delete _incasso;
close_files();
return TRUE;
@ -254,7 +282,7 @@ bool TPrimanota_application::read_caus(const char* cod, int year)
TEdit_field& numrif = m->efield(F_NUMRIF);
numrif.set_justify(iva == iva_acquisti ? _num_for : _num_cli);
numrif.set_trim(!numrif.right_justified());
activate_numrif(FALSE);
activate_numrif(*m, FALSE);
const bool av = causale().reg().agenzia_viaggi();
m->show(F_DATA74TER, av);
@ -368,29 +396,27 @@ bool TPrimanota_application::changing_mask(int mode)
TMask* TPrimanota_application::get_mask(int mode)
{
int annoes = 0, annoiva = 0;
int annoiva = 0;
TString16 caus;
_mode = mode;
switch (mode)
{
case MODE_INS:
annoes = _msk[0]->get_int(F_ANNOES);
case MODE_INS:
annoiva = _msk[0]->get_int(F_ANNOIVA);
caus = _msk[0]->get(F_CODCAUS);
break;
case MODE_MOD:
annoes = _rel->lfile().get_int("ANNOES");
annoiva = _rel->lfile().get_int("ANNOIVA");
caus = _rel->lfile().get("CODCAUS");
annoiva = _rel->curr().get_int("ANNOIVA");
caus = _rel->curr().get("CODCAUS");
break;
default:
return load_mask(0);
}
if (giornale().year() != annoes)
giornale().read(annoes);
if (giornale().year() != annoiva)
giornale().read(annoiva);
const TCausale& c = causale();
if (caus != c.codice() || (c.iva() != nessuna_iva && c.reg().year() != annoiva))
@ -437,15 +463,14 @@ void TPrimanota_application::init_mask(TMask& m)
read_caus(NULL, 0); // Setta campi obbligatori
fill_sheet(m);
const bool valintra = causale().valintra();
const bool corrisp = causale().corrispettivi();
if (_iva == nessuna_iva)
{
m.show(-5, _is_saldaconto); // Abilita campi saldaconto
}
else
{
const bool corrisp = causale().corrispettivi();
bool clig, forg;
if (_iva == iva_acquisti)
{
@ -462,10 +487,14 @@ void TPrimanota_application::init_mask(TMask& m)
if (corrisp) m.hide(F_STATOPAIV);
// Show/Hide campi valuta: F_VALUTAINTRA, F_CAMBIOINTRA, F_CORRLIRE, F_CORRVAL (GROUP 4)
m.show(-4, valintra);
m.show(-4, causale().valintra());
m.show(F_CODIVA, m.insert_mode()); // Codice IVA standard
m.show(F_CODIVA, m.insert_mode()); // Codice IVA standard
TSheet_field& is = ivas();
is.enable_column(2, _iva == iva_acquisti); // Tipo detrazione
is.enable_column(4, !m.insert_mode()); // Tipo costo ricavo
if (is_fattura())
{
const TPartita* game = partite().first();
@ -504,24 +533,30 @@ void TPrimanota_application::init_query_mode(TMask& m)
m.set(F_DATAREG, _last_dreg);
m.set(F_DATACOMP, _last_dcom);
}
_incasso->_step = 0; // Azzera flag di incasso immediato
}
void TPrimanota_application::fill_sheet(TMask& m) const
{
const int filler = 16;
if (_iva != nessuna_iva || !is_saldaconto())
const int cgpos = m.id2pos(F_SHEETCG);
const int ivpos = m.id2pos(F_SHEETIVA);
if (cgpos > 0 && (ivpos > 0 || !is_saldaconto()))
{
TSheet_field& cgs = (TSheet_field&)m.field(F_SHEETCG);
for (int r = cgs.items(); r < filler; r++) cgs.row(r);
TSheet_field& cgs = (TSheet_field&)m.fld(cgpos);
for (int r = cgs.items(); r < filler; r++)
cgs.row(r);
}
if (_iva != nessuna_iva)
if (ivpos > 0)
{
TSheet_field& ivas = (TSheet_field&)m.field(F_SHEETIVA);
for (int r = ivas.items(); r < filler; r++) ivas.row(r);
ivas.enable_column(2, _iva == iva_acquisti); // Tipo detrazione
ivas.enable_column(4, !m.insert_mode()); // Tipo costo ricavo
TSheet_field& ivas = (TSheet_field&)m.fld(ivpos);
for (int r = ivas.items(); r < filler; r++)
ivas.row(r);
}
}
@ -537,10 +572,29 @@ const char* TPrimanota_application::get_next_key()
{
TMask& m = curr_mask();
if (m.insert_mode())
{
_tmp.add(F_CODCAUS); _tmp.add(m.get(F_CODCAUS)); // Ricopia causale
_tmp.add(F_DATAREG); _tmp.add(m.get(F_DATAREG)); // data operazione
_tmp.add(F_DATACOMP); _tmp.add(m.get(F_DATACOMP)); // competenza
{
_tmp.add(F_CODCAUS); // Ricopia causale
switch (_incasso->_step)
{
case 1:
_tmp.add(_incasso->_causale);
_msk[0]->set(F_CODCAUS, _incasso->_causale); // Joke get_mask
break;
case 2:
_tmp.add(_incasso->_causale_fattura);
_msk[0]->set(F_CODCAUS, _incasso->_causale_fattura); // Joke get_mask
break;
default:
_tmp.add(m.get(F_CODCAUS)); // Ultima causale usata
_msk[0]->set(F_CODCAUS, m.get(F_CODCAUS));
break;
}
_tmp.add(F_DATAREG); // Ricopia data operazione
_tmp.add(m.get(F_DATAREG));
_tmp.add(F_DATACOMP); // Ricopia data competenza
_tmp.add(m.get(F_DATACOMP));
if (iva() == iva_vendite)
{
@ -575,7 +629,7 @@ void TPrimanota_application::init_insert_mode(TMask& m)
partite().destroy();
if (is_fattura())
{
activate_numrif(FALSE);
activate_numrif(m, FALSE);
const TString16 dt(m.get(F_DATADOC));
set_pagamento(NULL,dt);
set_scadenze(m);
@ -586,6 +640,9 @@ void TPrimanota_application::init_insert_mode(TMask& m)
}
_saldi.reset(); // Inizializza saldi
if (_incasso->_step == 1)
genera_incasso(NULL);
_as400 = FALSE; // Un movimento nuovo non puo' essere trasferito da AS400
}
@ -1057,7 +1114,11 @@ bool TPrimanota_application::remove()
return ok;
}
///////////////////////////////////////////////////////////
// Gestione incasso immediato
///////////////////////////////////////////////////////////
/*
HIDDEN bool incasso_handler(TMask_field& f, KEY k)
{
if (k == K_ENTER)
@ -1157,7 +1218,7 @@ void TPrimanota_application::genera_incasso(const char* causimm)
clifo_id = F_CLIENTE; break;
case 'F':
clifo_id = F_FORNITORE; break;
default :
default :
clifo_id = I_SOTTOCONTO; break;
}
r.put("SOTTOCONTO", m.get(clifo_id));
@ -1225,8 +1286,56 @@ void TPrimanota_application::genera_incasso(const char* causimm)
check_saldi();
}
}
}
*/
void TPrimanota_application::genera_incasso(const char* causimm)
{
TMask& m = curr_mask();
if (causimm)
{
_incasso->_causale = causimm;
_incasso->_causale_fattura = m.get(F_CODCAUS);
_incasso->_datadoc = m.get(F_DATADOC);
_incasso->_numdoc = m.get(F_NUMDOC);
_incasso->_clifo.get(_rel->cg(0));
_incasso->_totale = m.get_real(F_TOTALE);
_incasso->_descrizione= m.get(F_DESCR);
_incasso->_step = 1;
}
else
{
TCausale& caus = causale();
m.set(F_DATADOC, _incasso->_datadoc);
m.set(F_NUMDOC, _incasso->_numdoc);
TBill contro; caus.bill(2, contro);
cgs().reset();
TToken_string& row1 = cgs().row(0);
TImporto imp(caus.sezione_clifo(), _incasso->_totale);
imp.add_to(row1, 0);
row1.add(_incasso->_clifo.string(0x3));
row1.add(" ");
row1.add(_incasso->_descrizione);
row1.add(contro.string(0x3));
TToken_string& row2 = cgs().row(1);
imp.swap_section();
imp.add_to(row2, 0);
row2.add(contro.string(0x3));
row2.add(" ");
row2.add(caus.desc_agg(2));
row2.add(_incasso->_clifo.string(0x3));
_incasso->_step = 2;
fill_sheet(m);
}
}
///////////////////////////////////////////////////////////
// Gestione collegamento 770
///////////////////////////////////////////////////////////
bool TPrimanota_application::is_percipient(long forn, char& tipper, long& codper) const
{
TLocalisamfile fornitori(LF_CLIFO);

22
cg/cg2100i.uml
View File

@ -86,7 +86,7 @@ BEGIN
FLAGS "D"
END
LIST I_SEZIONE1 1 8
LIST I_SEZIONE1 1 7
BEGIN
PROMPT 1 7 "Riga 1 "
HELP "Sezione del conto della prima riga"
@ -105,7 +105,7 @@ BEGIN
MESSAGE COPY,I_IMPORTO2
END
LIST F_CLIFO 1 12
LIST F_CLIFO 1 10
BEGIN
PROMPT 37 7 ""
ITEM " |Conto" MESSAGE SHOW,I_SOTTOCONTO|HIDE,F_FORNITORE|HIDE,F_CLIENTE
@ -190,7 +190,7 @@ BEGIN
ADD RUN cg0 -0
END
LIST I_SEZIONE2 1 8
LIST I_SEZIONE2 1 7
BEGIN
PROMPT 1 8 "Riga 2 "
HELP "Sezione del conto della prima riga"
@ -206,7 +206,7 @@ BEGIN
FLAGS "R"
END
LIST DLG_NULL 1 12
LIST DLG_NULL 1 10
BEGIN
PROMPT 37 8 ""
ITEM " |Conto"
@ -244,7 +244,7 @@ BEGIN
WARNING "Sottoconto assente"
END
LIST I_SEZIONE3 1 8
LIST I_SEZIONE3 1 7
BEGIN
PROMPT 1 9 "Riga 3 "
HELP "Sezione del conto di terza riga"
@ -260,7 +260,7 @@ BEGIN
FLAGS "R"
END
LIST DLG_NULL 1 12
LIST DLG_NULL 1 10
BEGIN
PROMPT 37 9 ""
ITEM " |Conto"
@ -296,7 +296,7 @@ BEGIN
WARNING "Sottoconto assente"
END
LIST I_SEZIONE4 1 8
LIST I_SEZIONE4 1 7
BEGIN
PROMPT 1 10 "Riga 4 "
HELP "Sezione del conto di quarta riga"
@ -312,7 +312,7 @@ BEGIN
FLAGS "R"
END
LIST DLG_NULL 1 12
LIST DLG_NULL 1 10
BEGIN
PROMPT 37 10 ""
ITEM " |Conto"
@ -349,13 +349,15 @@ BEGIN
END
BUTTON DLG_SAVEREC 9 2
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -12 -1 "~Registra"
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
MESSAGE EXIT,K_SAVE
END
BUTTON DLG_CANCEL 9 2
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -22 -1 ""
END

24
cg/cg2100s.uml
View File

@ -126,14 +126,12 @@ BEGIN
WARNING "L'importo in valuta deve essere specificato"
END
RADIOBUTTON S_SALDOACC 1 24
DATE S_DATAPAG
BEGIN
PROMPT 1 9 ""
FLAGS "Z"
ITEM "A|Acconto"
ITEM "S|Saldo"
FIELD ACCSAL
END
PROMPT 2 10 "Data pag. "
CHECKTYPE REQUIRED
FIELD LF_PARTITE->DATAPAG
END
LIST S_TIPOPAG 1 33
BEGIN
@ -150,12 +148,14 @@ BEGIN
FIELD LF_PARTITE->TIPOPAG
END
DATE S_DATAPAG
RADIOBUTTON S_SALDOACC 1 24
BEGIN
PROMPT 2 11 "Data pag. "
CHECKTYPE REQUIRED
FIELD LF_PARTITE->DATAPAG
END
PROMPT 1 10 ""
FLAGS "Z"
ITEM "A|Acconto"
ITEM "S|Saldo"
FIELD ACCSAL
END
TEXT DLG_NULL
BEGIN

22
cg/cg2102.cpp
View File

@ -1551,16 +1551,15 @@ bool TPrimanota_application::sheet_clifo_handler(TMask_field& f, KEY k)
// Certified 99%
bool TPrimanota_application::num_handler(TMask_field& f, KEY key)
{
TMask& m = f.mask();
if (key == K_TAB /* && m.is_running() */ && !f.empty())
if (key == K_TAB && f.to_check(key, TRUE))
{
TPrimanota_application& a = app();
const long max = a._lastreg+1;
a._skip_giornale_check = FALSE;
a._skip_bollato_check = FALSE;
const long num = atol(f.get());
const long max = a._lastreg+1;
const long num = f.empty() ? max : atol(f.get());
if (num < max)
{
if (a.find(1))
@ -1590,6 +1589,7 @@ bool TPrimanota_application::num_handler(TMask_field& f, KEY key)
if (ok) // Riempie a mano i campi necessari nel caso non sia stato usata la ricerca F9
{
TMask& m = f.mask();
m.set(F_DATAREG, mov.get("DATAREG"), TRUE);
m.set(F_DATACOMP, mov.get("DATACOMP"), TRUE);
m.set(F_CODCAUS, mov.get("CODCAUS"));
@ -1740,7 +1740,7 @@ bool TPrimanota_application::datareg_handler(TMask_field& f, KEY key)
reg.last_print().string(), (const char*)codreg, ar);
if (error) return FALSE;
}
if (key == K_TAB && dr < reg.last_reg())
if (f.dirty() && dr < reg.last_reg())
f.warning_box("La data dell'operazione e' antecedente al %s,\n"
"ultima registrazione sul registro '%s' del %d",
reg.last_reg().string(), (const char*)codreg, ar);
@ -2012,7 +2012,7 @@ bool TPrimanota_application::clifo_handler(TMask_field& f, KEY key)
m.show(F_STATOPAIV); // Stato partita IVA
m.show(cf == 'C' ? F_PIVACLIENTE : F_PIVAFORNITORE); // Partita IVA
m.show(cf == 'C' ? F_COFICLIENTE : F_COFIFORNITORE); // Codice Fiscale
a.activate_numrif(TRUE);
a.activate_numrif(m, TRUE);
return TRUE;
}
@ -2086,7 +2086,7 @@ bool TPrimanota_application::clifo_handler(TMask_field& f, KEY key)
f.warning_box("Attenzione, il saldaconto verra' eliminato!");
f.set_dirty(); // warning_box cleans the field!
}
a.activate_numrif(TRUE);
a.activate_numrif(m, TRUE);
if (f.focusdirty())
{
@ -2417,10 +2417,8 @@ bool TPrimanota_application::corrvaluta_handler(TMask_field& f, KEY key)
return TRUE;
}
bool TPrimanota_application::activate_numrif(bool init_pag)
bool TPrimanota_application::activate_numrif(TMask& m, bool init_pag)
{
TMask& m = curr_mask();
bool shown = is_saldaconto(); // Il numero riferimento esiste
if (shown)
@ -2475,7 +2473,7 @@ bool TPrimanota_application::solaiva_handler(TMask_field& f, KEY key)
TMask& m = f.mask();
const bool run = m.is_running();
if (key == K_TAB && (f.focusdirty() || !run))
if ((key == K_TAB && f.focusdirty()) || !run)
{
TPrimanota_application& a = app();
@ -2506,7 +2504,7 @@ bool TPrimanota_application::solaiva_handler(TMask_field& f, KEY key)
recalcg = FALSE;
}
}
a.activate_numrif(TRUE);
a.activate_numrif(m, TRUE);
}
m.show(F_SHEETCG, anchecg);

6
cg/cg2102.h
View File

@ -25,6 +25,8 @@
#include "cg2103.h"
#endif
class TDati_incasso;
class TPrimanota_application : public TRelation_application
{
TArray _file; // Tutti i fiels da usare
@ -50,6 +52,8 @@ class TPrimanota_application : public TRelation_application
bool _is_saldaconto; // saldaconto si/no (vede parametri e causale)
bool _scad_free; // posso variare liberamente le rate della fattura
TDati_incasso* _incasso; // Dati per gestire incasso immediato
TSaldo_agg _saldi; // Saldi da aggiornare
TPartite_array _partite; // Partite coinvolte
@ -182,7 +186,7 @@ protected:
bool is_fattura() const { return gestione_saldaconto() && causale().tipomov() == 1; }
bool is_nota_credito() const { return gestione_saldaconto() && causale().tipomov() == 2; }
bool is_pagamento() const { return gestione_saldaconto() && causale().tipomov() >= 3; }
bool activate_numrif(bool set_pag);
bool activate_numrif(TMask& m, bool set_pag);
void fill_sheet(TMask& m) const;
void init_mask(TMask& m);

2
cg/cg2104.cpp
View File

@ -404,7 +404,7 @@ bool TPrimanota_application::numrif_handler(TMask_field& f, KEY key)
}
if (key == K_TAB && a.is_fattura())
a.activate_numrif(TRUE);
a.activate_numrif(m, TRUE);
if (ok && key == K_ENTER && m.edit_mode())
{

7
cg/cg2105.cpp
View File

@ -5,6 +5,7 @@
#ifdef __EXTRA__
#include "saldacon.h"
#include "sc0100p.h"
#include "cglib.h"
#else
#include "cg2100.h" // Campi maschere prima nota
#include "cg2102.h" // Applicazione di prima nota
@ -1751,6 +1752,12 @@ bool TGame_mask::edit_pagamento(TPartita& p, int nriga, int nrata, int nrigp) co
const TRiga_scadenze& scaden = p.rata(nriga, nrata);
m.set_pag(oldpag, scaden, _residuo);
}
if (nuovo) // Inizializza automaticamente l'importo
{
TMask_field& imp = m.field(S_IMPORTO);
imp.set_dirty();
imp.on_key(K_F8);
}
KEY key = m.run();

22
cg/cg2200.cpp
View File

@ -265,12 +265,18 @@ bool TProvvisori_app::menu(MENU_TAG)
TCursor& cur = *m.efield(F_FROMDATE).browse()->cursor();
KEY key;
while ((key = m.run()) != K_QUIT)
{
TRectype from(LF_MOV);
TRectype to(LF_MOV);
while (TRUE)
{
TRectype from(LF_MOV), to(LF_MOV);
cur.setregion(from, to);
cur.set_filterfunction(NULL);
m.reset();
const KEY key = m.run();
if (key == K_QUIT)
break;
TString16 from_d = m.get(F_FROMDATE);
TString16 to_d = m.get(F_TODATE);
@ -342,10 +348,6 @@ bool TProvvisori_app::menu(MENU_TAG)
delete_provv(cur, pi);
cur.freeze(FALSE);
from.zero(); to.zero();
cur.setregion(from, to);
cur.set_filterfunction(NULL);
m.reset();
}
return FALSE;

159
cg/cg3100.cpp
View File

@ -10,18 +10,19 @@
#include "cg3.h"
#include "cg3100.h"
#include <mov.h>
#include <rmov.h>
#include <rmoviva.h>
#include <pconti.h>
#include <comuni.h>
#include <clifo.h>
#include <saldi.h>
#include <attiv.h>
#include <causali.h>
#include <clifo.h>
#include <comuni.h>
#include <mov.h>
#include <nditte.h>
#include <pconti.h>
#include <rmov.h>
#include <rmoviva.h>
#include <saldi.h>
#include "cglib.h"
#include "cglib04.h"
//#include "cglib04.h"
#include "cglib03.h"
#include "cg2103.h"
@ -33,7 +34,7 @@ enum liste {
bool filter_func (const TRelation *);
bool filter_func_fatture (const TRelation *);
bool annoes (TMask_field&, KEY);
bool annoes_handler(TMask_field&, KEY);
bool data_inizio (TMask_field&, KEY);
bool data_fine (TMask_field&, KEY);
@ -68,12 +69,11 @@ class TListaMov_application : public TPrintapp
{
friend bool filter_func (const TRelation *);
friend bool filter_func_fatture (const TRelation *);
friend bool annoes (TMask_field&, KEY);
friend bool annoes_handler(TMask_field&, KEY);
friend bool data_inizio (TMask_field&, KEY);
friend bool data_fine (TMask_field&, KEY);
TRigaiva_array _c;
TEsercizi_contabili _ec;
TTable * _tabiva, * _tabtpd, * _tabreg, * _tabes;
TLocalisamfile * _caus,* _comuni,* _rmoviva, * _clifo, * _pcon, * _attiv, *_nditte, *_saldi;
TRelation * _relmov1,* _relmov2,* _relmov3;
@ -139,57 +139,18 @@ public:
HIDDEN inline TListaMov_application & app()
{ return (TListaMov_application&)main_app();}
TDate InizioEsercizio(int anno)
{
TTable TabEs ("ESC");
TString16 codtab;
TDate inizio_es;
TabEs.zero();
codtab.format ("%04d", anno);
TabEs.put ("CODTAB", codtab);
TabEs.read();
if (TabEs.good())
inizio_es= TabEs.get_date ("D0");
return inizio_es;
}
TDate FineEsercizio(int anno)
{
TTable TabEs ("ESC");
TString16 codtab;
TDate fine_es;
TabEs.zero();
codtab.format ("%04d", anno);
TabEs.put ("CODTAB", codtab);
TabEs.read();
if (TabEs.good())
fine_es = TabEs.get_date ("D1");
else fine_es = botime;
return fine_es;
}
int EsercizioSucc(int code)
{
TEsercizi_contabili esc;
return esc.next(code);
}
bool annoes(TMask_field& f, KEY k)
bool annoes_handler(TMask_field& f, KEY k)
{
if (k == K_TAB)
{
int anno = f.mask().get_int (F_ANNO);
if ( anno != 0 )
const int anno = atoi(f.get());
TEsercizi_contabili esc;
if (esc.exist(anno))
{
f.mask().field(F_DATAINI).set(InizioEsercizio(anno));
TDate fine = FineEsercizio(EsercizioSucc(anno));
if (fine == botime)
fine = FineEsercizio(anno);
f.mask().field(F_DATAFIN).set(fine);
f.mask().set(F_DATAINI, esc[anno].inizio());
const int prossimo = esc.next(anno);
const TDate fine = esc[prossimo > 0 ? prossimo : anno].fine();
f.mask().set(F_DATAFIN, fine);
}
}
return TRUE;
@ -204,17 +165,22 @@ bool data_inizio(TMask_field& f, KEY k)
TDate data = f.mask().get(F_DATAINI);
if (app()._masc == "cg3100a")
decidi = f.mask().get_int (F_DECIDI);
if ( anno != 0 && ( (app()._masc == "cg3100b") ||
((app()._masc == "cg3100a" ) && (decidi == 2)) ) )
TEsercizi_contabili esc;
if (esc.exist(anno) && ( (app()._masc == "cg3100b") ||
((app()._masc == "cg3100a" ) && (decidi == 2)) ) )
{
if (!data.ok()) //se la data e' vuota
f.mask().field(F_DATAINI).set(InizioEsercizio(anno));
else
if (data < InizioEsercizio(anno))
{
f.error_box("La data indicata non deve essere inferiore alla data di inizio esercizio");
return FALSE;
}
const TDate inizio = esc[anno].inizio();
if (data.ok())
{
if (data < inizio)
{
f.error_box("La data indicata non deve essere inferiore alla data di inizio esercizio");
return FALSE;
}
}
else //se la data e' vuota
f.mask().field(F_DATAINI).set(inizio);
}
}
return TRUE;
@ -237,21 +203,24 @@ bool data_fine(TMask_field& f, KEY k)
{
f.error_box("La data iniziale non deve essere superiore alla data finale");
return FALSE;
}
if ( anno != 0 && ( (app()._masc == "cg3100b") ||
}
TEsercizi_contabili esc;
if ( esc.exist(anno) && ( (app()._masc == "cg3100b") ||
((app()._masc == "cg3100a" ) && (decidi == 2)) ) )
{
TDate fine = FineEsercizio(EsercizioSucc(anno));
if (fine == botime)
fine = FineEsercizio(anno);
if (!datafin.ok()) //se la data e' vuota
f.mask().field(F_DATAFIN).set(fine);
else
if (datafin > fine)
{
f.error_box("La data indicata non deve essere superiore alla data di fine esercizio successivo, oppure, in caso questo non esista, dell'esercizio indicato");
return FALSE;
}
{
const int prossimo = esc.next(anno);
const TDate fine = esc[prossimo > 0 ? prossimo : anno].fine();
if (datafin.ok())
{
if (datafin > fine)
{
f.error_box("La data indicata non deve essere superiore alla data di fine esercizio successivo, oppure, in caso questo non esista, dell'esercizio indicato");
return FALSE;
}
}
else //se la data e' vuota
f.mask().set(F_DATAFIN, fine);
}
}
return TRUE;
@ -815,7 +784,9 @@ void TListaMov_application::set_page(int file, int count)
int anno = current_cursor()->curr(LF_MOV).get_int(MOV_ANNOIVA);
char prov = current_cursor()->curr(LF_MOV).get_char(MOV_PROVVIS);
int tipo = CodiceRegistro(reg, anno);
int ae = date2esc(data);
TEsercizi_contabili esc;
int ae = esc.date2esc(data);
if ( (tipo == 1) || (tipo == 2) )
{
set_row (_n, "@103greg @3s",FLD(LF_MOV,MOV_REG));
@ -907,7 +878,8 @@ bool TListaMov_application::preprocess_page(int file,int counter)
_tiporegistro = CodiceRegistro(_registro, _anno);
_causale_gia_stampata = FALSE;
_ae = date2esc(_datareg);
TEsercizi_contabili esc;
_ae = esc.date2esc(_datareg);
if (_registro.not_empty()) //si tratta di fattura
if (current_cursor()->is_first_match(LF_RMOV))
@ -1549,7 +1521,8 @@ print_action TListaMov_application::postprocess_print(int file,int count)
//cerca errori sulla testata (MOV)
bool TListaMov_application::segnala_errori_primariga()
{
const int ae = date2esc(_datacomp);
TEsercizi_contabili esc;
const int ae = esc.date2esc(_datacomp);
if (_ae == 0)
_err.set(0l);
@ -1567,14 +1540,14 @@ bool TListaMov_application::segnala_errori_primariga()
}
if (ae)
{
int pr; // Esercizio precedente
const int ar = date2esc(_datareg); // Esercizio in corso
pr = _ec.pred(ar);
{
const int ar = esc.date2esc(_datareg); // Esercizio in corso
const int pr = esc.pred(ar); // Esercizio precedente
if (ae != ar && ae != pr)
_err.set(4);
}
else _err.set(5);
else
_err.set(5);
if (_annoeser != ae)
_err.set(6);
@ -2042,13 +2015,13 @@ bool TListaMov_application::set_print(int m)
_tipo_lista = movimenti_sezionale;
break;
default:
CHECK(0, "Bad _tipoc");
break;
NFCHECK("Bad _tipoc");
return FALSE;
}
TMask msk(_masc);
msk.set_handler(F_ANNO, annoes);
msk.set_handler(F_ANNO, annoes_handler);
msk.set_handler(F_DATAINI, data_inizio);
msk.set_handler(F_DATAFIN, data_fine);

336
cg/cg3600.cpp
View File

@ -472,10 +472,10 @@ enum tipo_riga_mastrino { riga_mastrino, riga_contropartita };
class TRiga_mastrino : public TObject
{
tipo_riga_mastrino _type;
TRecnotype _mov, _rmov;
TDate _data;
real _dare, _avere;
tipo_riga_mastrino _type; // Tipo della riga
TRecnotype _mov, _rmov; // Numero fisico di record movivento e riga movimento
real _dare, _avere; // Progressivi dare ed avere
TDate _data; // Data di registrazione (Ottimizzazione)
public:
tipo_riga_mastrino tipo() const { return _type; }
@ -485,7 +485,7 @@ public:
const TDate& data() const { return _data; }
const real& dare() const { return _dare; }
const real& avere() const { return _avere; }
TImporto saldo() const;
TImporto saldo() const; // Dare-Avere normalizzato
TRiga_mastrino(tipo_riga_mastrino trig,
TRecnotype rmov, TRecnotype mov,
@ -957,6 +957,7 @@ protected: // TMask_field
virtual void create(WINDOW parent);
virtual void parse_head(TScanner& scanner);
virtual bool parse_item(TScanner& scanner);
virtual word class_id() const;
TGrid_control& grid() const { return (TGrid_control&)*_ctl; }
@ -978,7 +979,10 @@ public:
int visible_rows() const;
bool select(long rec);
TGrid_field(TMask* m) : TOperable_field(m) { }
void reset_columns_order();
void save_columns_order() const;
TGrid_field(TMask* m);
virtual ~TGrid_field() { }
};
@ -993,6 +997,9 @@ class TGrid_control : public TControl
byte _type[MAX_COL];
TGrid_field* _grid;
int _default_width[MAX_COL];
int _columns_order;
protected: // TControl
//@cmember Gestisce gli eventi delle celle
@ -1016,6 +1023,11 @@ protected:
void update_selection(XI_EVENT* xiev);
void set_columns_order(TToken_string* order);
XI_OBJ* find_column(short cid) const;
XI_OBJ* find_column(const char* head) const;
public:
long selected() const { return _cur_rec; }
bool select(long n);
@ -1026,7 +1038,11 @@ public:
void update(long n = -1);
bool is_visible(long rec) const;
void load_columns_order();
void save_columns_order() const;
void reset_columns_order() { set_columns_order(NULL); }
TGrid_control(WINDOW parent, short cid,
short x, short y, short dx, short dy,
const char* flags, const char* head,
@ -1045,7 +1061,7 @@ TGrid_control::TGrid_control(
const char* flags, // @parm Flags di abilitazione
const char* head, // @parm Titolo delle colonne
TGrid_field* owner)
: _grid(owner), _cur_rec(-1)
: _grid(owner), _cur_rec(-1), _columns_order(0)
{
_read_only = FALSE;
bool auto_num = FALSE;
@ -1203,6 +1219,14 @@ TGrid_control::TGrid_control(
CHECKD(_obj, "Can't create list control ", cid);
update_tab_cid();
int num;
XI_OBJ** column = xi_get_member_list(_obj, &num);
for (i = 0; i < num; i++)
{
RCT rct; xi_get_rect(column[i], &rct);
_default_width[i] = rct.right - rct.left;
}
}
// Converts a record number in the correspondig row number
@ -1449,11 +1473,16 @@ bool TGrid_control::event_handler(XI_OBJ* itf, XI_EVENT *xiev)
if (xiev->v.column.in_fixed ||
xiev->v.column.col_nbr < xi_get_fixed_columns(xiev->v.column.list))
refused = TRUE;
else
_columns_order = 1;
break;
case XIE_COL_SIZE:
{
const short cid = col2cid(xiev->v.column.col_nbr);
refused = !_grid->on_resize_column(cid, xiev->v.column.new_col_width);
if (_grid->on_resize_column(cid, xiev->v.column.new_col_width))
_columns_order = 1;
else
refused = TRUE;
}
break;
case XIE_SELECT:
@ -1564,6 +1593,147 @@ bool TGrid_control::event_handler(XI_OBJ* itf, XI_EVENT *xiev)
return !refused;
}
XI_OBJ* TGrid_control::find_column(short cid) const
{
int num;
XI_OBJ** column = xi_get_member_list(_obj, &num);
for (int i = num-1; i >= 0; i--)
{
if (column[i]->cid == cid)
break;
}
return i >= 0 ? column[i] : NULL;
}
XI_OBJ* TGrid_control::find_column(const char* head) const
{
int num;
XI_OBJ** column = xi_get_member_list(_obj, &num);
TString80 text;
for (int i = num-1; i >= 0; i--)
{
xi_get_text(column[i], text.get_buffer(), text.size());
if (text == head)
break;
}
return i >= 0 ? column[i] : NULL;
}
void TGrid_control::set_columns_order(TToken_string* order)
{
XI_OBJ* itf = get_interface();
XI_OBJ* focus = xi_get_focus(itf);
xi_set_focus(itf);
int num_cols;
XI_OBJ** column = xi_get_member_list(_obj, &num_cols);
// Costante da sottrarre nella xi_column_set_pixel_width altrimenti la somma due volte!
const int offset = 2 * (int)xi_get_pref(XI_PREF_COLUMN_OFFSET);
const int fixed = xi_get_fixed_columns(_obj);
if (fixed > 1)
xi_set_fixed_columns(_obj, 1);
if (order == NULL)
{
for (int index = 1; index < num_cols; index++)
{
const short cid = FIRST_FIELD + 1000 + index - 1;
XI_OBJ* col = find_column(cid);
if (col)
{
xi_move_column(col, index);
RCT rct; xi_get_rect(col, &rct);
if (_default_width[index] != rct.right - rct.left)
xi_column_set_pixel_width(col, _default_width[index]-offset);
}
}
_columns_order = 0x3;
}
else
{
TToken_string col(8, ',');
int pos = 0;
for (col = order->get(0); !col.blank(); col = order->get(), pos++)
{
const char* head = esc(col.get(0));
const int width = col.get_int();
XI_OBJ* column = find_column(head);
if (column) // Controlla che esista ancora
{
if (pos > 0 && pos < num_cols)
xi_move_column(column, pos); // Sposta la colonna se possibile
if (width > XI_FU_MULTIPLE) // Se ha una larghezza valida
xi_column_set_pixel_width(column, width - offset);
}
}
}
if (fixed > 1)
xi_set_fixed_columns(_obj, fixed);
if (focus)
xi_set_focus(focus);
}
HIDDEN TFilename& field2parag(const TMask_field& f, TFilename& name)
{
const TMask& m = f.mask();
name = m.source_file();
name.ext(""); // Nome della maschera senza estensione
const int index = m.number();
CHECKD(index >= 0 && index <= 8, "Bad mask index:", index);
if (index > 0) // Aggiunge l'eventuale numero di sotto-maschera
name << '(' << index << ')';
return name;
}
void TGrid_control::load_columns_order()
{
TFilename parag; field2parag(*_grid, parag);
TConfig config(CONFIG_USER, parag);
TToken_string order = config.get("Browse", NULL, id());
if (order.empty_items())
config.remove("Browse", id());
else
set_columns_order(&order);
_columns_order = 0;
}
void TGrid_control::save_columns_order() const
{
if (_columns_order)
{
TFilename parag; field2parag(*_grid, parag);
TConfig config(CONFIG_USER, parag); // Apre il file di configurazione
TToken_string order(127); // Nuovo ordine delle colonne
if (_columns_order == 1) // Se vale 3 devo solo resettare
{
int num;
XI_OBJ** column = xi_get_member_list(_obj, &num);
TString80 head;
for (int i = 0; i < num; i++) // Scorre tutte le colonne
{
xi_get_text(column[i], head.get_buffer(), head.size());
const int acapo = head.find('\n');
if (acapo > 0)
{
head[acapo] = '\\';
head.insert("n", acapo+1);
}
order.add(head);
RCT rct; xi_get_rect(column[i], &rct);
order << ',' << rct.right - rct.left;
}
config.set("Browse", order, NULL, TRUE, id());
}
else
config.remove("Browse", id());
}
}
///////////////////////////////////////////////////////////
// TGrid_cell
///////////////////////////////////////////////////////////
@ -1647,6 +1817,15 @@ short TGrid_cell::get_size() const
// TGrid_field
///////////////////////////////////////////////////////////
TGrid_field::TGrid_field(TMask* m)
: TOperable_field(m)
{ }
word TGrid_field::class_id() const
{
return CLASS_GRID_FIELD;
}
void TGrid_field::update(long n)
{ grid().update(n); }
@ -1665,6 +1844,7 @@ void TGrid_field::create(WINDOW parent)
_ctl_data._width, _ctl_data._height,
_ctl_data._flags, _ctl_data._park,
this);
grid().load_columns_order();
}
bool TGrid_field::parse_item(TScanner& scanner)
@ -1704,6 +1884,16 @@ long TGrid_field::selected() const
bool TGrid_field::select(long rec)
{ return grid().select(rec); }
void TGrid_field::reset_columns_order()
{
grid().reset_columns_order();
}
void TGrid_field::save_columns_order() const
{
grid().save_columns_order();
}
///////////////////////////////////////////////////////////
// Da qui in poi e' tutta roba specializzata del programma
///////////////////////////////////////////////////////////
@ -1955,8 +2145,8 @@ void TMastrini_grid::cell_request(long rec, short id, TGrid_cell& cell)
{
const TRectype& mov = _mastrino.testata(rec);
TString80 text;
text = mov.get(MOV_DATAREG);
text << ' ' << mov.get(MOV_DATADOC);
text = riga.data().string();
text << ' ' << mov.get(MOV_DATACOMP);
cell.set(text);
}
break;
@ -1964,13 +2154,30 @@ void TMastrini_grid::cell_request(long rec, short id, TGrid_cell& cell)
if (riga.tipo() == riga_mastrino)
{
const TRectype& mov = _mastrino.testata(rec);
const int anno = _esercizi.date2esc(mov.get_date(MOV_DATAREG));
const int anno = _esercizi.date2esc(riga.data());
const int eser = mov.get_int(MOV_ANNOES);
const comp = anno == eser;
cell.set_icon(comp ? ICO_CHECK_ON : ICO_CHECK_OFF);
}
break;
case 103:
if (riga.tipo() == riga_mastrino)
{
const TRectype& mov = _mastrino.testata(rec);
cell.set(_causali.decode(mov.get(MOV_CODCAUS)));
}
else
{
const TRectype& rmov = _mastrino.riga(rec);
TString16 text;
text.format("%03d.%03d.%06ld",
rmov.get_int(RMV_GRUPPO),
rmov.get_int(RMV_CONTO),
rmov.get_long(RMV_SOTTOCONTO));
cell.set(text);
}
break;
case 104:
if (riga.tipo() == riga_mastrino)
{
const TRectype& mov = _mastrino.testata(rec);
@ -1996,23 +2203,6 @@ void TMastrini_grid::cell_request(long rec, short id, TGrid_cell& cell)
cell.set(text);
}
break;
case 104:
if (riga.tipo() == riga_mastrino)
{
const TRectype& mov = _mastrino.testata(rec);
cell.set(_causali.decode(mov.get(MOV_CODCAUS)));
}
else
{
const TRectype& rmov = _mastrino.riga(rec);
TString16 text;
text.format("%03d.%03d.%06ld",
rmov.get_int(RMV_GRUPPO),
rmov.get_int(RMV_CONTO),
rmov.get_long(RMV_SOTTOCONTO));
cell.set(text);
}
break;
case 105:
{
const TRectype& rmov = _mastrino.riga(rec);
@ -2054,7 +2244,7 @@ void TMastrini_grid::cell_request(long rec, short id, TGrid_cell& cell)
if (!stampa)
{
const TDate& data = _mastrino[next_row].data();
stampa = riga.data() < data;
stampa = riga.data() != data;
}
if (stampa)
{
@ -2109,11 +2299,13 @@ void TMastrini_grid::on_grid_button()
TProgind* pi = NULL;
if (total > 50)
pi = new TProgind(total, "Calcolo contropartite", FALSE, TRUE, 48);
pi = new TProgind(total, "Aggiornamento contropartite ...", FALSE, TRUE, 48);
else
begin_wait();
// Cerca l'ultima contropartita
const long last_con = _mastrino.last(riga_contropartita);
// Se non esistono contropartite devo espandere le righe
const bool expand = last_con < 0;
if (expand)
{
@ -2170,6 +2362,8 @@ void TMastrini_grid::on_record_button(long rec)
end_wait();
}
// Posso ridimensionare solo le descrizioni, le altre devono rimanere fisse per
// non perdere la formattazione su due righe
bool TMastrini_grid::on_resize_column(short cid, int new_size)
{
return cid == 103 || cid == 104;
@ -2256,6 +2450,7 @@ class TGrid_mask : public TMask
protected: // TMask
virtual TMask_field* parse_field(TScanner& sc);
virtual bool on_key(KEY k);
virtual void handler(WINDOW win, EVENT* ep);
static bool link_handler(TMask_field& f, KEY k);
@ -2334,7 +2529,82 @@ bool TGrid_mask::on_key(KEY k)
}
return TMask::on_key(k);
}
}
void TGrid_mask::handler(WINDOW win, EVENT* ep)
{
static TGrid_field* _last_grid = NULL;
if (ep->type == E_MOUSE_DOWN && ep->v.mouse.button == 1)
{
_last_grid = NULL;
for (int f = fields()-1; f >= 0; f--)
{
TMask_field& cur_fld = fld(f);
if (cur_fld.parent() == win)
{
RCT rct; cur_fld.get_rect(rct);
if (xvt_rect_has_point(&rct, ep->v.mouse.where))
{
if (cur_fld.class_id() == CLASS_GRID_FIELD)
_last_grid = (TGrid_field*)&cur_fld;
}
}
}
if (_last_grid)
{
TGrid_field& sht = (TGrid_field&)*_last_grid;
#if (XVT_PTK_VERSION_MAJOR > 4) || (XVT_PTK_VERSION_MAJOR == 4 && XVT_PTK_VERSION_MINOR >= 50)
MENU_ITEM* menu = xvt_res_get_menu(BROWSE_BAR);
if (menu)
{
const PNT& p = ep->v.mouse.where;
RCT cr; xvt_vobj_get_client_rect(win, &cr);
XVT_POPUP_ALIGNMENT pa = XVT_POPUP_CENTER;
if (p.h < cr.right / 3)
pa = XVT_POPUP_LEFT_ALIGN;
else
if (p.h > 2 * cr.right / 3)
pa = XVT_POPUP_RIGHT_ALIGN;
xvt_menu_popup(menu->child, win, p, pa, NULL);
xvt_res_free_menu_tree(menu);
}
#else
ASK_RESPONSE r = xvt_dm_post_ask("Annulla", "Ripristina", "Salva",
"Ordinamento delle colonne");
if (r == RESP_2)
sht.reset_columns_order();
if (r == RESP_2 || r == RESP_3)
sht.save_columns_order();
#endif
}
return;
}
if (ep->type == E_COMMAND)
{
if (_last_grid)
{
switch (ep->v.cmd.tag)
{
case M_EDIT_UNDO:
_last_grid->reset_columns_order();
case M_EDIT_COPY:
_last_grid->save_columns_order();
break;
case M_EDIT_SEARCH:
_last_grid->on_key(K_F11);
break;
default:
break;
}
return;
}
}
TMask::handler(win, ep);
}
///////////////////////////////////////////////////////////
// TQuery_mask

518
cg/cg3600a.uml
View File

@ -1,259 +1,259 @@
#include "cg3600.h"
TOOLBAR "" 0 20 0 0
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -11 ""
END
BUTTON DLG_FINDREC 10 2
BEGIN
PROMPT -23 -11 ""
PICTURE BMP_FINDREC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -11 ""
END
ENDPAGE
PAGE "Mastrini" -1 -1 76 20
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "DF"
USE LF_NDITTE
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE NORMAL
END
STRING F_RAGSOC 50
BEGIN
PROMPT 22 1 ""
FLAGS "D"
END
LIST F_TIPO 10
BEGIN
PROMPT 1 3 "Tipo "
ITEM " |Conto" MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
ITEM "C|Cliente" MESSAGE HIDE,1@|SHOW,2@|HIDE,3@
ITEM "F|Fornitore" MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
END
NUMBER F_GRUPPO 3
BEGIN
PROMPT 1 4 "Gruppo "
USE LF_PCON SELECT (CONTO="")
INPUT GRUPPO F_GRUPPO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_DESGRUPPO DESCR
CHECKTYPE REQUIRED
END
STRING F_DESGRUPPO 50
BEGIN
PROMPT 22 4 ""
USE LF_PCON KEY 2 SELECT (CONTO="")
INPUT DESCR F_DESGRUPPO
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
COPY OUTPUT F_GRUPPO
CHECKTYPE REQUIRED
END
NUMBER F_CONTO 3
BEGIN
PROMPT 1 5 "Conto "
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Tipo" TMCF
DISPLAY "Descrizione@50" DESCR
OUTPUT F_TIPO TMCF
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_DESCONTO DESCR
CHECKTYPE REQUIRED
END
STRING F_DESCONTO 50
BEGIN
PROMPT 22 5 ""
USE LF_PCON KEY 2 SELECT (CONTO!="")&&(SOTTOCONTO="")
INPUT DESCR F_DESGRUPPO
COPY DISPLAY F_GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Tipo" TMCF
COPY OUTPUT F_CONTO
CHECKTYPE REQUIRED
END
NUMBER F_SOTTOCONTO 6
BEGIN
PROMPT 1 6 "Sottoconto "
USE LF_PCON SELECT (SOTTOCONTO!="")
COPY INPUT F_CONTO
INPUT SOTTOCONTO F_SOTTOCONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_DESSOTTOC DESCR
CHECKTYPE REQUIRED
GROUP 1 4
END
STRING F_DESSOTTOC 50
BEGIN
PROMPT 22 6 ""
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="")
INPUT DESCR F_DESSOTTOC
COPY DISPLAY F_DESCONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCONTO
CHECKTYPE REQUIRED
GROUP 1 4
END
NUMBER F_CLIENTE 6
BEGIN
PROMPT 1 6 "Cliente "
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CLIENTE
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CLIENTE CODCF
OUTPUT F_RAGSOCCLI RAGSOC
CHECKTYPE REQUIRED
GROUP 2 4
END
STRING F_RAGSOCCLI 50
BEGIN
PROMPT 22 6 ""
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOCCLI
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
COPY OUTPUT F_CLIENTE
CHECKTYPE REQUIRED
GROUP 2 4
END
STRING F_FORNITORE 6
BEGIN
PROMPT 1 6 "Fornitore "
USE LF_CLIFO
INPUT TIPOCF "F"
INPUT CODCF F_FORNITORE
COPY DISPLAY F_CLIENTE
OUTPUT F_FORNITORE CODCF
OUTPUT F_RAGSOCFOR RAGSOC
CHECKTYPE REQUIRED
GROUP 3 4
END
STRING F_RAGSOCFOR 50
BEGIN
PROMPT 22 6 ""
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
INPUT RAGSOC F_RAGSOCFOR
COPY DISPLAY F_RAGSOCCLI
COPY OUTPUT F_FORNITORE
CHECKTYPE REQUIRED
GROUP 3 4
END
NUMBER F_ESERCIZIO 4
BEGIN
PROMPT 1 8 "Esercizio "
USE ESC
INPUT CODTAB F_ESERCIZIO
DISPLAY "Codice" CODTAB
DISPLAY "Inizio esercizio" D0
DISPLAY "Fine esercizio" D1
OUTPUT F_ESERCIZIO CODTAB
ADD NONE
END
DATE F_DADATA
BEGIN
PROMPT 22 8 "Dalla data "
END
DATE F_ADATA
BEGIN
PROMPT 51 8 "Alla data "
VALIDATE DATE_CMP_FUNC >= F_DADATA
WARNING "La data finale deve essere maggiore di quella iniziale"
END
STRING F_DACAUSALE 3
BEGIN
PROMPT 1 10 "Da causale "
FLAGS "U"
USE LF_CAUSALI
INPUT CODCAUS F_DACAUSALE
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_DACAUSALE CODCAUS
OUTPUT F_DADESCAUS DESCR
STR_EXPR (#F_ACAUSALE="")||(#F_DACAUSALE<=#F_ACAUSALE)
WARNING "La causale iniziale deve precedere quella finale"
CHECKTYPE SEARCH
END
STRING F_DADESCAUS 50
BEGIN
PROMPT 22 10 ""
USE LF_CAUSALI KEY 2
INPUT DESCR F_DADESCAUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT F_DACAUSALE
CHECKTYPE SEARCH
END
STRING F_ACAUSALE 3
BEGIN
PROMPT 1 11 "A causale "
FLAGS "U"
COPY USE F_DACAUSALE
INPUT CODCAUS F_ACAUSALE
COPY DISPLAY F_DACAUSALE
OUTPUT F_ACAUSALE CODCAUS
OUTPUT F_ADESCAUS DESCR
STR_EXPR (#F_ACAUSALE>=#F_DACAUSALE)
WARNING "La causale finale deve seguire quella iniziale"
CHECKTYPE SEARCH
END
STRING F_ADESCAUS 50
BEGIN
PROMPT 22 11 ""
COPY USE F_DADESCAUS
INPUT DESCR F_ADESCAUS
COPY DISPLAY F_DADESCAUS
COPY OUTPUT F_ACAUSALE
CHECKTYPE SEARCH
END
ENDPAGE
ENDMASK
#include "cg3600.h"
TOOLBAR "" 0 20 0 0
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -11 ""
END
BUTTON DLG_FINDREC 10 2
BEGIN
PROMPT -23 -11 ""
PICTURE BMP_FINDREC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -11 ""
END
ENDPAGE
PAGE "Mastrini" -1 -1 76 20
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "DF"
USE LF_NDITTE
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE NORMAL
END
STRING F_RAGSOC 50
BEGIN
PROMPT 22 1 ""
FLAGS "D"
END
LIST F_TIPO 10
BEGIN
PROMPT 1 3 "Tipo "
ITEM " |Conto" MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
ITEM "C|Cliente" MESSAGE HIDE,1@|SHOW,2@|HIDE,3@
ITEM "F|Fornitore" MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
END
NUMBER F_GRUPPO 3
BEGIN
PROMPT 1 4 "Gruppo "
USE LF_PCON SELECT (CONTO="")
INPUT GRUPPO F_GRUPPO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_DESGRUPPO DESCR
CHECKTYPE REQUIRED
END
STRING F_DESGRUPPO 50
BEGIN
PROMPT 22 4 ""
USE LF_PCON KEY 2 SELECT (CONTO="")
INPUT DESCR F_DESGRUPPO
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
COPY OUTPUT F_GRUPPO
CHECKTYPE REQUIRED
END
NUMBER F_CONTO 3
BEGIN
PROMPT 1 5 "Conto "
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Tipo" TMCF
DISPLAY "Descrizione@50" DESCR
OUTPUT F_TIPO TMCF
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_DESCONTO DESCR
CHECKTYPE REQUIRED
END
STRING F_DESCONTO 50
BEGIN
PROMPT 22 5 ""
USE LF_PCON KEY 2 SELECT (CONTO!="")&&(SOTTOCONTO="")
INPUT DESCR F_DESCONTO
COPY DISPLAY F_GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Tipo" TMCF
COPY OUTPUT F_CONTO
CHECKTYPE REQUIRED
END
NUMBER F_SOTTOCONTO 6
BEGIN
PROMPT 1 6 "Sottoconto "
USE LF_PCON SELECT (SOTTOCONTO!="")
COPY INPUT F_CONTO
INPUT SOTTOCONTO F_SOTTOCONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_DESSOTTOC DESCR
CHECKTYPE REQUIRED
GROUP 1 4
END
STRING F_DESSOTTOC 50
BEGIN
PROMPT 22 6 ""
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="")
INPUT DESCR F_DESSOTTOC
COPY DISPLAY F_DESCONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCONTO
CHECKTYPE REQUIRED
GROUP 1 4
END
NUMBER F_CLIENTE 6
BEGIN
PROMPT 1 6 "Cliente "
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CLIENTE
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CLIENTE CODCF
OUTPUT F_RAGSOCCLI RAGSOC
CHECKTYPE REQUIRED
GROUP 2 4
END
STRING F_RAGSOCCLI 50
BEGIN
PROMPT 22 6 ""
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOCCLI
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
COPY OUTPUT F_CLIENTE
CHECKTYPE REQUIRED
GROUP 2 4
END
STRING F_FORNITORE 6
BEGIN
PROMPT 1 6 "Fornitore "
USE LF_CLIFO
INPUT TIPOCF "F"
INPUT CODCF F_FORNITORE
COPY DISPLAY F_CLIENTE
OUTPUT F_FORNITORE CODCF
OUTPUT F_RAGSOCFOR RAGSOC
CHECKTYPE REQUIRED
GROUP 3 4
END
STRING F_RAGSOCFOR 50
BEGIN
PROMPT 22 6 ""
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
INPUT RAGSOC F_RAGSOCFOR
COPY DISPLAY F_RAGSOCCLI
COPY OUTPUT F_FORNITORE
CHECKTYPE REQUIRED
GROUP 3 4
END
NUMBER F_ESERCIZIO 4
BEGIN
PROMPT 1 8 "Esercizio "
USE ESC
INPUT CODTAB F_ESERCIZIO
DISPLAY "Codice" CODTAB
DISPLAY "Inizio esercizio" D0
DISPLAY "Fine esercizio" D1
OUTPUT F_ESERCIZIO CODTAB
ADD NONE
END
DATE F_DADATA
BEGIN
PROMPT 22 8 "Dalla data "
END
DATE F_ADATA
BEGIN
PROMPT 51 8 "Alla data "
VALIDATE DATE_CMP_FUNC >= F_DADATA
WARNING "La data finale deve essere maggiore di quella iniziale"
END
STRING F_DACAUSALE 3
BEGIN
PROMPT 1 10 "Da causale "
FLAGS "U"
USE LF_CAUSALI
INPUT CODCAUS F_DACAUSALE
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_DACAUSALE CODCAUS
OUTPUT F_DADESCAUS DESCR
STR_EXPR (#F_ACAUSALE="")||(#F_DACAUSALE<=#F_ACAUSALE)
WARNING "La causale iniziale deve precedere quella finale"
CHECKTYPE SEARCH
END
STRING F_DADESCAUS 50
BEGIN
PROMPT 22 10 ""
USE LF_CAUSALI KEY 2
INPUT DESCR F_DADESCAUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT F_DACAUSALE
CHECKTYPE SEARCH
END
STRING F_ACAUSALE 3
BEGIN
PROMPT 1 11 "A causale "
FLAGS "U"
COPY USE F_DACAUSALE
INPUT CODCAUS F_ACAUSALE
COPY DISPLAY F_DACAUSALE
OUTPUT F_ACAUSALE CODCAUS
OUTPUT F_ADESCAUS DESCR
STR_EXPR (#F_ACAUSALE>=#F_DACAUSALE)
WARNING "La causale finale deve seguire quella iniziale"
CHECKTYPE SEARCH
END
STRING F_ADESCAUS 50
BEGIN
PROMPT 22 11 ""
COPY USE F_DADESCAUS
INPUT DESCR F_ADESCAUS
COPY DISPLAY F_DADESCAUS
COPY OUTPUT F_ACAUSALE
CHECKTYPE SEARCH
END
ENDPAGE
ENDMASK

4
cg/cg3600b.uml
View File

@ -65,8 +65,8 @@ BEGIN
FLAGS "DM2"
ITEM "Data Op. \nData Com.@10F"
ITEM "C@1F"
ITEM "Operazione@20F"
ITEM "Causale@20"
ITEM "Causale@20F"
ITEM "Operazione@20"
ITEM "Dare@15R"
ITEM "Avere@15R"
ITEM "N.Doc. \nN.Prot.@7"

40
cg/cglib04.cpp
View File

@ -4,6 +4,8 @@
#include <progind.h>
#include <stdlib.h>
#include <extcdecl.h>
#include "cglib.h"
#include "cglib04.h"
const int size = 256; //Lunghezza del record del TRASFER
@ -1446,17 +1448,6 @@ int TTransfer_file::annoes_datacomp(const TString& record, TDate& datacomp)
return ae;
}
void TTransfer_file::datafine_esprec(const int aep, TDate& datacomp)
{
TTable esc("ESC");
for (int err = esc.first(); err == NOERR; err = esc.next())
{
const anno = esc.get_int("CODTAB");
if (anno == aep)
datacomp = esc.get("D1");
}
}
void TTransfer_file::decimali(TString& campo, int dec)
{
int l = campo.len();
@ -5163,19 +5154,28 @@ const char* riconverti (TString& data_PC,bool anno_di_quattro)
return TEMP;
}
int date2esc(const TDate& d, int* prevesc)
{
if (prevesc) *prevesc = 0;
void TTransfer_file::datafine_esprec(const int aep, TDate& datacomp)
{
/* Guy: Oink!
TTable esc("ESC");
for (int err = esc.first(); err == NOERR; err = esc.next())
{
const TDate ia(esc.get("D0")); // Data inizio esercizio
const TDate fa(esc.get("D1")); // Data fine esercizio
const anno = esc.get_int("CODTAB");
if (d >= ia && d <= fa)
return anno;
if (prevesc) *prevesc = anno;
if (anno == aep)
datacomp = esc.get("D1");
}
return 0;
*/
TEsercizi_contabili esc;
if (esc.exist(aep))
datacomp = esc[aep].fine();
}
int date2esc(const TDate& d, int* prevesc)
{
TEsercizi_contabili esc;
int anno = esc.date2esc(d);
if (prevesc)
*prevesc = esc.pred(anno);
return anno;
}

2
cg/pagament.cpp
View File

@ -255,7 +255,7 @@ void TPagamento::set_numero_rate(int n, int sscad, int rdiff)
if (scd == 0)
scd = _int_rate;
#endif
add_rata(perc, scd, tipo_rata(0));
add_rata(perc, scd, tipo_rata(0), ulc_rata(0));
}
if (_inited)
{