#include "ve8100a.h"

TOOLBAR "" 0 -5 0 4

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_ELABORA 10 2
BEGIN
  PROMPT -23 -1 "~Crea righe F24"
  PICTURE BMP_ELABORA
  MESSAGE EXIT,K_SAVE
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

PAGE "Lista ritenute per F24" -1 -1 78 14

DATE F_DATAINI
BEGIN
  PROMPT 2 1 "Documenti dal "
  WARNING "La data di inizio intervallo e' obbligatoria"
  FIELD #DADATA
END

DATE F_DATAFIN
BEGIN
  PROMPT 28 1 "al "
  WARNING "La data di fine intervallo e' obbligatoria"
  FIELD #ADATA
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 3 "Cod. num.     "
  FLAGS "U"
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Cod. Num." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  CHECKTYPE REQUIRED
  FIELD #NUM
END

STRING F_DESNUM 40
BEGIN
   PROMPT 25 3 ""
   HELP "Descrizione numerazione"
   USE %NUM KEY 2
   INPUT S0 F_DESNUM
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT F_CODNUM
END

ENDPAGE
ENDMASK