Patch level : 10.0 292

Files correlati     : cg0.exe cg2.exe
Ricompilazione Demo : [ ]
Commento            :

IVA di cassa prima parte, manca la liquidazione


git-svn-id: svn://10.65.10.50/trunk@18829 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2009-05-07 13:08:54 +00:00
parent e97f5554f3
commit ee09d4296a
10 changed files with 18 additions and 32 deletions

View File

@ -33,7 +33,7 @@ class TCaus_app : public TRelation_application
TRecord_array * _rcaus_rec;
// Parametri ditta
bool _valuta, _saldaconto, _liqdiff;
bool _valuta, _saldaconto;
int _anno_iva;
tipo_descr _last_descr;
@ -420,17 +420,6 @@ bool TCaus_app::mostra_campi()
}
else
{ // codreg non vuoto
if (_liqdiff)
{
const TRegistro r(codreg, anno_iva());
const bool reg_vendite = r.iva() == iva_vendite && !r.corrispettivi();
if (!reg_vendite)
m.reset(F_LIQDIFF);
m.show(F_LIQDIFF, reg_vendite);
}
else
m.reset(F_LIQDIFF);
m.hide(F_OP_FINE_ANNO);
m.enable(F_MOV_VALU, valuta());
@ -868,7 +857,6 @@ void TCaus_app::on_config_change()
_saldaconto = conf.get_bool("GesSal");
_valuta = conf.get_bool("GesVal");
_liqdiff = conf.get_bool("GesLiqDiff");
_anno_iva = 0;
TTable reg("REG");

View File

@ -35,7 +35,6 @@
#define F_PROVV 232
#define F_CODCAUREG 233
#define F_REGSPIVA 234
#define F_LIQDIFF 235
#define SS_TIPO 101
#define SS_SEZIONE 102

View File

@ -294,13 +294,6 @@ BEGIN
FLAGS "H"
END
BOOLEAN F_LIQDIFF
BEGIN
PROMPT 2 12 "Fattura di vendita a liquidazione differita"
FIELD LIQDIFF
FLAGS "H"
END
LIST F_PROVV 1 26
BEGIN
PROMPT 2 13 "Movimento provvisorio "

View File

@ -90,6 +90,7 @@ TMask* TPrimanota_application::load_mask(int n)
m->set_handler(F_OCCASEDIT, occas_handler);
m->set_handler(F_SOLAIVA, solaiva_handler);
m->set_handler(F_SHEETIVA, iva_handler);
m->show(F_LIQDIFF, _liqdiff);
TSheet_field& is = m->sfield(F_SHEETIVA);
is.set_notify(iva_notify);
@ -296,9 +297,6 @@ bool TPrimanota_application::read_caus(const char* cod, int year)
const TRegistro & r = c.reg();
const bool reg_vendite = r.iva() == iva_vendite && !r.corrispettivi();
const bool liqdiff = _liqdiff && c.liqdiff()&& reg_vendite;
m->show(F_DATAINC, liqdiff);
if (!liqdiff) m->reset(F_DATAINC);
if (ins)
{
@ -1611,7 +1609,7 @@ bool TPrimanota_application::link_m770()
s.add(spese.string());
s.add(compenso.string());
s.add(imposte.string());
s.add(ritenute.string());
s.add(ritenute.string());
const char* name = (tipo_coll == 4) ? "770 -1" : "770 -0";
TMessage m(name, "LINK770", s);

View File

@ -63,6 +63,7 @@
#define F_DATAINTRA 147
#define F_ADJUST_IVA 148
#define F_DATAINC 149
#define F_LIQDIFF 150
#define F_GRUPPO 180
#define F_CONTO 181

View File

@ -532,9 +532,19 @@ BEGIN
FIELD DATA74TER
END
BOOLEAN F_LIQDIFF
BEGIN
PROMPT 38 15 "Liq.differita"
WARNING "Data di incasso per liquidazione differita"
FIELD LIQDIFF
MESSAGE FALSE HIDE,F_DATAINC|RESET,F_DATAINC
MESSAGE TRUE SHOW,F_DATAINC
FLAGS "H"
END
DATE F_DATAINC
BEGIN
PROMPT 52 15 "Data incasso "
PROMPT 54 15 "Data incasso "
WARNING "Data di incasso per liquidazione differita"
FIELD DATAINC
FLAGS "H"

View File

@ -132,9 +132,6 @@ bool TCausale::valintra() const
bool TCausale::soloiva() const
{ return _rec.get_bool(CAU_SOLOIVA); }
bool TCausale::liqdiff() const
{ return _rec.get_bool(CAU_LIQDIFF); }
int TCausale::regime_speciale() const
{ return _rec.get_int(CAU_REGSPIVA); }

View File

@ -38,7 +38,6 @@ public:
bool intra() const;
bool valintra() const;
bool soloiva() const;
bool liqdiff() const;
char provvisorio() const { return _provvisorio; }
const TString& causale_inc_imm() const;
const TString& causale_reg_iva() const;

View File

@ -1,3 +1,3 @@
23
0
$mov|0|0|375|0|Movimenti di prima nota|||
$mov|0|0|376|0|Movimenti di prima nota|||

View File

@ -1,5 +1,5 @@
23
46
47
ANNOES|9|4|0|Codice esercizio
NUMREG|3|7|0|Numero di operazione
DATAREG|5|8|0|Data operazione
@ -46,6 +46,7 @@ DANNO|2|4|0|Documento originale ANNO
DCODNUM|1|4|0|Documento originale CODNUM
DNDOC|3|7|0|Documento originale NDOC
DATAINC|5|8|0|Data di incasso per liquidazione differita
LIQDIFF|8|1|0|Flag di movimento a liquidazione differita
4
NUMREG|
DATAREG+NUMREG|X