Corretta gestione ritenute in prima nota e cambitai alcune segnalazioni sulle

mascchere.
Aggiunti azzeramenti nel ripristino stampe.


git-svn-id: svn://10.65.10.50/trunk@1042 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-02-28 10:02:55 +00:00
parent 6b84ea6604
commit 0e94893908
12 changed files with 49 additions and 29 deletions

View File

@ -882,6 +882,7 @@ void TCaus_app::init_insert_mode(TMask& m)
void TCaus_app::init_modify_mode(TMask& m) void TCaus_app::init_modify_mode(TMask& m)
{ {
init_mask(m); init_mask(m);
m.disable(F_OP_FINE_ANNO);
} }

View File

@ -2252,7 +2252,6 @@ void CG1500_application::postclose_print()
delete _tmp_saldi_att; _tmp_saldi_att = NULL; delete _tmp_saldi_att; _tmp_saldi_att = NULL;
} }
} }
//return NEXT_PAGE;
} }
void CG1500_application::set_page(int file, int counter) void CG1500_application::set_page(int file, int counter)

View File

@ -324,17 +324,25 @@ bool TPrimanota_application::changing_mask(int mode)
if (mode == MODE_QUERY) if (mode == MODE_QUERY)
{ {
const bool flag = _mode != MODE_QUERY; const bool flag = _mode != MODE_QUERY;
#if XVT_OS == XVT_OS_WIN
if (flag && _iva != nessuna_iva && !_iva_showed) if (flag && _iva != nessuna_iva && !_iva_showed)
{ {
WINDOW w = ivas().parent(); WINDOW w = ivas().parent();
#if XVT_OS == 400
xvt_vobj_set_visible(w, TRUE);
xvt_vobj_raise(w);
xvt_app_process_pending_events();
xvt_vobj_set_visible(w, FALSE);
#else
show_window(w, TRUE); show_window(w, TRUE);
set_front_window(w); set_front_window(w);
process_events(); process_events();
show_window(w, FALSE); show_window(w, FALSE);
#endif
_iva_showed = TRUE; _iva_showed = TRUE;
} }
#endif
return flag; return flag;
} }
_iva = iva_errata; _iva = iva_errata;

View File

@ -32,7 +32,7 @@ END
NUMBER F_NUMREG 7 NUMBER F_NUMREG 7
BEGIN BEGIN
PROMPT 57 3 "Operazione n." PROMPT 56 3 "Operazione n. "
FIELD NUMREG FIELD NUMREG
FLAGS "RD" FLAGS "RD"
KEY 1 KEY 1
@ -40,7 +40,7 @@ END
DATE F_DATAREG DATE F_DATAREG
BEGIN BEGIN
PROMPT 1 3 "Data operazione " PROMPT 1 3 "Data operazione "
HELP "Data in cui viene effettuata l'operazione" HELP "Data in cui viene effettuata l'operazione"
FIELD DATAREG FIELD DATAREG
END END
@ -48,21 +48,21 @@ END
DATE F_DATACOMP DATE F_DATACOMP
BEGIN BEGIN
PROMPT 1 4 "Data di competenza " PROMPT 1 4 "Data di competenza "
HELP "Data di competenza dell'operazione" HELP "Data di competenza dell'operazione"
FIELD DATACOMP FIELD DATACOMP
END END
NUMBER F_ANNOES 4 NUMBER F_ANNOES 4
BEGIN BEGIN
PROMPT 57 4 "Esercizio " PROMPT 56 4 "Esercizio "
FIELD ANNOES FIELD ANNOES
FLAGS "DRZ" FLAGS "DRZ"
END END
DATE F_DATADOC DATE F_DATADOC
BEGIN BEGIN
PROMPT 1 5 "Data del documento " PROMPT 1 5 "Data del documento "
HELP "Data del documento generante il movimento" HELP "Data del documento generante il movimento"
FIELD DATADOC FIELD DATADOC
WARNING "Specificare una data del documento non superiore a quella dell'operazione" WARNING "Specificare una data del documento non superiore a quella dell'operazione"
@ -71,7 +71,7 @@ END
STRING F_NUMDOC 7 STRING F_NUMDOC 7
BEGIN BEGIN
PROMPT 57 5 "Documento n. " PROMPT 56 5 "Documento n. "
HELP "Numero del documento generante il movimento" HELP "Numero del documento generante il movimento"
FIELD NUMDOC FIELD NUMDOC
WARNING "La causale impone di specificare il numero documento" WARNING "La causale impone di specificare il numero documento"
@ -84,7 +84,7 @@ END
STRING F_DESCAGG 5 STRING F_DESCAGG 5
BEGIN BEGIN
PROMPT 1 6 "Descrizione " PROMPT 1 6 "Descrizione "
HELP "Codice descrizione del movimento di contabilita'" HELP "Codice descrizione del movimento di contabilita'"
FLAGS "UZ" FLAGS "UZ"
USE %DPN USE %DPN
@ -110,7 +110,7 @@ END
LIST F_PROVVISORIO 1 25 LIST F_PROVVISORIO 1 25
BEGIN BEGIN
PROMPT 1 7 "Movimento provvisorio " PROMPT 1 7 "Movimento provvisorio "
HELP "Indicare se si tratta di movimento provvisorio" HELP "Indicare se si tratta di movimento provvisorio"
FIELD PROVVIS FIELD PROVVIS
ITEM " |No (movimento normale)" ITEM " |No (movimento normale)"
@ -118,9 +118,16 @@ BEGIN
ITEM "N|Si (non cancellabile)" ITEM "N|Si (non cancellabile)"
END END
STRING F_TIPODOC 2
BEGIN
PROMPT 60 7 "Tipo documento "
FIELD TIPODOC
FLAGS "D"
END
STRING F_CODCAUS 3 STRING F_CODCAUS 3
BEGIN BEGIN
PROMPT 1 8 "Causale " PROMPT 1 8 "Causale "
HELP "Codice della causale generante l'operazione" HELP "Codice della causale generante l'operazione"
FLAGS "UZ" FLAGS "UZ"
FIELD CODCAUS FIELD CODCAUS
@ -132,20 +139,21 @@ BEGIN
DISPLAY "Registro" REG DISPLAY "Registro" REG
OUTPUT F_CODCAUS CODCAUS OUTPUT F_CODCAUS CODCAUS
OUTPUT F_DESCRCAUS DESCR OUTPUT F_DESCRCAUS DESCR
OUTPUT F_TIPODOC TIPODOC
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN cg0 -4 ADD RUN cg0 -4
END END
STRING F_DESCRCAUS 50 STRING F_DESCRCAUS 50
BEGIN BEGIN
PROMPT 23 8 "" PROMPT 25 8 ""
HELP "Descrizione della causale generante l'operazione" HELP "Descrizione della causale generante l'operazione"
USE LF_CAUSALI KEY 2 USE LF_CAUSALI KEY 2
INPUT DESCR F_DESCRCAUS INPUT DESCR F_DESCRCAUS
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS DISPLAY "Codice" CODCAUS
COPY OUTPUT F_CODCAUS COPY OUTPUT F_CODCAUS
END END
STRING F_VALUTA 3 STRING F_VALUTA 3
BEGIN BEGIN

View File

@ -100,7 +100,7 @@ BEGIN
PROMPT 57 5 "Documento n. " PROMPT 57 5 "Documento n. "
HELP "Numero del documento che ha generato il movimento" HELP "Numero del documento che ha generato il movimento"
FIELD LF_MOV->NUMDOC FIELD LF_MOV->NUMDOC
WARNING "La causale impone di specificare il numero documento" WARNING "La causale o il saldaconto richiedono il numero documento"
END END
STRING F_DESCAGG 5 STRING F_DESCAGG 5

View File

@ -1,6 +1,5 @@
#include <stdlib.h> #include <stdlib.h>
#include <xvtmacro.h>
#include <applicat.h> #include <applicat.h>
#include <tabutil.h> #include <tabutil.h>
#include <utility.h> #include <utility.h>
@ -197,8 +196,8 @@ bool TMovimentoPN::controlla_liquidazione(const TDate& data, bool reset) const
if (reset && lim.get_bool("B0")) if (reset && lim.get_bool("B0"))
{ {
// Resetta i flag di calcolato sulla liquidazione IVA del mese di registrazione // Resetta i flag di calcolato sulla liquidazione IVA del mese di registrazione
lim.put("B0", FALSE); // calcolato lim.zero("B0"); // calcolato
lim.put("B1", FALSE); // definitivo lim.zero("B1"); // definitivo
lim.rewrite(); lim.rewrite();
} }

View File

@ -1636,7 +1636,12 @@ void TPrimanota_application::add_cgs_rit(bool fiscali)
set_cgs_row(-1, real2imp(imp, tipo), conto, desc, tipo); set_cgs_row(-1, real2imp(imp, tipo), conto, desc, tipo);
} }
else else
set_cgs_imp(pos, real2imp(imp, tipo)); {
if (imp.is_zero())
reset_cgs_row(pos);
else
set_cgs_imp(pos, real2imp(imp, tipo));
}
} }
// Handler of the F_PROTIVA // Handler of the F_PROTIVA

View File

@ -231,7 +231,7 @@ bool TLibro_giornale::read(int y)
for (int err = reg.read(_isgteq); err == NOERR; err = reg.next()) for (int err = reg.read(_isgteq); err == NOERR; err = reg.next())
{ {
if (strncmp(reg.get("CODTAB"), anno, 4) != 0) break; if (reg.get("CODTAB").compare(anno, 4) != 0) break;
if (reg.get_int("I0") == libro_giornale) if (reg.get_int("I0") == libro_giornale)
{ {
found = TRUE; found = TRUE;

View File

@ -612,11 +612,11 @@ void TListaMov_application::stampa_errori_rmov()
_nr++; _nr++;
if (anno != _annoeser || datareg != _datareg) if (anno != _annoeser || datareg != _datareg)
set_row(_nr++, "@11gUno o piu' campi non sono costanti nella riga dell' operazione"); set_row(_nr++, "@11gAnno esercizio o data di registrazione inconsistente tra testata e righe");
if (sez != 'D' && sez != 'A') if (sez != 'D' && sez != 'A')
set_row(_nr++, "@11gIndicato tipo movimento Dare/Avere errato"); set_row(_nr++, "@11gIndicato tipo sezione Dare/Avere errato");
if (tc.empty()) if (tc.empty())
set_row(_nr++, "@11gNon presente codice gruppo/conto/sottoconto"); set_row(_nr++, "@11gCodice gruppo/conto/sottoconto non presente");
if (!tc.ok()) if (!tc.ok())
set_row(_nr++, "@11gCodice gruppo/conto/sottoconto non corrisponde ad un sottoconto"); set_row(_nr++, "@11gCodice gruppo/conto/sottoconto non corrisponde ad un sottoconto");
@ -626,7 +626,7 @@ void TListaMov_application::stampa_errori_rmov()
g = TRUE; g = TRUE;
tc.set(gruppo,conto,0l); tc.set(gruppo,conto,0l);
if (!tc.read(pc)) if (!tc.read(pc))
set_row(_nr++, "@11gCodice gruppo/conto/sottoconto non presente in Piano dei Conti"); set_row(_nr++, "@11gCodice gruppo/conto/sottoconto non presente nel Piano dei Conti");
else else
{ {
t = pc.get_char(PCN_TMCF); t = pc.get_char(PCN_TMCF);

View File

@ -39,7 +39,7 @@ bool TRipristina_stampa::firm_handler(TMask_field& f, KEY key)
if (firm <= 0) if (firm <= 0)
return f.error_box("Codice ditta errato"); return f.error_box("Codice ditta errato");
else else
if (!prefhndl->exist(firm)) if (!prefix().exist(firm))
return f.error_box("Gli archivi della ditta %ld non sono stati ancora generati", firm); return f.error_box("Gli archivi della ditta %ld non sono stati ancora generati", firm);
else else
{ {
@ -251,7 +251,7 @@ bool TRipristina_stampa::menu(MENU_TAG)
int day = giornale ? msk.get_int(F_DAY) : 1; int day = giornale ? msk.get_int(F_DAY) : 1;
if (day < 1) day = 1; if (day < 1) day = 1;
if (prefhndl->exist(firm)) if (prefix().exist(firm))
{ {
TString256 mess("Attenzione ripristino della stampa de"); TString256 mess("Attenzione ripristino della stampa de");
if (_op == restore_reg) if (_op == restore_reg)

View File

@ -153,7 +153,7 @@ void Visliq_app::build_nomiditte()
{ {
// check no archivi // check no archivi
fr = "??"; fr = "??";
bool good = prefhndl->exist(dt.get_long("CODDITTA")); bool good = prefix().exist(dt.get_long("CODDITTA"));
if (good) if (good)
{ {

View File

@ -92,7 +92,7 @@ void TRipristino_liq::build_nomiditte()
{ {
// check no archivi // check no archivi
fr = "??"; fr = "??";
bool good = prefhndl->exist(dt.get_long("CODDITTA")); bool good = prefix().exist(dt.get_long("CODDITTA"));
if (good) if (good)
{ {