campo-sirio/src/fp/fp0500a.uml

#include "fp0500a.h"

TOOLBAR "Relapbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Pag. 1" -1 -1 78 20

STRING F_CODICE 10
BEGIN
  PROMPT 1 1 "Codice "
  FIELD CODICE
  USE FPCUST
  INPUT CODICE F_CODICE
  DISPLAY "Codice" CODICE
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Globale@7" GLOBAL
  OUTPUT F_CODICE CODICE
  OUTPUT F_DESCR DESCR
  CHECKTYPE REQUIRED
  KEY 1
END

STRING F_DESCR 50
BEGIN
  PROMPT 25 1 "Descrizione "
  FIELD DESCR
  USE FPCUST
  INPUT DESCR F_CODICE
  DISPLAY "Codice" CODICE
  DISPLAY "Descrizione@50" DESCR
  COPY OUTPUT F_CODICE
  CHECKTYPE REQUIRED
  KEY 2
END

BOOLEAN F_GLOBAL
BEGIN
  PROMPT 1 2 "Configurazione globale"
  FIELD GLOBAL
END

SPREADSHEET F_CAUSALI 0 6
BEGIN
  PROMPT 1 3 "Causale"
  ITEM "Valore@50"
  ITEM "Condizione@50"
END

ENDPAGE

PAGE "Pag. 2" 0 2 0 0

SPREADSHEET F_ARTICOLI 0 6
BEGIN
  PROMPT 1 1 "Codice Articolo"
  ITEM "Tipo@35"
  ITEM "Valore@35"
  ITEM "Condizione@35"
END

SPREADSHEET F_ADG 0 6
BEGIN
  PROMPT 0 10 "Altri dati gestionali"
  ITEM "Tipo Dato@35"
  ITEM "Riferimento\nTesto@35"
  ITEM "Riferimento\nNumero@35"
  ITEM "Riferimento\nData@35"
  ITEM "Tipo riga@8"
  ITEM "Condizione@35"
  ITEM "Riga\nseparata@8"
END

ENDPAGE
ENDMASK

PAGE "Riga Causale" -1 -1 60 12

STRING S_CAUS_VALORE 250 50
BEGIN
  PROMPT 1 1  "Valore "
  HELP "Valore da inserire nella causale"
END

STRING S_CAUS_COND 200 50
BEGIN
  PROMPT 1 2  "Condizione "
  HELP "Condizione che se <20> vera abilita la riga"
END

ENDPAGE

TOOLBAR "Riga" 0 0 0 2

BUTTON DLG_OK 2 2 
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_CANCEL 2 2 
BEGIN
  PROMPT 1 1 ""
END

ENDPAGE
ENDMASK

PAGE "Riga Articolo" -1 -1 60 12

STRING S_ART_TIPO 200 50
BEGIN
  PROMPT 1 1  "Tipo "
  HELP "Tag TipoArticolo"
END

STRING S_ART_VALORE 200 50
BEGIN
  PROMPT 1 1  "Valore "
  HELP "Tag ValoreArticolo"
END

STRING S_ART_COND 200 50
BEGIN
  PROMPT 1 2  "Condizione "
  HELP "Condizione che se <20> vera abilita la riga"
END

ENDPAGE

TOOLBAR "Riga" 0 0 0 2

BUTTON DLG_OK 2 2 
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_CANCEL 2 2 
BEGIN
  PROMPT 1 1 ""
END

ENDPAGE
ENDMASK

PAGE "Riga Altri Dati Gestionali" -1 -1 60 12

STRING S_ADG_TIPODATO 200 50
BEGIN
  PROMPT 1 1  "Tipo dato  "
  HELP "Tag 2.2.1.16.1 TipoDato"
END

STRING S_ADG_RTESTO 200 50
BEGIN
  PROMPT 1 2  "Rif testo  "
  HELP "Tag 2.2.1.16.2 RiferimentoTesto"
END

STRING S_ADG_RNUMERO 200 50
BEGIN
  PROMPT 1 3  "Rif numero "
  HELP "Tag 2.2.1.16.3 RiferimentoNumero"
END

STRING S_ADG_RDATA 200 50
BEGIN
  PROMPT 1 4  "Rif data   "
  HELP "Tag 2.2.1.16.4 RiferimentoData"
END

STRING S_ADG_TIPORIGA 4
BEGIN
  PROMPT 1 2  "Tipo riga "
  USE %TRI
  INPUT CODTAB S_ADG_TIPORIGA
  DISPLAY "Tipo riga@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_ADG_TIPORIGA CODTAB
  HELP "La personalizzazione viene abilitata solo su queste righe"
END

STRING S_ADG_COND 200 50
BEGIN
  PROMPT 1 2  "Condizione "
  HELP "Condizione che se <20> vera abilita la riga"
END

BOOLEAN S_ADG_SPLIT
BEGIN
  PROMPT 1 2  "Riga separata"
  HELP "Separa questa informazione in una riga separata"
END

ENDPAGE

TOOLBAR "Riga" 0 0 0 2

BUTTON DLG_OK 2 2 
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_CANCEL 2 2 
BEGIN
  PROMPT 1 1 ""
END

ENDPAGE
ENDMASK