135 lines
1.9 KiB
Plaintext
Executable File
135 lines
1.9 KiB
Plaintext
Executable File
#include <batb%lbu.h>
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
#include <toolbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Tabella libro unico" -1 -1 78 18
|
|
|
|
NUMBER F_CODLIB 1
|
|
BEGIN
|
|
PROMPT 4 1 "Codice libro unico "
|
|
FIELD %LBU->CODTAB
|
|
KEY 1
|
|
USE %LBU
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 53 1 "Anno esercizio "
|
|
FIELD %LBU->I0
|
|
END
|
|
|
|
SPREADSHEET F_SHEET_LBU
|
|
BEGIN
|
|
PROMPT 2 5 ""
|
|
ITEM "Numero iniziale reg.unico "
|
|
ITEM "Numero finale reg.unico"
|
|
ITEM "Codice ditta"
|
|
ITEM "Ragione sociale@50"
|
|
ITEM "Codice registro"
|
|
ITEM "Descrizione@50"
|
|
ITEM "Numero iniziale reg.utente"
|
|
ITEM "Numero finale reg.utente"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "" -1 -1 78 18
|
|
|
|
BOOLEAN F_FLG_STAMPA_BOLLATO
|
|
BEGIN
|
|
PROMPT 4 1 "Flag di stampa su bollato "
|
|
FIELD %LBU->B0
|
|
END
|
|
|
|
ENDMASK
|
|
|
|
PAGE "" -1 -1 71 15
|
|
|
|
STRING 101 5
|
|
BEGIN
|
|
PROMPT 1 1 "Numero iniziale pagina registro unico "
|
|
FIELD %LBU->I1
|
|
END
|
|
|
|
NUMBER 102 5
|
|
BEGIN
|
|
PROMPT 1 2 "Numero finale pagina registro unico "
|
|
FIELD %LBU->I2
|
|
END
|
|
|
|
NUMBER 103 5
|
|
BEGIN
|
|
PROMPT 1 4 "Codice ditta "
|
|
FIELD %LBU->I3
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA 103
|
|
DISPLAY "Codice ditta" CODDITTA
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT 103 CODDITTA
|
|
OUTPUT 104 RAGSOC
|
|
END
|
|
|
|
STRING 104 50
|
|
BEGIN
|
|
PROMPT 1 5 "Ragione sociale "
|
|
FIELD %LBU->S0
|
|
END
|
|
|
|
NUMBER 105 3
|
|
BEGIN
|
|
PROMPT 1 7 "Codice registro "
|
|
FIELD %LBU->I4
|
|
USE REG
|
|
INPUT CODTAB[5,7] 105
|
|
DISPLAY "Codice registro" CODTAB[5,7]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT 105 CODTAB[5,7]
|
|
OUTPUT 106 S0
|
|
END
|
|
|
|
STRING 106 50
|
|
BEGIN
|
|
PROMPT 1 8 "Descrizione "
|
|
FIELD %LBU->S1
|
|
COPY USE 105
|
|
INPUT S0 106
|
|
COPY DISPLAY 105
|
|
COPY OUTPUT 105
|
|
END
|
|
|
|
NUMBER 107 5
|
|
BEGIN
|
|
PROMPT 1 10 "Numero iniziale pagina registro utente "
|
|
FIELD %LBU->I5
|
|
END
|
|
|
|
NUMBER 108 5
|
|
BEGIN
|
|
PROMPT 1 11 "Numero finale pagina registro utente "
|
|
FIELD %LBU->I6
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_NULL 9 2
|
|
BEGIN
|
|
PROMPT -33 -1 "Azzera"
|
|
MESSAGE RESET,1@
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|