Correzioni gestione saldaconto.

git-svn-id: svn://10.65.10.50/trunk@2056 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-10-31 13:59:03 +00:00
parent 81d76ac704
commit 28806b097d
6 changed files with 1458 additions and 1443 deletions

View File

@ -260,11 +260,11 @@ bool TPrimanota_application::read_caus(const char* cod, int year)
const bool av = causale().reg().agenzia_viaggi(); const bool av = causale().reg().agenzia_viaggi();
m->show(F_DATA74TER, av); m->show(F_DATA74TER, av);
if (!av) m->reset(F_DATA74TER); if (!av) m->reset(F_DATA74TER);
if (ins) if (ins)
{ {
const long protiva = causale().reg().protocol() + 1; const long protiva = causale().reg().protocol() + 1;
m->set(F_PROTIVA, protiva); // Aggiorna protocollo IVA m->set(F_PROTIVA, protiva, TRUE); // Aggiorna protocollo IVA
} }
} }

View File

@ -1684,14 +1684,18 @@ void TPrimanota_application::add_cgs_tot(TMask& m)
bool TPrimanota_application::clifo_handler(TMask_field& f, KEY key) bool TPrimanota_application::clifo_handler(TMask_field& f, KEY key)
{ {
if (key == K_TAB && f.active()) if (key == K_TAB && f.active())
{ {
const long codice = atol(f.get());
if (codice == 0)
return TRUE;
TMask& m = f.mask(); TMask& m = f.mask();
const char cf = app().clifo(); const char cf = app().clifo();
TRelation cliforel(LF_CLIFO); cliforel.add(LF_CFVEN, "TIPOCF=TIPOCF|CODCF=CODCF"); TRelation cliforel(LF_CLIFO); cliforel.add(LF_CFVEN, "TIPOCF=TIPOCF|CODCF=CODCF");
TRectype& clifo = cliforel.curr(); TRectype& clifo = cliforel.curr();
clifo.put(CLI_TIPOCF, cf); clifo.put(CLI_TIPOCF, cf);
clifo.put(CLI_CODCF, f.get()); clifo.put(CLI_CODCF, codice);
cliforel.read(); cliforel.read();
if (!suspended_handler(f, key)) if (!suspended_handler(f, key))
@ -1707,10 +1711,14 @@ bool TPrimanota_application::clifo_handler(TMask_field& f, KEY key)
TEdit_field& upi = m.efield(F_RIEPILOGO); TEdit_field& upi = m.efield(F_RIEPILOGO);
upi.check_type(alleg == 3 ? CHECK_REQUIRED : CHECK_NORMAL); upi.check_type(alleg == 3 ? CHECK_REQUIRED : CHECK_NORMAL);
const TString& s = clifo.get(CLI_CODPAG); if (m.get(F_CODPAG).empty())
if (s.not_empty()) m.set(F_CODPAG, s, TRUE); {
const TString& s = clifo.get(CLI_CODPAG);
if (app().is_saldaconto()) if (s.not_empty())
m.set(F_CODPAG, s, TRUE);
}
if (app().is_saldaconto() && f.focusdirty())
{ {
if (m.field(S_VALUTA).active()) if (m.field(S_VALUTA).active())
{ {
@ -1912,25 +1920,27 @@ void TPrimanota_application::add_cgs_rit(bool fiscali)
// Handler of the F_PROTIVA // Handler of the F_PROTIVA
bool TPrimanota_application::protiva_handler(TMask_field& f, KEY key) bool TPrimanota_application::protiva_handler(TMask_field& f, KEY key)
{ {
bool ok = TRUE; bool ok = TRUE;
if (key == K_ENTER && f.dirty() && f.mask().mode() == MODE_INS) TMask& m = f.mask();
if (m.insert_mode())
{ {
const long protiva = atol(f.get()); if (key == K_ENTER && f.dirty())
const long protocol = app().causale().reg().protocol() + 1; {
if (protiva != protocol) const long protiva = atol(f.get());
ok = f.yesno_box("Accettare il protocollo IVA fuori sequenza: %ld invece di %ld", const long protocol = app().causale().reg().protocol() + 1;
protiva, protocol); if (protiva != protocol)
ok = f.yesno_box("Accettare il protocollo IVA fuori sequenza: %ld invece di %ld",
} protiva, protocol);
else if (key == K_TAB && app().is_saldaconto() && f.mask().get(F_NUMRIF).empty())
{ }
if (app().npart_is_prot() && f.mask().is_running()) else if (key == K_TAB && app().is_saldaconto() && m.get(F_NUMRIF).empty())
{ {
const TString16 piva(f.get()); const TString16 piva(f.get());
f.mask().set(F_NUMRIF, piva); if (app().npart_is_prot() && piva.not_empty())
} m.set(F_NUMRIF, piva);
}
} }
return ok; return ok;
} }

View File

@ -110,6 +110,7 @@ void TPay_mask::set_pag(const TRectype& oldpag, const TRiga_scadenze& scad,
enable(S_SALDOACC, sa); enable(S_SALDOACC, sa);
#ifdef __EXTRA__ #ifdef __EXTRA__
hide(S_RESIDUOPAG);
const bool disabilita = TRUE; const bool disabilita = TRUE;
#else #else
const bool disabilita = app().causale().tipomov() == 2; const bool disabilita = app().causale().tipomov() == 2;
@ -769,7 +770,7 @@ bool TGame_mask::edit_scadenza_handler(TMask_field& f, KEY k)
nrigp = gm.nuovo_pagamento(game, nriga, nrata); nrigp = gm.nuovo_pagamento(game, nriga, nrata);
if (nrigp > 0) // Si vuole editare un pagamento if (nrigp > 0) // Si vuole editare un pagamento
{ {
const bool dirty = gm.edit_pagamento(game, nriga, nrata, nrigp); const bool dirty = gm.edit_pagamento(game, nriga, nrata, nrigp);
if (dirty) if (dirty)
{ {
@ -1117,20 +1118,21 @@ bool TGame_mask::edit_pagamento(TPartita& p, int nriga, int nrata, int nrigp) co
m.reset(S_RITENUTE); // Azzera ritenute m.reset(S_RITENUTE); // Azzera ritenute
} }
else else
{
somma.put(PART_DESCR, m.get(S_DESCAGG)); // Aggiorna descrizione (comune ai pagamenti) somma.put(PART_DESCR, m.get(S_DESCAGG)); // Aggiorna descrizione (comune ai pagamenti)
}
TRectype newpag(oldpag); TRectype newpag(oldpag);
m.get_pag(newpag); m.get_pag(newpag);
const TValuta val; // Non cambiare valuta! const TValuta val; // Non cambiare valuta!
#ifdef __EXTRA__ #ifdef __EXTRA__
p.modifica_pagamento(newpag); p.modifica_pagamento(newpag);
#else #else
app().notify_edit_pagamento(p, newpag, val); app().notify_edit_pagamento(p, newpag, val);
#endif #endif
} }
return key != K_ESC; return key != K_ESC;
} }
#ifndef __EXTRA__ #ifndef __EXTRA__

View File

@ -3,12 +3,14 @@ PAGE "Rata pagamento" -1 -1 50 13
DATE 101 DATE 101
BEGIN BEGIN
PROMPT 1 1 "Scadenza " PROMPT 1 1 "Scadenza "
CHECKTYPE REQUIRED
END END
NUMBER 102 15 NUMBER 102 15
BEGIN BEGIN
PROMPT 1 3 "Importo " PROMPT 1 3 "Importo "
PICTURE "." PICTURE "."
CHECKTYPE REQUIRED
END END
BOOLEAN 111 BOOLEAN 111
@ -21,6 +23,7 @@ NUMBER 103 15 2
BEGIN BEGIN
PROMPT 1 4 "Importo valuta " PROMPT 1 4 "Importo valuta "
PICTURE ".2" PICTURE ".2"
VALIDATE REQIF_FUNC 1 102
END END
NUMBER 104 6 2 NUMBER 104 6 2

View File

@ -36,17 +36,11 @@ BEGIN
ITEM "4|Uguali finche' possibile" MESSAGE DISABLE,FS_NRATE ITEM "4|Uguali finche' possibile" MESSAGE DISABLE,FS_NRATE
END END
NUMBER FS_NRATE 3
BEGIN
PROMPT 36 6 "Numero di rate "
END
BOOLEAN FS_RECALC BOOLEAN FS_RECALC
BEGIN BEGIN
PROMPT 58 5 "Ricalcolo automatico" PROMPT 58 5 "Ricalcolo automatico"
MESSAGE TRUE ENABLE,FS_RDIFFER|ENABLE,FS_MCOMM|K_SPACE,FS_RDIFFER MESSAGE TRUE ENABLE,FS_RDIFFER|ENABLE,FS_MCOMM|K_SPACE,FS_RDIFFER
MESSAGE FALSE DISABLE,FS_RDIFFER|DISABLE,FS_MCOMM|DISABLE,FS_NRATE MESSAGE FALSE DISABLE,FS_RDIFFER|DISABLE,FS_MCOMM|DISABLE,FS_NRATE
HELP "Attiva/disattiva il ricalcolo automatico delle scadenze"
END END
BOOLEAN FS_MCOMM BOOLEAN FS_MCOMM
@ -54,6 +48,11 @@ BEGIN
PROMPT 36 5 "Mese commerciale" PROMPT 36 5 "Mese commerciale"
END END
NUMBER FS_NRATE 3
BEGIN
PROMPT 36 6 "Numero di rate "
CHECKTYPE REQUIRED
END
STRING FS_NAMEPAG 27 STRING FS_NAMEPAG 27
BEGIN BEGIN

File diff suppressed because it is too large Load Diff