campo-sirio/src/fp/fp0500a.uml

162 lines
2.1 KiB
Plaintext
Raw Normal View History

#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" DESCR
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" DESCR
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
KEY 2
END
SPREADSHEET F_CAUSALI 60 6
BEGIN
PROMPT 1 3 "Causale"
ITEM "Valore@50"
END
ENDPAGE
PAGE "Pag. 2" 0 2 0 0
SPREADSHEET F_ARTICOLI 80 6
BEGIN
PROMPT 1 1 "Codice Articolo"
ITEM "Tipo@50"
ITEM "Valore@50"
END
SPREADSHEET F_ADG 0 6
BEGIN
PROMPT 0 10 "Altri dati gestionali"
ITEM "Tipo Dato@50"
ITEM "Rif Testo@50"
ITEM "Rif Numero@20"
ITEM "Rif Data@20"
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
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 90 50
BEGIN
PROMPT 1 1 "Tipo "
HELP "Tag TipoArticolo"
END
STRING S_ART_VALORE 90 50
BEGIN
PROMPT 1 1 "Valore "
HELP "Tag ValoreArticolo"
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 90 50
BEGIN
PROMPT 1 1 "Tipo dato "
HELP "Tag 2.2.1.16.1 TipoDato"
END
STRING S_ADG_RTESTO 90 50
BEGIN
PROMPT 1 2 "Rif testo "
HELP "Tag 2.2.1.16.2 RiferimentoTesto"
END
NUMBER S_ADG_RNUMERO 18 5
BEGIN
PROMPT 1 3 "Rif numero "
HELP "Tag 2.2.1.16.3 RiferimentoNumero"
END
DATE S_ADG_RDATA
BEGIN
PROMPT 1 4 "Rif data "
HELP "Tag 2.2.1.16.4 RiferimentoData"
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