#include "ve8100a.h"

TOOLBAR "" 0 0  0 2

BUTTON DLG_ELABORA 10 2
BEGIN
  PROMPT -1 -1 "~Elabora"
  PICTURE BMP_ELABORA
  MESSAGE EXIT,K_SAVE
END

#include <printbar.h>

ENDPAGE

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

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 1 "Selezione documenti"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 2 "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 2 ""
   HELP "Descrizione numerazione"
   USE %NUM KEY 2
   INPUT S0 F_DESNUM
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT F_CODNUM
END

NUMBER F_NUMINI 7
BEGIN
  PROMPT 2 3 "Documenti dal "
  WARNING "Il numero doc. iniziale e' obbligatorio"
  CHECKTYPE REQUIRED
  FIELD #DANUM
END

NUMBER F_NUMFIN 7
BEGIN
  PROMPT 28 3 "al "
  WARNING "Il numero doc. finale e' obbligatoria"
  CHECKTYPE REQUIRED
  FIELD #ANUM
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 6 "Opzioni per elaborazione"
END

DATE F_DATASCAD
BEGIN
  PROMPT 2 7 "Data scadenza "
  CHECKTYPE REQUIRED
  WARNING "La data di scadenza e' obbligatoria"
END

NUMBER F_CODABI 5
BEGIN
  PROMPT 2 8 "Codice ABI    "
  FLAGS "Z"
  USE %BAN SELECT CODTAB ?= "?????"
  INPUT CODTAB F_CODABI
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODABI CODTAB[1,5]
  CHECKTYPE REQUIRED
  WARNING "Codice ABI assente"
END

NUMBER F_CODCAB 5
BEGIN
  PROMPT 41 8 "Codice CAB "
  FLAGS "Z"
  USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
  INPUT CODTAB[1,5] F_CODABI
  INPUT CODTAB[6,10] F_CODCAB
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50"  S0
  OUTPUT F_CODABI CODTAB[1,5]
  OUTPUT F_CODCAB CODTAB[6,10]
  CHECKTYPE REQUIRED
  WARNING "Banca assente"
END

ENDPAGE
ENDMASK