campo-sirio/ps/ps0330200a.uml

#include "ps0330200a.h"

PAGE "Esportazione disponibilita' via FTP" -1 -1 78 8

STRING F_CODLIS 3
BEGIN
  PROMPT 1 1 "Listino "
  USE CONDV 
  INPUT TIPO "L"
  INPUT COD F_CODLIS
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Inizio validita'" VALIN
  DISPLAY "Fine validit<69>" VALFIN
  OUTPUT F_CODLIS COD
  OUTPUT F_DESLIS DESCR
  CHECKTYPE NORMAL
END

STRING F_DESLIS 50
BEGIN
  PROMPT 22 1 ""
  USE CONDV KEY 2
  INPUT TIPO "L"
  INPUT DESCR F_DESLIS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" COD
  DISPLAY "Inizio validita'" VALIN
  DISPLAY "Fine validit<69>" VALFIN
  COPY OUTPUT F_CODLIS
  CHECKTYPE NORMAL
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 3 "Nome del file txt da esportare (SENZA estensione '.txt' !)"
END

STRING F_FILENAME 32
BEGIN
  PROMPT 1 4 ""
  CHECKTYPE REQUIRED
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 5 "Indirizzo ftp di destinazione (scritto come ftp://utente:password@sito)"
END

STRING F_FTP_PATH 255 75
BEGIN
  PROMPT 1 6 ""
  FLAGS "M"
  CHECKTYPE REQUIRED
END

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

ENDPAGE

TOOLBAR "" 0 0 0 2

#include <elabar.h>

ENDPAGE

ENDMASK