98a38dd34d
Files correlati : fp0, fp0500a.msk Commento : - Sistemata maschera fp0500 per lo sheet altri dati gestionali - Corretto indice passato a load_adg_paf() nelle righe del documento - Tolto inserimento riga "Altri dati gestionali" se non vengono scritti altri dati gestionali - Corretta lettura e scrittura record FPCUSTADG durante il salvataggio - Aggiunti left() a campi nuovi per evitare data binary truncation - Sistamato controllo booleano split - Sistemato controllo simbolo in split_condition() - Sistemata parse_var per variabili vuote
239 lines
3.5 KiB
Plaintext
239 lines
3.5 KiB
Plaintext
#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
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 3 "@bCausale documento"
|
|
END
|
|
|
|
SPREADSHEET F_CAUSALI 0 15
|
|
BEGIN
|
|
PROMPT 1 4 "Causale"
|
|
ITEM "2.1.1.11 Valore@50"
|
|
ITEM "Condizione@50"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Pag. 2" 0 2 0 0
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 0 "@bArticoli"
|
|
END
|
|
|
|
SPREADSHEET F_ARTICOLI 0 9
|
|
BEGIN
|
|
PROMPT 0 1 ""
|
|
ITEM "2.2.1.3.1 Tipo@35"
|
|
ITEM "2.2.1.3.2 Valore@35"
|
|
ITEM "Condizione@35"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 11 "@bAltri dati gestionali"
|
|
END
|
|
|
|
SPREADSHEET F_ADG 0 9
|
|
BEGIN
|
|
PROMPT 0 12 ""
|
|
ITEM "2.2.1.16.1 Tipo Dato@35"
|
|
ITEM "2.2.1.16.2 Riferimento\nTesto@35"
|
|
ITEM "2.2.1.16.3 Riferimento\nNumero@35"
|
|
ITEM "2.2.1.16.4 Riferimento\nData@35"
|
|
ITEM "Tipo riga@8"
|
|
ITEM "Condizione@35"
|
|
ITEM "Riga\nseparata@8"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
PAGE "Riga Causale" -1 -1 65 5
|
|
|
|
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 "Cond "
|
|
HELP "Condizione che se è vera abilita la riga"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "Riga" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "~Conferma"
|
|
END
|
|
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "~Elimina"
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "~Cancella"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
PAGE "Riga Articolo" -1 -1 70 5
|
|
|
|
STRING S_ART_TIPO 200 50
|
|
BEGIN
|
|
PROMPT 1 1 "Tipo "
|
|
HELP "Tag TipoArticolo"
|
|
END
|
|
|
|
STRING S_ART_VALORE 200 50
|
|
BEGIN
|
|
PROMPT 1 2 "Valore "
|
|
HELP "Tag ValoreArticolo"
|
|
END
|
|
|
|
STRING S_ART_COND 200 50
|
|
BEGIN
|
|
PROMPT 1 3 "Cond "
|
|
HELP "Condizione che se è vera abilita la riga"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "Riga" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "~Conferma"
|
|
END
|
|
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "~Elimina"
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "~Cancella"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
PAGE "Riga Altri Dati Gestionali" -1 -1 70 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 5 "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 6 "Cond "
|
|
HELP "Condizione che se è vera abilita la riga"
|
|
END
|
|
|
|
BOOLEAN S_ADG_SPLIT
|
|
BEGIN
|
|
PROMPT 20 5 "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 "~Conferma"
|
|
END
|
|
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "~Elimina"
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "~Cancella"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK |