Corretto aggiornamento saldi in prima nota e azzeramento PLM
git-svn-id: svn://10.65.10.50/trunk@1499 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
6264d262be
commit
e080b9f0fc
@ -846,9 +846,11 @@ int TPrimanota_application::write(const TMask& m)
|
||||
static int lasterr = NOERR;
|
||||
|
||||
const long numreg = m.get_long(F_NUMREG);
|
||||
if (numreg > _lastreg) _lastreg = numreg; // Aggiorna ultima registrazione
|
||||
if (numreg > _lastreg) _lastreg = numreg; // Aggiorna ultima registrazione libera
|
||||
|
||||
if (lasterr == NOERR)
|
||||
mask2rel(m); // Altrimenti raddoppia i saldi!
|
||||
|
||||
mask2rel(m);
|
||||
const int err = _rel->write(TRUE);
|
||||
if (err == NOERR)
|
||||
{
|
||||
@ -859,13 +861,18 @@ int TPrimanota_application::write(const TMask& m)
|
||||
{
|
||||
causale().reg().reread(); // Aggiorna protocollo IVA
|
||||
if (_is_saldaconto)
|
||||
{
|
||||
if (m.page_enabled(2))
|
||||
write_scadenze(m);
|
||||
}
|
||||
else
|
||||
{
|
||||
if (!m.get_bool(F_SOLAIVA))
|
||||
{
|
||||
const TString16 causimm(causale().causale_inc_imm());
|
||||
if (causimm.not_empty())
|
||||
genera_incasso(causimm);
|
||||
genera_incasso(causimm); // Genera incasso immediato
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
|
||||
@ -12,7 +12,7 @@
|
||||
#include <rmoviva.h>
|
||||
#include <utility.h>
|
||||
|
||||
// Calcola l'anno di esercizio di una data
|
||||
// Calcola l'anno di esercizio di una data, e se prevesc != NULL calcola anche l'anno precedente
|
||||
// Certified 99%
|
||||
int date2esc(const TDate& d, int* prevesc)
|
||||
{
|
||||
@ -225,7 +225,7 @@ int TMovimentoPN::registra(bool re, bool force)
|
||||
{
|
||||
TString16 chiave;
|
||||
TString16 attivita(registro.attivita()); attivita.right_just(5, '0');
|
||||
chiave << annoiva << attivita << a << format("%02d", date2liq(datareg));
|
||||
chiave << annoiva << attivita << a << format("%02d", datareg.month());
|
||||
plm.put("CODTAB", chiave);
|
||||
if (plm.read() == NOERR)
|
||||
{
|
||||
|
||||
@ -133,6 +133,7 @@ private:
|
||||
bool _stampa_definitiva;
|
||||
bool _MovGiaStampato;
|
||||
bool _gia_settato_ariportare;
|
||||
bool _forza_ariportare;
|
||||
bool _nuovo_mese; // Finito il mese ?
|
||||
long _num_rig;
|
||||
real _importo;
|
||||
@ -547,8 +548,11 @@ void CG3400_application::preprocess_footer()
|
||||
// OPPURE
|
||||
// 2. Sono sull'ultima riga
|
||||
//
|
||||
if (!_gia_settato_ariportare)
|
||||
if (_cur->pos() < _cur->items()-1)
|
||||
|
||||
const bool riporta = _forza_ariportare ||
|
||||
(!_gia_settato_ariportare && _cur->pos() < _cur->items()-1);
|
||||
|
||||
if (riporta)
|
||||
{
|
||||
dt = _tot_dare_progr + _tot_dare_progr_ap;
|
||||
at = _tot_avere_progr + _tot_avere_progr_ap;
|
||||
@ -566,6 +570,8 @@ void CG3400_application::preprocess_footer()
|
||||
_stampa_width == 132 ? AVERE132 : AVERE198,
|
||||
(const char *) ats);
|
||||
set_footer (r++, (const char*) riga);
|
||||
|
||||
_forza_ariportare = FALSE;
|
||||
}
|
||||
}
|
||||
|
||||
@ -866,7 +872,12 @@ void CG3400_application::fill_page(int riga)
|
||||
{
|
||||
TString256 rigas;
|
||||
// char frm[4];
|
||||
int r_l = printer().rows_left() - 2; // Tolgo le 2 righe del totale!
|
||||
int r_l = printer().rows_left() - 2; // Tolgo le 2 righe del totale
|
||||
if (r_l < 0)
|
||||
{
|
||||
r_l += printer().formlen() - 8; // Tolgo la testata
|
||||
_forza_ariportare = TRUE;
|
||||
}
|
||||
|
||||
// Se sono rimaste righe da riempire
|
||||
if (r_l > 0)
|
||||
@ -1638,16 +1649,18 @@ bool CG3400_application::data_a_hndl (TMask_field& f, KEY k)
|
||||
const TDate data_a(f.get());
|
||||
TString16 dep(data_a.string());
|
||||
|
||||
app().set_reg_filter(m);
|
||||
|
||||
if (dep.empty()) return TRUE;
|
||||
|
||||
const int ae = date2esc(data_a); // Anno esercizio
|
||||
|
||||
app()._ae = ae;
|
||||
|
||||
if (ae == 0)
|
||||
return f.error_box("La data specificata non appartiene a nessun esercizio");
|
||||
else
|
||||
{
|
||||
m.set(ANNO_ESER, ae);
|
||||
m.send_key(K_TAB, CODREG);
|
||||
}
|
||||
}
|
||||
|
||||
if (k == K_ENTER)
|
||||
@ -1721,7 +1734,7 @@ bool CG3400_application::data_da_hndl(TMask_field& f, KEY k)
|
||||
//
|
||||
bool CG3400_application::mask_a_cod_reg (TMask_field& f, KEY k)
|
||||
{
|
||||
if (k == K_TAB || k == K_ENTER)
|
||||
if (f.to_check(k))
|
||||
{
|
||||
TMask& m = f.mask();
|
||||
CG3400_application& a = app();
|
||||
@ -1742,7 +1755,7 @@ bool CG3400_application::mask_a_cod_reg (TMask_field& f, KEY k)
|
||||
if (k == K_TAB) // Magari ci ripassa e lo inserisce
|
||||
return TRUE;
|
||||
else // Se e' K_ENTER mi serve davvero
|
||||
return f.warning_box("Manca il codice registro");
|
||||
return f.error_box("Manca il codice registro");
|
||||
}
|
||||
|
||||
bool reg_ok = a.leggi_tabreg(reg_cod, a._ae);
|
||||
@ -1750,7 +1763,7 @@ bool CG3400_application::mask_a_cod_reg (TMask_field& f, KEY k)
|
||||
// Output da qui della descrizione del registro e dell'anno
|
||||
m.set(REG_DESC, a._reg_descr);
|
||||
m.set(ANNO_ESER, a._ae);
|
||||
|
||||
/*
|
||||
// CHECKTYPE NORMAL abolito! (nella maschera non ho l'anno...
|
||||
if (!reg_ok)
|
||||
return f.warning_box("Registro inesistente");
|
||||
@ -1758,6 +1771,7 @@ bool CG3400_application::mask_a_cod_reg (TMask_field& f, KEY k)
|
||||
if (app()._tipo != 5)
|
||||
return f.warning_box("Il registro %s per l'anno %d non e' di tipo libro giornale",
|
||||
(const char *) reg_cod, a._ae);
|
||||
*/
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
@ -1903,8 +1917,10 @@ bool CG3400_application::set_print(int)
|
||||
ma.set_handler (CODREG, mask_a_cod_reg);
|
||||
ma.set_handler (DATA_A, data_a_hndl);
|
||||
ma.set_handler (DATA_DA,data_da_hndl);
|
||||
// set_reg_filter(ma);
|
||||
|
||||
_pagina_da = 0; // Parto dall'inizio
|
||||
_forza_ariportare = FALSE;
|
||||
|
||||
while ((tasto = ma.run()) != K_QUIT)
|
||||
{
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
#include "cg3400a.h"
|
||||
|
||||
PAGE "Stampa Libro Giornale" -1 -1 78 17
|
||||
PAGE "Stampa Libro Giornale" -1 -1 78 14
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
GROUPBOX DLG_NULL 77 3
|
||||
BEGIN
|
||||
PROMPT 1 0 ""
|
||||
END
|
||||
@ -14,10 +14,7 @@ BEGIN
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
@ -26,58 +23,58 @@ BEGIN
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING CODREG 3
|
||||
BEGIN
|
||||
PROMPT 1 4 "Codice registro "
|
||||
HELP "Codice del libro giornale da stampare"
|
||||
USE REG SELECT (I0 = 5) || (I0 = 4)
|
||||
// INPUT CODTAB[1,4] ANNO_ESER
|
||||
INPUT CODTAB[5,7] CODREG
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Tipo" I0
|
||||
// OUTPUT ANNO_ESER CODTAB[1,4]
|
||||
OUTPUT CODREG CODTAB[5,7]
|
||||
OUTPUT REG_DESC S0
|
||||
// OUTPUT PAGINA_DA I1
|
||||
// OUTPUT DATA_DA D0
|
||||
// OUTPUT DATA_A D1
|
||||
// CHECKTYPE NORMAL
|
||||
WARNING "Registro inesistente"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
NUMBER ANNO_ESER 4
|
||||
BEGIN
|
||||
PROMPT 30 5 "Esercizio "
|
||||
FLAGS "ZH"
|
||||
END
|
||||
|
||||
STRING REG_DESC 50
|
||||
BEGIN
|
||||
// PROMPT 1 6 "Descrizione "
|
||||
PROMPT 25 4 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE DATA_DA
|
||||
BEGIN
|
||||
PROMPT 1 6 "Dalla data "
|
||||
PROMPT 1 3 "Dalla data "
|
||||
HELP "Stampa i movimenti a partire dalla data specificata"
|
||||
END
|
||||
|
||||
DATE DATA_A
|
||||
BEGIN
|
||||
PROMPT 40 6 "Alla data "
|
||||
PROMPT 40 3 "Alla data "
|
||||
HELP "Stampa i movimenti fino alla data specificata"
|
||||
// VALIDATE DATE_CMP_FUNC >= DATA_DA
|
||||
WARNING "Specificare la data di fine stampa"
|
||||
CHECKTYPE REQUIRED
|
||||
MESSAGE K_TAB, CODREG
|
||||
END
|
||||
|
||||
NUMBER ANNO_ESER 4
|
||||
BEGIN
|
||||
PROMPT 1 5 "Esercizio "
|
||||
FLAGS "DZ"
|
||||
END
|
||||
|
||||
STRING CODREG 3
|
||||
BEGIN
|
||||
PROMPT 1 6 "Codice registro "
|
||||
HELP "Codice del libro giornale da stampare"
|
||||
USE REG SELECT (I0=5)||(I0=4)
|
||||
INPUT CODTAB[1,4] ANNO_ESER
|
||||
INPUT CODTAB[5,7] CODREG
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Tipo" I0
|
||||
OUTPUT ANNO_ESER CODTAB[1,4]
|
||||
OUTPUT CODREG CODTAB[5,7]
|
||||
OUTPUT REG_DESC S0
|
||||
// OUTPUT PAGINA_DA I1
|
||||
// OUTPUT DATA_DA D0
|
||||
// OUTPUT DATA_A D1
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Registro inesistente"
|
||||
// VALIDATE ZEROFILL_FUNC 3
|
||||
FLAGS "UZ"
|
||||
END
|
||||
|
||||
STRING REG_DESC 50
|
||||
BEGIN
|
||||
// PROMPT 1 7 "Descrizione "
|
||||
PROMPT 25 5 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
/*
|
||||
GROUPBOX DLG_NULL 30 4
|
||||
BEGIN
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user