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

Inizio 770/A

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3073 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1996-06-24 10:04:03 +00:00
parent b88c9f10b6
commit e4d3c74d11
1 changed files with 81 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

88
m770/77stq.cpp
View File

@ -3278,8 +3278,79 @@ class TQuadroH : public TDicForm
void TQuadroH::azzera_contatori()
{
_rC2t = _rC3t = ZERO;
}
//---------------------------------------------------------------------------------------
// Quadro 770/A
// almeno credo
// -------------------------------------------------------------------------------------
class TQuadroA : public TDicForm
{
private:
public:
virtual bool UsaSortedCursor() { return FALSE; }
// virtual bool print(const long codditta, const long numfis=0L, const long numnofis=0L);
// virtual void inc_curr_page();
// virtual void next_page(TPrinter& pr);
TQuadroA(const char* form, const char* quadro) : TDicForm(form, quadro) {}
virtual ~TQuadroA() {}
};
class TStampaQuadroA : public TStampaQuadro
{
private:
TQuadroA* _form;
TRelation* _rel;
TCursor* _cur;
protected:
virtual bool ContaTipiPer() const { return FALSE; }
virtual bool UsaSortedCursor() const { return FALSE; }
virtual TDicForm* get_form() const { return _form; }
virtual TDicForm* build_form();
virtual TCursor* build_cursor();
virtual TCursor* get_cursor() const { return _cur; }
virtual TRelation* get_relation() const { return _rel; }
virtual bool destroy();
// virtual void print();
public:
TStampaQuadroA(const char* quadro, const char livel) : TStampaQuadro(quadro,livel) {}
};
TDicForm* TStampaQuadroA::build_form()
{
_form = new TQuadroA("77QA", _quadro);
return _form;
}
TCursor* TStampaQuadroA::build_cursor()
{
_rel = new TRelation(LF_QUAF);
_rel->add(LF_RIGHEF, "CODDITTA=CODDITTA");
_rel->add(LF_NDITTE, "CODDITTA=CODDITTA", 1, LF_QUAF);
_rel->add(LF_ANAG, "TIPOA=TIPOA|CODANAGR=CODANAGR", 1, LF_NDITTE, 116);
_rel->add(LF_ANAGFIS, "CODANAGR=CODANAGR", 1, LF_ANAG, 118);
_rel->add(LF_COMUNI, "COM=COMNASC", 1, LF_ANAGFIS, 113);
_rel->add(LF_COMUNI, "COM=COMRF(COMRES)", 1, LF_ANAG, 213);
_cur = new TCursor(_rel);
return _cur;
}
bool TStampaQuadroA::destroy()
{
delete _m;
delete _rel;
delete _cur;
delete _cnf;
delete _form;
return TApplication::destroy();
}
/////////////////////////////////////////////////////////////////////////////////
//
// MAIN
@ -3288,6 +3359,7 @@ void TQuadroH::azzera_contatori()
// 772mod -4 [QUADRO] [ LIVELLO {S|D} ]
//
/////////////////////////////////////////////////////////////////////////////////
int stampa_quadro(int argc, char* argv[])
{
if (argc >= 4)
@ -3301,26 +3373,28 @@ int stampa_quadro(int argc, char* argv[])
TStampaQuadro app(quadro, livello);
app.run(argc, argv, app.taitol());
}
if (quadro == "F")
else if (quadro == "A")
{
TStampaQuadroA app(quadro, livello);
app.run(argc, argv, app.taitol());
}
else if (quadro == "F")
{
TStampaQuadroF app(quadro, livello);
app.run(argc, argv, app.taitol());
}
if (quadro == "G")
else if (quadro == "G")
{
TStampaQuadroG app(quadro, livello);
app.run(argc, argv, app.taitol());
}
if (quadro == "G1")
else if (quadro == "G1")
{
TStampaQuadroG1 app(quadro, livello);
app.run(argc, argv, app.taitol());
}
/*
if (quadro == "H")
else if (quadro == "H")
{
TStampaQuadroH app(quadro, livello);
app.run(argc, argv, app.taitol());