#include "ve6300a.h"

PAGE "Generazione effetti" -1 -1 78 13

STRING F_CODICE_ELAB 8
BEGIN
  PROMPT 1 1 "Codice elaborazione "
  FLAG "U"
  USE %ELD SELECT I0==5
  INPUT CODTAB F_CODICE_ELAB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@55" S0
  OUTPUT F_CODICE_ELAB CODTAB
  OUTPUT F_DESC_ELAB S0
  CHECKTYPE REQUIRED
  WARNING "E' necessario specificare il codice elaborazione"
END

STRING F_DESC_ELAB 50 40
BEGIN
  PROMPT 34 1 ""
  USE %ELD KEY 2 SELECT I0==5
  INPUT S0 F_DESC_ELAB
  DISPLAY "Descrizione@55" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODICE_ELAB
  CHECKTYPE NORMAL
END

RADIOBUTTON F_ORDERBY 1 76
BEGIN
  PROMPT 1 2 "Sequenza di ordinamento"
  ITEM "0|Per data documento" 
  MESSAGE SHOW,1@|HIDE,2@
  ITEM "1|Per numero documento"
  MESSAGE SHOW,2@|HIDE,1@ 
  FLAGS "Z"
END

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 5 "Intervallo documenti"
END

DATE F_DATA_INI
BEGIN
  PROMPT 2 7 "Data iniziale      "
  CHECKTYPE REQUIRED
  WARNING "La data di inizio intervallo e' obbligatoria"
  GROUP 1
END

DATE F_DATA_FIN
BEGIN
  PROMPT 2 8 "Data finale        "
  CHECKTYPE REQUIRED
  WARNING "La data di fine intervallo e' obbligatoria"
  GROUP 1
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 6 "Anno "
  CHECKTYPE REQUIRED
  GROUP 2    
  FLAGS "A"
END

STRING F_CODNUM 3
BEGIN
  PROMPT 14 6 "Numerazione "
  FLAGS "BU"
  CHECKTYPE REQUIRED
  GROUP 2
END

STRING F_DESCNUM 50 40
BEGIN
  PROMPT 34 6 ""
  FLAGS "D"
  GROUP 2
END

NUMBER F_NDOC_INI 7
BEGIN
  PROMPT 2 7 "Documento iniziale  "
  USE LF_DOC
  JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF 
  INPUT PROVV "D"
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_NDOC_INI
  DISPLAY "Numero" NDOC
  DISPLAY "Data@10" DATADOC
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_NDOC_INI NDOC 
  CHECKTYPE REQUIRED
  WARNING "Numero documento errato"
  GROUP 2
END

NUMBER F_NDOC_FIN 7
BEGIN
  PROMPT 2 8 "Documento finale    "
  COPY USE F_NDOC_INI
  INPUT PROVV "D"
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_NDOC_FIN
  COPY DISPLAY F_NDOC_INI
  OUTPUT F_NDOC_FIN NDOC 
  CHECKTYPE NORMAL
  WARNING "Numero documento errato"
  GROUP 2
END


BOOLEAN F_RAGGRUPPA
BEGIN
  PROMPT 1 10 "Raggruppamento effetti"
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
  FLAGS "D"
END

BUTTON DLG_USER 10 2
BEGIN
  PROMPT -23 -1 "~Selezione"
  PICTURE BMP_SELECT
END

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

ENDPAGE

ENDMASK