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

Rimodernata interfaccia utente distinta base e risolti problemucci per DBService

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@22783 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2013-01-25 08:39:10 +00:00
parent 505d6ce4a8
commit 11621eed74
6 changed files with 364 additions and 359 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
db/db0500.cpp
View File

@ -8,7 +8,9 @@
#include <relapp.h> #include <relapp.h>
#include <sheet.h> #include <sheet.h>
#include <treectrl.h> #include <treectrl.h>
#include <toolfld.h>
#include <utility.h> #include <utility.h>
#include <urldefid.h>
#include "db0.h" #include "db0.h"
#include "../mg/mglib.h" #include "../mg/mglib.h"
@ -242,7 +244,7 @@ protected:
void remove_desc(const TMask& m); void remove_desc(const TMask& m);
public: public:
TRelation & relation() {return *_therel;} TRelation& relation() { return *_therel; }
}; };
TDistinta_app& app() TDistinta_app& app()
@ -366,7 +368,7 @@ void TQuery_mask::create_browse1(TEdit_field& kfld, int level, short key_id) con
while (scan.pop() != "EN") while (scan.pop() != "EN")
kfld.parse_item(scan); kfld.parse_item(scan);
xvt_fsys_removefile(tmp); tmp.fremove();
} }
void TQuery_mask::create_browse2(TEdit_field& kfld, int level, short key_id, short des_id) const void TQuery_mask::create_browse2(TEdit_field& kfld, int level, short key_id, short des_id) const
@ -399,7 +401,7 @@ void TQuery_mask::create_browse2(TEdit_field& kfld, int level, short key_id, sho
while (scan.pop() != "EN") while (scan.pop() != "EN")
kfld.parse_item(scan); kfld.parse_item(scan);
xvt_fsys_removefile(tmp); tmp.fremove();
} }
bool TQuery_mask::ask_new_code(const TCodice_articolo& oldcode, TCodice_articolo& newcode) const bool TQuery_mask::ask_new_code(const TCodice_articolo& oldcode, TCodice_articolo& newcode) const
@ -410,7 +412,8 @@ bool TQuery_mask::ask_new_code(const TCodice_articolo& oldcode, TCodice_articolo
const int last_level = _livart.last_level(); const int last_level = _livart.last_level();
const int width = last_level > 0 ? _livart.packed_length(last_level)+last_level*3+16 : 38; const int width = last_level > 0 ? _livart.packed_length(last_level)+last_level*3+16 : 38;
TMask m(TR("Copia articolo/distinta"), 1, width, 5); TMask m(TR("Copia articolo/distinta"), 1, width, 5);
m.add_button_tool(DLG_OK, "", TOOL_OK);
m.add_button_tool(DLG_CANCEL, "", TOOL_CANCEL);
m.add_static(DLG_NULL, 0, PR("Vecchio codice "), 1, 1); m.add_static(DLG_NULL, 0, PR("Vecchio codice "), 1, 1);
m.add_static(DLG_NULL, 0, PR("Nuovo codice "), 1, 2); m.add_static(DLG_NULL, 0, PR("Nuovo codice "), 1, 2);
int tab0 = 16; int tab0 = 16;
@ -453,8 +456,6 @@ bool TQuery_mask::ask_new_code(const TCodice_articolo& oldcode, TCodice_articolo
m.set(101, oldcode); m.set(101, oldcode);
m.set(201, newcode); m.set(201, newcode);
} }
m.add_button(DLG_OK, 0, "", -12, -1, 10, 2);
m.add_button(DLG_CANCEL, 0, "", -22, -1, 10, 2);
if (m.run() == K_ENTER) if (m.run() == K_ENTER)
{ {
@ -649,7 +650,7 @@ bool TQuery_mask::copy_distinct(const TCodice_articolo& oldcode,
bool TQuery_mask::restart_tree() bool TQuery_mask::restart_tree()
{ {
if (!_tree.restart()) if (!_tree.restart())
return FALSE; return false;
int d =get_int(F_MIN_DEPTH); int d =get_int(F_MIN_DEPTH);
int dir=1; // direzione di scorrimento albero int dir=1; // direzione di scorrimento albero
do do
@ -682,7 +683,7 @@ bool TQuery_mask::restart_tree()
TTree_field& tf = tfield(F_TREE); TTree_field& tf = tfield(F_TREE);
tf.win().update_thumb(0, 0); tf.win().update_thumb(0, 0);
tf.win().force_update(); tf.win().force_update();
return TRUE; return true;
} }
bool TQuery_mask::on_field_event(TOperable_field& o, TField_event e, long jolly) bool TQuery_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
@ -752,14 +753,14 @@ bool TQuery_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{ {
_tree.curr_id(_curr); _tree.curr_id(_curr);
TCodice_articolo code; _tree.curr_code(code); TCodice_articolo code; _tree.curr_code(code);
set(F_CODICE, code); set(F_CODICE, code, 0x2);
} }
break; break;
case DLG_SELECT: case DLG_SELECT:
if (e == fe_button) if (e == fe_button)
{ {
const TString& str = get(F_CODICE); const TString& str = get(F_CODICE);
if (str.not_empty()) if (str.full())
set(F_CODICEQ, str); set(F_CODICEQ, str);
else else
return false; return false;
@ -829,7 +830,7 @@ bool TQuery_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
if (_tree.goto_root()) if (_tree.goto_root())
{ {
TIndwin iw(0, caption, FALSE, FALSE); TIndwin iw(0, caption, false, false);
_tree.explode(a.rows_array(), mb, gr, md, fi, sk, sp); _tree.explode(a.rows_array(), mb, gr, md, fi, sk, sp);
} }
a.run(); a.run();
@ -900,7 +901,7 @@ bool TQuery_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
default: default:
break; break;
} }
return TRUE; return true;
} }
bool TQuery_mask::redraw_tree(TField_event e) bool TQuery_mask::redraw_tree(TField_event e)
@ -914,9 +915,9 @@ bool TQuery_mask::redraw_tree(TField_event e)
return on_field_event((TOperable_field &)field(F_CODICE), fe_modify, 0l); return on_field_event((TOperable_field &)field(F_CODICE), fe_modify, 0l);
} }
restart_tree(); restart_tree();
return TRUE; return true;
} }
return FALSE; return false;
} }
@ -980,7 +981,7 @@ void TDistinta_mask::sheetrighe_get(TSheet_field &fld_righe, int item)
{ {
TDistinta_mask &m=(TDistinta_mask &)fld_righe.mask(); TDistinta_mask &m=(TDistinta_mask &)fld_righe.mask();
// prende il record della riga corrente dal record array // prende il record della riga corrente dal record array
TRectype &rec= fld_righe.record()->row(item, TRUE); TRectype &rec= fld_righe.record()->row(item, true);
TToken_string &row= fld_righe.row(item-1); TToken_string &row= fld_righe.row(item-1);
// codici di livello // codici di livello
row.add(m._livelli_giac->unpack_grpcode(rec.get("LIVELLO") ,1),fld_righe.cid2index(F_LIV1) ); row.add(m._livelli_giac->unpack_grpcode(rec.get("LIVELLO") ,1),fld_righe.cid2index(F_LIV1) );
@ -993,7 +994,7 @@ void TDistinta_mask::sheetrighe_put(TSheet_field &fld_righe, int item)
TDistinta_mask &m=(TDistinta_mask &)fld_righe.mask(); TDistinta_mask &m=(TDistinta_mask &)fld_righe.mask();
TToken_string &row= fld_righe.row(item-1); TToken_string &row= fld_righe.row(item-1);
TRectype &recrighe= fld_righe.record()->row(item, TRUE); TRectype &recrighe= fld_righe.record()->row(item, true);
// codici livello // codici livello
if (m._livelli_giac->enabled()) if (m._livelli_giac->enabled())
{ {
@ -1103,8 +1104,8 @@ void TDistinta_mask::set_um_rif(int row)
if (r == row) if (r == row)
{ {
priga->add("X", chk); priga->add("X", chk);
set(F_UM, priga->get(cod), TRUE); set(F_UM, priga->get(cod), true);
set(F_FCUMART, priga->get(fc), TRUE); set(F_FCUMART, priga->get(fc), true);
} }
else else
priga->add("", chk); priga->add("", chk);
@ -1128,7 +1129,7 @@ bool TDistinta_mask::on_unitsheet_event(TOperable_field& o, TField_event e, long
break; break;
case se_query_add: case se_query_add:
if (!get_bool(F_VIRTUALE)) if (!get_bool(F_VIRTUALE))
return FALSE; return false;
break; break;
case se_notify_add: case se_notify_add:
if (jolly == 0L) if (jolly == 0L)
@ -1192,7 +1193,7 @@ bool TDistinta_mask::on_distsheet_event(TOperable_field& o, TField_event e, long
if (!code.blank()) if (!code.blank())
{ {
if (!test_row(row)) if (!test_row(row))
return FALSE; return false;
for (int m = n - 1; m >= 0; m--) for (int m = n - 1; m >= 0; m--)
{ {
const TToken_string& row = sheet.row(m); const TToken_string& row = sheet.row(m);
@ -1324,7 +1325,7 @@ bool TDistinta_mask::on_distsheet_event(TOperable_field& o, TField_event e, long
default: default:
break; break;
} }
return TRUE; return true;
} }
bool TDistinta_mask::on_parmsheet_event(TOperable_field& o, TField_event e, long jolly) bool TDistinta_mask::on_parmsheet_event(TOperable_field& o, TField_event e, long jolly)
@ -1350,7 +1351,7 @@ bool TDistinta_mask::on_parmsheet_event(TOperable_field& o, TField_event e, long
TDistinta_expr e; TDistinta_expr e;
const TTypeexp exprtype = _tree.get_var_type(var); const TTypeexp exprtype = _tree.get_var_type(var);
if (!e.set(expr, exprtype)) if (!e.set(expr, exprtype))
return FALSE; return false;
for (int v = e.numvar()-1; v >= 0; v--) for (int v = e.numvar()-1; v >= 0; v--)
{ {
@ -1367,7 +1368,7 @@ bool TDistinta_mask::on_parmsheet_event(TOperable_field& o, TField_event e, long
default: default:
break; break;
} }
return TRUE; return true;
} }
@ -1405,7 +1406,7 @@ bool TDistinta_mask::on_field_event(TOperable_field& o, TField_event e, long jol
{ {
case 'A': case 'A':
{ {
set(F_TIPO, "A", TRUE); set(F_TIPO, "A", true);
const TArticolo mag(code); const TArticolo mag(code);
set(F_DESCR, mag.get(ANAMAG_DESCR)); set(F_DESCR, mag.get(ANAMAG_DESCR));
@ -1416,7 +1417,7 @@ bool TDistinta_mask::on_field_event(TOperable_field& o, TField_event e, long jol
break; break;
case 'L': case 'L':
{ {
set(F_TIPO, "L", TRUE); set(F_TIPO, "L", true);
const TLavorazione lav(code); const TLavorazione lav(code);
set(F_DESCR, lav.descr()); set(F_DESCR, lav.descr());
@ -1425,7 +1426,7 @@ bool TDistinta_mask::on_field_event(TOperable_field& o, TField_event e, long jol
} }
break; break;
default: default:
set(F_TIPO, "V", TRUE); set(F_TIPO, "V", true);
// le distinte virtuali non possono essere master // le distinte virtuali non possono essere master
break; break;
} }
@ -1465,7 +1466,6 @@ bool TDistinta_mask::on_field_event(TOperable_field& o, TField_event e, long jol
if (e == fe_button) if (e == fe_button)
{ {
TSheet_field& sheet = o.mask().sfield(F_SHEET); TSheet_field& sheet = o.mask().sfield(F_SHEET);
sheet.sort(); sheet.sort();
sheet.force_update(); sheet.force_update();
} }
@ -1619,7 +1619,7 @@ bool TDistinta_mask::on_field_event(TOperable_field& o, TField_event e, long jol
else else
{ {
if (yesno_box("Vuoi stampare le etichette")) if (yesno_box("Si desidera stampare le etichette"))
{ {
const long annoes = TDate(TODAY).year(); const long annoes = TDate(TODAY).year();
const TString codart(get(F_CODICE)); const TString codart(get(F_CODICE));
@ -1650,14 +1650,14 @@ bool TDistinta_mask::on_field_event(TOperable_field& o, TField_event e, long jol
} }
break; break;
} }
return TRUE; return true;
} }
TDistinta_mask::TDistinta_mask(TDistinta_tree& dt) TDistinta_mask::TDistinta_mask(TDistinta_tree& dt)
: TAutomask("db0500b"), _tree(dt) : TAutomask("db0500b"), _tree(dt)
{ {
TSheet_field& sf = sfield(F_SHEET); TSheet_field& sf = sfield(F_SHEET);
sf.set_append(FALSE); sf.set_append(false);
TMask& sm = sf.sheet_mask(); TMask& sm = sf.sheet_mask();
TString16 key; TString16 key;
int i; int i;
@ -1692,17 +1692,17 @@ TDistinta_mask::TDistinta_mask(TDistinta_tree& dt)
cache().test_file_changes(LF_TAB); cache().test_file_changes(LF_TAB);
} }
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
// TDistinta_app // TDistinta_app
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
bool TDistinta_app::user_create() bool TDistinta_app::user_create()
{ {
_therel = new TRelation(LF_DIST); _therel = new TRelation(LF_DIST);
_querymask = new TQuery_mask(_tree); _querymask = new TQuery_mask(_tree);
_themask = new TDistinta_mask(_tree); _themask = new TDistinta_mask(_tree);
return TRUE; return true;
} }
bool TDistinta_app::user_destroy() bool TDistinta_app::user_destroy()
@ -1710,21 +1710,21 @@ bool TDistinta_app::user_destroy()
delete _themask; delete _themask;
delete _querymask; delete _querymask;
delete _therel; delete _therel;
return TRUE; return true;
} }
void TDistinta_app::init_insert_mode(TMask &m) void TDistinta_app::init_insert_mode(TMask &m)
{ {
TSheet_field& f = m.sfield(F_UNITA); TSheet_field& f = m.sfield(F_UNITA);
if (f.items() == 0) if (f.empty())
f.row(0) = " |1"; // aggiunge una riga allo sheet f.row(0) = " |1"; // aggiunge una riga allo sheet
m.set(F_MASTER,"X"); m.set(F_MASTER,"X");
} }
bool TDistinta_app::changing_mask(int mode) bool TDistinta_app::changing_mask(int mode)
{ {
bool was_query = _mode == MODE_QUERY || _mode == MODE_QUERYINS; const bool was_query = _mode == MODE_QUERY || _mode == MODE_QUERYINS;
bool is_query = mode == MODE_QUERY || mode == MODE_QUERYINS; const bool is_query = mode == MODE_QUERY || mode == MODE_QUERYINS;
return was_query != is_query; return was_query != is_query;
} }
@ -1848,7 +1848,7 @@ bool TDistinta_app::parms2rel(const TMask& m)
// Azzera albero per rispecchiare eventuali modifiche // Azzera albero per rispecchiare eventuali modifiche
_querymask->restart_tree(); _querymask->restart_tree();
return TRUE; return true;
} }
void TDistinta_app::remove_desc(const TMask& m) void TDistinta_app::remove_desc(const TMask& m)
@ -1895,7 +1895,7 @@ int TDistinta_app::write(const TMask& m)
{ {
TSheet_field& f = m.sfield(F_UNITA); // prende lo sheet delle unità di misura TSheet_field& f = m.sfield(F_UNITA); // prende lo sheet delle unità di misura
f.record()->renum_key(UMART_CODART, m.get(F_CODICE)); f.record()->renum_key(UMART_CODART, m.get(F_CODICE));
err = f.record()->write(FALSE); err = f.record()->write(false);
} }
return err; return err;
} }
@ -1909,7 +1909,7 @@ int TDistinta_app::rewrite(const TMask& m)
{ {
TSheet_field& f= m.sfield(F_UNITA); // prende lo sheet delle unità di misura TSheet_field& f= m.sfield(F_UNITA); // prende lo sheet delle unità di misura
f.record()->renum_key(UMART_CODART, m.get(F_CODICE)); f.record()->renum_key(UMART_CODART, m.get(F_CODICE));
err = f.record()->write(TRUE); err = f.record()->write(true);
} }
return err; return err;
} }

1
db/db0500a.h
View File

@ -20,6 +20,7 @@
#define F_MIN_DEPTH 516 #define F_MIN_DEPTH 516
#define F_SORTA 517 #define F_SORTA 517
#define F_DESCRDIST 518 #define F_DESCRDIST 518
#define F_NOSOSP 519
#define F_DESCR 520 #define F_DESCR 520
#define F_ARTPROD 521 #define F_ARTPROD 521

590
db/db0500a.uml
View File

@ -1,295 +1,295 @@
#include "db0500a.h" #include "db0500a.h"
TOOLBAR "topbar" 0 0 0 2 TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_SELECT 10 2 BUTTON DLG_SELECT 10 2
BEGIN BEGIN
PROMPT -16 -11 "~Selezione" PROMPT -16 -11 "Modifica"
MESSAGE EXIT,K_ENTER MESSAGE EXIT,K_ENTER
PICTURE TOOL_MULTISEL PICTURE TOOL_EDIT
END END
BUTTON DLG_NEWREC 10 2 BUTTON DLG_NEWREC 10 2
BEGIN BEGIN
PROMPT -26 -11 "~Nuovo" PROMPT -26 -11 "~Nuovo"
MESSAGE EXIT,K_INS MESSAGE EXIT,K_INS
PICTURE TOOL_NEWREC PICTURE TOOL_NEWREC
END END
BUTTON DLG_DELREC 10 2 BUTTON DLG_DELREC 10 2
BEGIN BEGIN
PROMPT -36 -11 "~Elimina" PROMPT -36 -11 "~Elimina"
MESSAGE EXIT,K_DEL MESSAGE EXIT,K_DEL
PICTURE TOOL_DELREC PICTURE TOOL_DELREC
END END
BUTTON DLG_QUIT 10 2 BUTTON F_COPY 10 2
BEGIN BEGIN
PROMPT -66 -11 "~Fine" PROMPT -12 -11 "~Copia"
MESSAGE EXIT,K_QUIT PICTURE TOOL_COPY
PICTURE TOOL_QUIT END
END
BUTTON F_EXPLODE 10 2
ENDPAGE BEGIN
PROMPT -22 -11 "E~splodi"
TOOLBAR "" 0 -2 0 2 PICTURE TOOL_MULTISEL
END
BUTTON F_COPY 10 2
BEGIN #include <helpbar.h>
PROMPT -12 -11 "~Copia"
END ENDPAGE
BUTTON F_EXPLODE 10 2 PAGE "Distinta base" 0 2 0 0
BEGIN
PROMPT -22 -11 "E~splodi" STRING DLG_PROFILE 30
END BEGIN
FLAGS "H"
ENDPAGE PROMPT 1 1 ""
PSELECT
PAGE "Distinta base" 0 2 0 0 END
STRING DLG_PROFILE 30 STRING F_CODICE 20
BEGIN BEGIN
FLAGS "H" PROMPT 2 1 "Cerca "
PROMPT 1 1 "" FLAGS "GUP"
PSELECT USE LF_DIST
END JOIN LF_ANAMAG INTO CODART==CODDIST
INPUT CODDIST F_CODICE
STRING F_CODICE 20 DISPLAY "Codice@20" CODDIST
BEGIN DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
PROMPT 2 1 "Cerca " OUTPUT F_CODICE CODDIST
FLAGS "GU" OUTPUT F_DESCRDIST DESCR
USE LF_DIST CHECKTYPE REQUIRED
JOIN LF_ANAMAG INTO CODART==CODDIST FIELD CODDIST
INPUT CODDIST F_CODICE DEFAULT NONE
DISPLAY "Codice@20" CODDIST END
DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
OUTPUT F_CODICE CODDIST STRING F_DESCRDIST 50
OUTPUT F_DESCRDIST DESCR BEGIN
CHECKTYPE REQUIRED PROMPT 34 1 ""
FIELD CODDIST FLAGS "D"
DEFAULT NONE END
END
BOOLEAN F_NOSOSP
STRING F_DESCRDIST 50 BEGIN
BEGIN PROMPT 62 3 "Nascondi SOSPESI"
PROMPT 34 1 "" END
FLAGS "D"
END STRING F_CODICEQ 20
BEGIN
STRING F_CODICEQ 20 PROMPT 2 2 "Articolo "
BEGIN FIELD CODDIST
PROMPT 2 2 "Articolo " KEY 1
FIELD CODDIST USE LF_ANAMAG SELECT SOSPESO!=#F_NOSOSP
KEY 1 JOIN LF_UMART INTO CODART=CODART NRIGA=1
USE LF_ANAMAG INPUT CODART F_CODICEQ
JOIN LF_UMART INTO CODART=CODART NRIGA=1 DISPLAY "Codice@20" CODART
INPUT CODART F_CODICEQ DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice@20" CODART DISPLAY "Sospeso@C" SOSPESO
DISPLAY "Descrizione@50" DESCR OUTPUT F_CODICEQ CODART
OUTPUT F_CODICEQ CODART OUTPUT F_CODICE CODART
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD RUN ve2 -3 ADD RUN ve2 -3
MESSAGE COPY,F_CODICE FLAGS "U"
FLAGS "U" DEFAULT NONE
DEFAULT NONE END
END
STRING F_DESCR 50 40
STRING F_DESCR 50 40 BEGIN
BEGIN KEY 2
KEY 2 PROMPT 34 2 ""
PROMPT 34 2 "" USE LF_ANAMAG KEY 2 SELECT SOSPESO!=#F_NOSOSP
USE LF_ANAMAG KEY 2 JOIN LF_UMART INTO CODART=CODART NRIGA=1
JOIN LF_UMART INTO CODART=CODART NRIGA=1 INPUT DESCR F_DESCR
INPUT DESCR F_DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Descrizione@50" DESCR DISPLAY "Codice@20" CODART
DISPLAY "Codice@20" CODART DISPLAY "Sospeso@C" SOSPESO
OUTPUT F_CODICEQ CODART OUTPUT F_CODICEQ CODART
OUTPUT F_CODICE CODART OUTPUT F_CODICE CODART
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN ve2 -3 ADD RUN ve2 -3
FLAGS "U" FLAGS "U"
DEFAULT NONE DEFAULT NONE
END END
NUMBER F_SORT 1 NUMBER F_SORT 1
BEGIN BEGIN
PROMPT 2 3 "Ordinamento " PROMPT 2 3 "Ordinamento "
USE ORD USE ORD
INPUT CODTAB F_SORT INPUT CODTAB F_SORT
DISPLAY "Codice ordinamento" CODTAB DISPLAY "Codice ordinamento" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_SORT CODTAB OUTPUT F_SORT CODTAB
OUTPUT F_SORTDESC S0 OUTPUT F_SORTDESC S0
CHECKTYPE FORCED CHECKTYPE FORCED
FLAGS "U" FLAGS "U"
MESSAGE EMPTY "Immissione",F_SORTDESC MESSAGE EMPTY "Immissione",F_SORTDESC
DEFAULT NONE DEFAULT NONE
END END
STRING F_SORTDESC 30 STRING F_SORTDESC 30
BEGIN BEGIN
PROMPT 24 3 "" PROMPT 24 3 ""
FLAGS "D" FLAGS "D"
DEFAULT NONE DEFAULT NONE
END END
STRING F_VAR_CODMAG 3 STRING F_VAR_CODMAG 3
BEGIN BEGIN
FLAGS "U" FLAGS "U"
PROMPT 2 4 "Magazzino " PROMPT 2 4 "Magazzino "
USE MAG SELECT CODTAB[4,5]="" USE MAG SELECT CODTAB[4,5]=""
INPUT CODTAB F_VAR_CODMAG INPUT CODTAB F_VAR_CODMAG
DISPLAY "Magazzino" CODTAB DISPLAY "Magazzino" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_VAR_CODMAG CODTAB OUTPUT F_VAR_CODMAG CODTAB
CHECKTYPE FORCED CHECKTYPE FORCED
END END
STRING F_VAR_CODDEP 2 STRING F_VAR_CODDEP 2
BEGIN BEGIN
FLAGS "U" FLAGS "U"
PROMPT 22 4 "Deposito " PROMPT 22 4 "Deposito "
USE MAG USE MAG
INPUT CODTAB[1,3] F_VAR_CODMAG INPUT CODTAB[1,3] F_VAR_CODMAG
INPUT CODTAB[4,5] F_VAR_CODDEP INPUT CODTAB[4,5] F_VAR_CODDEP
DISPLAY "Magazzino" CODTAB[1,3] DISPLAY "Magazzino" CODTAB[1,3]
DISPLAY "Deposito" CODTAB[4,5] DISPLAY "Deposito" CODTAB[4,5]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_VAR_CODMAG CODTAB[1,3] OUTPUT F_VAR_CODMAG CODTAB[1,3]
OUTPUT F_VAR_CODDEP CODTAB[4,5] OUTPUT F_VAR_CODDEP CODTAB[4,5]
CHECKTYPE FORCED CHECKTYPE FORCED
END END
STRING F_VAR_IMPIANTO 5 STRING F_VAR_IMPIANTO 5
BEGIN BEGIN
FLAGS "U" FLAGS "U"
PROMPT 2 5 "Impianto " PROMPT 2 5 "Impianto "
USE IMP USE IMP
INPUT CODTAB F_VAR_IMPIANTO INPUT CODTAB F_VAR_IMPIANTO
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUPUT F_VAR_IMPIANTO CODTAB OUPUT F_VAR_IMPIANTO CODTAB
MESSAGE CHECK, F_VAR_LINEA MESSAGE CHECK, F_VAR_LINEA
CHECKTYPE FORCED CHECKTYPE FORCED
END END
STRING F_VAR_LINEA 5 STRING F_VAR_LINEA 5
BEGIN BEGIN
FLAGS "U" FLAGS "U"
PROMPT 22 5 "Linea " PROMPT 22 5 "Linea "
USE LNP USE LNP
INPUT CODTAB F_VAR_LINEA INPUT CODTAB F_VAR_LINEA
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Impianto" S6 DISPLAY "Impianto" S6
OUPUT F_VAR_LINEA CODTAB OUPUT F_VAR_LINEA CODTAB
OUPUT F_VAR_IMPIANTO S6 OUPUT F_VAR_IMPIANTO S6
CHECKTYPE SEARCH CHECKTYPE SEARCH
END END
STRING F_VAR_LIV1 10 STRING F_VAR_LIV1 10
BEGIN BEGIN
FLAGS "U" FLAGS "U"
PROMPT 2 6 "Livello 1 " PROMPT 2 6 "Livello 1 "
USE GCG USE GCG
INPUT CODTAB[1] "1" INPUT CODTAB[1] "1"
INPUT CODTAB[2,20] F_VAR_LIV1 INPUT CODTAB[2,20] F_VAR_LIV1
DISPLAY "Codice " CODTAB[2,20] DISPLAY "Codice " CODTAB[2,20]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUPUT F_VAR_LIV1 CODTAB[2,20] OUPUT F_VAR_LIV1 CODTAB[2,20]
CHECKTYPE FORCED CHECKTYPE FORCED
END END
STRING F_VAR_LIV2 6 STRING F_VAR_LIV2 6
BEGIN BEGIN
FLAGS "U" FLAGS "U"
PROMPT 25 6 "Livello 2" PROMPT 25 6 "Livello 2"
USE GCG USE GCG
INPUT CODTAB[1] "2" INPUT CODTAB[1] "2"
INPUT CODTAB[2,20] F_VAR_LIV2 INPUT CODTAB[2,20] F_VAR_LIV2
DISPLAY "Codice " CODTAB[2,20] DISPLAY "Codice " CODTAB[2,20]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUPUT F_VAR_LIV2 CODTAB[2,20] OUPUT F_VAR_LIV2 CODTAB[2,20]
CHECKTYPE FORCED CHECKTYPE FORCED
END END
STRING F_VAR_LIV3 6 STRING F_VAR_LIV3 6
BEGIN BEGIN
FLAGS "U" FLAGS "U"
PROMPT 44 6 "Livello 3" PROMPT 44 6 "Livello 3"
USE GCG USE GCG
INPUT CODTAB[1] "3" INPUT CODTAB[1] "3"
INPUT CODTAB[2,20] F_VAR_LIV3 INPUT CODTAB[2,20] F_VAR_LIV3
DISPLAY "Codice " CODTAB[2,20] DISPLAY "Codice " CODTAB[2,20]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUPUT F_VAR_LIV3 CODTAB[2,20] OUPUT F_VAR_LIV3 CODTAB[2,20]
CHECKTYPE FORCED CHECKTYPE FORCED
END END
STRING F_VAR_LIV4 6 STRING F_VAR_LIV4 6
BEGIN BEGIN
FLAGS "U" FLAGS "U"
PROMPT 64 6 "Livello 4" PROMPT 64 6 "Livello 4"
USE GCG USE GCG
INPUT CODTAB[1] "4" INPUT CODTAB[1] "4"
INPUT CODTAB[2,20] F_VAR_LIV4 INPUT CODTAB[2,20] F_VAR_LIV4
DISPLAY "Codice " CODTAB[2,20] DISPLAY "Codice " CODTAB[2,20]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUPUT F_VAR_LIV4 CODTAB[2,20] OUPUT F_VAR_LIV4 CODTAB[2,20]
CHECKTYPE FORCED CHECKTYPE FORCED
END END
TREE F_TREE -3 -1 TREE F_TREE -3 -1
BEGIN BEGIN
PROMPT 0 7 "" PROMPT 0 7 ""
END END
ENDPAGE ENDPAGE
PAGE "Visualizza" -1 -1 80 20 PAGE "Opzioni" -1 -1 80 20
BOOL F_HIDE_GHOST BOOL F_HIDE_GHOST
BEGIN BEGIN
FLAGS "FD" FLAGS "FD"
PROMPT 2 2 "Nascondi le distinte virtuali non di produzione" PROMPT 2 2 "Nascondi le distinte virtuali non di produzione"
DEFAULT NONE DEFAULT NONE
END END
GROUPBOX DLG_NULL 78 8 GROUPBOX DLG_NULL 78 8
BEGIN BEGIN
PROMPT 1 3 "@bDescrizione" PROMPT 1 3 "@bDescrizione"
END END
STRING F_DESCR_SEP 1 STRING F_DESCR_SEP 1
BEGIN BEGIN
PROMPT 2 4 "Separatore descrizione " PROMPT 2 4 "Separatore descrizione "
END END
BOOL F_SHOW_QTA BOOL F_SHOW_QTA
BEGIN BEGIN
PROMPT 2 5 "Mostra quantita'" PROMPT 2 5 "Mostra quantita'"
END END
BOOL F_SHOW_LIV1 BOOL F_SHOW_LIV1
BEGIN BEGIN
PROMPT 2 6 "Mostra livello giacenza 1" PROMPT 2 6 "Mostra livello giacenza 1"
END END
BOOL F_SHOW_LIV2 BOOL F_SHOW_LIV2
BEGIN BEGIN
PROMPT 2 7 "Mostra livello giacenza 2" PROMPT 2 7 "Mostra livello giacenza 2"
END END
BOOL F_SHOW_LIV3 BOOL F_SHOW_LIV3
BEGIN BEGIN
PROMPT 2 8 "Mostra livello giacenza 3" PROMPT 2 8 "Mostra livello giacenza 3"
END END
BOOL F_SHOW_LIV4 BOOL F_SHOW_LIV4
BEGIN BEGIN
PROMPT 2 9 "Mostra livello giacenza 4" PROMPT 2 9 "Mostra livello giacenza 4"
END END
NUMBER F_MIN_DEPTH 1 NUMBER F_MIN_DEPTH 1
BEGIN BEGIN
PROMPT 2 11 "Espandi almeno al livello " PROMPT 2 11 "Espandi almeno al livello "
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

23
db/db0500b.uml
View File

@ -6,9 +6,9 @@ ENDPAGE
PAGE "Distinta" -1 -1 80 20 PAGE "Distinta" -1 -1 80 20
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 1 0 "Distinta" PROMPT 1 0 "@bDistinta"
END END
STRING F_CODICE 20 STRING F_CODICE 20
@ -19,7 +19,6 @@ BEGIN
FIELD CODDIST FIELD CODDIST
END END
LIST F_TIPO 1 12 LIST F_TIPO 1 12
BEGIN BEGIN
PROMPT 54 1 "Tipo " PROMPT 54 1 "Tipo "
@ -41,14 +40,9 @@ BEGIN
FIELD VIRTUALE FIELD VIRTUALE
END END
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 1 2 ""
END
STRING F_DESCR 50 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 2 3 "Descrizione " PROMPT 2 2 "Descrizione "
FIELD DESCR FIELD DESCR
GROUP 1 GROUP 1
FLAGS "D" FLAGS "D"
@ -56,10 +50,15 @@ END
ZOOM F_NOTE 50 ZOOM F_NOTE 50
BEGIN BEGIN
PROMPT 2 4 "Annotazioni " PROMPT 2 3 "Annotazioni "
FIELD NOTE FIELD NOTE
END END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 4 ""
END
BOOLEAN F_ARTPROD BOOLEAN F_ARTPROD
BEGIN BEGIN
PROMPT 2 5 "Articolo di produzione" PROMPT 2 5 "Articolo di produzione"
@ -137,9 +136,9 @@ BEGIN
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
BUTTON F_SORTA 15 BUTTON F_SORTA 17
BEGIN BEGIN
PROMPT 60 7 "Ordina per codice" PROMPT 58 7 "Ordina per codice"
END END
NUMBER F_SORT 1 NUMBER F_SORT 1

11
db/db0500c.uml
View File

@ -78,14 +78,17 @@ BEGIN
ITEM "5|Raggruppa all'unita' di misura di distinta" ITEM "5|Raggruppa all'unita' di misura di distinta"
END END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL 10 2 #include <helpbar.h>
BEGIN
PROMPT -22 -1 "" ENDPAGE
END
ENDMASK ENDMASK

20
db/db0500d.uml
View File

@ -1,5 +1,15 @@
#include "db0500a.h" #include "db0500a.h"
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
#include <helpbar.h>
ENDPAGE
PAGE "Movimenti" -1 -1 80 21 PAGE "Movimenti" -1 -1 80 21
DATE F_DATAREG DATE F_DATAREG
@ -155,15 +165,7 @@ BEGIN
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN CG0 -1 ADD RUN CG0 -1
END END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 10 2 ENDPAGE
BEGIN
PROMPT -22 -1 ""
END
ENDMASK ENDMASK