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

Correzione MI2300.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4205 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-03-14 10:58:19 +00:00
parent 7cc7a27866
commit 27693cbbfc
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ba/ba3300a.uml
View File

@ -204,7 +204,17 @@ BEGIN
PROMPT 21 12 "Codice "
HELP "Codice del registro da numerare"
FLAGS "UZ"
COPY ALL F_ANNO
//COPY ALL F_ANNO
USE REG SELECT I0=#F_TIPOREG
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_CODICE
DISPLAY "Anno " CODTAB[1,4]
DISPLAY "Cod. reg." CODTAB[5,7]
DISPLAY "Descrizione@50" S0
DISPLAY "Tipo" I0
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_CODICE CODTAB[5,7]
OUTPUT F_REGISTRO S0
CHECKTYPE NORMAL
WARNING "Registro assente"
GROUP 1 3
@ -235,7 +245,17 @@ BEGIN
PROMPT 21 12 "Codice "
HELP "Codice del registro da numerare"
FLAGS "UZH"
COPY ALL F_ANNOREG
//COPY ALL F_ANNOREG
USE LF_TABREG SELECT TIPO=#F_TIPOREG
INPUT CODDITTA F_CODDITTA
INPUT ANNO F_ANNOREG
INPUT CODREG F_CODICEREG
DISPLAY "Anno " ANNO
DISPLAY "Cod. reg." CODREG
DISPLAY "Descrizione@50" DESCR
OUTPUT F_ANNOREG ANNO
OUTPUT F_CODICEREG CODREG
OUTPUT F_REGISTRO DESCR
CHECKTYPE NORMAL
WARNING "Registro assente"
GROUP 2 4