Corretta gestione delle causali contabili.
git-svn-id: svn://10.65.10.50/trunk@25 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
10852c6b02
commit
fe15049eab
1141
cg/cg2100c.uml
1141
cg/cg2100c.uml
File diff suppressed because it is too large
Load Diff
728
cg/cg2103.cpp
728
cg/cg2103.cpp
@ -1,366 +1,362 @@
|
||||
#include <applicat.h>
|
||||
#include <tabutil.h>
|
||||
|
||||
#include "cg2103.h"
|
||||
|
||||
#include <causali.h>
|
||||
|
||||
|
||||
const char* iva2name(TipoIVA iva)
|
||||
{
|
||||
const char* i;
|
||||
switch(iva)
|
||||
{
|
||||
case nessuna_iva : i = "Nessuna IVA"; break;
|
||||
case iva_acquisti: i = "IVA Acquisti"; break;
|
||||
case iva_vendite : i = "IVA Vendite"; break;
|
||||
default : i = "IVA ERRATA!"; break;
|
||||
}
|
||||
|
||||
return i;
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Registro
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
TRegistro::TRegistro(const char* cod, int year) : _rec(LF_TAB), _att(LF_ATTIV)
|
||||
{
|
||||
read(cod, year);
|
||||
}
|
||||
|
||||
|
||||
bool TRegistro::read(const char* cod, int year)
|
||||
{
|
||||
if (year <= 0)
|
||||
{
|
||||
const TDate oggi(TODAY);
|
||||
year = oggi.year();
|
||||
}
|
||||
|
||||
int err = ~NOERR;
|
||||
|
||||
if (cod && *cod > ' ')
|
||||
{
|
||||
TTable reg("REG");
|
||||
TString16 chiave;
|
||||
chiave << year << cod;
|
||||
reg.put("CODTAB", chiave);
|
||||
err = reg.read();
|
||||
if (err == NOERR)
|
||||
_rec = reg.curr();
|
||||
}
|
||||
|
||||
if (_att.ok())
|
||||
_att.zero();
|
||||
if (err != NOERR && _rec.ok())
|
||||
_rec.zero();
|
||||
return err == NOERR;
|
||||
}
|
||||
|
||||
|
||||
int TRegistro::year() const
|
||||
{ return ok() ? atoi(_rec.get("CODTAB")) : 0; }
|
||||
|
||||
|
||||
|
||||
TRegistro& TRegistro::operator =(const TRegistro& r)
|
||||
{
|
||||
_rec = r._rec;
|
||||
_att = r._att;
|
||||
return *this;
|
||||
}
|
||||
|
||||
|
||||
int TRegistro::tipo() const
|
||||
{
|
||||
const int t = _rec.ok() ? _rec.get_int("I0") : 0;
|
||||
return t;
|
||||
}
|
||||
|
||||
|
||||
TipoIVA TRegistro::iva() const
|
||||
{
|
||||
TipoIVA i = (TipoIVA)tipo();
|
||||
if (i != nessuna_iva && i != iva_vendite && i != iva_acquisti)
|
||||
{
|
||||
error_box("Il registro '%s' non e' un registro iva, tipo: %d",
|
||||
(const char*)_rec.get("CODTAB"), i);
|
||||
i = nessuna_iva;
|
||||
}
|
||||
return i;
|
||||
}
|
||||
|
||||
bool TRegistro::read_att()
|
||||
{
|
||||
if (!_att.empty())
|
||||
return TRUE;
|
||||
|
||||
TLocalisamfile attivita(LF_ATTIV);
|
||||
attivita.put("CODDITTA", MainApp()->get_firm());
|
||||
const char* a = _rec.get("S8");
|
||||
attivita.put("CODATT", a);
|
||||
const int err = attivita.read();
|
||||
_att = attivita.curr();
|
||||
if (err != NOERR)
|
||||
_att.zero();
|
||||
|
||||
return err == NOERR;
|
||||
}
|
||||
|
||||
bool TRegistro::agenzia_viaggi()
|
||||
{
|
||||
if (iva() != iva_vendite)
|
||||
return FALSE;
|
||||
|
||||
bool av = FALSE;
|
||||
if (read_att()) av = _att.get_bool("REG74TER");
|
||||
|
||||
return av;
|
||||
}
|
||||
|
||||
const TString& TRegistro::tipo_attivita()
|
||||
{
|
||||
read_att();
|
||||
return _att.get("TIPOATT");
|
||||
}
|
||||
|
||||
|
||||
// Certified 99%
|
||||
bool TRegistro::update(long protiva, const TDate& datareg)
|
||||
{
|
||||
bool updated = TRUE;
|
||||
|
||||
if (protiva > _rec.get_long("I5"))
|
||||
{
|
||||
_rec.put("I5", protiva);
|
||||
updated = FALSE;
|
||||
}
|
||||
if (datareg > _rec.get_date("D2"))
|
||||
{
|
||||
_rec.put("D2", datareg);
|
||||
updated = FALSE;
|
||||
}
|
||||
|
||||
if (!updated)
|
||||
{
|
||||
TTable reg("REG");
|
||||
updated = reg.rewrite(_rec) == NOERR;
|
||||
}
|
||||
|
||||
return updated;
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Libro giornale
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
// Legge il libro giornale dell'anno specificato
|
||||
bool TLibro_giornale::read(int y)
|
||||
{
|
||||
if (y <= 0)
|
||||
{
|
||||
const TDate oggi(TODAY);
|
||||
y = oggi.year();
|
||||
}
|
||||
|
||||
// if (ok() && y == year()) return TRUE; // Gia' letto!
|
||||
|
||||
TTable reg("REG");
|
||||
bool found = FALSE;
|
||||
|
||||
TString16 anno; anno.format("%4d", y);
|
||||
|
||||
reg.put("CODTAB", anno); // Cerca il primo registro dell'anno y
|
||||
|
||||
for (int err = reg.read(_isgteq); err == NOERR; err = reg.next())
|
||||
{
|
||||
if (strncmp(reg.get("CODTAB"), anno, 4) != 0) break;
|
||||
if (reg.get_int("I0") == libro_giornale)
|
||||
{
|
||||
found = TRUE;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
if (!found) reg.zero(); // Memorizza record (anche vuoto)
|
||||
_rec = reg.curr();
|
||||
|
||||
return found;
|
||||
}
|
||||
|
||||
TLibro_giornale::TLibro_giornale(int y)
|
||||
{
|
||||
read(y);
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Causale
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
TCausale::TCausale(const char* cod, int year)
|
||||
: TArray(12), _rec(LF_CAUSALI), _iva(iva_errata)
|
||||
{
|
||||
if (*cod) read(cod, year);
|
||||
}
|
||||
|
||||
|
||||
// Legge le righe della causale attualmente selezionata sulla maschera
|
||||
bool TCausale::read(const char* cod, int year)
|
||||
{
|
||||
destroy(); // Delete all rows
|
||||
|
||||
if (*cod > ' ')
|
||||
{
|
||||
_iva = iva_errata;
|
||||
|
||||
TLocalisamfile caus(LF_CAUSALI);
|
||||
caus.setkey(1);
|
||||
caus.zero();
|
||||
caus.put(CAU_CODCAUS, cod);
|
||||
|
||||
int err = caus.read();
|
||||
_rec = caus.curr();
|
||||
if (err != NOERR) return FALSE;
|
||||
|
||||
TLocalisamfile rcaus(LF_RCAUSALI);
|
||||
rcaus.setkey(1);
|
||||
rcaus.zero();
|
||||
rcaus.put(CAU_CODCAUS, cod);
|
||||
rcaus.put(CAU_NRIGA, 0);
|
||||
|
||||
err = rcaus.read(_isgteq); // Find first line
|
||||
if (err != NOERR) return FALSE;
|
||||
|
||||
while (err == NOERR && rcaus.get(CAU_CODCAUS) == cod)
|
||||
{
|
||||
const int riga = rcaus.get_int(CAU_NRIGA);
|
||||
add(rcaus.curr(), riga);
|
||||
err = rcaus.next(); // Read next line
|
||||
}
|
||||
rcaus.zero();
|
||||
for (int riga = 1; riga < size(); riga++) // Fill gaps
|
||||
if (objptr(riga) == NULL) add(rcaus.curr(), riga);
|
||||
|
||||
if (year > 0)
|
||||
{
|
||||
TString16 codreg(caus.get("REG"));
|
||||
const bool ok = _reg.read(codreg, year); // Read register
|
||||
if (!ok)
|
||||
return error_box("Non esiste il registro '%s' per l'anno %d",
|
||||
(const char*)codreg, year);
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
_iva = nessuna_iva; // Clear IVA data
|
||||
_reg.read("", year);
|
||||
}
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
||||
const TRectype& TCausale::row(int num) const
|
||||
{
|
||||
const TRectype* rec = (const TRectype*)objptr(num);
|
||||
CHECKD(rec, "Manca la riga di causale ", num);
|
||||
return *rec;
|
||||
}
|
||||
|
||||
|
||||
TConto& TCausale::bill(int num, TConto& conto) const
|
||||
{
|
||||
const TRectype& rec = row(num);
|
||||
conto.set(rec.get_int("GRUPPO"), rec.get_int("CONTO"),
|
||||
rec.get_long("SOTTOCONTO"), rec.get_char("TIPOCF"));
|
||||
return conto;
|
||||
}
|
||||
|
||||
bool TCausale::data_doc() const
|
||||
{ return _rec.ok() ? _rec.get_bool("DATADOC") : FALSE; }
|
||||
|
||||
bool TCausale::num_doc() const
|
||||
{ return _rec.ok() ? _rec.get_bool("NUMDOC") : FALSE; }
|
||||
|
||||
bool TCausale::apertura() const
|
||||
{ return _rec.ok() ? _rec.get_char("MOVAP") == 'A' : FALSE; }
|
||||
|
||||
bool TCausale::sezionale() const
|
||||
{ return _rec.ok() ? _rec.get_bool("MOVSEZ") : FALSE; }
|
||||
|
||||
bool TCausale::valuta() const
|
||||
{ return _rec.ok() ? _rec.get_bool("MOVVAL") : FALSE; }
|
||||
|
||||
bool TCausale::intra() const
|
||||
{ return _rec.ok() ? _rec.get_bool("INTRACOM") : FALSE; }
|
||||
|
||||
bool TCausale::corrval() const
|
||||
{ return _rec.ok() ? _rec.get_bool("VALINTRA") : FALSE; }
|
||||
|
||||
|
||||
const char* TCausale::causale_inc_imm() const
|
||||
{ return _rec.ok() ? _rec.get("CODCAUSIM") : ""; }
|
||||
|
||||
const char* TCausale::tipo_doc() const
|
||||
{ return _rec.ok() ? _rec.get("TIPODOC") : ""; }
|
||||
|
||||
|
||||
TipoIVA TCausale::iva() const
|
||||
{
|
||||
if (_iva == iva_errata)
|
||||
{
|
||||
TipoIVA i = nessuna_iva;
|
||||
|
||||
if (ok())
|
||||
{
|
||||
TString tipodoc(_rec.get("TIPODOC"));
|
||||
if (tipodoc.not_empty())
|
||||
{
|
||||
TTable tpd("%TPD");
|
||||
tpd.put("CODTAB", tipodoc);
|
||||
if (tpd.read() == NOERR)
|
||||
{
|
||||
i = (TipoIVA)tpd.get_int("I0"); // IVA acquisti, vendite, generica
|
||||
if (i != iva_vendite && i != iva_acquisti)
|
||||
i = _reg.iva();
|
||||
}
|
||||
}
|
||||
}
|
||||
((TCausale*)this)->_iva = i; // Ricorda IVA per la prossima volta
|
||||
}
|
||||
return _iva;
|
||||
}
|
||||
|
||||
|
||||
bool TCausale::similar(const TCausale& c) const
|
||||
{
|
||||
return iva() == c.iva() &&
|
||||
sezionale() == c.sezionale() &&
|
||||
valuta() == c.valuta() &&
|
||||
intra() == c.intra();
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Codice IVA
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
TCodiceIVA::TCodiceIVA(const char* cod) : TRectype(LF_TABCOM)
|
||||
{
|
||||
read(cod);
|
||||
}
|
||||
|
||||
bool TCodiceIVA::read(const char* cod)
|
||||
{
|
||||
int err = ~NOERR;
|
||||
TTable iva("%IVA");
|
||||
if (cod && *cod)
|
||||
{
|
||||
iva.setkey(1);
|
||||
iva.put("CODTAB", cod);
|
||||
err = iva.read();
|
||||
}
|
||||
TRectype::operator=(iva.curr());
|
||||
if (err != NOERR) zero();
|
||||
return err == NOERR;
|
||||
}
|
||||
#include <applicat.h>
|
||||
#include <tabutil.h>
|
||||
|
||||
#include "cg2103.h"
|
||||
|
||||
#include <causali.h>
|
||||
|
||||
|
||||
const char* iva2name(TipoIVA iva)
|
||||
{
|
||||
const char* i;
|
||||
switch(iva)
|
||||
{
|
||||
case nessuna_iva : i = "Nessuna IVA"; break;
|
||||
case iva_acquisti: i = "IVA Acquisti"; break;
|
||||
case iva_vendite : i = "IVA Vendite"; break;
|
||||
default : i = "IVA ERRATA!"; break;
|
||||
}
|
||||
|
||||
return i;
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Registro
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
TRegistro::TRegistro(const char* cod, int year) : _rec(LF_TAB), _att(LF_ATTIV)
|
||||
{
|
||||
read(cod, year);
|
||||
}
|
||||
|
||||
|
||||
bool TRegistro::read(const char* cod, int year)
|
||||
{
|
||||
if (year <= 0)
|
||||
{
|
||||
const TDate oggi(TODAY);
|
||||
year = oggi.year();
|
||||
}
|
||||
|
||||
int err = ~NOERR;
|
||||
|
||||
TTable reg("REG");
|
||||
if (cod && *cod > ' ')
|
||||
{
|
||||
TString16 chiave;
|
||||
chiave << year << cod;
|
||||
reg.put("CODTAB", chiave);
|
||||
err = reg.read();
|
||||
}
|
||||
_rec = reg.curr();
|
||||
|
||||
if (_att.ok())
|
||||
_att.zero();
|
||||
if (err != NOERR)
|
||||
_rec.zero();
|
||||
return err == NOERR;
|
||||
}
|
||||
|
||||
|
||||
int TRegistro::year() const
|
||||
{ return ok() ? atoi(_rec.get("CODTAB")) : 0; }
|
||||
|
||||
|
||||
|
||||
TRegistro& TRegistro::operator =(const TRegistro& r)
|
||||
{
|
||||
_rec = r._rec;
|
||||
_att = r._att;
|
||||
return *this;
|
||||
}
|
||||
|
||||
|
||||
int TRegistro::tipo() const
|
||||
{
|
||||
const int t = _rec.ok() ? _rec.get_int("I0") : 0;
|
||||
return t;
|
||||
}
|
||||
|
||||
|
||||
TipoIVA TRegistro::iva() const
|
||||
{
|
||||
TipoIVA i = (TipoIVA)tipo();
|
||||
if (i != nessuna_iva && i != iva_vendite && i != iva_acquisti)
|
||||
{
|
||||
error_box("Il registro '%s' non e' un registro IVA o contabile: tipo %d",
|
||||
(const char*)name(), i);
|
||||
i = nessuna_iva;
|
||||
}
|
||||
return i;
|
||||
}
|
||||
|
||||
bool TRegistro::read_att()
|
||||
{
|
||||
if (!_att.empty())
|
||||
return TRUE;
|
||||
|
||||
TLocalisamfile attiv(LF_ATTIV);
|
||||
attiv.put("CODDITTA", MainApp()->get_firm());
|
||||
attiv.put("CODATT", attivita());
|
||||
const int err = attiv.read();
|
||||
_att = attiv.curr();
|
||||
if (err != NOERR)
|
||||
_att.zero();
|
||||
|
||||
return err == NOERR;
|
||||
}
|
||||
|
||||
bool TRegistro::agenzia_viaggi()
|
||||
{
|
||||
if (iva() != iva_vendite)
|
||||
return FALSE;
|
||||
|
||||
bool av = FALSE;
|
||||
if (read_att()) av = _att.get_bool("REG74TER");
|
||||
|
||||
return av;
|
||||
}
|
||||
|
||||
const TString& TRegistro::tipo_attivita()
|
||||
{
|
||||
read_att();
|
||||
return _att.get("TIPOATT");
|
||||
}
|
||||
|
||||
|
||||
// Certified 99%
|
||||
bool TRegistro::update(long protiva, const TDate& datareg)
|
||||
{
|
||||
bool updated = TRUE;
|
||||
|
||||
if (protiva > _rec.get_long("I5"))
|
||||
{
|
||||
_rec.put("I5", protiva);
|
||||
updated = FALSE;
|
||||
}
|
||||
if (datareg > _rec.get_date("D2"))
|
||||
{
|
||||
_rec.put("D2", datareg);
|
||||
updated = FALSE;
|
||||
}
|
||||
if (!updated)
|
||||
{
|
||||
TTable reg("REG");
|
||||
updated = reg.rewrite(_rec) == NOERR;
|
||||
}
|
||||
|
||||
return updated;
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Libro giornale
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
// Legge il libro giornale dell'anno specificato
|
||||
bool TLibro_giornale::read(int y)
|
||||
{
|
||||
if (y <= 0)
|
||||
{
|
||||
const TDate oggi(TODAY);
|
||||
y = oggi.year();
|
||||
}
|
||||
|
||||
TTable reg("REG");
|
||||
bool found = FALSE;
|
||||
|
||||
TString16 anno; anno.format("%4d", y);
|
||||
|
||||
reg.setkey(1);
|
||||
reg.put("CODTAB", anno); // Cerca il primo registro dell'anno y
|
||||
|
||||
for (int err = reg.read(_isgteq); err == NOERR; err = reg.next())
|
||||
{
|
||||
if (strncmp(reg.get("CODTAB"), anno, 4) != 0) break;
|
||||
if (reg.get_int("I0") == libro_giornale)
|
||||
{
|
||||
found = TRUE;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
if (!found) reg.zero(); // Memorizza record (anche vuoto)
|
||||
_rec = reg.curr();
|
||||
|
||||
return found;
|
||||
}
|
||||
|
||||
TLibro_giornale::TLibro_giornale(int y)
|
||||
{
|
||||
read(y);
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Causale
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
TCausale::TCausale(const char* cod, int year)
|
||||
: TArray(12), _rec(LF_CAUSALI), _iva(iva_errata)
|
||||
{
|
||||
if (*cod) read(cod, year);
|
||||
}
|
||||
|
||||
|
||||
// Legge le righe della causale attualmente selezionata sulla maschera
|
||||
bool TCausale::read(const char* cod, int year)
|
||||
{
|
||||
destroy(); // Delete all rows
|
||||
|
||||
if (*cod > ' ')
|
||||
{
|
||||
_iva = iva_errata;
|
||||
|
||||
TLocalisamfile caus(LF_CAUSALI);
|
||||
caus.setkey(1);
|
||||
caus.zero();
|
||||
caus.put(CAU_CODCAUS, cod);
|
||||
|
||||
int err = caus.read();
|
||||
_rec = caus.curr();
|
||||
if (err != NOERR) return FALSE;
|
||||
|
||||
TLocalisamfile rcaus(LF_RCAUSALI);
|
||||
rcaus.setkey(1);
|
||||
rcaus.zero();
|
||||
rcaus.put(CAU_CODCAUS, cod);
|
||||
rcaus.put(CAU_NRIGA, 0);
|
||||
|
||||
err = rcaus.read(_isgteq); // Find first line
|
||||
if (err != NOERR) return FALSE;
|
||||
|
||||
while (err == NOERR && rcaus.get(CAU_CODCAUS) == cod)
|
||||
{
|
||||
const int riga = rcaus.get_int(CAU_NRIGA);
|
||||
add(rcaus.curr(), riga);
|
||||
err = rcaus.next(); // Read next line
|
||||
}
|
||||
rcaus.zero();
|
||||
for (int riga = 1; riga < size(); riga++) // Fill gaps
|
||||
if (objptr(riga) == NULL) add(rcaus.curr(), riga);
|
||||
|
||||
if (year > 0)
|
||||
{
|
||||
TString16 codreg(caus.get("REG"));
|
||||
const bool ok = _reg.read(codreg, year); // Read register
|
||||
if (!ok && codreg.not_empty())
|
||||
return error_box("Non esiste il registro '%s' per l'anno %d",
|
||||
(const char*)codreg, year);
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
_iva = nessuna_iva; // Clear IVA data
|
||||
_reg.read("", year);
|
||||
}
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
||||
const TRectype& TCausale::row(int num) const
|
||||
{
|
||||
const TRectype* rec = (const TRectype*)objptr(num);
|
||||
CHECKD(rec, "Manca la riga di causale ", num);
|
||||
return *rec;
|
||||
}
|
||||
|
||||
|
||||
TConto& TCausale::bill(int num, TConto& conto) const
|
||||
{
|
||||
const TRectype& rec = row(num);
|
||||
conto.set(rec.get_int("GRUPPO"), rec.get_int("CONTO"),
|
||||
rec.get_long("SOTTOCONTO"), rec.get_char("TIPOCF"));
|
||||
return conto;
|
||||
}
|
||||
|
||||
bool TCausale::data_doc() const
|
||||
{ return _rec.ok() ? _rec.get_bool("DATADOC") : FALSE; }
|
||||
|
||||
bool TCausale::num_doc() const
|
||||
{ return _rec.ok() ? _rec.get_bool("NUMDOC") : FALSE; }
|
||||
|
||||
bool TCausale::apertura() const
|
||||
{ return _rec.ok() ? _rec.get_char("MOVAP") == 'A' : FALSE; }
|
||||
|
||||
bool TCausale::sezionale() const
|
||||
{ return _rec.ok() ? _rec.get_bool("MOVSEZ") : FALSE; }
|
||||
|
||||
bool TCausale::valuta() const
|
||||
{ return _rec.ok() ? _rec.get_bool("MOVVAL") : FALSE; }
|
||||
|
||||
bool TCausale::intra() const
|
||||
{ return _rec.ok() ? _rec.get_bool("INTRACOM") : FALSE; }
|
||||
|
||||
bool TCausale::corrval() const
|
||||
{ return _rec.ok() ? _rec.get_bool("VALINTRA") : FALSE; }
|
||||
|
||||
|
||||
const char* TCausale::causale_inc_imm() const
|
||||
{ return _rec.ok() ? _rec.get("CODCAUSIM") : ""; }
|
||||
|
||||
const char* TCausale::tipo_doc() const
|
||||
{ return _rec.ok() ? _rec.get("TIPODOC") : ""; }
|
||||
|
||||
|
||||
TipoIVA TCausale::iva() const
|
||||
{
|
||||
if (_iva == iva_errata)
|
||||
{
|
||||
TipoIVA i = nessuna_iva;
|
||||
|
||||
if (ok())
|
||||
{
|
||||
TString tipodoc(_rec.get("TIPODOC"));
|
||||
if (tipodoc.not_empty())
|
||||
{
|
||||
TTable tpd("%TPD");
|
||||
tpd.put("CODTAB", tipodoc);
|
||||
if (tpd.read() == NOERR)
|
||||
{
|
||||
i = (TipoIVA)tpd.get_int("I0"); // IVA acquisti, vendite, generica
|
||||
if (i != iva_vendite && i != iva_acquisti)
|
||||
i = _reg.iva();
|
||||
}
|
||||
}
|
||||
}
|
||||
((TCausale*)this)->_iva = i; // Ricorda IVA per la prossima volta
|
||||
}
|
||||
return _iva;
|
||||
}
|
||||
|
||||
|
||||
bool TCausale::similar(const TCausale& c) const
|
||||
{
|
||||
return iva() == c.iva() &&
|
||||
sezionale() == c.sezionale() &&
|
||||
valuta() == c.valuta() &&
|
||||
intra() == c.intra();
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Codice IVA
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
TCodiceIVA::TCodiceIVA(const char* cod) : TRectype(LF_TABCOM)
|
||||
{
|
||||
read(cod);
|
||||
}
|
||||
|
||||
bool TCodiceIVA::read(const char* cod)
|
||||
{
|
||||
int err = ~NOERR;
|
||||
TTable iva("%IVA");
|
||||
if (cod && *cod)
|
||||
{
|
||||
iva.setkey(1);
|
||||
iva.put("CODTAB", cod);
|
||||
err = iva.read();
|
||||
}
|
||||
TRectype::operator=(iva.curr());
|
||||
if (err != NOERR) zero();
|
||||
return err == NOERR;
|
||||
}
|
||||
|
||||
219
cg/cg2103.h
219
cg/cg2103.h
@ -1,109 +1,110 @@
|
||||
#ifndef __CG2103_H
|
||||
#define __CG2103_H
|
||||
|
||||
#ifndef __ISAM_H
|
||||
#include <isam.h>
|
||||
#endif
|
||||
|
||||
#ifndef __CONTO_H
|
||||
#include "conto.h"
|
||||
#endif
|
||||
|
||||
enum TipoIVA {
|
||||
iva_errata = -1,
|
||||
nessuna_iva = 0,
|
||||
iva_vendite = 1,
|
||||
iva_acquisti = 2,
|
||||
iva_generica = 9
|
||||
};
|
||||
|
||||
const char* iva2name(TipoIVA i);
|
||||
|
||||
|
||||
class TRegistro : public TObject
|
||||
{
|
||||
bool read_att();
|
||||
|
||||
protected:
|
||||
enum TipoRegistro { libro_giornale = 5 };
|
||||
TRectype _rec, _att;
|
||||
|
||||
public:
|
||||
bool read(const char* code, int year);
|
||||
TRegistro& operator =(const TRegistro& r);
|
||||
|
||||
virtual bool ok() const { return !_rec.empty(); }
|
||||
|
||||
int tipo() const;
|
||||
TipoIVA iva() const;
|
||||
const TString& name() const { return _rec.get("CODTAB").mid(4); }
|
||||
int year() const;
|
||||
TDate last_reg() const { return _rec.get_date("D2"); }
|
||||
TDate last_print() const { return _rec.get_date("D3"); }
|
||||
long protocol() const { return _rec.get_long("I5"); }
|
||||
|
||||
bool agenzia_viaggi();
|
||||
const TString& tipo_attivita();
|
||||
|
||||
bool update(long uprotiva, const TDate& lastreg);
|
||||
|
||||
TRegistro(const char* code = "", int year = 0);
|
||||
virtual ~TRegistro() {}
|
||||
};
|
||||
|
||||
|
||||
class TLibro_giornale : public TRegistro
|
||||
{
|
||||
public:
|
||||
bool read(int year);
|
||||
TLibro_giornale(int year = 0);
|
||||
virtual ~TLibro_giornale() {}
|
||||
};
|
||||
|
||||
|
||||
class TCausale : public TArray
|
||||
{
|
||||
TipoIVA _iva;
|
||||
TRectype _rec;
|
||||
TRegistro _reg;
|
||||
|
||||
protected:
|
||||
const TRectype& row(int num) const;
|
||||
|
||||
public:
|
||||
TConto& bill(int num, TConto& c) const;
|
||||
|
||||
bool data_doc() const;
|
||||
bool num_doc() const;
|
||||
bool apertura() const;
|
||||
bool sezionale() const;
|
||||
bool valuta() const;
|
||||
bool intra() const;
|
||||
bool corrval() const;
|
||||
const char* causale_inc_imm() const;
|
||||
const char* tipo_doc() const;
|
||||
|
||||
TRegistro& reg() { return _reg; }
|
||||
TipoIVA iva() const;
|
||||
|
||||
virtual bool ok() const { return !_rec.empty(); }
|
||||
bool similar(const TCausale& c) const;
|
||||
|
||||
bool read(const char* cod, int year);
|
||||
|
||||
TCausale(const char* code = "", int year = 0);
|
||||
virtual ~TCausale() {}
|
||||
};
|
||||
|
||||
class TCodiceIVA : public TRectype
|
||||
{
|
||||
public:
|
||||
TCodiceIVA(const char* codice = NULL);
|
||||
bool read(const char* codice);
|
||||
bool ok() const { return !empty(); }
|
||||
const TString& codice() const { return get("CODTAB"); }
|
||||
real percentuale() const { return get_real("R0"); }
|
||||
const TString& tipo() const { return get("S1"); }
|
||||
};
|
||||
|
||||
#endif
|
||||
#ifndef __CG2103_H
|
||||
#define __CG2103_H
|
||||
|
||||
#ifndef __ISAM_H
|
||||
#include <isam.h>
|
||||
#endif
|
||||
|
||||
#ifndef __CONTO_H
|
||||
#include "conto.h"
|
||||
#endif
|
||||
|
||||
enum TipoIVA {
|
||||
iva_errata = -1,
|
||||
nessuna_iva = 0,
|
||||
iva_vendite = 1,
|
||||
iva_acquisti = 2,
|
||||
iva_generica = 9
|
||||
};
|
||||
|
||||
const char* iva2name(TipoIVA i);
|
||||
|
||||
|
||||
class TRegistro : public TObject
|
||||
{
|
||||
bool read_att();
|
||||
|
||||
protected:
|
||||
enum TipoRegistro { libro_giornale = 5 };
|
||||
TRectype _rec, _att;
|
||||
|
||||
public:
|
||||
bool read(const char* code, int year);
|
||||
TRegistro& operator =(const TRegistro& r);
|
||||
|
||||
virtual bool ok() const { return !_rec.empty(); }
|
||||
|
||||
int tipo() const;
|
||||
TipoIVA iva() const;
|
||||
const TString& name() const { return _rec.get("CODTAB").mid(4); }
|
||||
int year() const;
|
||||
TDate last_reg() const { return _rec.get_date("D2"); }
|
||||
TDate last_print() const { return _rec.get_date("D3"); }
|
||||
long protocol() const { return _rec.get_long("I5"); }
|
||||
const TString& attivita() const { return _rec.get("S8"); }
|
||||
|
||||
bool agenzia_viaggi();
|
||||
const TString& tipo_attivita();
|
||||
|
||||
bool update(long uprotiva, const TDate& lastreg);
|
||||
|
||||
TRegistro(const char* code = "", int year = 0);
|
||||
virtual ~TRegistro() {}
|
||||
};
|
||||
|
||||
|
||||
class TLibro_giornale : public TRegistro
|
||||
{
|
||||
public:
|
||||
bool read(int year);
|
||||
TLibro_giornale(int year = 0);
|
||||
virtual ~TLibro_giornale() {}
|
||||
};
|
||||
|
||||
|
||||
class TCausale : public TArray
|
||||
{
|
||||
TipoIVA _iva;
|
||||
TRectype _rec;
|
||||
TRegistro _reg;
|
||||
|
||||
protected:
|
||||
const TRectype& row(int num) const;
|
||||
|
||||
public:
|
||||
TConto& bill(int num, TConto& c) const;
|
||||
|
||||
bool data_doc() const;
|
||||
bool num_doc() const;
|
||||
bool apertura() const;
|
||||
bool sezionale() const;
|
||||
bool valuta() const;
|
||||
bool intra() const;
|
||||
bool corrval() const;
|
||||
const char* causale_inc_imm() const;
|
||||
const char* tipo_doc() const;
|
||||
|
||||
TRegistro& reg() { return _reg; }
|
||||
TipoIVA iva() const;
|
||||
|
||||
virtual bool ok() const { return !_rec.empty(); }
|
||||
bool similar(const TCausale& c) const;
|
||||
|
||||
bool read(const char* cod, int year);
|
||||
|
||||
TCausale(const char* code = "", int year = 0);
|
||||
virtual ~TCausale() {}
|
||||
};
|
||||
|
||||
class TCodiceIVA : public TRectype
|
||||
{
|
||||
public:
|
||||
TCodiceIVA(const char* codice = NULL);
|
||||
bool read(const char* codice);
|
||||
bool ok() const { return !empty(); }
|
||||
const TString& codice() const { return get("CODTAB"); }
|
||||
real percentuale() const { return get_real("R0"); }
|
||||
const TString& tipo() const { return get("S1"); }
|
||||
};
|
||||
|
||||
#endif
|
||||
|
||||
443
cg/cg21iva.uml
443
cg/cg21iva.uml
@ -1,221 +1,222 @@
|
||||
PAGE "RIGA IVA" -1 -1 70 15
|
||||
|
||||
GROUPBOX DLG_NULL 67 4
|
||||
BEGIN
|
||||
PROMPT 1 1 "Conto"
|
||||
END
|
||||
|
||||
LIST 106 1 12
|
||||
BEGIN
|
||||
PROMPT 2 2 "Tipo "
|
||||
FIELD TMCF
|
||||
ITEM " |Conto"
|
||||
MESSAGE SHOW,109|HIDE,209|HIDE,309
|
||||
ITEM "C|Cliente"
|
||||
MESSAGE SHOW,209|HIDE,109|HIDE,309
|
||||
ITEM "F|Fornitore"
|
||||
MESSAGE SHOW,309|HIDE,109|HIDE,209
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
NUMBER 107 3
|
||||
BEGIN
|
||||
PROMPT 21 2 "Gruppo "
|
||||
FIELD GRUPPO
|
||||
END
|
||||
|
||||
NUMBER 108 3
|
||||
BEGIN
|
||||
PROMPT 33 2 "Conto "
|
||||
FIELD CONTO
|
||||
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
|
||||
INPUT GRUPPO 107
|
||||
INPUT CONTO 108
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Tipo" TMCF
|
||||
OUTPUT 106 TMCF
|
||||
OUTPUT 107 GRUPPO
|
||||
OUTPUT 108 CONTO
|
||||
OUTPUT 110 DESCR
|
||||
OUTPUT 104 TIPOSPRIC
|
||||
ADD RUN cg0 -0
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Conto inesistente nella riga IVA"
|
||||
END
|
||||
|
||||
|
||||
NUMBER 109 6
|
||||
BEGIN
|
||||
PROMPT 46 2 "Sottoconto "
|
||||
FIELD SOTTOCONTO
|
||||
USE LF_PCON SELECT SOTTOCONTO!=""
|
||||
INPUT GRUPPO 107
|
||||
INPUT CONTO 108
|
||||
INPUT SOTTOCONTO 109
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT 104 TIPOSPRIC
|
||||
OUTPUT 107 GRUPPO
|
||||
OUTPUT 108 CONTO
|
||||
OUTPUT 109 SOTTOCONTO
|
||||
OUTPUT 110 DESCR
|
||||
ADD RUN cg0 -0
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Sottoconto inesistente nella riga IVA"
|
||||
END
|
||||
|
||||
|
||||
NUMBER 209 6
|
||||
BEGIN
|
||||
PROMPT 46 2 "Cliente "
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF 209
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale Cliente@50" RAGSOC
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
OUTPUT 209 CODCF
|
||||
OUTPUT 110 RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN cg0 -1
|
||||
FLAGS "G"
|
||||
MESSAGE COPY,109|RESET,104
|
||||
END
|
||||
|
||||
NUMBER 309 6
|
||||
BEGIN
|
||||
PROMPT 46 2 "Fornitore "
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF 309
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
|
||||
OUTPUT 107 GRUPPO
|
||||
OUTPUT 108 CONTO
|
||||
OUTPUT 309 CODCF
|
||||
OUTPUT 110 RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN cg0 -1
|
||||
FLAGS "G"
|
||||
MESSAGE COPY,109|RESET,104
|
||||
END
|
||||
|
||||
STRING 110 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 67 5
|
||||
BEGIN
|
||||
PROMPT 1 5 "Imposta"
|
||||
END
|
||||
|
||||
STRING 102 4
|
||||
BEGIN
|
||||
PROMPT 2 6 "IVA "
|
||||
USE %IVA
|
||||
INPUT CODTAB 102
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "%@6" R0
|
||||
DISPLAY "Tipo" S1
|
||||
OUTPUT 102 CODTAB
|
||||
OUTPUT 211 S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING 211 50
|
||||
BEGIN
|
||||
PROMPT 15 6 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 105 1
|
||||
BEGIN
|
||||
PROMPT 2 7 "Detraz. "
|
||||
SHEET "Codice|Descrizione@60"
|
||||
INPUT 105
|
||||
ITEM " |Regime normale"
|
||||
ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti"
|
||||
ITEM "3|IVA indicata per il solo calcolo di ventilazione"
|
||||
ITEM "9|IVA non detraibile per l'articolo 19"
|
||||
OUTPUT 105
|
||||
OUTPUT 213
|
||||
END
|
||||
|
||||
STRING 213 50
|
||||
BEGIN
|
||||
PROMPT 15 7 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
NUMBER 101 14
|
||||
BEGIN
|
||||
PROMPT 2 8 "Imponibile "
|
||||
FLAGS "RV"
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
NUMBER 103 14
|
||||
BEGIN
|
||||
PROMPT 41 8 "Imposta "
|
||||
FLAGS "RV"
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
|
||||
GROUPBOX DLG_NULL 67 3
|
||||
BEGIN
|
||||
PROMPT 1 10 "Costo/Ricavo"
|
||||
END
|
||||
|
||||
STRING 104 1
|
||||
BEGIN
|
||||
PROMPT 2 11 "Tipo "
|
||||
FLAGS "D"
|
||||
HELP "Specifica il tipo Costo/Ricavo"
|
||||
SHEET "Codice|Descrizione@50"
|
||||
INPUT 104
|
||||
ITEM " |Acquisti o vendite in genere"
|
||||
ITEM "1|Acquisti beni per rivendita"
|
||||
ITEM "2|Acquisti beni ammortizzabili"
|
||||
ITEM "3|Acquisti beni ammortizzabili con detr. 6%"
|
||||
ITEM "4|Vendita beni strumentali art. 17"
|
||||
ITEM "5|Beni per rivendita da non ventilare"
|
||||
ITEM "8|Altri beni strumentali acquistati in leasing"
|
||||
OUTPUT 104
|
||||
OUTPUT 212
|
||||
END
|
||||
|
||||
STRING 212 50
|
||||
BEGIN
|
||||
PROMPT 15 11 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 9 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 "Elimina"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
PAGE "RIGA IVA" -1 -1 70 15
|
||||
|
||||
GROUPBOX DLG_NULL 67 4
|
||||
BEGIN
|
||||
PROMPT 1 1 "Conto"
|
||||
END
|
||||
|
||||
LIST 106 1 12
|
||||
BEGIN
|
||||
PROMPT 2 2 "Tipo "
|
||||
FIELD TMCF
|
||||
ITEM " |Conto"
|
||||
MESSAGE SHOW,109|HIDE,209|HIDE,309
|
||||
ITEM "C|Cliente"
|
||||
MESSAGE SHOW,209|HIDE,109|HIDE,309
|
||||
ITEM "F|Fornitore"
|
||||
MESSAGE SHOW,309|HIDE,109|HIDE,209
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
NUMBER 107 3
|
||||
BEGIN
|
||||
PROMPT 21 2 "Gruppo "
|
||||
FIELD GRUPPO
|
||||
END
|
||||
|
||||
NUMBER 108 3
|
||||
BEGIN
|
||||
PROMPT 33 2 "Conto "
|
||||
FIELD CONTO
|
||||
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
|
||||
INPUT GRUPPO 107
|
||||
INPUT CONTO 108
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Tipo" TMCF
|
||||
OUTPUT 106 TMCF
|
||||
OUTPUT 107 GRUPPO
|
||||
OUTPUT 108 CONTO
|
||||
OUTPUT 110 DESCR
|
||||
OUTPUT 104 TIPOSPRIC
|
||||
ADD RUN cg0 -0
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Conto inesistente nella riga IVA"
|
||||
END
|
||||
|
||||
|
||||
NUMBER 109 6
|
||||
BEGIN
|
||||
PROMPT 46 2 "Sottoconto "
|
||||
FIELD SOTTOCONTO
|
||||
USE LF_PCON SELECT SOTTOCONTO!=""
|
||||
INPUT GRUPPO 107
|
||||
INPUT CONTO 108
|
||||
INPUT SOTTOCONTO 109
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT 104 TIPOSPRIC
|
||||
OUTPUT 107 GRUPPO
|
||||
OUTPUT 108 CONTO
|
||||
OUTPUT 109 SOTTOCONTO
|
||||
OUTPUT 110 DESCR
|
||||
ADD RUN cg0 -0
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Sottoconto inesistente nella riga IVA"
|
||||
END
|
||||
|
||||
|
||||
NUMBER 209 6
|
||||
BEGIN
|
||||
PROMPT 46 2 "Cliente "
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF 209
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale Cliente@50" RAGSOC
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
OUTPUT 209 CODCF
|
||||
OUTPUT 110 RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN cg0 -1
|
||||
FLAGS "G"
|
||||
MESSAGE COPY,109|RESET,104
|
||||
END
|
||||
|
||||
NUMBER 309 6
|
||||
BEGIN
|
||||
PROMPT 46 2 "Fornitore "
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF 309
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
|
||||
OUTPUT 107 GRUPPO
|
||||
OUTPUT 108 CONTO
|
||||
OUTPUT 309 CODCF
|
||||
OUTPUT 110 RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN cg0 -1
|
||||
FLAGS "G"
|
||||
MESSAGE COPY,109|RESET,104
|
||||
END
|
||||
|
||||
STRING 110 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 67 5
|
||||
BEGIN
|
||||
PROMPT 1 5 "Imposta"
|
||||
END
|
||||
|
||||
STRING 102 4
|
||||
BEGIN
|
||||
PROMPT 2 6 "IVA "
|
||||
FLAGS "U"
|
||||
USE %IVA
|
||||
INPUT CODTAB 102
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "%@6" R0
|
||||
DISPLAY "Tipo" S1
|
||||
OUTPUT 102 CODTAB
|
||||
OUTPUT 211 S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING 211 50
|
||||
BEGIN
|
||||
PROMPT 15 6 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 103 1
|
||||
BEGIN
|
||||
PROMPT 2 7 "Detraz. "
|
||||
SHEET "Codice|Descrizione@60"
|
||||
INPUT 103
|
||||
ITEM " |Regime normale"
|
||||
ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti"
|
||||
ITEM "3|IVA indicata per il solo calcolo di ventilazione"
|
||||
ITEM "9|IVA non detraibile per l'articolo 19"
|
||||
OUTPUT 103
|
||||
OUTPUT 213
|
||||
END
|
||||
|
||||
STRING 213 50
|
||||
BEGIN
|
||||
PROMPT 15 7 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
NUMBER 101 14
|
||||
BEGIN
|
||||
PROMPT 2 8 "Imponibile "
|
||||
FLAGS "RV"
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
NUMBER 104 14
|
||||
BEGIN
|
||||
PROMPT 41 8 "Imposta "
|
||||
FLAGS "RV"
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
|
||||
GROUPBOX DLG_NULL 67 3
|
||||
BEGIN
|
||||
PROMPT 1 10 "Costo/Ricavo"
|
||||
END
|
||||
|
||||
STRING 105 1
|
||||
BEGIN
|
||||
PROMPT 2 11 "Tipo "
|
||||
FLAGS "D"
|
||||
HELP "Specifica il tipo Costo/Ricavo"
|
||||
SHEET "Codice|Descrizione@50"
|
||||
INPUT 105
|
||||
ITEM " |Acquisti o vendite in genere"
|
||||
ITEM "1|Acquisti beni per rivendita"
|
||||
ITEM "2|Acquisti beni ammortizzabili"
|
||||
ITEM "3|Acquisti beni ammortizzabili con detr. 6%"
|
||||
ITEM "4|Vendita beni strumentali art. 17"
|
||||
ITEM "5|Beni per rivendita da non ventilare"
|
||||
ITEM "8|Altri beni strumentali acquistati in leasing"
|
||||
OUTPUT 105
|
||||
OUTPUT 212
|
||||
END
|
||||
|
||||
STRING 212 50
|
||||
BEGIN
|
||||
PROMPT 15 11 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 9 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 "Elimina"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
5553
include/maskfld.cpp
5553
include/maskfld.cpp
File diff suppressed because it is too large
Load Diff
Loading…
x
Reference in New Issue
Block a user