#include "si0400a.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_OK 9 2
BEGIN
  PROMPT -12 -11 ""
END

BUTTON DLG_QUIT 9 2
BEGIN
  PROMPT -22 -11 ""
END

ENDPAGE

PAGE "Invio dati" -1 -1 78 20

GROUPBOX DLG_NULL 77 8
BEGIN
  PROMPT 1 1 "Opzioni per invio"
END

STRING F_FILESEQ 52
BEGIN
  PROMPT 2 3 "Nome file sequenza  "
  CHECKTYPE REQUIRED
  VALIDATE FILENAME_FUNC
  FLAGS "A"
  WARNING "E' necessario specificare un nome di file"
END

STRING F_FILEMOV 52
BEGIN
  PROMPT 2 5 "Nome file movimenti "
  CHECKTYPE REQUIRED
  VALIDATE FILENAME_FUNC
  FLAGS "A"
  WARNING "E' necessario specificare un nome di file"
END

DATE F_DATAINI
BEGIN
  PROMPT 2 7 "Data iniziale       "
  HELP "Data iniziale"
END

DATE F_DATAFIN
BEGIN
  PROMPT 40 7 "Data finale "
  HELP "Data finale"
END

GROUPBOX DLG_NULL 77 7
BEGIN
  PROMPT 1 9 "Codici di elaborazione"
END

STRING F_CODICE_ELAB1 8
BEGIN
  PROMPT 2 10 ""
  FLAG "U"
  USE %ELD SELECT I0 == 3
  INPUT CODTAB F_CODICE_ELAB1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@55" S0
  OUTPUT F_CODICE_ELAB1 CODTAB
  OUTPUT F_DESC_ELAB1 S0
  CHECKTYPE REQUIRED
  WARNING "E' necessario specificare il codice elaborazione"
END

STRING F_DESC_ELAB1 50
BEGIN
  PROMPT 15 10 ""
  USE %ELD KEY 2 SELECT I0 == 3
  INPUT S0 F_DESC_ELAB1
  DISPLAY "Descrizione@55" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODICE_ELAB1
END

STRING F_CODICE_ELAB2 8
BEGIN
  PROMPT 2 11 ""
  FLAG "U"
  USE %ELD SELECT I0 == 3
  INPUT CODTAB F_CODICE_ELAB2
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@55" S0
  OUTPUT F_CODICE_ELAB2 CODTAB
  OUTPUT F_DESC_ELAB2 S0
END

STRING F_DESC_ELAB2 50
BEGIN
  PROMPT 15 11 ""
  USE %ELD KEY 2 SELECT I0 == 3
  INPUT S0 F_DESC_ELAB2
  DISPLAY "Descrizione@55" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODICE_ELAB2
END

STRING F_CODICE_ELAB3 8
BEGIN
  PROMPT 2 12 ""
  FLAG "U"
  USE %ELD SELECT I0 == 3
  INPUT CODTAB F_CODICE_ELAB3
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@55" S0
  OUTPUT F_CODICE_ELAB3 CODTAB
  OUTPUT F_DESC_ELAB3 S0
END

STRING F_DESC_ELAB3 50
BEGIN
  PROMPT 15 12 ""
  USE %ELD KEY 2 SELECT I0 == 3
  INPUT S0 F_DESC_ELAB3
  DISPLAY "Descrizione@55" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODICE_ELAB3
END

STRING F_CODICE_ELAB4 8
BEGIN
  PROMPT 2 13 ""
  FLAG "U"
  USE %ELD SELECT I0 == 3
  INPUT CODTAB F_CODICE_ELAB4
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@55" S0
  OUTPUT F_CODICE_ELAB4 CODTAB
  OUTPUT F_DESC_ELAB4 S0
END

STRING F_DESC_ELAB4 50
BEGIN
  PROMPT 15 13 ""
  USE %ELD KEY 2 SELECT I0 == 3
  INPUT S0 F_DESC_ELAB4
  DISPLAY "Descrizione@55" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODICE_ELAB4
END
STRING F_CODICE_ELAB5 8
BEGIN
  PROMPT 2 14 ""
  FLAG "U"
  USE %ELD SELECT I0 == 3
  INPUT CODTAB F_CODICE_ELAB5
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@55" S0
  OUTPUT F_CODICE_ELAB5 CODTAB
  OUTPUT F_DESC_ELAB5 S0
END

STRING F_DESC_ELAB5 50
BEGIN
  PROMPT 15 14 ""
  USE %ELD KEY 2 SELECT I0 == 3
  INPUT S0 F_DESC_ELAB5
  DISPLAY "Descrizione@55" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODICE_ELAB5
END

STRING F_PROVENIENZA 4
BEGIN
   PROMPT 2 17 "Codice provenienza "
END

ENDPAGE
ENDMASK