campo-sirio/src/vd/vd1100.uml
mtollari 1b14ec9415 Spostamento cartella sorgenti
git-svn-id: svn://10.65.10.50/branches/R_10_00@23236 c028cbd2-c16b-5b4b-a496-9718f37d4682
2016-09-09 13:59:02 +00:00

66 lines
801 B
Plaintext
Executable File

#include "vd1100.h"
TOOLBAR "" 0 0 0 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -14 -11 ""
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_INFO 10 2
BEGIN
PROMPT -24 -11 ""
END
BUTTON DLG_HELP 10 2
BEGIN
PROMPT -34 -11 ""
END
BUTTON DLG_QUIT 11 2
BEGIN
PROMPT -44 -11 ""
END
ENDPAGE
PAGE "Parametri stampa" 0 0 0 0
STRING F_CODCASSA 3
BEGIN
PROMPT 2 2 "Cassa "
USE CAS
INPUT CODTAB F_CODCASSA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_CODCASSA CODTAB
OUTPUT F_CASSA_DESCR S0
FIELD CODCASSA
CHECKTYPE REQUIRED
FLAGS "UZDG"
END
STRING F_CASSA_DESCR 50
BEGIN
PROMPT 15 2 ""
FLAGS "D"
END
DATE F_DATA
BEGIN
PROMPT 2 3 "Data "
FLAGS "A"
FIELD DATA
END
STRING F_REPORT 256 56
BEGIN
PROMPT 2 5 "Report "
FLAGS "B"
END
ENDPAGE
ENDMASK