campo-sirio/ba/bastban.uml
alex b2f490133a Modificati i nomi delle maschere delle tabelle comuni (tolto il %)
git-svn-id: svn://10.65.10.50/trunk@520 c028cbd2-c16b-5b4b-a496-9718f37d4682
1994-11-03 15:59:49 +00:00

72 lines
1.2 KiB
Plaintext
Executable File

#include "ba3200.h"
PAGE "Stampa banche" -1 -1 56 8
STRING F_INIZIO1 5
BEGIN
PROMPT 2 1 "DA codice (ABI) "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[1,5]
USE %BAN
INPUT CODTAB[1,5] F_INIZIO1
INPUT CODTAB[6,10] F_INIZIO2
DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10]
DISPLAY "Istituto@50" S0
DISPLAY "Dipendenza@35" S1
OUTPUT F_INIZIO1 CODTAB[1,5]
OUTPUT F_INIZIO2 CODTAB[6,10]
GROUP 1
END
STRING F_INIZIO2 5
BEGIN
PROMPT 28 1 "DA codice (CAB) "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[6,10]
COPY ALL F_INIZIO1
GROUP 1
END
STRING F_FINE1 5
BEGIN
PROMPT 2 3 "A codice (ABI) "
FLAGS "RZ"
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[1,5]
COPY USE F_INIZIO1
INPUT CODTAB[1,5] F_FINE1
INPUT CODTAB[6,10] F_FINE2
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB[1,5]
OUTPUT F_FINE2 CODTAB[6,10]
GROUP 2
END
STRING F_FINE2 5
BEGIN
PROMPT 28 3 "A codice (CAB) "
FLAGS "RZ"
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[6,10]
COPY ALL F_FINE1
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK