root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzioni a liquidazione e stampa registri

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1324 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-05-04 09:23:22 +00:00
parent 8f0bdf750a
commit ec145b9464
4 changed files with 124 additions and 99 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
cg/cg4300.cpp
View File

@ -239,8 +239,29 @@ bool TLiquidazione_app::user_create()
_cur->setregion(from, to); _cur->setregion(from, to);
_canprint = is_month_ok_strict(_month); _canprint = is_month_ok_strict(_month);
/*
if (is_month_ok_strict(_month))
update_firm(_month);
*/
//modifica del 03/05/1995
int need_refresh = FALSE;
for (int m = 1; m < _month; m++)
if (is_month_ok_strict(m) && (!look_lim(m) || !_lim->get_bool("B0")))
{
need_refresh = TRUE;
break;
}
if (need_refresh) _recalc = ever;
for (int mese = 1; mese < _month; mese++) // fino a 13 compreso
if (is_month_ok(mese, _month) || _recalc == ever)
update_firm(mese);
if (is_month_ok_strict(_month)) if (is_month_ok_strict(_month))
update_firm(_month); update_firm(_month);
//fine modifica
if (_isprint && _descr_arr.items() > 0) if (_isprint && _descr_arr.items() > 0)
print(); print();
TApplication::set_firm(__firm); TApplication::set_firm(__firm);

178
cg/cg4400.cpp
View File

@ -131,7 +131,11 @@ bool CG4400_application::mask_tipo_stampa(TMask_field& f, KEY k)
{ {
int tipo_stampa = m.get_int(TIPO_STAMPA); int tipo_stampa = m.get_int(TIPO_STAMPA);
if (tipo_stampa == 3) //stampa su libro unico if (tipo_stampa == 3) //stampa su libro unico
{
m.enable_page(1); m.enable_page(1);
TMask_field& cc = f.mask().field(CODICE_LIB_UN);
cc.set_dirty();
}
else else
m.disable_page(1); m.disable_page(1);
} }
@ -160,7 +164,7 @@ bool CG4400_application::mask_mese (TMask_field& f, KEY k)
f.mask().hide (TIPO_RIEPILOGATIVO); f.mask().hide (TIPO_RIEPILOGATIVO);
f.mask().hide (RIF_VID); f.mask().hide (RIF_VID);
} }
//TMask_field& cc = f.mask().field(CODICE_LIBRO_IVA); //TMask_field& cc = f.mask().field(CODICE_LIB_UN);
//cc.set_dirty(); //cc.set_dirty();
} }
if (id == FINO_A_MESE) if (id == FINO_A_MESE)
@ -197,12 +201,16 @@ bool CG4400_application::look_reg(int i, int anno, TString& codlib, int m, const
TDate sca_vid = _tabreg->get_date("D1"); TDate sca_vid = _tabreg->get_date("D1");
if (codlib != cod_lib_un) if (codlib != cod_lib_un)
{ {
if (_selected[i]) message_box("Ditta %ld: il codice libro unico del registro non e' uguale al codice libro unico indicato", ditta); if (_selected.ones() == 1L)
if (_selected[i])
message_box("Ditta %ld: il codice libro unico del registro non e' uguale al codice libro unico indicato", ditta);
return FALSE; return FALSE;
} }
if (m < *umese) if (m < *umese)
{ {
if (_selected[i]) message_box("Ditta %ld: il mese indicato e' inferiore al mese dell'ultima data di stampa del registro", ditta); if (_selected.ones() == 1L)
if (_selected[i])
message_box("Ditta %ld: il mese indicato e' inferiore al mese dell'ultima data di stampa del registro", ditta);
return FALSE; return FALSE;
} }
if (u_data.ok()) if (u_data.ok())
@ -212,7 +220,9 @@ bool CG4400_application::look_reg(int i, int anno, TString& codlib, int m, const
if (sca_vid.ok()) if (sca_vid.ok())
if (sca_vid.month() < m) if (sca_vid.month() < m)
{ {
if (_selected[i]) message_box("Ditta %ld: la data scadenza di vidimazione del registro non deve essere inferiore al mese indicato", ditta); if (_selected.ones() == 1L)
if (_selected[i])
message_box("Ditta %ld: la data scadenza di vidimazione del registro non deve essere inferiore al mese indicato", ditta);
return FALSE; return FALSE;
} }
} }
@ -251,13 +261,16 @@ bool CG4400_application::look_regs(int anno, TString& codlib, int m, int* umese,
if (sca_vid.ok()) if (sca_vid.ok())
if (sca_vid.month() < m) if (sca_vid.month() < m)
continue; continue;
if (u_data.ok()) int month;
if (u_data.month() < m - 1) if (!u_data.ok())
{ month = 0;
app().set_firm(__firm); else month = u_data.month();
*st = FALSE; if (month < m - 1)
return error_box("Ditta %ld: Stampare i registri dei mesi precedenti", ditta); {
} app().set_firm(__firm);
*st = FALSE;
return error_box("Ditta %ld: Stampare i registri dei mesi precedenti", ditta);
}
ok = TRUE; ok = TRUE;
} }
} }
@ -274,7 +287,13 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
{ {
TString16 cod(f.mask().get(CODICE_LIBRO_IVA)); TString16 cod(f.mask().get(CODICE_LIBRO_IVA));
TString16 codlib(f.mask().get(CODICE_LIB_UN)); TString16 codlib(f.mask().get(CODICE_LIB_UN));
//modifica del 26/04/1995
if (codlib.empty())
{
app()._test = TRUE;
return f.error_box("Inserire il codice del libro unico");
}
//fine modifica
int fino_a_mese = f.mask().get_int(MESE); int fino_a_mese = f.mask().get_int(MESE);
int anno = f.mask().get_int(ANNO); int anno = f.mask().get_int(ANNO);
bool ok = FALSE; bool ok = FALSE;
@ -297,11 +316,12 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
{ {
//modifica del 21/04/1995 suggerita da Cinzia!!! //modifica del 21/04/1995 suggerita da Cinzia!!!
if (app()._selected.ones() == 1L) //solo se ho selezionato 1 ditta devo dare il messaggio if (app()._selected.ones() == 1L) //solo se ho selezionato 1 ditta devo dare il messaggio
//if (app()._selected[i]) f.message_box("Ditta %ld: il registro %s non soddisfa i parametri indicati", ditta, (const char*)cod); if (app()._selected[i])
f.message_box("Ditta %ld: il registro %s non soddisfa i parametri indicati", ditta, (const char*)cod); f.message_box("Ditta %ld: il registro %s non soddisfa i parametri indicati", ditta, (const char*)cod);
else continue; continue;
} }
if (mese != 0 && mese < fino_a_mese - 1) //indipendentemente se si tratta di una ditta selezionata oppure no //if (mese != 0 && mese < fino_a_mese - 1) //indipendentemente se si tratta di una ditta selezionata oppure no
if (mese < fino_a_mese - 1) //indipendentemente se si tratta di una ditta selezionata oppure no
{ {
app().set_firm(app().__firm); app().set_firm(app().__firm);
can_print = FALSE; can_print = FALSE;
@ -316,9 +336,9 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
{ {
if (!can_print) if (!can_print)
return FALSE; return FALSE;
//if ( app()._selected[i])
if (app()._selected.ones() == 1L) //solo se ho selezionato 1 ditta devo dare il messaggio if (app()._selected.ones() == 1L) //solo se ho selezionato 1 ditta devo dare il messaggio
f.message_box("Ditta %ld: nessun registro soddisfa i parametri indicati", ditta); if (app()._selected[i])
f.message_box("Ditta %ld: nessun registro soddisfa i parametri indicati", ditta);
continue; continue;
} }
} }
@ -339,23 +359,15 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
bool CG4400_application::mask_cod (TMask_field& f, KEY k) bool CG4400_application::mask_cod (TMask_field& f, KEY k)
{ {
TTable TabLbu ("%LBU");
TString codtab;
int anno;
if (k == K_ENTER)
{
TString16 codlib(f.get());
if (codlib.empty())
return f.warning_box("Inserire il codice del libro unico");
}
//if (k == K_TAB || f.focusdirty()) //if (k == K_TAB || f.focusdirty())
if (k == K_TAB) if (k == K_TAB)
{ {
TString16 codlib(f.mask().get(CODICE_LIB_UN)); TTable TabLbu ("%LBU");
anno = f.mask().get_int(ANNO); TString codtab;
int anno;
TString16 codlib(f.get());
anno = f.mask().get_int(ANNO);
TabLbu.zero(); TabLbu.zero();
codtab.format ("%04d%-3s", anno, (const char*)codlib); codtab.format ("%04d%-3s", anno, (const char*)codlib);
TabLbu.put ("CODTAB", codtab); TabLbu.put ("CODTAB", codtab);
@ -366,6 +378,13 @@ bool CG4400_application::mask_cod (TMask_field& f, KEY k)
f.mask().set(ULTIMA_PAGINA,TabLbu.get_long("I1")); f.mask().set(ULTIMA_PAGINA,TabLbu.get_long("I1"));
app()._codice_vidi = TabLbu.get("S4"); app()._codice_vidi = TabLbu.get("S4");
} }
//modifica del 26/04/1995
if (app()._test)
{
f.mask().send_key(K_TAB, CODICE_LIBRO_IVA);
app()._test = FALSE;
}
//fine modifica
} }
return TRUE; return TRUE;
} }
@ -643,16 +662,16 @@ void CG4400_application::build_nomiditte(TProgind* pnd)
_nomiditte.add(d); _nomiditte.add(d);
} }
if (pnd) pnd->addstatus(1); //if (pnd) pnd->addstatus(1);
//TApplication::set_firm(__firm); //TApplication::set_firm(__firm);
} }
bool CG4400_application::user_create() bool CG4400_application::user_create()
{ {
TProgind* pnd = NULL; //TProgind* pnd = NULL;
pnd = new TProgind (2,"Preparazione archivi\nPrego attendere", //pnd = new TProgind (2,"Preparazione archivi\nPrego attendere",
FALSE, TRUE, 30); // FALSE, TRUE, 30);
_com = new TLocalisamfile(LF_COMUNI); _com = new TLocalisamfile(LF_COMUNI);
_anag = new TLocalisamfile(LF_ANAG); _anag = new TLocalisamfile(LF_ANAG);
@ -684,7 +703,7 @@ bool CG4400_application::user_create()
_ditte = new TArray_sheet(-1, -1, 0, 0, "Selezione Ditte", _ditte = new TArray_sheet(-1, -1, 0, 0, "Selezione Ditte",
"@1|Cod.@5R|Ragione Sociale@50|Vers."); "@1|Cod.@5R|Ragione Sociale@50|Vers.");
if (pnd) pnd->addstatus(1); //if (pnd) pnd->addstatus(1);
_n_ditte = 0l; _n_ditte = 0l;
__firm = TApplication::get_firm(); __firm = TApplication::get_firm();
@ -692,16 +711,14 @@ bool CG4400_application::user_create()
TDate oggi(TODAY); TDate oggi(TODAY);
_annoes = oggi.year(); _annoes = oggi.year();
build_nomiditte(pnd); build_nomiditte();
build_ditte_sheet(); build_ditte_sheet();
//if (pnd) pnd->addstatus(1);
add_cursor(_cur); add_cursor(_cur);
add_file(LF_MOV); add_file(LF_MOV);
add_file(LF_RMOVIVA); add_file(LF_RMOVIVA);
delete pnd; //delete pnd;
return TRUE; return TRUE;
} }
@ -1165,9 +1182,9 @@ int CG4400_application::stampa_prospetto()
{ {
TTipodoc& doc = (TTipodoc&)_doc_array[j]; TTipodoc& doc = (TTipodoc&)_doc_array[j];
rr = r+j; rr = r+j;
set_row(rr, "%2s", (const char*) doc._tipodoc); set_row(rr, "%2s", (const char*) doc._tipodoc);
set_row(rr, "@3g%s", (const char*) doc._descrdoc); set_row(rr, "@3g%s", (const char*) doc._descrdoc);
set_row(rr, "@54g%r", &doc._totdoc); set_row(rr, "@54g%r", &doc._totdoc);
} }
_doc_array.destroy(); _doc_array.destroy();
} }
@ -1861,40 +1878,6 @@ bool CG4400_application::preprocess_page(int file, int counter)
_datareg = mov.get_date(MOV_DATAREG); _datareg = mov.get_date(MOV_DATAREG);
/*
if (_tipo_stampa != 3 && _liquidazione)
{
int da;
if (_tipo_stampa == 1)
da = _data_da.month();
else da = 1;
int a = _datareg.month();
for (int m = da; m < a; m++)
{
if (!_st_liq[m])
if (stampo_liquidazione(m))
{
_datareg = format("01/%02d/%4d", m, _annoes); //serve per la preprocess_header (intestazione per la stampa liquidazione)
TFilename t;
t.temp("reg");
if (_tipo_stampa == 1)
send_message('S', t, m);
else send_message('s', t, m);
TString80 nomef; nomef = t.path(); nomef << "\\" << t.name();
if (fexist(nomef))
{
_intesta_liq = TRUE;
merge_export_file(t,FALSE,TRUE);
printer().formfeed();
_intesta_liq = FALSE;
reset_print();
}
}
_st_liq[m] = TRUE;
}
}
*/
if (_tipo_stampa != 3 && _liquidazione) if (_tipo_stampa != 3 && _liquidazione)
{ {
int da; int da;
@ -1932,6 +1915,7 @@ bool CG4400_application::preprocess_page(int file, int counter)
printer().formfeed(); printer().formfeed();
_intesta_liq = FALSE; _intesta_liq = FALSE;
reset_print(); reset_print();
fremove(t);
} }
} }
_st_liq[m] = TRUE; _st_liq[m] = TRUE;
@ -2433,6 +2417,7 @@ void CG4400_application::liq_b0_settato()
printer().footerlen(0); printer().footerlen(0);
merge_export_file(f,FALSE,TRUE); merge_export_file(f,FALSE,TRUE);
_intesta_liq = FALSE; _intesta_liq = FALSE;
fremove(f);
} }
} }
@ -2440,10 +2425,20 @@ void CG4400_application::liq_other_case()
{ {
if (_scelta == prosegui_cal_stampa) if (_scelta == prosegui_cal_stampa)
{ {
_t.temp("reg"); if (stampo_liquidazione(_datareg.month()))
if (_tipo_stampa == 1) {
send_message('L', _t, _datareg.month()); _t.temp("reg");
else send_message('l', _t, _datareg.month()); if (_tipo_stampa == 1)
send_message('L', _t, _datareg.month());
else send_message('l', _t, _datareg.month());
}
else //se chiamo la liquidazione con L o l mi calcola anche i progressivi
if (_tipo_stampa != 1)
{
TFilename app;
app.temp();
send_message('C', app, _datareg.month());
}
} }
if (_scelta == prosegui_stampa) if (_scelta == prosegui_stampa)
{ {
@ -2454,11 +2449,14 @@ void CG4400_application::liq_other_case()
send_message('S', _t, _datareg.month()); send_message('S', _t, _datareg.month());
else send_message('s', _t, _datareg.month()); else send_message('s', _t, _datareg.month());
} }
TFilename app; if (_tipo_stampa != 1) //in stampa di prova i progressivi me li calcolo io!!!
app.temp(); { //Why???
send_message('C', app, _datareg.month()); TFilename app;
app.temp();
send_message('C', app, _datareg.month());
}
} }
if (_scelta == no_liquidazione) if (_scelta == no_liquidazione && _tipo_stampa != 1)
{ {
TFilename app; TFilename app;
app.temp(); app.temp();
@ -2488,8 +2486,9 @@ print_action CG4400_application::postprocess_page (int file, int counter)
printer().footerlen(0); printer().footerlen(0);
merge_export_file(_t,FALSE,TRUE); merge_export_file(_t,FALSE,TRUE);
_intesta_liq = FALSE; _intesta_liq = FALSE;
fremove(_t);
} }
_t = NULL; //_t = NULL; Come ho potuto scrivere cio?!
} }
} }
} }
@ -2741,6 +2740,7 @@ void CG4400_application::no_movimenti()
merge_export_file(f,FALSE,TRUE); merge_export_file(f,FALSE,TRUE);
printer().formfeed(); printer().formfeed();
_intesta_liq = FALSE; _intesta_liq = FALSE;
fremove(f);
} }
} }
} }
@ -2879,6 +2879,7 @@ bool CG4400_application::stampa_registri_IVA(const TMask& m)
_stampa_mese = 13; _stampa_mese = 13;
_scelta = controlla_b0(); //sul registro non va stampata la liq. ma comunque _scelta = controlla_b0(); //sul registro non va stampata la liq. ma comunque
//va richiamata per il calcolo progressivi (a seconda di b0) //va richiamata per il calcolo progressivi (a seconda di b0)
//se non e' stampa di prova
ok = setta_mask(i); ok = setta_mask(i);
if (!ok) continue; if (!ok) continue;
@ -2944,8 +2945,8 @@ void CG4400_application::stampa_liq_mesi_succ()
TFilename t; TFilename t;
t.temp("iva"); t.temp("iva");
if (_tipo_stampa == 1) if (_tipo_stampa == 1)
send_message('S',t, m); send_message('L',t, m); //prima era S ma non andava bene!
else send_message('s',t,m); else send_message('l',t,m); //prima era s
//TString80 nomef; nomef = t.path(); nomef << "\\" << t.name(); //TString80 nomef; nomef = t.path(); nomef << "\\" << t.name();
//if (fexist(nomef)) //if (fexist(nomef))
if (fexist(t)) if (fexist(t))
@ -2955,6 +2956,7 @@ void CG4400_application::stampa_liq_mesi_succ()
printer().footerlen(0); printer().footerlen(0);
merge_export_file(t,FALSE,TRUE); merge_export_file(t,FALSE,TRUE);
_intesta_liq = FALSE; _intesta_liq = FALSE;
fremove(t);
} }
} }
} }

4
cg/cg4400.h
View File

@ -24,6 +24,7 @@
#include <occas.h> #include <occas.h>
#include <causali.h> #include <causali.h>
#include "cglib03.h" #include "cglib03.h"
#include "cglib04.h"
#include "conto.h" #include "conto.h"
enum messaggio { enum messaggio {
@ -48,6 +49,7 @@ class CG4400_application : public TPrintapp
TArray_sheet *_ditte; TArray_sheet *_ditte;
TArray _nomiditte; TArray _nomiditte;
bool _st_liq[13]; bool _st_liq[13];
bool _test;
TRecnotype _nrec; TRecnotype _nrec;
bool _mov_empty, _stampa_ind_ditta, _stampa_tutti_i_registri, _auto_intraf, _stampa; bool _mov_empty, _stampa_ind_ditta, _stampa_tutti_i_registri, _auto_intraf, _stampa;
bool _corrispettivi, _liquidazione, _riep_liq, _stampa_ind_comp, _esiste_riga_iva, _stampa_cred_pre; bool _corrispettivi, _liquidazione, _riep_liq, _stampa_ind_comp, _esiste_riga_iva, _stampa_cred_pre;
@ -146,7 +148,7 @@ public:
virtual print_action postprocess_page (int, int); virtual print_action postprocess_page (int, int);
virtual void preprocess_header(); virtual void preprocess_header();
CG4400_application() : TPrintapp(), _ditte(NULL), _selected(10000), _nomiditte(100) {} CG4400_application() : TPrintapp(), _ditte(NULL), _selected(10000), _nomiditte(100), _test(FALSE) {}
virtual ~CG4400_application() {} virtual ~CG4400_application() {}
}; };

2
cg/cg4400a.uml
View File

@ -78,7 +78,7 @@ END
DATE DATA_STAMPA DATE DATA_STAMPA
BEGIN BEGIN
PROMPT 28 7 "Data stampa " PROMPT 28 7 "Data stampa "
FLAGS "A" FLAGS "A"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Inserire la data di stampa" WARNING "Inserire la data di stampa"