campo-sirio/ps/ps0713500a.uml

#include "ps0713500a.h"

TOOLBAR "" 0 0 0 2

#include <elabar.h>

ENDPAGE

PAGE "Inserimento fatture" 0 0 0 -3

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

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 1 "@bSorgente"
END

STRING F_PATH 256 50
BEGIN
  PROMPT 2 2 "Cartella     "
  DSELECT  
  FIELD ComInPath
  FLAGS "M"
  CHECKTYPE REQUIRED
END

STRING F_NAME 18
BEGIN
  PROMPT 2 3 "File (*.csv) "
  FSELECT "*.csv"
  FIELD ComInFile
  FLAGS "B"
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 90 3
BEGIN
  PROMPT 1 5 "@bCausale"
END

STRING F_CODCAU 3
BEGIN
  PROMPT 2 6 "Causale      "
  FIELD CODCAU
  FLAGS "UZ"
  USE LF_CAUSALI
  INPUT CODCAUS F_CODCAU
  DISPLAY "Cod." CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Documento" TIPODOC
  DISPLAY "Registro" REG
  DISPLAY "Tipo movimento" TIPOMOV
  OUTPUT F_CODCAU CODCAUS
  OUTPUT F_DESCAU DESCR
  CHECKTYPE REQUIRED  
END

STRING F_DESCAU 50
BEGIN
  PROMPT 25 6 "Descrizione  "
  FIELD DESCR
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DESCAU
  DISPLAY "Descrizione @50" DESCR
  DISPLAY "Cod." CODCAUS
  DISPLAY "Documento" TIPODOC
  DISPLAY "Registro" REG
  DISPLAY "Movimento" TIPOMOV
  COPY OUTPUT F_CODCAU  
END

ENDPAGE
ENDMASK