198 lines
3.3 KiB
Plaintext
Executable File
198 lines
3.3 KiB
Plaintext
Executable File
#include "batblbu.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
#include <toolbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Tabella libro unico" -1 -1 78 18
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 3 1 "Anno esercizio "
|
|
FIELD CODTAB[1,4]
|
|
FLAGS "AZ"
|
|
USE %LBU
|
|
INPUT CODTAB[1,4] F_ANNO
|
|
INPUT CODTAB[5,7] F_CODLIB
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Codice" CODTAB[5,7]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_ANNO CODTAB[1,4]
|
|
OUTPUT F_CODLIB CODTAB[5,7]
|
|
OUTPUT F_DESCRLBU S0
|
|
CHECKTYPE REQUIRED
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_CODLIB 3
|
|
BEGIN
|
|
PROMPT 45 1 "Codice "
|
|
FLAGS "UZ"
|
|
FIELD CODTAB[5,7]
|
|
COPY ALL F_ANNO
|
|
CHECKTYPE REQUIRED
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_DESCRLBU 50
|
|
BEGIN
|
|
PROMPT 3 2 "Descrizione "
|
|
FIELD S0
|
|
USE %LBU KEY 2
|
|
INPUT S0 F_DESCRLBU
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Codice libro unico" CODTAB[5,7]
|
|
COPY OUTPUT F_CODLIB
|
|
CHECKTYPE REQUIRED
|
|
KEY 2
|
|
END
|
|
|
|
NUMBER F_CODTABLIB 2
|
|
BEGIN
|
|
PROMPT 3 3 "Codice libro "
|
|
FIELD I3
|
|
FLAGS "Z"
|
|
USE %ITL
|
|
INPUT CODTAB F_CODTABLIB
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODTABLIB CODTAB
|
|
OUTPUT F_DESCRLBU S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
LIST F_ULT_MESE_STAMP 2 12
|
|
BEGIN
|
|
PROMPT 3 5 "Ultimo mese stampa "
|
|
FIELD I0
|
|
ITEM " |Nessuno"
|
|
FLAGS "M"
|
|
END
|
|
|
|
NUMBER F_ULT_PAG 5
|
|
BEGIN
|
|
PROMPT 55 5 "Ultima pagina "
|
|
FIELD I1
|
|
END
|
|
|
|
LIST F_TIPOA 10
|
|
BEGIN
|
|
PROMPT 3 6 "Tipo persona "
|
|
FIELD S2
|
|
ITEM "F|Fisica"
|
|
ITEM "G|Giuridica"
|
|
END
|
|
|
|
NUMBER F_CODANAGR 5
|
|
BEGIN
|
|
PROMPT 55 6 "Codice "
|
|
FIELD I4
|
|
USE LF_ANAG
|
|
INPUT TIPOA F_TIPOA SELECT
|
|
INPUT CODANAGR F_CODANAGR
|
|
DISPLAY "Tipo" TIPOA
|
|
DISPLAY "Codice" CODANAGR
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_TIPOA TIPOA
|
|
OUTPUT F_CODANAGR CODANAGR
|
|
OUTPUT F_TIPOANAGR RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_TIPOANAGR 50
|
|
BEGIN
|
|
PROMPT 3 7 "Tipo anagrafico "
|
|
USE LF_ANAG KEY 2
|
|
INPUT TIPOA F_TIPOA SELECT
|
|
INPUT RAGSOC F_TIPOANAGR
|
|
DISPLAY "Tipo" TIPOA
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODANAGR
|
|
COPY OUTPUT F_CODANAGR
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_CONSPRESSO 50
|
|
BEGIN
|
|
PROMPT 3 8 "Conservato presso "
|
|
FIELD S1
|
|
END
|
|
|
|
STRING F_CODVID 3
|
|
BEGIN
|
|
PROMPT 3 9 "Codice vidimazione "
|
|
FLAGS "UZ"
|
|
FIELD S4
|
|
USE %VID
|
|
INPUT CODTAB F_CODVID
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Intestatario@50" S0
|
|
OUTPUT F_CODVID CODTAB
|
|
OUTPUT F_DESVID S0
|
|
OUTPUT F_DATAVID D0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESVID 50
|
|
BEGIN
|
|
PROMPT 3 10 "Intestatario "
|
|
USE %VID KEY 2
|
|
INPUT S0 F_DESVID
|
|
DISPLAY "Intestatario@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_CODVID
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
DATE F_DATAVID
|
|
BEGIN
|
|
PROMPT 3 11 "Data vidimazione "
|
|
FIELD D0
|
|
END
|
|
|
|
DATE F_DATASCAD
|
|
BEGIN
|
|
PROMPT 45 11 "Data scadenza "
|
|
FIELD D1
|
|
END
|
|
|
|
NUMBER F_NUMPAG 5
|
|
BEGIN
|
|
PROMPT 3 12 "Num.pag. libro unico "
|
|
FIELD I2
|
|
END
|
|
|
|
BOOLEAN F_STAMPAINT
|
|
BEGIN
|
|
PROMPT 3 13 "Stampa intestazione studio su libro unico"
|
|
FIELD B0
|
|
END
|
|
|
|
BOOLEAN F_STAMPAINDCOMP
|
|
BEGIN
|
|
PROMPT 3 14 "Stampa l'indirizzo completo della ditta"
|
|
FIELD B1
|
|
END
|
|
|
|
RADIOBUTTON F_MODULO 27
|
|
BEGIN
|
|
PROMPT 3 15 "Formato modulo di stampa "
|
|
ITEM "66|11 pollici (27,94 cm)"
|
|
ITEM "72|12 pollici (30,48 cm)"
|
|
END
|
|
|
|
RADIOBUTTON F_STAMPA 27
|
|
BEGIN
|
|
PROMPT 46 15 "Numero caratteri "
|
|
ITEM "1|132 caratteri per riga"
|
|
ITEM "2|198 caratteri per riga"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|