#include "ps6362100a.h"

TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 "~Elabora"
  PICTURE TOOL_ELABORA
END

#include <helpbar.h>
ENDPAGE

PAGE "Import/Export Major-Flexform" 0 2 0 0

RADIOBUTTON F_TIPODOC 64
BEGIN
  PROMPT 6 1 "@bSelezionare la funzione"
  ITEM "O|Importazione Ordini" MESSAGE DISABLE,1@|ENABLE,2@
  ITEM "D|Esportazione Bolle" MESSAGE ENABLE,1@|DISABLE,2@
  FLAG ""
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 5 "@bPercorso salvataggio file"
END

STRING F_FLDDEST 250 50
BEGIN
  PROMPT 2 6 "Cartella di destinazione"
  DSELECT
  GROUP 1
  CHECKTYPE REQUIRED
END

BOOLEAN F_SUBFLD
BEGIN
  PROMPT 2 7 "Crea sottocartella con data odierna"
  GROUP 1
END

STRING F_FLDSOURCE 250 50
BEGIN
  PROMPT 2 8 "Cartella caricamento    "
  DSELECT
  GROUP 2
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 66 6
BEGIN
   PROMPT 5 10 "@bEstremi dei documenti da elaborare:"
END

GROUPBOX DLG_NULL 25 4
BEGIN
  PROMPT 6 11 "@bSelezionare cod. numerazione"
END

STRING F_NUMDDT 4
BEGIN
  PROMPT 7 12 "DDT   "
  FLAG "U"
  USE %NUM
  INPUT CODTAB F_NUMDDT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NUMDDT CODTAB
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_NUMORD 4
BEGIN
  PROMPT 7 13 "ORDINI"
  FLAG "Z"
  USE %NUM
  INPUT CODTAB F_NUMORD
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NUMORD CODTAB
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_ANNO_ELAB 4
BEGIN
  PROMPT 32 11 "Anno elaborazione"
  FLAGS "D"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 32 12 "cod. cliente  "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Cod." CODCF
  DISPLAY "Rag. Soc.@50" RAGSOC
  OUTPUT F_CODCF CODCF
  FLAGS ""
END

NUMBER F_NUMDDT_DA 7
BEGIN
  PROMPT 32 13 "da num. doc. "
  USE LF_DOC
  JOIN %TIP ALIAS 104 INTO CODTAB=TIPODOC
  JOIN LF_CLIFO INTO TIPOCF=TIPOCF CODCF=CODCF
  INPUT PROVV "D"
  INPUT ANNO F_ANNO_ELAB SELECT
  INPUT CODNUM F_NUMDDT SELECT
  INPUT NDOC F_NUMDDT_DA
  DISPLAY "Numero" NDOC
  DISPLAY "Tipo@50" 104@->S0
  DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_NUMDDT_DA NDOC
  ADD RUN ve0 -0
  GROUP 1
END

NUMBER F_NUMDDT_A 7
BEGIN
  PROMPT 57 13 "a "
  COPY USE F_NUMDDT_DA
  INPUT PROVV "D"
  INPUT ANNO F_ANNO_ELAB SELECT
  INPUT CODNUM F_NUMDDT SELECT
  INPUT NDOC F_NUMDDT_A
  COPY DISPLAY F_NUMDDT_DA
  OUTPUT F_NUMDDT_A NDOC
  NUM_EXPR (#THIS_FIELD==0)||(#THIS_FIELD>=#F_NUMDDT_DA)
  WARNING "Specificare un numero documento superiore a quello di partenza"
  ADD RUN ve0 -0
  GROUP 1
END

ENDPAGE