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

Menu di scelta profilo

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1453 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-06-07 10:45:50 +00:00
parent 32a6d821ce
commit e8a228d9f9
4 changed files with 157 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
ba/ba2100.cpp
View File

@ -60,13 +60,51 @@ bool TForm_editor::create()
code = atol(argv(a));
}
if (form)
if ((form && code) || (form && code == 0 && _extra))
{
_form = new TForm(form, code, _extra ? 2 : 1);
enable_menu_item(M_FILE_PRINT);
if (!_extra) dispatch_e_menu(MENU_ITEM(31));
}
else error_box("Specificare il form da modificare!");
else
{
TMask m("ba2100b");
if (form)
{
m.set(F_BASE, form);
m.disable(F_BASE);
}
if (code) m.set(F_CODE, code);
// choose form from mask
KEY k;
while ((k = m.run()) != K_ESC)
{
TString fform = m.get(F_BASE);
TString fdesc = m.get(F_DESC);
long fcode = m.get_long(F_CODE);
if (k == K_ENTER)
{
m.stop_run(K_ENTER);
_form = new TForm(fform, fcode, _extra ? 2 :1, fdesc);
_form->set_description(m.get(F_DESC));
enable_menu_item(M_FILE_PRINT);
if (!_extra) dispatch_e_menu(MENU_ITEM(31));
}
else if (k == K_DEL)
{
if (yesno_box("Confermare la cancellazione del "
"profilo %05ld", fcode))
{
// TBI remove form
}
}
}
// error_box("Specificare il form da modificare!");
}
return form != NULL;
}

6
ba/ba2100.h
View File

@ -39,6 +39,7 @@
#define F_GROUP23 153
#define F_GROUP24 154
// date format section
#define F_DFORMAT 160
#define F_DDAY 161
#define F_DMONTH 162
@ -47,6 +48,7 @@
#define F_DEXAMPLE 165
#define F_FILE 166
// file/field references
#define F_FIELDREF1 170
#define F_FILE1 171
#define F_BUT_FILE1 172
@ -67,3 +69,7 @@
#define F_DECIMALS 206
#define F_CAPTION 301
// maschera scelta form
#define F_BASE 401
#define F_CODE 402
#define F_DESC 403

64
ba/ba2100b.uml Executable file
View File

@ -0,0 +1,64 @@
#include "ba2100.h"
PAGE "Scelta profilo" -1 -1 67 6
STRING F_BASE 8
BEGIN
PROMPT 2 1 "Profilo base "
HELP "Specificare il nome del profilo di base utilizzato"
CHECKTYPE REQUIRED
END
NUMBER F_CODE 5
BEGIN
PROMPT 2 2 "Codice profilo "
FLAGS "Z"
HELP "Codice del profilo utente"
USE LF_FORM
// CHECKTYPE REQUIRED
INPUT TIPOPROF F_BASE
INPUT CODPROF F_CODE
FIELD CODPROF
DISPLAY "Profilo base" TIPOPROF
DISPLAY "Codice" CODPROF
DISPLAY "Descrizione@50" DESC
OUTPUT F_BASE TIPOPROF
OUTPUT F_CODE CODPROF
OUTPUT F_DESC DESC
END
STRING F_DESC 40
BEGIN
PROMPT 2 3 "Descrizione "
HELP "Descrizione profilo utente"
COPY USE F_CODE
INPUT TIPOPROF F_BASE
INPUT CODPROF F_CODE
FIELD DESC
DISPLAY "Profilo base" TIPOPROF
DISPLAY "Codice" CODPROF
DISPLAY "Descrizione@50" DESC
OUTPUT F_BASE TIPOPROF
OUTPUT F_CODE CODPROF
OUTPUT F_DESC DESC
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -23 -1 ""
MESSAGE EXIT,K_DEL
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -33 -1 ""
END
ENDPAGE
ENDMASK

50
ba/ba2100u.uml
View File

@ -1,14 +1,58 @@
#include "ba2100.h"
PAGE "Modifica sottosezione" -1 -1 52 5
PAGE "Modifica sottosezione" -1 -1 67 6
STRING F_CAPTION 40
STRING F_CAPTION 50
BEGIN
PROMPT 2 1 "Titolo "
PROMPT 2 1 "Titolo "
HELP "Specificare il titolo della sottosezione"
END
NUMBER F_WIDTH 2
BEGIN
PROMPT 2 2 "Larghezza "
HELP "Larghezza della sottosezione"
END
NUMBER F_HEIGHT 2
BEGIN
PROMPT 16 2 "Altezza "
HELP "Altezza della sottosezione"
END
NUMBER F_X 2
BEGIN
PROMPT 28 2 "Spost. orizz. "
HELP "Spostamento orizzontale sottosezione"
END
NUMBER F_Y 2
BEGIN
PROMPT 47 2 "Spost. vert. "
HELP "Spostamento verticale sottosezione"
END
STRING F_FILE1 50
BEGIN
PROMPT 2 3 "Archivio "
HELP "Nome dell'archivio su cui iterare la sottosezione"
// FLAGS "D"
END
BUTTON F_BUT_FILE1 2 1
BEGIN
PROMPT 63 3 "*"
PICTURE 109
END
STRING F_FIELDREF1 16
BEGIN
PROMPT 0 0 ""
FLAGS "H"
END
BUTTON DLG_OK 10 2
BEGIN