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

Allargato menu principale

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ba/ba0.cpp
View File

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

45
ba/batbage.uml
View File

@ -10,32 +10,31 @@ PAGE "Tabella Codici Agenti" -1 -1 78 8
STRING F_CODICE 5
BEGIN
PROMPT 4 2 "Codice "
FIELD CODTAB
FLAGS "U"
KEY 1
USE %AGE
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @30" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
PROMPT 4 2 "Codice "
FIELD CODTAB
FLAGS "UZ"
KEY 1
USE %AGE
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 30
STRING F_DESCR 50
BEGIN
PROMPT 4 4 "Descrizione "
FIELD LF_TABCOM->S0
KEY 2
USE %AGE KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @30" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
PROMPT 4 4 "Descrizione "
FIELD LF_TABCOM->S0
KEY 2
USE %AGE KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione 530" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
END
ENDPAGE

6
ba/batbcpg.uml
View File

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