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

Corrette stampe dei quadri B e H

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3759 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1996-10-11 14:24:28 +00:00
parent 1ec5595d26
commit 00b955bd64
6 changed files with 355 additions and 332 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
m770/77qb.frm
View File

@ -356,6 +356,7 @@ BEGIN
PROMPT 22 7 ""
PICTURE "###.###.###^^^"
FIELD ABBATT
MESSAGE ADD,FL->23
END
NUMERO 24
@ -424,7 +425,7 @@ END
NUMERO 31
BEGIN
KEY "ALIQUOTA"
PROMPT 28 9 ""
PROMPT 27 9 ""
PICTURE "##@,@@"
FIELD ALIQUOTA
END
@ -449,7 +450,7 @@ NUMERO 34
BEGIN
KEY "IMPONIBILE T.F.R."
PROMPT 57 9 ""
PICTURE "#.###.###.###^^^"
PICTURE "###.###.###^^^"
FIELD IMPTFR
MESSAGE ADD,FL->34
END
@ -561,6 +562,13 @@ BEGIN
PICTURE "#.###.###.###^^^"
END
NUMERO 23
BEGIN
KEY "ABBATTIMENTO"
PROMPT 22 3 ""
PICTURE "###.###.###^^^"
END
NUMERO 24
BEGIN
KEY "AMMONTARE NETTO"

2
m770/77stba.cpp
View File

@ -111,7 +111,7 @@ void TBase1::stampa_soci(TPrinter& pr)
sComuneNa.cut(28);
sProvNa=c->file(LF_COMUNI).get("PROVCOM");
// fut.field(0).set(sRagsoc);
sRagsoc:=fut.field(0).get();
sRagsoc=fut.field(0).get();
if (sRagsoc.len() > 30 && sRagsoc[30] != ' ')
{
sCognome=sRagsoc.left(30);

4
m770/77stq.cpp
View File

@ -1751,8 +1751,6 @@ void TStampaQuadro::print(const bool modulaser)
class TQuadroD : public TDicForm
{
enum { QD_FORMLEN = 72 };
real _totale, _somme, _imponibile, _importo, _netto;
bool _devo_sommare;
@ -2242,8 +2240,6 @@ bool TStampaQuadroD::user_destroy()
class TQuadroD1 : public TDicForm
{
enum { QD_FORMLEN = 72 };
real _totale, _quotapro, _speseant, _imponibile, _importo, _netto;
bool _devo_sommare;

37
m770/77stq.h
View File

@ -73,25 +73,27 @@ typedef enum { STARTDOC, STARTDITTA, STARTPAGE, ENDDOC } ModulaserKey;
#define QD_STATO_ESTERO 12
// Quadro D
HIDDEN const int QD_FORMLEN = 72;
HIDDEN const int POS_DITTA = 120; // Colonna del codice ditta a pie' di modulo
HIDDEN const int QD_PAGINE = 4;
HIDDEN const int QD_RIGHE_PRIMA = 4;
HIDDEN const int QD_RIGHE_SECONDA = 7;
HIDDEN const int QD_RIGHE_TERZA = 7;
HIDDEN const int QD_RIGHE_QUARTA = 7;
HIDDEN const int QD1_RIGHE_PRIMA = 6;
HIDDEN const int QD1_RIGHE_SECONDA = 9;
HIDDEN const int QD1_RIGHE_TERZA = 9;
HIDDEN const int QD1_RIGHE_QUARTA = 8;
#define QD_FORMLEN 72
#define POS_DITTA 120
#define QD_PAGINE 4
#define QD_RIGHE_PRIMA 4
#define QD_RIGHE_SECONDA 7
#define QD_RIGHE_TERZA 7
#define QD_RIGHE_QUARTA 7
#define QD1_RIGHE_PRIMA 6
#define QD1_RIGHE_SECONDA 9
#define QD1_RIGHE_TERZA 9
#define QD1_RIGHE_QUARTA 8
HIDDEN const int HEADER_SECONDA = 8;
HIDDEN const int HEADER_TERZA = 8; // Sarebbero 9 col righello...
HIDDEN const int HEADER_QUARTA = 13; // 15 col righello...
#define HEADER_SECONDA 8
#define HEADER_TERZA 8
#define HEADER_QUARTA 13
HIDDEN const int HEADER_D1_SECONDA = 8;
HIDDEN const int HEADER_D1_TERZA = 8;
HIDDEN const int HEADER_D1_QUARTA = 14;
#define HEADER_D1_SECONDA 8
#define HEADER_D1_TERZA 8
#define HEADER_D1_QUARTA 14
#define FIRMADIC 2
typedef enum { PRIMA=1, SECONDA, TERZA, QUARTA } PaginaQuadro;
typedef enum { fisiche, nofisiche } TipoPagina;
@ -172,6 +174,7 @@ class TDicForm : public TForm
virtual void azzera_totali();
PaginaQuadro curr_page() const { return _PaginaCorrente; }
// TCursor& cur();
void firma_dichiarante();
void set_progind(TProgind* prog) { _prog = prog; }
TProgind* progind() { return _prog; }

19
m770/77stqab.cpp
View File

@ -93,10 +93,12 @@ int TDipendenti::fill(TCursor& cur)
const long coddec = dip(d).codice_deceduto();
if (coddec > 0) // E' un erede!
{
const int posdec = find(coddec);
int posdec = find(coddec);
if (posdec >= 0 && posdec != d-1) // Il deceduto esiste
{
TDipendente* dipen = (TDipendente*)_data.remove(d, TRUE);
if (d < posdec) // Se l'erede precede il defunto ...
posdec--; // ... il defunto avanza di un posto!
dipen->reset_deceduto(); // Non e' piu' un erede
_data.insert(dipen, posdec+1); // Attaccalo dietro al deceduto
}
@ -559,6 +561,18 @@ bool TStampaQuadroB::user_create()
// QUADRO H
//////////////////////////////////////////////////////////////
long TQuadroH::filtra(const long codditta)
{
TString filtr(32);
filtr.format("(CODDITTA=%ld)&&(H1ANNO=1995)", codditta);
cursor()->setfilter(filtr, TRUE);
const long items = cursor()->items();
return items;
}
void TQuadroH::inc_curr_page()
{
if (_PaginaCorrente == PRIMA)
@ -681,7 +695,8 @@ bool TStampaQuadroH::user_create()
_form = new TQuadroH("77QH", quadro());
TString sortkey(80);
sortkey.format("CODDITTA|H1ANNO|H1ENTE");
// sortkey.format("CODDITTA|H1ANNO|H1ENTE");
sortkey.format("CODDITTA|H1ENTE"); // Considera solo in 1995
_cur = new TSorted_cursor(_form->TForm::relation(), sortkey);
return TRUE;

1
m770/77stqab.h
View File

@ -223,6 +223,7 @@ protected:
virtual int prima_riga(PaginaQuadro p) const;
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
virtual void inc_curr_page();
virtual long filtra(const long codditta);
public:
TQuadroH(const char* form, const char* quadro) : TQuadroA(form, quadro) { }