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

Aggiunte le stampe dei quadri A2 e A3 affondato!

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3182 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1996-07-12 14:53:09 +00:00
parent 8d71b3cd13
commit 6dc34cef7a
4 changed files with 4427 additions and 3629 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
m770/77qa1.frm
View File

@ -31,7 +31,7 @@ BEGIN
GRID "+++++++++-|" GRID "+++++++++-|"
END END
SECTION HEADER FIRST 22 SECTION HEADER FIRST 28
LISTA 1 LISTA 1
BEGIN BEGIN
@ -149,7 +149,7 @@ END
NUMERO 14 NUMERO 14
BEGIN BEGIN
KEY "NUM. FOGLIO" KEY "NUM. FOGLIO"
PROMPT 125 20 "" PROMPT 125 24 ""
END END
END END
@ -324,14 +324,14 @@ END
STRINGA 21 STRINGA 21
BEGIN BEGIN
KEY "CONGUAGLI NON EFFETTUATI" KEY "CONGUAGLI NON EFFETTUATI"
PROMPT 118 7 "" PROMPT 121 7 ""
FIELD 56->CONNEFF21 FIELD 56->CONNEFF21
END END
STRINGA 22 STRINGA 22
BEGIN BEGIN
KEY "TIPO CONGUAGLIO" KEY "TIPO CONGUAGLIO"
PROMPT 125 7 "" PROMPT 128 7 ""
FIELD 56->TIPOCONG22 FIELD 56->TIPOCONG22
END END
@ -359,7 +359,7 @@ END
DATA 26 DATA 26
BEGIN BEGIN
KEY "DATA RICEZIONE MOD.730-5" KEY "DATA RICEZIONE MOD.730-5"
PROMPT 112 9 "" PROMPT 115 9 ""
FORMAT "1444-" FORMAT "1444-"
PICTURE "## ^ ##^^^^^" PICTURE "## ^ ##^^^^^"
FIELD 56->DATARIC26 FIELD 56->DATARIC26

466
m770/77qa2.frm Executable file
View File

@ -0,0 +1,466 @@
USE 57
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN %CAF ALIAS 104 INTO CODTAB=CODCAAF
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
END
DESCRIPTION
BEGIN
57->* "Quadro A2 770"
45->* "Anagrafica dei dipendenti"
104@->* "Tabella CAAF"
9->* "Ditte"
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
108@->* "Anagrafica persone fisiche (ditta)"
113@->* "Comuni DITTA (nascita)"
213@->* "Comuni DITTA (residenza)"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 11
CARATTERE "X"
INIZIO_POS 3 2
FINE_POS 131
GRID "+++++++++-|"
END
SECTION HEADER FIRST 28
LISTA 1
BEGIN
KEY "Tipo anagrafica"
FLAGS "H"
FIELD 106@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END
STRINGA 2
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 13 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 40 13 ""
GROUP 2
FIELD 106@->RAGSOC
END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 40 13 ""
GROUP 1
FIELD 106@->RAGSOC[1,30]
END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 17 15 ""
GROUP 1
FIELD 106@->RAGSOC[31,50]
END
STRINGA 6
BEGIN
KEY "SESSO"
PROMPT 59 15 ""
GROUP 1
FIELD 108@->SESSO
END
STRINGA 7
BEGIN
KEY "DATA DI NASCITA"
PROMPT 64 15 ""
GROUP 1
FIELD 108@->DATANASC
END
STRINGA 8
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 86 15 ""
GROUP 1
FIELD 113@->DENCOM
END
STRINGA 9
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 128 15 ""
GROUP 1
FIELD 113@->PROVCOM
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 17 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 17 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 68 17 ""
FIELD 106@->INDRF
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 17 ""
FIELD 106@->CIVRF
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 125 17 ""
FIELD 106@->CAPRF
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 87 20 ""
END
NUMERO 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 24 ""
END
END
SECTION BODY ODD 10
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 11 1 ""
FIELD 45->CODFI
END
STRINGA 2
BEGIN
KEY "COGNOME"
PROMPT 43 1 ""
FIELD 45->COGNOME
END
STRINGA 3
BEGIN
KEY "NOME"
PROMPT 80 1 ""
FIELD 45->NOME
END
DATA 4
BEGIN
KEY "DATA NASCITA"
PROMPT 114 1 ""
FIELD 45->DATANA
FORMAT "1444-"
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 128 1 ""
FIELD 45->SESSO
END
STRINGA 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 11 3 ""
FIELD 45->COMUNENA
END
STRINGA 7
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 51 3 ""
FIELD 45->PROVNA
END
NUMERO 8
BEGIN
KEY "CONGUAGLI NON EFFETTUATI"
PROMPT 11 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->8
FIELD 57->CONEFF
END
NUMERO 9
BEGIN
KEY "RETTIFICA CONGUAGLIO"
PROMPT 26 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->9
FIELD 57->RETCON
END
NUMERO 10
BEGIN
KEY "IMPOSTA RIMBORSATA"
PROMPT 41 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->10
FIELD 57->SIRPEFRIMB
END
NUMERO 11
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 55 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->11
FIELD 57->VIRPEF
END
NUMERO 12
BEGIN
KEY "INTERESSI"
PROMPT 70 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->12
FIELD 57->INTIRPEF
END
NUMERO 13
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 85 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->13
FIELD 57->AIRPEFIV
END
NUMERO 14
BEGIN
KEY "INTERESSI"
PROMPT 100 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->14
FIELD 57->AIRPEFINT
END
NUMERO 15
BEGIN
KEY "SOPRATTASSA SU IRPEF"
PROMPT 115 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->15
FIELD 57->STASSA15
END
NUMERO 16
BEGIN
KEY "CONTRIBUTO A RIMBORSO"
PROMPT 11 7 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->16
FIELD 57->CONTR16
END
NUMERO 17
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 26 7 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17
FIELD 57->CONTRVER
END
NUMERO 18
BEGIN
KEY "INTERESSI"
PROMPT 41 7 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18
FIELD 57->INTER18
END
NUMERO 19
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 55 7 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->19
FIELD 57->CONTV19
END
NUMERO 20
BEGIN
KEY "INTERESSI"
PROMPT 70 7 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->20
FIELD 57->INTE20
END
NUMERO 21
BEGIN
KEY "SOPRATTASSA SU CSSN"
PROMPT 85 7 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->21
FIELD 57->SOPRAT21
END
NUMERO 22
BEGIN
KEY "MOD. 730/95 NON LIQUIDABILE"
PROMPT 100 7 ""
PICTURE "###.###.###^^^"
FIELD 57->M730NLIQ
END
STRINGA 23
BEGIN
KEY "CODICE FISCALE CAAF"
PROMPT 11 9 ""
FIELD 104@->S1
END
STRINGA 24
BEGIN
KEY "DENOMINAZIONE CAAF"
PROMPT 44 9 ""
FIELD 104@->S0
END
NUMERO 25
BEGIN
KEY "NUMERO ISCRIZIONE ALBO"
PROMPT 115 9 ""
FIELD 104@->I1
END
END
SECTION FOOTER LAST 4
NUMERO 8
BEGIN
KEY "CONGUAGLI NON EFFETTUATI"
PROMPT 11 1 ""
PICTURE "###.###.###^^^"
END
NUMERO 9
BEGIN
KEY "RETTIFICA CONGUAGLIO"
PROMPT 26 1 ""
PICTURE "###.###.###^^^"
END
NUMERO 10
BEGIN
KEY "IMPOSTA RIMBORSATA"
PROMPT 41 1 ""
PICTURE "###.###.###^^^"
END
NUMERO 11
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 55 1 ""
PICTURE "###.###.###^^^"
END
NUMERO 12
BEGIN
KEY "INTERESSI"
PROMPT 70 1 ""
PICTURE "###.###.###^^^"
END
NUMERO 13
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 85 1 ""
PICTURE "###.###.###^^^"
END
NUMERO 14
BEGIN
KEY "INTERESSI"
PROMPT 100 1 ""
PICTURE "###.###.###^^^"
END
NUMERO 15
BEGIN
KEY "SOPRATTASSA SU IRPEF"
PROMPT 115 1 ""
PICTURE "###.###.###^^^"
END
NUMERO 16
BEGIN
KEY "CONTRIBUTO A RIMBORSO"
PROMPT 11 3 ""
PICTURE "###.###.###^^^"
END
NUMERO 17
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 26 3 ""
PICTURE "###.###.###^^^"
END
NUMERO 18
BEGIN
KEY "INTERESSI"
PROMPT 41 3 ""
PICTURE "###.###.###^^^"
END
NUMERO 19
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 55 3 ""
PICTURE "###.###.###^^^"
END
NUMERO 20
BEGIN
KEY "INTERESSI"
PROMPT 70 3 ""
PICTURE "###.###.###^^^"
END
NUMERO 21
BEGIN
KEY "SOPRATTASSA SU CSSN"
PROMPT 85 3 ""
PICTURE "###.###.###^^^"
END
END

268
m770/77qa3.frm Executable file
View File

@ -0,0 +1,268 @@
USE 58
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
END
DESCRIPTION
BEGIN
58->* "Quadro A3 770"
45->* "Anagrafica dei dipendenti"
9->* "Ditte"
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
108@->* "Anagrafica persone fisiche (ditta)"
113@->* "Comuni DITTA (nascita)"
213@->* "Comuni DITTA (residenza)"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 11
CARATTERE "X"
INIZIO_POS 3 2
FINE_POS 131
GRID "+++++++++-|"
END
SECTION HEADER FIRST 28
LISTA 1
BEGIN
KEY "Tipo anagrafica"
FLAGS "H"
FIELD 106@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END
STRINGA 2
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 13 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 40 13 ""
GROUP 2
FIELD 106@->RAGSOC
END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 40 13 ""
GROUP 1
FIELD 106@->RAGSOC[1,30]
END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 17 15 ""
GROUP 1
FIELD 106@->RAGSOC[31,50]
END
STRINGA 6
BEGIN
KEY "SESSO"
PROMPT 59 15 ""
GROUP 1
FIELD 108@->SESSO
END
STRINGA 7
BEGIN
KEY "DATA DI NASCITA"
PROMPT 67 15 ""
GROUP 1
FIELD 108@->DATANASC
END
STRINGA 8
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 15 ""
GROUP 1
FIELD 113@->DENCOM
END
STRINGA 9
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 126 15 ""
GROUP 1
FIELD 113@->PROVCOM
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 17 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 17 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 67 17 ""
FIELD 106@->INDRF
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 17 ""
FIELD 106@->CIVRF
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 123 17 ""
FIELD 106@->CAPRF
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 87 20 ""
END
NUMERO 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 25 ""
END
END
SECTION BODY ODD 6
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 11 1 ""
FIELD 45->CODFI
END
STRINGA 2
BEGIN
KEY "COGNOME"
PROMPT 42 1 ""
FIELD 45->COGNOME
END
STRINGA 3
BEGIN
KEY "NOME"
PROMPT 79 1 ""
FIELD 45->NOME
END
DATA 4
BEGIN
KEY "DATA NASCITA"
PROMPT 114 1 ""
FIELD 45->DATANA
FORMAT "1444-"
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 128 1 ""
FIELD 45->SESSO
END
STRINGA 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 11 3 ""
FIELD 45->COMUNENA
END
STRINGA 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 47 3 ""
FIELD 45->PROVNA
END
DATA 8
BEGIN
KEY "INIZIO RAPPORTO A TEMPO INDETERMINATO"
PROMPT 11 5 ""
FIELD 58->DIRAPTI
FORMAT "1444-"
PICTURE "## ^ ##^^^##"
END
NUMERO 9
BEGIN
KEY "NUMERO GIORNI IN INCREMENTO"
PROMPT 30 5 ""
FIELD 58->NGINC15
END
NUMERO 10
BEGIN
KEY "REDDITO CORRISPOSTO"
PROMPT 42 5 ""
MESSAGE ADD,FL->10
PICTURE "###.###.###.###^^^"
FIELD 58->REDCOR16
END
NUMERO 11
BEGIN
KEY "NUMERO GIORNI IN INCREMENTO"
PROMPT 64 5 ""
FIELD 58->NGINC17
END
NUMERO 12
BEGIN
KEY "REDDITO CORRISPOSTO"
PROMPT 76 5 ""
MESSAGE ADD,FL->12
PICTURE "###.###.###.###^^^"
FIELD 58->REDCOR18
END
END
SECTION FOOTER LAST 2
NUMERO 10
BEGIN
KEY "REDDITO CORRISPOSTO"
PROMPT 42 5 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 12
BEGIN
KEY "REDDITO CORRISPOSTO"
PROMPT 76 5 ""
PICTURE "###.###.###.###^^^"
END
END
END

120
m770/77stq.cpp
View File

@ -1757,10 +1757,11 @@ protected:
const TString& quadro() const { return _quadro; } const TString& quadro() const { return _quadro; }
TStampaQuadro(const char* quad, char liv); TStampaQuadro(const char* quad, char liv);
virtual ~TStampaQuadro() { }
public: public:
const TString& taitol() const { return _title; } const TString& taitol() const { return _title; }
virtual ~TStampaQuadro() { }
}; };
TStampaQuadro::TStampaQuadro(const char* quad, char liv) TStampaQuadro::TStampaQuadro(const char* quad, char liv)
@ -3293,7 +3294,7 @@ void TQuadroH::azzera_contatori()
class TQuadroA : public TDicForm class TQuadroA : public TDicForm
{ {
enum { QA_PAGINE = 4, QA_FORMLEN = 72 }; enum { QA_FORMLEN = 72 };
protected: protected:
virtual void next_page(TPrinter& pr); virtual void next_page(TPrinter& pr);
@ -3304,7 +3305,7 @@ protected:
virtual int elementi_pagina(PaginaQuadro p) const; virtual int elementi_pagina(PaginaQuadro p) const;
virtual int prima_riga(PaginaQuadro p) const; virtual int prima_riga(PaginaQuadro p) const;
virtual int riga_totali() const; virtual int riga_totali(PaginaQuadro p) const;
void stampa_corpo(TPrinter& pr); void stampa_corpo(TPrinter& pr);
void stampa_totali(TPrinter& pr); void stampa_totali(TPrinter& pr);
@ -3358,7 +3359,7 @@ void TQuadroA::next_page(TPrinter& pr)
int TQuadroA::elementi_pagina(PaginaQuadro p) const int TQuadroA::elementi_pagina(PaginaQuadro p) const
{ {
const int n[4] = { 1, 4, 4, 2 }; const int n[4] = { 1, 4, 4, 2 };
return n[p]; return n[p - PRIMA];
} }
int TQuadroA::prima_riga(PaginaQuadro p) const int TQuadroA::prima_riga(PaginaQuadro p) const
@ -3366,9 +3367,10 @@ int TQuadroA::prima_riga(PaginaQuadro p) const
return p == PRIMA ? 45 : 5; return p == PRIMA ? 45 : 5;
} }
int TQuadroA::riga_totali() const int TQuadroA::riga_totali(PaginaQuadro p) const
{ {
return 45; const int h = ((TQuadroA*)this)->section('B', odd_page).height();
return prima_riga(p) + elementi_pagina(p) * h;
} }
bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis) bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis)
@ -3446,7 +3448,7 @@ bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis
{ {
if (stampato_ultimo) if (stampato_ultimo)
{ {
jump_to_line(pr, riga_totali()); jump_to_line(pr, riga_totali(QUARTA));
stampa_totali(pr); stampa_totali(pr);
stampati_totali = TRUE; stampati_totali = TRUE;
} }
@ -3467,7 +3469,6 @@ class TStampaQuadroA : public TStampaQuadro
{ {
protected: protected:
TQuadroA* _form; TQuadroA* _form;
// TRelation* _rel;
TSorted_cursor* _cur; TSorted_cursor* _cur;
protected: protected:
@ -3487,17 +3488,6 @@ bool TStampaQuadroA::user_create()
{ {
_form = new TQuadroA("77QA", quadro()); _form = new TQuadroA("77QA", quadro());
/*
_rel = new TRelation(LF_QUAA);
_rel->add(LF_NDITTE, "CODDITTA=CODDITTA", 1, LF_QUAA);
_rel->add(LF_ANAG, "TIPOA=TIPOA|CODANAGR=CODANAGR", 1, LF_NDITTE, 106);
_rel->add(LF_ANAGFIS, "CODANAGR=CODANAGR", 1, LF_ANAG, 108);
_rel->add(LF_COMUNI, "COM==COMNASC", 1, LF_ANAGFIS, 113);
_rel->add(LF_COMUNI, "COM==COMRF(COMRES)", 1, LF_ANAG, 213);
_rel->add(LF_DIPEND, "CODDITTA=CODDITTA|CODDIP=CODDIP");
_rel->add("%CAF", "CODTAB=CODCAAF", 1, LF_QUAA, 104);
*/
TString sortkey(80); TString sortkey(80);
sortkey.format("CODDITTA|%d->COGNOME|%d->NOME|CODDIP", LF_DIPEND, LF_DIPEND); sortkey.format("CODDITTA|%d->COGNOME|%d->NOME|CODDIP", LF_DIPEND, LF_DIPEND);
_cur = new TSorted_cursor(_form->TForm::relation(), sortkey); _cur = new TSorted_cursor(_form->TForm::relation(), sortkey);
@ -3508,7 +3498,6 @@ bool TStampaQuadroA::user_create()
bool TStampaQuadroA::user_destroy() bool TStampaQuadroA::user_destroy()
{ {
delete _cur; delete _cur;
// delete _rel;
delete _form; delete _form;
return TRUE; return TRUE;
@ -3523,7 +3512,6 @@ class TQuadroA1 : public TQuadroA
protected: protected:
virtual int elementi_pagina(PaginaQuadro p) const; virtual int elementi_pagina(PaginaQuadro p) const;
virtual int prima_riga(PaginaQuadro p) const; virtual int prima_riga(PaginaQuadro p) const;
virtual int riga_totali() const;
public: public:
TQuadroA1(const char* form, const char* quadro) : TQuadroA(form, quadro) { } TQuadroA1(const char* form, const char* quadro) : TQuadroA(form, quadro) { }
@ -3533,17 +3521,12 @@ public:
int TQuadroA1::elementi_pagina(PaginaQuadro p) const int TQuadroA1::elementi_pagina(PaginaQuadro p) const
{ {
const int n[4] = { 3, 6, 6, 5 }; const int n[4] = { 3, 6, 6, 5 };
return n[p]; return n[p-PRIMA];
} }
int TQuadroA1::prima_riga(PaginaQuadro p) const int TQuadroA1::prima_riga(PaginaQuadro p) const
{ {
return p == PRIMA ? 32 : 5; return p == PRIMA ? 32 : 4;
}
int TQuadroA1::riga_totali() const
{
return 55;
} }
class TStampaQuadroA1 : public TStampaQuadroA class TStampaQuadroA1 : public TStampaQuadroA
@ -3567,6 +3550,81 @@ bool TStampaQuadroA1::user_create()
return TRUE; return TRUE;
} }
/////////////////////////////////////////////////////////////////////////////////
// Quadro A2
/////////////////////////////////////////////////////////////////////////////////
// Il form del quadro A2 e' sostanzialmente uguale a quello del quadro A1:
// per cui non necessita di una classe a parte
class TStampaQuadroA2 : public TStampaQuadroA
{
protected:
virtual bool user_create();
public:
TStampaQuadroA2(const char* quadro, char livel) : TStampaQuadroA(quadro, livel) { }
virtual ~TStampaQuadroA2() { }
};
bool TStampaQuadroA2::user_create()
{
_form = new TQuadroA1("77QA2", quadro());
TString sortkey(80);
sortkey.format("CODDITTA|%d->COGNOME|%d->NOME|CODDIP", LF_DIPEND, LF_DIPEND);
_cur = new TSorted_cursor(_form->TForm::relation(), sortkey);
return TRUE;
}
/////////////////////////////////////////////////////////////////////////////////
// Quadro A3
/////////////////////////////////////////////////////////////////////////////////
class TQuadroA3 : public TQuadroA
{
protected:
virtual int elementi_pagina(PaginaQuadro p) const;
virtual int prima_riga(PaginaQuadro p) const;
public:
TQuadroA3(const char* form, const char* quadro) : TQuadroA(form, quadro) { }
virtual ~TQuadroA3() { }
};
int TQuadroA3::elementi_pagina(PaginaQuadro p) const
{
const int n[4] = { 6, 10, 10, 9 };
return n[p-PRIMA];
}
int TQuadroA3::prima_riga(PaginaQuadro p) const
{
return p == PRIMA ? 32 : 4;
}
class TStampaQuadroA3 : public TStampaQuadroA
{
protected:
virtual bool user_create();
public:
TStampaQuadroA3(const char* quadro, char livel) : TStampaQuadroA(quadro, livel) { }
virtual ~TStampaQuadroA3() { }
};
bool TStampaQuadroA3::user_create()
{
_form = new TQuadroA3("77QA3", quadro());
TString sortkey(80);
sortkey.format("CODDITTA|%d->COGNOME|%d->NOME|CODDIP", LF_DIPEND, LF_DIPEND);
_cur = new TSorted_cursor(_form->TForm::relation(), sortkey);
return TRUE;
}
///////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////
// //
// MAIN // MAIN
@ -3594,6 +3652,8 @@ int stampa_quadro(int argc, char* argv[])
switch (quadro[1] - '0') switch (quadro[1] - '0')
{ {
case 1: app = new TStampaQuadroA1(quadro, livello); break; case 1: app = new TStampaQuadroA1(quadro, livello); break;
case 2: app = new TStampaQuadroA2(quadro, livello); break;
case 3: app = new TStampaQuadroA3(quadro, livello); break;
default: app = new TStampaQuadroA(quadro, livello); break; default: app = new TStampaQuadroA(quadro, livello); break;
} }
} }
@ -3616,8 +3676,12 @@ int stampa_quadro(int argc, char* argv[])
} }
*/ */
if (app != NULL) if (app != NULL)
{
app->run(argc, argv, app->taitol()); app->run(argc, argv, app->taitol());
delete app;
} }
}
return 0; return 0;
} }