campo-sirio/ps/pg0214200a.uml

#include "pg0214200a.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_OK 10 2
BEGIN
	PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
	PROMPT -22 -1 ""
END

STRING DLG_PROFILE 50
BEGIN
  PROMPT 9 0 "Profilo "
  PSELECT
  FLAGS "H"
END

ENDPAGE

PAGE "Importazione documenti Bonomo" -1 -1 76 19

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 1 "@bDitta corrente"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 2 "Codice      "
  FLAGS "FD"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 23 2 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 4 "@bParametri file da importare"
END

STRING F_PATH 255 60
BEGIN
  PROMPT 2 5 "Percorso "
  DSELECT
  FLAGS "M"
  CHECKTYPE REQUIRED
  WARNING "Selezionare una cartella valida!"
  FIELD PATH
END

STRING F_NAME 60
BEGIN
  PROMPT 2 6 "Nome     "
  FSELECT "*.txt"
  CHECKTYPE REQUIRED
  FIELD NAME
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 8 "@bCausale"
END

STRING F_CODCAUS 4
BEGIN
  PROMPT 2 9 "Causale  "
  FLAGS "U"
  USE LF_CAUSALI
  INPUT CODCAUS F_CODCAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@60" DESCR
  OUTPUT F_CODCAUS CODCAUS
  OUTPUT F_DESCR DESCR
  CHECKTYPE REQUIRED
  ADD RUN cg0 -4
  FIELD CODCAUS
END

STRING F_DESCR 50
BEGIN
  PROMPT 20 9 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DESCR
  DISPLAY "Descrizione@60" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_CODCAUS
  CHECKTYPE SEARCH
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 11 "@bParametri IVA merce esente"
END

STRING F_CODIVA_ES 4
BEGIN
  PROMPT 2 12 "Cod. IVA "
  USE %IVA KEY 1
  FLAGS "U"
  INPUT CODTAB F_CODIVA_ES
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODIVA_ES CODTAB
  OUTPUT F_DES_CODIVA_ES S0
  CHECKTYPE NORMAL
  FIELD IVA_ESENTE
END

STRING F_DES_CODIVA_ES 50
BEGIN
  PROMPT 20 12 ""
  USE %IVA KEY 2
  INPUT S0 F_DES_CODIVA_ES 
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODIVA_ES
END

ENDPAGE

ENDMASK