#include "ps0398100a.h"

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

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 F_CODMAG 3
BEGIN
  PROMPT 2 9 "Magazzino "
  USE MAG
  INPUT CODTAB F_CODMAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODMAG CODTAB
  OUTPUT F_DESMAG S0
  CHECKTYPE REQUIRED
END

STRING F_DESMAG 50
BEGIN
  PROMPT 24 9 ""
  USE MAG KEY 2
  INPUT S0 F_DESMAG
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODMAG
END

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

ENDPAGE

TOOLBAR "" 0 0 0 2

#include <elabar.h>

ENDPAGE

ENDMASK