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

Sostituito anno con attuale /precedente

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@924 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-01-26 18:06:53 +00:00
parent 6caf3d9476
commit e79b928b51
2 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
ba/ba5.cpp
View File

@ -1,6 +1,7 @@
#include <applicat.h>
#include <mask.h>
#include <isam.h>
#include <relation.h>
#include <sheet.h>
#include <utility.h>
#include <urldefid.h>
@ -62,12 +63,12 @@ void TSoci_sheet::add_socio(const TString& codice,
class TQuery_socio
{
TString _tipo; // tipo = F | G
int _anno; // anno
TString _carica; // codice carica
TString _qualifica; // richiesta qualifica
TString _q740; // quadro 740
TString _q750; // quadro 750
TString16 _tipo; // tipo = F | G
TString16 _attprec; // {A}ttuale / {P}recedente
TString16 _carica; // codice carica
TString16 _qualifica; // richiesta qualifica
TString16 _q740; // quadro 740
TString16 _q750; // quadro 750
public:
TQuery_socio(const TMask* mask);
@ -79,7 +80,7 @@ public:
TQuery_socio::TQuery_socio(const TMask* mask)
{
_tipo = mask->get(LST_SC1_TIPOASOC);
_anno = atoi(mask->get(FLD_SC1_ANNO));
_attprec = mask->get(FLD_SC1_ANNO);
_carica = mask->get(FLD_SC1_CODCAR);
_qualifica = mask->get(LST_SC1_RICQUAL);
_q740 = mask->get(LST_SC2_Q740);
@ -89,7 +90,7 @@ TQuery_socio::TQuery_socio(const TMask* mask)
int TQuery_socio::test(const TRectype& r) const
{
if (_tipo != r.get("TIPOASOC")) return 1;
if (_anno > 0 && _anno != r.get_int("ANNO")) return 2;
if (_attprec.not_empty()&& _attprec != r.get("ATTPREC")) return 2;
if (_carica.not_empty() && _carica != r.get("CODCAR")) return 3;
if (_qualifica.not_empty() && _qualifica != r.get("RICQUAL")) return 4;
if (_q740.not_empty() && _q740 != r.get("Q740")) return 5;
@ -105,7 +106,7 @@ class TQuery_application : public TApplication
{
const TPrinter* _printer;
TLocalisamfile* _soci;
TRelation* _soci;
TLocalisamfile* _anag;
TLocalisamfile* _ditte;
TMask* _mask;
@ -132,7 +133,7 @@ TQuery_application::TQuery_application() : _mask(NULL)
void TQuery_application::create_files()
{
_soci = new TLocalisamfile(LF_SOCI); _soci->setkey(3);
_soci = new TRelation(LF_SOCI); _soci->lfile().setkey(3);
_anag = new TLocalisamfile(LF_ANAG);
_ditte = new TLocalisamfile(LF_NDITTE);
}
@ -209,7 +210,7 @@ bool TQuery_application::do_query()
TRectype& ditte = _ditte->curr();
soci.zero();
_mask->autosave();
_mask->autosave(_soci);
for (_soci->read(_isgteq); !_soci->eof(); _soci->next()) // Fill sheet
{
if (query.test(soci) == 0)
@ -247,7 +248,7 @@ bool TQuery_application::do_query()
TString nome(r.get());
TToken_string h(128);
h.add("Anno");
h.add("A/P ");
h.add(head(ditte, "CODDITTA", "Codice"));
h.add(head(ditte, "RAGSOC", "Ragione sociale"));
h.add("Carica|Qualifica|740|750");
@ -264,7 +265,7 @@ bool TQuery_application::do_query()
if (codice != soci.get("CODANAGRSO")) break;
if (query.test(soci) != 0) continue;
row = soci.get("ANNO");
row = soci.get("ATTPREC");
ditte.zero();
row.add(soci.get("CODDITTA"));
ditte.put("CODDITTA", row.get(1));

13
ba/ba5000.uml
View File

@ -1,6 +1,6 @@
#include "ba4600.h"
PAGE "Ricerca soci" -1 -1 42 9
PAGE "Ricerca soci" -1 -1 50 9
RADIOBUTTON LST_SC1_TIPOASOC 12
BEGIN
@ -11,12 +11,13 @@ BEGIN
ITEM "G|Giuridica"
END
NUMBER FLD_SC1_ANNO 4
LIST FLD_SC1_ANNO 12
BEGIN
PROMPT 20 2 "Anno "
HELP "Anno su cui effettuare la ricerca"
FIELD LF_SOCI->ANNO
FLAGS "A"
PROMPT 20 2 "Attuali/Prec. "
FIELD LF_SOCI->ATTPREC
ITEM " |Tutti"
ITEM "A|Attuali"
ITEM "P|Precedenti"
END
STRING FLD_SC1_CODCAR 2