campo-sirio/vd/vd1100.uml

#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