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

Patch level :2.0 nopatch

Browse Source 
Files correlati     :dl0.exe,dl0500a.msk,dl0500a.frm
Ricompilazione Demo : [ ]
Commento            :aggiunta la possibilita' di visualizzare l'etichetta sul form della
interrogazione avanzata (unico parametro che mancava)


git-svn-id: svn://10.65.10.50/trunk@11067 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2003-04-28 14:03:55 +00:00
parent 9bf6f70967
commit adafc99483
7 changed files with 37 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
dl/discolat.ini
View File

@ -15,6 +15,7 @@ USER =
ARTISTA = 1
BARCODE = 1
COMPOSITORE = 1
ETICHETTA = 1
GENERE = 1
GIAC = 1
PREZZO = 1

10
dl/dl0500.cpp
View File

@ -66,12 +66,13 @@ bool TRicerca_mask::on_field_event(TOperable_field& o, TField_event e, long joll
case F_P_TITOLO:
case F_P_ARTISTA:
case F_P_COMPOSITORE:
case F_P_ETICHETTA:
case F_P_PREZZO:
case F_P_GENERE:
case F_P_TIPOSUPPORTO:
if (e == fe_close)
{
for (int i = 7; i >= 0; i--) //attenzione! e' necessario che gli ID dei bools siano contigui
for (int i = 8; i >= 0; i--) //attenzione! e' necessario che gli ID dei bools siano contigui
{
if (get_bool(F_P_BARCODE+i))
break;
@ -105,7 +106,7 @@ class TRicerca: public TSkeleton_application
{
TRicerca_mask * _mask;
static TMask * _ordmask;
bool _barcode, _giac, _titolo, _artista, _compositore, _prezzo, _genere, _tiposupp;
bool _barcode, _giac, _titolo, _artista, _compositore, _etichetta, _prezzo, _genere, _tiposupp;
static TArray _filtro;
@ -147,6 +148,7 @@ bool TRicerca::create()
_titolo = config.get_bool("TITOLO");
_artista = config.get_bool("ARTISTA");
_compositore = config.get_bool("COMPOSITORE");
_etichetta = config.get_bool("ETICHETTA");
_prezzo = config.get_bool("PREZZO");
_genere = config.get_bool("GENERE");
_tiposupp = config.get_bool("TIPOSUPP");
@ -155,6 +157,7 @@ bool TRicerca::create()
_mask->set(F_P_TITOLO, _titolo);
_mask->set(F_P_ARTISTA, _artista);
_mask->set(F_P_COMPOSITORE, _compositore);
_mask->set(F_P_ETICHETTA, _etichetta);
_mask->set(F_P_PREZZO, _prezzo);
_mask->set(F_P_GENERE, _genere);
_mask->set(F_P_TIPOSUPPORTO, _tiposupp);
@ -379,6 +382,7 @@ void TRicerca::main_loop()
_titolo = _mask->get_bool(F_P_TITOLO);
_artista = _mask->get_bool(F_P_ARTISTA);
_compositore = _mask->get_bool(F_P_COMPOSITORE);
_etichetta = _mask->get_bool(F_P_ETICHETTA);
_prezzo = _mask->get_bool(F_P_PREZZO);
_genere = _mask->get_bool(F_P_GENERE);
_tiposupp = _mask->get_bool(F_P_TIPOSUPPORTO);
@ -390,6 +394,7 @@ void TRicerca::main_loop()
config.set("TITOLO", _titolo);
config.set("ARTISTA", _artista);
config.set("COMPOSITORE", _compositore);
config.set("ETICHETTA", _etichetta);
config.set("PREZZO", _prezzo);
config.set("GENERE", _genere);
config.set("TIPOSUPP", _tiposupp);
@ -427,6 +432,7 @@ void TRicerca::main_loop()
form.find_field('B', odd_page, FF_B_TITOLO).show(_titolo);
form.find_field('B', odd_page, FF_B_ARTISTA).show(_artista);
form.find_field('B', odd_page, FF_B_COMPOSITORE).show(_compositore);
form.find_field('B', odd_page, FF_B_ETICHETTA).show(_etichetta);;
form.find_field('B', odd_page, FF_B_PREZZO).show(_prezzo);
form.find_field('B', odd_page, FF_B_GENERE).show(_genere);
form.find_field('B', odd_page, FF_B_SUPPORTO).show(_tiposupp);

1
dl/dl0500.h
View File

@ -8,6 +8,7 @@
#define FF_B_GENERE 16
#define FF_B_SUPPORTO 17
#define FF_B_COMPOSITORE 18
#define FF_B_ETICHETTA 19
#define FF_DATE 21
#define FF_PAGE 22

26
dl/dl0500a.frm
View File

@ -32,7 +32,7 @@ END
//-----------------------riga tipo uno---------------------------------------------------//
SECTION BODY ODD 1 COLUMNWISE
STRINGA FF_B_CODART 20
STRINGA FF_B_CODART 16
BEGIN
KEY "codart"
PROMPT 1 1 "$[b]"
@ -48,7 +48,7 @@ BEGIN
PROMPT 2 1 "$[n]"
END
NUMERO FF_B_GIAC 7
NUMERO FF_B_GIAC 6
BEGIN
KEY "giacenza"
PROMPT 2 1 ""
@ -68,7 +68,7 @@ BEGIN
FIELD DESCR
END
STRINGA FF_B_ARTISTA 18
STRINGA FF_B_ARTISTA 22
BEGIN
KEY "artista"
PROMPT 4 1 ""
@ -78,7 +78,7 @@ BEGIN
FIELD USER2
END
STRINGA FF_B_COMPOSITORE 18
STRINGA FF_B_COMPOSITORE 15
BEGIN
KEY "compositore"
PROMPT 5 1 ""
@ -88,10 +88,20 @@ BEGIN
FIELD USER3
END
VALUTA FF_B_PREZZO 10
STRINGA FF_B_ETICHETTA 10
BEGIN
KEY "etichetta"
PROMPT 6 1 ""
SPECIAL STRINGA INTESTAZIONE "Etichetta" "Etichetta"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
FIELD USER4
END
VALUTA FF_B_PREZZO 7
BEGIN
KEY "prezzo articolo"
PROMPT 6 1 ""
PROMPT 7 1 ""
SPECIAL STRINGA INTESTAZIONE "Prezzo" "Prezzo"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
@ -102,7 +112,7 @@ END
STRINGA FF_B_GENERE 3
BEGIN
KEY "genere"
PROMPT 7 1 ""
PROMPT 8 1 ""
SPECIAL STRINGA INTESTAZIONE "Gen" "Genere"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
@ -112,7 +122,7 @@ END
STRINGA FF_B_SUPPORTO 3
BEGIN
KEY "supporto"
PROMPT 8 1 ""
PROMPT 9 1 ""
SPECIAL STRINGA INTESTAZIONE "Sup" "Tipo supporto"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"

1
dl/dl0500a.h
View File

@ -22,4 +22,5 @@
#define F_P_PREZZO 120
#define F_P_GENERE 121
#define F_P_TIPOSUPPORTO 122
#define F_P_ETICHETTA 123

11
dl/dl0500a.uml
View File

@ -149,19 +149,24 @@ BEGIN
PROMPT 2 15 "Compositore"
END
BOOL F_P_ETICHETTA
BEGIN
PROMPT 25 15 "Etichetta"
END
BOOL F_P_PREZZO
BEGIN
PROMPT 25 15 "Prezzo"
PROMPT 2 16 "Prezzo"
END
BOOL F_P_GENERE
BEGIN
PROMPT 2 16 "Genere"
PROMPT 25 16 "Genere"
END
BOOL F_P_TIPOSUPPORTO
BEGIN
PROMPT 25 16 "Tipo supporto"
PROMPT 48 13 "Tipo supporto"
END
BUTTON DLG_OK 10 2

73
dl/dl0800.cpp
View File

@ -61,79 +61,6 @@ void TCat2dl_file::set_config(const char * listingr,const char * listven, const
_codiva = codiva;
}
/*
int TCat2dl_file::autosave(TRelation& rel, const TRecord_text& rec)
{
const TString& type = rec.type(); //prendo il tracciato record del tipo del record_text
TTracciato_record& tr = *t_rec(type);
TArray& a_tc = tr.tracciati_campo();
const int items = a_tc.items();
TString valore;
for (int i = 0; i < items; i++)
{
const TTracciato_campo& tc = tr.get(i);
if (tc.field().name().not_empty())
{
const TFieldref& field = tc.field();
// if (field.file()==0)
// field.set_file(rel.lfile().num());
valore = rec.row(i);
// formatta il campo del file di testo secondo le specifiche del campo su file isam
preformat_field(field,valore,rel,tr.type());
const TRectype& rel_rec = rel.curr(field.file());
TFieldtypes tipo_campo = rel_rec.type(field.name());
switch(tipo_campo) //in base al tipo di campo formatta i valori seguendo le specifiche del tracciato
{
case _datefld: //tipo data...
{
if (real::is_null(valore))
valore.cut(0);
else
{
TDate data(valore);
format_date(data, fpicture(tc), valore);//formatta la data secondo le specifiche del tracciato
}
}
break;
case _realfld: //tipi numerici
case _intfld:
case _longfld:
{
const real numero(valore);
valore = numero.string(fpicture(tc));//formatta il numero secondo le specifiche del tracciato
int length = flength(tc,rel_rec);
if (falign(tc) == 'L')
valore.left_just(length, ffiller(tc));
else
valore.right_just(length, ffiller(tc));
}
break;
default:
valore = format_field(tc, rel.lfile().num(), valore);//formatta il campo secondo le specifiche del record
if (valore.blank() && field.name()=="CODIVA") //se il codice iva e' vuoto...
valore = _codiva;
break;
}
if (rel.exist(field.file()))
field.write(valore, rel);//faccio una write sulla relazione del fieldref
}
}
int err = NOERR;
if (pre_writerel(rel,rec))
{
err= rel.write();
if (err == _isdupkey || err ==_isreinsert)
err = rel.rewrite();
}
return err;
}
*/
bool TCat2dl_file::pre_writerel(TRelation& rel,const TRecord_text& rec)
{
if (rel.curr().get("CODIVA").blank())