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

Patch level : 2.1 88

Browse Source 
Files correlati     : in0.exe in0100a.msk
Ricompilazione Demo : [ ]
Commento            : bug 0000037
Su stampa riepiloghi aggiunta possibilita' di stampare solo il frontespizio


git-svn-id: svn://10.65.10.50/trunk@12245 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2004-07-14 13:11:31 +00:00
parent 970decc936
commit a2eabd022e
3 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
in/in0100.cpp
View File

@ -29,6 +29,7 @@ class TStampaIntra_form : public TForm
real _totaleprog1, _totaleprog2; // Totale progressivo per pagina, sezioni 1 e 2 real _totaleprog1, _totaleprog2; // Totale progressivo per pagina, sezioni 1 e 2
int _decimals; int _decimals;
bool _solofronte;
protected: protected:
void print_page(const pagetype p); void print_page(const pagetype p);
@ -39,7 +40,7 @@ protected:
public: public:
void print(); void print();
TStampaIntra_form (const char* name, char t, char f, int p, int a); TStampaIntra_form (const char* name, char t, char f, int p, int a, bool sf);
virtual ~TStampaIntra_form (); virtual ~TStampaIntra_form ();
}; };
@ -67,12 +68,13 @@ bool TStampaIntra_form::validate(TForm_item& fld, TToken_string& val)
return TForm::validate(fld, val); return TForm::validate(fld, val);
} }
TStampaIntra_form::TStampaIntra_form(const char* name, char t, char f, int p, int a) : TForm(name) TStampaIntra_form::TStampaIntra_form(const char* name, char t, char f, int p, int a, bool sf) : TForm(name)
{ {
_tipo << t; _tipo << t;
_frequenza << f; _frequenza << f;
_periodo << p; _periodo << p;
_anno << a; _anno << a;
_solofronte = sf;
TRectype dep(cursor()->file(LF_RIEPRETT).curr()); TRectype dep(cursor()->file(LF_RIEPRETT).curr());
dep.zero(); dep.zero();
@ -312,7 +314,8 @@ void TStampaIntra_form::print()
arrange_form(); arrange_form();
// Ed ecco qui... il Lievito Svi$$ero (sempre per rimanere in tema di Ali' Baba' ed i 40 Kazzoni) // Ed ecco qui... il Lievito Svi$$ero (sempre per rimanere in tema di Ali' Baba' ed i 40 Kazzoni)
while (good()) bool verygood = good();
while (verygood)
{ {
for (int pagina = 1; pagina <= 4; pagina++) for (int pagina = 1; pagina <= 4; pagina++)
{ {
@ -331,8 +334,9 @@ void TStampaIntra_form::print()
default: default:
break; break;
} }
bool verygood = good(); verygood = good();
if (!verygood) if (_solofronte) verygood = FALSE;
if (!verygood || _solofronte)
break; break;
} }
} }
@ -354,6 +358,7 @@ protected:
virtual short type_field() const { return R_TIPO; } virtual short type_field() const { return R_TIPO; }
virtual short period_field() const { return R_PERIODO_M; } virtual short period_field() const { return R_PERIODO_M; }
virtual int anno() const { return get_int(R_ANNO); } virtual int anno() const { return get_int(R_ANNO); }
virtual bool solofronte() const { return get_bool(R_SOLOFRONTE); }
public: public:
void print(); void print();
@ -368,7 +373,7 @@ TStampaIntra_mask::TStampaIntra_mask()
void TStampaIntra_mask::print() void TStampaIntra_mask::print()
{ {
const int anno_s = anno(); const int anno_s = anno();
TStampaIntra_form form(tipo() == 'A' ? "in0100a" : "in0100b", tipo(), frequenza(anno_s), periodo(), anno_s); TStampaIntra_form form(tipo() == 'A' ? "in0100a" : "in0100b", tipo(), frequenza(anno_s), periodo(), anno_s, solofronte());
form.print(); form.print();
} }

1
in/in0100a.h
View File

@ -4,3 +4,4 @@
#define R_PERIODO_M 103 #define R_PERIODO_M 103
#define R_PERIODO_T 104 #define R_PERIODO_T 104
#define R_PERIODO_A 105 #define R_PERIODO_A 105
#define R_SOLOFRONTE 106

7
in/in0100a.uml
View File

@ -1,6 +1,6 @@
#include "in0100a.h" #include "in0100a.h"
PAGE "Stampa Riepiloghi" -1 -1 32 6 PAGE "Stampa Riepiloghi" -1 -1 32 8
LIST R_TIPO 1 10 LIST R_TIPO 1 10
BEGIN BEGIN
@ -42,6 +42,11 @@ BEGIN
MESSAGE COPY,R_PERIODO_M MESSAGE COPY,R_PERIODO_M
END END
BOOLEAN R_SOLOFRONTE
BEGIN
PROMPT 1 5 "Stampa solo il frontespizio"
END
BUTTON DLG_PRINT 10 2 BUTTON DLG_PRINT 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""