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

Correzioni ai libri IVA

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@928 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-01-27 17:05:35 +00:00
parent 0276359101
commit 93e06dc260
4 changed files with 94 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

114
cg/cg4400.cpp
View File

@ -479,7 +479,7 @@ void CG4400_application::build_ditte_sheet()
_ditte->destroy();
for (int i = 0; i < _nomiditte.items(); i++)
{
TToken_string* d = new TToken_string(74);
TToken_string* d = new TToken_string(64);
*d = (TToken_string&)_nomiditte[i];
const char vers = d->get_char(2);
bool selectable = vers == '?';
@ -622,17 +622,12 @@ void CG4400_application::build_nomiditte()
if (!look_lia()) good = FALSE;
}
_n_ditte++;
TToken_string* d = new TToken_string(74);
// add record
TToken_string* d = new TToken_string(64);
d->add(dt.get("CODDITTA"));
d->add(dt.get("RAGSOC"));
if (good)
{
d->add(_tablia->get("S7"));
real c = _tablia->get_real("R0");
d->add(c.string("###.###.###.###"));
}
else d->add("??");
if (good) d->add(_tablia->get("S7"));
else d->add("??");
_nomiditte.add(d);
}
TApplication::set_firm(__firm);
@ -668,7 +663,7 @@ bool CG4400_application::user_create()
_cur = new TCursor(_rel, "", 2);
_ditte = new TArray_sheet(-1, -1, 0, 0, "Selezione Ditte",
"@1|Cod.@5|Ragione Sociale@50|Vers.|Credito inizio anno");
"@1|Cod.@5|Ragione Sociale@50|Vers.");
_n_ditte = 0l;
__firm = TApplication::get_firm();
@ -1100,13 +1095,13 @@ int CG4400_application::stampa_prospetto()
rr = r;
if (_stampa && _tipo_reg == 2)
//if (_stampa_cred_pre && _mese_credito==0 && _credito > ZERO)
if (_stampa_cred_pre && _mese_credito==0 && _credito.not_empty() )
{
if (_stampa_cred_pre && _mese_credito==0 && _credito > ZERO)
{
//set_row (++rr, "** CREDITO INIZIO ANNO @39g%r", &_credito);
set_row (++rr, "** CREDITO INIZIO ANNO @39g%s", (const char*)_credito);
set_row (++rr, "** CREDITO INIZIO ANNO @39g%r", &_credito);
rr++;
}
}
if (_esiste_riga_iva && _stampa)
{
@ -1754,10 +1749,10 @@ bool CG4400_application::preprocess_page(int file, int counter)
{
_datareg = format("01/%02d/%4d", m, _annoes); //serve per la preprocess_header (intestazione per la stampa liquidazione)
TFilename t;
t.temp();
send_message(_tipo_stampa == 1 ? 'L': 'l', t, m);
t.temp("reg");
//if (_tipo_stampa == 1)
send_message('L', t, m);
//else send_message('l', t, m);
TString80 nomef; nomef = t.path(); nomef << "\\" << t.name();
if (fexist(nomef))
{
@ -2028,22 +2023,22 @@ void CG4400_application::aggiorna_reg()
if (Tabreg.read() == NOERR)
{
TDate d = Tabreg.get_date("D3");
//stampate = ultimast + 1;
if (!_mov_empty) //cioe' se e' stata stampata almeno una pagina
{
TDate ultima_data = format("%02d/%02d/%4d", _datareg.last_day(_datareg.month(), _annoes), _datareg.month(), _annoes);
if (ultima_data > d)
Tabreg.put("D3", ultima_data);
//pag = _pagine_stampate + ultimast;
//Tabreg.put("I1", pag);
}
else if (_data_a > d)
Tabreg.put("D3", _data_a);
Tabreg.put("I1", _pagine_stampate);
if (_intesta_liq)
Tabreg.put("I4", (long)_datareg.month());
if (_tipo_reg == 2 && _stampa_cred_pre)
//if (_mese_credito == 0 && _credito > ZERO)
if (_mese_credito == 0 && _credito.not_empty())
if (_mese_credito == 0 && _credito > ZERO)
if (_mov_empty)
Tabreg.put("I8", (long)_fino_a_mese);
else Tabreg.put("I8", (long)_datareg.month());
@ -2229,9 +2224,9 @@ print_action CG4400_application::postprocess_page (int file, int counter)
_st_liq[_datareg.month()] = TRUE;
TFilename t;
t.temp("rg");
if (_tipo_stampa == 1)
send_message('L',t, _datareg.month()); //stampa liquidazione
else send_message('l',t, _datareg.month());
//if (_tipo_stampa == 1)
send_message('L',t, _datareg.month());
//else send_message('l',t, _datareg.month());
TString80 nomef;
nomef = t.path(); nomef << "\\" << t.name();
if (fexist(nomef))
@ -2390,7 +2385,10 @@ bool CG4400_application::look_lia()
_tablia->zero();
_tablia->put("CODTAB", y);
_tablia->read();
const bool ok = _tablia->good();
const bool ok = _tablia->good();
if (ok)
_credito = _tablia->get_real("R0");
else _credito = ZERO;
return ok;
}
@ -2407,11 +2405,12 @@ bool CG4400_application::stampa_registri_IVA(const TMask& m)
{
if (_selected[(long)i])
{
_ditta = _ditte->row(i).get_long(1);
_frequiva = _ditte->row(i).get_char(3);
_credito = _ditte->row(i).get(4); //credito iva anno precedente
bool msg = TRUE;
TApplication::set_firm(_ditta);
_ditta = _ditte->row(i).get_long(1);
_frequiva = _ditte->row(i).get_char(3);
_intesta_liq = FALSE;
TApplication::set_firm(_ditta);
look_lia();
ok = compila_reg(m);
if (!ok) continue;
if (_tipo_stampa == 2 || _tipo_stampa == 4)
@ -2436,7 +2435,9 @@ bool CG4400_application::stampa_registri_IVA(const TMask& m)
{
if (_tipo_stampa == 2 || _tipo_stampa == 4)
{
TMask mb("cg4400b");
TMask mb("cg4400b");
mb.set(F_CODDITTA, _ditta);
mb.set(F_RAGSOC, _ditte->row(i).get(2));
mb.set(COD_LIB, _codreg);
const char* m = "";
m = format("%02d", _stampa_mese);
@ -2453,7 +2454,6 @@ bool CG4400_application::stampa_registri_IVA(const TMask& m)
t.temp();
send_message('C',t, _fino_a_mese);
}
print();
if (_tipo_stampa != 3 && _liquidazione)
@ -2476,18 +2476,18 @@ else //non ci sono movimenti da stampare nel periodo richiesto!
if (_tipo_stampa == 1)
a = _data_a.month();
else a = _fino_a_mese;
if (! printer().isopen())
printer().open();
for (int m = da; m <= a; m++)
{
if (! printer().isopen())
printer().open();
if (stampo_liquidazione(m))
{
_datareg = format("01/%02d/%4d", m, _annoes); //serve per la preprocess_header
TFilename t;
t.temp("rgp");
if (_tipo_stampa == 1)
send_message('L',t, m);
else send_message('l',t, m);
//if (_tipo_stampa == 1)
send_message('L',t, m);
//else send_message('l',t, m);
TString80 nomef;
nomef = t.path(); nomef << "\\" << t.name();
if (fexist(nomef))
@ -2497,9 +2497,9 @@ else //non ci sono movimenti da stampare nel periodo richiesto!
merge_export_file(t,FALSE,TRUE);
_intesta_liq = FALSE;
}
}
}
printer().close();
}
printer().close();
}
}
if (_tipo_stampa == 3 && _rif_vid)
@ -2589,6 +2589,8 @@ else //stampa tutti i registri
if (_tipo_stampa == 2 || _tipo_stampa == 4)
{
TMask mb("cg4400b");
mb.set(F_CODDITTA, _ditta);
mb.set(F_RAGSOC, _ditte->row(i).get(2));
mb.set(COD_LIB, _codreg);
const char* m = "";
m = format("%02d", _stampa_mese);
@ -2633,12 +2635,10 @@ else //stampa tutti i registri
if (_tipo_stampa == 1)
a = _data_a.month();
else a = _fino_a_mese;
if (!printer().isopen())
printer().open();
for (int m = da; m <= a; m++)
{
if (!printer().isopen())
printer().open();
if (stampo_liquidazione(m))
{
//ok = controlla_liquidazione();
@ -2647,9 +2647,9 @@ else //stampa tutti i registri
TFilename t;
t.temp("rgi");
TString80 nomef; nomef = t.path(); nomef << "\\" << t.name();
if (_tipo_stampa == 1)
send_message('L',t, m);
else send_message('l',t, m);
//if (_tipo_stampa == 1)
send_message('L',t, m);
//else send_message('l',t, m);
if (fexist(nomef))
{
_intesta_liq = TRUE;
@ -2658,8 +2658,8 @@ else //stampa tutti i registri
_intesta_liq = FALSE;
}
}
printer().close();
}
printer().close();
}
}
if (_tipo_stampa == 3 && _rif_vid)
@ -2682,19 +2682,19 @@ return TRUE;
void CG4400_application::stampa_liq_mesi_succ()
{
int da = _datareg.month() + 1;
if (!printer().isopen())
printer().open();
int a = _data_a.month();
int a = _data_a.month();
for (int m = da; m <= a; m++)
{
if (!printer().isopen())
printer().open();
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("iva");
if (_tipo_stampa == 1)
send_message('L',t, m);
else send_message('l',t,m);
//if (_tipo_stampa == 1)
send_message('L',t, m);
//else send_message('l',t,m);
TString80 nomef; nomef = t.path(); nomef << "\\" << t.name();
if (fexist(nomef))
{
@ -2703,9 +2703,9 @@ void CG4400_application::stampa_liq_mesi_succ()
merge_export_file(t,FALSE,TRUE);
_intesta_liq = FALSE;
}
}
}
printer().close();
}
printer().close();
}
void CG4400_application::send_message(char tipo, const TFilename& nome, int mese)

8
cg/cg4400.h
View File

@ -13,7 +13,11 @@
#include <sheet.h>
#include <config.h>
#include <prefix.h>
<<<<<<< cg4400.h
#include "conto.h"
=======
#include "conto.h" // CI VOGLIONO LE VIRGOLETTE! CAPITELA!
>>>>>>> 1.25
#include <nditte.h>
#include <anagr.h>
#include <comuni.h>
@ -53,9 +57,9 @@ class CG4400_application : public TPrintapp
int _fino_a_mese, _tipo_reg, _tipo_stampa, _cod_un_loc;
int _annoes, _r, _stampa_width, _mese_ultima_liq, _mese_credito;
int _stampa_len, _stampa_mese;
real _totale_doc;
real _totale_doc, _credito;
TString _codreg, _desc_lib, _codatt, _attivita, _tipoatt;
TString _tipodoc, _descr_doc, _codlib, _codice_vidi, _credito;
TString _tipodoc, _descr_doc, _codlib, _codice_vidi;
TString _cofi,_cap,_paiva,_ragsoc,_comunefis,_provfis,_viafis;
protected:

10
cg/cg4400b.h
View File

@ -1,4 +1,6 @@
#define COD_LIB 123
#define U_MESE 124
#define U_PAGINA 125
#define U_DATA 126
#define F_CODDITTA 123
#define F_RAGSOC 124
#define COD_LIB 125
#define U_MESE 126
#define U_PAGINA 127
#define U_DATA 128

33
cg/cg4400b.uml
View File

@ -1,39 +1,56 @@
#include "cg4400b.h"
PAGE "Stampa registri IVA" -1 -1 54 10
PAGE "Stampa registri IVA" -1 -1 78 14
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 ""
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "D"
END
STRING F_RAGSOC 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
END
STRING COD_LIB 3
BEGIN
PROMPT 2 1 "Codice Libro "
PROMPT 3 4 "Codice Libro "
FLAGS "D"
END
LISTBOX U_MESE 10
BEGIN
PROMPT 2 2 "Stampa mese "
PROMPT 3 5 "Stampa mese "
FLAGS "MD"
END
NUMBER U_PAGINA 4
BEGIN
PROMPT 2 3 "Ult.num.pagina stampata libro ditta "
PROMPT 3 6 "Ult.num.pagina stampata libro ditta "
FLAGS "R"
END
DATE U_DATA
BEGIN
PROMPT 2 4 "Ultima data di stampa "
BEGIN
PROMPT 3 7 "Ultima data di stampa "
FLAGS "D"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 7 ""
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -22 7 ""
PROMPT -22 -1 ""
END
ENDPAGE