campo-sirio/vd/vd1300.uml

#include "vd1300.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_CODNUM 4
BEGIN
  PROMPT 2 2 "Numerazione scontrini "
  FLAGS "UZ"
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  FIELD CODNUM
  CHECKTYPE REQUIRED
END

STRING F_DESNUM 50 35
BEGIN
  PROMPT 32 2 ""
  USE %NUM KEY 2
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM
  CHECKTYPE NORMAL
END

STRING F_OPERATORE 8
BEGIN
  PROMPT 2 4 "Operatore "
  USE OPD
  INPUT CODTAB F_OPERATORE
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_OPERATORE CODTAB
  OUTPUT F_OPERATORE_DESCR S0
  FIELD USERNAME
  CHECKTYPE REQUIRED
  FLAGS "UZ"
END

STRING F_OPERATORE_DESCR 50
BEGIN
  PROMPT 27 4 ""
  USE OPD KEY 2
  INPUT S0 F_OPERATORE_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@8" CODTAB 
  COPY INPUT F_OPERATORE
  CHECKTYPE NORMAL
END

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

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

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

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

ENDPAGE

ENDMASK