campo-sirio/ps/ps0430400a.uml

#include "ps0430400a.h"

PAGE "Importazione CBA" -1 -1 66 7

STRING F_DIR 256 50
BEGIN
  PROMPT 1 1 "Cartella "
  DSELECT
  CHECKTYPE REQUIRED
END

STRING F_CLI 256 50
BEGIN
  PROMPT 1 2 "Clienti  "
  FLAGS "B"
  CHECKTYPE REQUIRED
END

STRING F_FAT 256 50
BEGIN
  PROMPT 1 3 "Fatture  "
  FLAGS "B"
  CHECKTYPE REQUIRED
END

STRING F_NUM 4
BEGIN
  PROMPT 1 4 "Codice numerazione fatture "
  USE %NUM SELECT I1=2
  INPUT CODTAB F_NUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NUM CODTAB
  CHECKTYPE REQUIRED
END

STRING F_CDC 20
BEGIN
  PROMPT 1 5 "Codice commessa            "
  USE LF_COMMESSE
  INPUT CODCMS F_CDC
  DISPLAY "Codice@20" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CDC CODCMS
  CHECKTYPE REQUIRED
  FLAGS "Z"
END

STRING DLG_PROFILE 256 50
BEGIN
  PROMPT 1 6 "Profilo "
  PSELECT
  FLAGS "H"
END

ENDPAGE

TOOLBAR "" 0 0 0 2
#include <elabar.h>
ENDPAGE

ENDMASK