campo-sirio/vd/vd1200.uml

#include "vd1200.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 "UZG"
END

STRING F_CASSA_DESCR 50
BEGIN
  PROMPT 15 2 ""
  FLAGS "D"
END

DATE F_DADATA
BEGIN
  PROMPT 2 3 "Dalla data   "
  FLAGS "A"
  FIELD DADATA
  CHECKTYPE REQUIRED
END

DATE F_ADATA
BEGIN
  PROMPT 2 4 "Alla data    "
  FLAGS "A"
  FIELD ADATA
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 5 "Numerazione scontrini "
  FLAGS "DG"
  USE %NUM
  INPUT CODTAB F_CODNUM
  OUTPUT F_DESNUM S0
  FIELD CODNUM
  CHECKTYPE NORMAL
END

STRING F_DESNUM 50 35
BEGIN
  PROMPT 30 5 ""
  FLAGS "D"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 6 ""
  FLAGD "HDGA"
  FIELD ANNO
END

STRING F_REPORT 256 56
BEGIN
  PROMPT 2 18 "Report       "
  FLAGS "B"
END

ENDPAGE

ENDMASK