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

Corretta la visualizzazione della ragione sociale sullo sheet di selezione

Browse Source 
e allargata la maschera.


git-svn-id: svn://10.65.10.50/trunk@3018 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-06-18 16:20:29 +00:00
parent 645be19dfd
commit 2646b2c099
2 changed files with 15 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
ba/ba5.cpp
View File

@ -28,7 +28,7 @@ public:
}; };
TSoci_sheet::TSoci_sheet(bool fis) TSoci_sheet::TSoci_sheet(bool fis)
: TArray_sheet(-1,-1, 0, 0, "Soci", fis ? PHYSICAL_HEAD : JURASSIC_HEAD), : TArray_sheet(-1,-1, -4, -4, "Soci", fis ? PHYSICAL_HEAD : JURASSIC_HEAD),
_physical(fis) _physical(fis)
{} {}
@ -54,7 +54,8 @@ void TSoci_sheet::add_socio(const TString& codice,
} else t.add(ragione); } else t.add(ragione);
if (elem < 0) add(t); if (elem < 0) add(t);
else row(elem) = t; else
row(elem) = (TString&) t;
} }
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
@ -213,24 +214,15 @@ bool TQuery_application::do_query()
for (_soci->read(_isgteq); !_soci->eof(); _soci->next()) // Fill sheet for (_soci->read(_isgteq); !_soci->eof(); _soci->next()) // Fill sheet
{ {
if (query.test(soci) == 0) if (query.test(soci) == 0)
s.add_socio(soci.get("CODANAGRSO"), ""); {
} TString cur_codice = soci.get("CODANAGRSO"), ragsoc(80);
anag.zero();
TString ragsoc(80), anag.put("TIPOA", query.tipo());
cur_codice(10); anag.put("CODANAGR", cur_codice);
for (int i = 0; i < s.items(); i++) if (_anag->read() != NOERR) ragsoc = "Anagrafica assente";
{ else ragsoc = _anag->curr().get("RAGSOC");
s.add_socio(cur_codice, ragsoc);
TToken_string& t = (TToken_string&) s.row(i); }
t.restart();
cur_codice = t.get();
anag.zero();
anag.put("TIPOA", query.tipo());
anag.put("CODANAGR", cur_codice);
if (_anag->read() != NOERR) ragsoc = "Anagrafica assente";
else ragsoc = _anag->curr().get("RAGSOC");
s.add_socio(cur_codice, ragsoc, i);
} }
if (s.items() == 0) if (s.items() == 0)
@ -238,7 +230,7 @@ bool TQuery_application::do_query()
warning_box("Nessuna corrispondenza"); warning_box("Nessuna corrispondenza");
return TRUE; return TRUE;
} }
while(s.run() == K_ENTER) while(s.run() == K_ENTER)
{ {
TToken_string& r = s.row(); TToken_string& r = s.row();
@ -252,7 +244,7 @@ bool TQuery_application::do_query()
h.add(head(ditte, "RAGSOC", "Ragione sociale")); h.add(head(ditte, "RAGSOC", "Ragione sociale"));
h.add("Carica|Qualifica|740|750"); h.add("Carica|Qualifica|740|750");
h.add(head(soci, "PERCQUAZ", "% Quote")); h.add(head(soci, "PERCQUAZ", "% Quote"));
TArray_sheet d(-1,-1, 0, 0, nome, h); TArray_sheet d(-1,-1, -4, -4, nome, h);
soci.zero(); soci.zero();
soci.put("TIPOASOC", query.tipo()); soci.put("TIPOASOC", query.tipo());

2
ba/ba5000.uml
View File

@ -1,6 +1,6 @@
#include "ba4600.h" #include "ba4600.h"
PAGE "Ricerca soci" -1 -1 50 9 PAGE "Ricerca soci" -1 -1 54 9
RADIOBUTTON LST_SC1_TIPOASOC 20 RADIOBUTTON LST_SC1_TIPOASOC 20
BEGIN BEGIN