157 lines
2.6 KiB
Plaintext
157 lines
2.6 KiB
Plaintext
|
#include "batbinl.h"
|
||
|
|
|
||
|
|
TOOLBAR "" 0 20 0 2
|
||
|
|
|
||
|
|
#include <toolbar.h>
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
PAGE "Tabella Indici Libro Unico" -1 -1 71 20
|
||
|
|
|
||
|
|
NUMBER F_ANNO 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 4 1 "Anno esercizio "
|
||
|
|
FLAGS "AZ"
|
||
|
|
FIELD %INL->CODTAB[1,4]
|
||
|
|
USE %LBU
|
||
|
|
INPUT F_ANNO CODTAB[1,4]
|
||
|
|
INPUT F_CODLIB CODTAB[5,7]
|
||
|
|
DISPLAY "Anno" CODTAB[1,4]
|
||
|
|
DISPLAY "Codice libro unico" CODTAB[5,7]
|
||
|
|
OUTPUT F_ANNO CODTAB[1,4]
|
||
|
|
OUTPUT F_CODLIB CODTAB[5,7]
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_CODLIB 3
|
||
|
|
BEGIN
|
||
|
|
PROMPT 34 1 "Codice libro unico "
|
||
|
|
FLAGS "U"
|
||
|
|
FIELD %INL->CODTAB[5,7]
|
||
|
|
COPY ALL F_ANNO
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_INDEX 7
|
||
|
|
BEGIN
|
||
|
|
PROMPT 54 1 "Indice "
|
||
|
|
FLAGS "Z"
|
||
|
|
FIELD %INL->CODTAB[8,14]
|
||
|
|
USE %INL
|
||
|
|
COPY INPUT F_ANNO
|
||
|
|
INPUT CODTAB[8,14] F_INDEX
|
||
|
|
COPY DISPLAY F_ANNO
|
||
|
|
DISPLAY "Indice@7" CODTAB[8,14]
|
||
|
|
COPY OUTPUT F_ANNO
|
||
|
|
OUTPUT F_INDEX CODTAB[8,14]
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_ANNOREG 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 2 "Anno registrazione "
|
||
|
|
FIELD %INL->I0
|
||
|
|
VALIDATE NOT_EMPTY_FUNC
|
||
|
|
END
|
||
|
|
|
||
|
|
LIST F_MESE 2 10
|
||
|
|
BEGIN
|
||
|
|
PROMPT 38 2 "Mese registrazione "
|
||
|
|
FIELD %INL->I1
|
||
|
|
ITEMS " |Nessuno"
|
||
|
|
FLAGS "M"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_PINI_LU 5 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 3 "Numero iniziale pagina registro unico "
|
||
|
|
FIELD %INL->I2
|
||
|
|
FLAGS "R"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_PFIN_LU 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 4 "Numero finale pagina registro unico "
|
||
|
|
FIELD %INL->I3
|
||
|
|
FLAGS "R"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_DITTA 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 6 "Codice ditta "
|
||
|
|
FIELD %INL->I4
|
||
|
|
FLAGS "R"
|
||
|
|
USE LF_NDITTE
|
||
|
|
INPUT CODDITTA F_DITTA
|
||
|
|
DISPLAY "Codice ditta" CODDITTA
|
||
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||
|
|
OUTPUT F_DITTA CODDITTA
|
||
|
|
OUTPUT F_RAGSOC RAGSOC
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_RAGSOC 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 7 "Ragione sociale "
|
||
|
|
FLAGS "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_CODREG 3
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 8 "Codice registro "
|
||
|
|
FIELD %INL->S0
|
||
|
|
USE REG
|
||
|
|
FLAGS "UZ"
|
||
|
|
INPUT CODTAB[5,7] F_CODREG
|
||
|
|
DISPLAY "Codice registro" CODTAB[5,7]
|
||
|
|
DISPLAY "Descrizione@50" S0
|
||
|
|
OUTPUT F_CODREG CODTAB[5,7]
|
||
|
|
OUTPUT 113 S0
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DESCREG 50 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 9 "Descrizione "
|
||
|
|
FLAGS "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_PINI_RU 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 11 "Numero iniziale pagina registro utente "
|
||
|
|
FIELD %INL->I5
|
||
|
|
FLAGS "R"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_PFIN_RU 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 12 "Numero finale pagina registro utente "
|
||
|
|
FIELD %INL->I6
|
||
|
|
FLAGS "R"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_CODVID 3 3
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 14 "Codice vidimazione "
|
||
|
|
FIELD %INL->S1
|
||
|
|
END
|
||
|
|
|
||
|
|
BOOLEAN F_STAMPATO
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 16 "Stampato su bollato "
|
||
|
|
FIELD %INL->B0
|
||
|
|
END
|
||
|
|
|
||
|
|
BOOLEAN F_PANN_LU
|
||
|
|
BEGIN
|
||
|
|
PROMPT 36 16 "Pagine libro unico annullate"
|
||
|
|
FIELD %INL->B1
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|