#include "ps0398100a.h"

PAGE "Trasferimento Ordini Web->Campo" -1 -1 78 10

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 1 "@bPath"
END

STRING F_PATH_SRC 255 50
BEGIN
  PROMPT 2 2 "Cartella origine      "
  DSELECT
  FLAGS "M"
  CHECKTYPE REQUIRED
  WARNING "Selezionare una cartella valida!"
END

STRING F_PATH_DST 255 50
BEGIN
  PROMPT 2 3 "Cartella destinazione "
  DSELECT
  FLAGS "M"
  CHECKTYPE REQUIRED
  WARNING "Selezionare una cartella valida!"
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 5 "@bParametri documenti da generare"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 6 "Numerazione "
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  CHECKTYPE REQUIRED
  FLAG "UPA"
  WARNING "Numerazione assente"
END

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

STRING F_TIPODOC 4
BEGIN
  PROMPT 2 7 "Tipo        "
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC CODTAB
  OUTPUT F_DESTIPODOC S0
  CHECKTYPE REQUIRED
  FLAG "UP"
END

STRING F_DESTIPODOC 50
BEGIN
  PROMPT 24 7 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 F_DESTIPODOC
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPODOC
END

STRING DLG_PROFILE 50
BEGIN
  PROMPT 1 -1 "Profilo "
  PSELECT
END

ENDPAGE

TOOLBAR "" 0 0 0 2

#include <elabar.h>

ENDPAGE

ENDMASK