Allargato menu principale

Aggiunti flag Z a tabelle


git-svn-id: svn://10.65.10.50/trunk@1154 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-03-23 17:14:42 +00:00
parent ca42d833f6
commit 1939bcdf88
3 changed files with 28 additions and 27 deletions

View File

@ -96,7 +96,7 @@ class TMenu_application : public TApplication
{ {
const char* _name; const char* _name;
enum { MAXLEVEL = 512 }; enum { MAXLEVEL = 1024 };
int _first[MAXLEVEL]; int _first[MAXLEVEL];
TArray _menu; // TAG|DESCRIPTION|ACTION TArray _menu; // TAG|DESCRIPTION|ACTION
TBit_array _enabled; TBit_array _enabled;
@ -379,7 +379,7 @@ int TMenu_application::do_level()
TToken_string& row = (TToken_string&)_menu[first]; TToken_string& row = (TToken_string&)_menu[first];
const TString80 head(row.get(1)); const TString80 head(row.get(1));
const int width = 74; const int width = 78;
const int height = 18; const int height = 18;
const int bwidth = 20; const int bwidth = 20;
const int x = width-bwidth-12; const int x = width-bwidth-12;

View File

@ -12,18 +12,18 @@ STRING F_CODICE 5
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB FIELD CODTAB
FLAGS "U" FLAGS "UZ"
KEY 1 KEY 1
USE %AGE USE %AGE
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @30" S0 DISPLAY "Descrizione @50" S0
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_DESCR 30 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 4 4 "Descrizione " PROMPT 4 4 "Descrizione "
FIELD LF_TABCOM->S0 FIELD LF_TABCOM->S0
@ -31,10 +31,9 @@ KEY 2
USE %AGE KEY 2 USE %AGE KEY 2
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
INPUT S0 F_DESCR INPUT S0 F_DESCR
DISPLAY "Descrizione @30" S0 DISPLAY "Descrizione 530" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB COPY OUTPUT F_CODICE
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END

View File

@ -37,10 +37,9 @@ BEGIN
KEY 2 KEY 2
END END
LIST F_TIPO 18 LIST F_TIPO 2 32
BEGIN BEGIN
PROMPT 4 5 "Tipo " PROMPT 4 5 "Tipo "
HELP "Inserire il tipo"
FIELD LF_TABCOM->I0 FIELD LF_TABCOM->I0
ITEM "1|Rimessa Diretta" ITEM "1|Rimessa Diretta"
ITEM "2|Tratta" ITEM "2|Tratta"
@ -49,6 +48,9 @@ BEGIN
ITEM "5|Paghero'" ITEM "5|Paghero'"
ITEM "6|Lettera di credito" ITEM "6|Lettera di credito"
ITEM "7|Tratta accettata" ITEM "7|Tratta accettata"
ITEM "8|Rapporti interbancari diretti"
ITEM "9|Bonifico"
ITEM "10|Altro"
END END
LIST F_INIZIOSCAD 12 LIST F_INIZIOSCAD 12