382 lines
7.4 KiB
Plaintext
Executable File
382 lines
7.4 KiB
Plaintext
Executable File
#include "ba3100.h"
|
|
#include "batbreg.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
#include <toolbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Registri" -1 -1 78 18
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
FLAGS "FRH"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 4 1 "Anno "
|
|
FIELD CODTAB[1,4]
|
|
FLAGS "AP"
|
|
KEY 1
|
|
GROUP 1
|
|
USE REG
|
|
INPUT CODTAB[1,4] F_ANNO
|
|
INPUT CODTAB[5,7] F_CODICE
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Codice" CODTAB[5,7]
|
|
DISPLAY "Descrizione @50" S0
|
|
DISPLAY "Tipo" I0
|
|
OUTPUT F_ANNO CODTAB[1,4]
|
|
OUTPUT F_CODICE CODTAB[5,7]
|
|
OUTPUT F_DESCR S0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_CODICE 3
|
|
BEGIN
|
|
PROMPT 4 2 "Codice registro "
|
|
FIELD CODTAB[5,7]
|
|
FLAGS "U"
|
|
KEY 1
|
|
GROUP 1
|
|
COPY USE F_ANNO
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Codice" CODTAB[5,7]
|
|
DISPLAY "Descrizione @50" S0
|
|
DISPLAY "Tipo" I0
|
|
COPY OUTPUT F_ANNO
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DESCR 50
|
|
BEGIN
|
|
PROMPT 4 3 "Descrizione "
|
|
FIELD S0
|
|
KEY 2
|
|
GROUP 1
|
|
USE REG KEY 2
|
|
INPUT S0 F_DESCR
|
|
DISPLAY "Descrizione @50" S0
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Codice" CODTAB[5,7]
|
|
DISPLAY "Tipo" I0
|
|
COPY OUTPUT F_ANNO
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_CODLIB 2
|
|
BEGIN
|
|
PROMPT 4 5 "Codice libro "
|
|
FIELD S7
|
|
FLAGS "R"
|
|
GROUP 1
|
|
USE %ITL
|
|
INPUT S0 F_DESCR
|
|
INPUT CODTAB F_CODLIB
|
|
DISPLAY "Codice libro" CODTAB
|
|
DISPLAY "Descrizione @50" S0
|
|
OUTPUT F_DESCR S0
|
|
OUTPUT F_CODLIB CODTAB
|
|
CHECHTYPE NORMAL
|
|
HELP "Inserire il codice del libro"
|
|
END
|
|
|
|
LIST F_TIPO 26
|
|
BEGIN
|
|
PROMPT 30 5 "Tipo "
|
|
FIELD I0
|
|
FLAGS "G"
|
|
GROUP 1 GR_MODIFY_PROTECTED
|
|
ITEM "1|Vendite"
|
|
MESSAGE HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,2@
|
|
ITEM "2|Acquisti"
|
|
MESSAGE HIDE,2@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,3@
|
|
ITEM "3|Libro IVA riepilogativo"
|
|
MESSAGE HIDE,2@|HIDE,3@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,4@
|
|
ITEM "4|Libro Incassi e pagamenti"
|
|
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,5@
|
|
ITEM "5|Libro Giornale"
|
|
MESSAGE HIDE,2@|HIDE,4@|HIDE,5@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,6@
|
|
ITEM "6|Libri Sociali"
|
|
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,7@
|
|
ITEM "7|Libro Cespiti"
|
|
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,9@|HIDE,10@|SHOW,8@
|
|
ITEM "8|Libro Inventari"
|
|
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,10@|SHOW,9@
|
|
ITEM "9|Libro delle Procedure"
|
|
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|SHOW,10@
|
|
END
|
|
|
|
STRING F_CONSPRESSO 40
|
|
BEGIN
|
|
PROMPT 4 7 "Conservato presso "
|
|
FIELD S1
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_ATTIVITA 5
|
|
BEGIN
|
|
PROMPT 4 9 "Codice attivita "
|
|
FIELD REG->S8
|
|
FLAGS "URZ"
|
|
GROUP 2 3 4
|
|
USE LF_ATTIV
|
|
INPUT CODDITTA F_CODDITTA SELECT
|
|
INPUT CODATT F_ATTIVITA
|
|
DISPLAY "Codice" CODATT
|
|
DISPLAY "Descrizione@40" DESCR
|
|
OUTPUT F_ATTIVITA CODATT
|
|
HELP "Introdurre il codice dell' attivita'"
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Attivita' non prevista per questa ditta"
|
|
END
|
|
|
|
NUMBER F_CODULC 3
|
|
BEGIN
|
|
PROMPT 35 9 "Unita' locale "
|
|
FLAGS "R"
|
|
GROUP 2 3 4 5 6 7 10
|
|
FIELD I7
|
|
USE LF_UNLOC
|
|
JOIN LF_COMUNI TO LF_UNLOC KEY 1 INTO COM=COMULC
|
|
INPUT CODDITTA F_CODDITTA SELECT
|
|
INPUT CODULC F_CODULC
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Un.Loc" CODULC
|
|
DISPLAY "Localita'@50" LF_COMUNI->DENCOM
|
|
DISPLAY "Indirizzo@35" INDULC
|
|
DISPLAY "N.ro civico@35" CIVULC
|
|
OUTPUT F_CODULC CODULC
|
|
HELP "Inserire il codice dell'unita' locale"
|
|
WARNING "Unita' locale non prevista per questa ditta"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_PAGSTAMP 5
|
|
BEGIN
|
|
PROMPT 4 11 "Pagine stampate "
|
|
FIELD I1
|
|
FLAGS "R"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_PAGNUM 5
|
|
BEGIN
|
|
PROMPT 35 11 "Pagine numerate "
|
|
FIELD I2
|
|
FLAGS "R"
|
|
GROUP 1
|
|
END
|
|
|
|
DATE F_DATAVID
|
|
BEGIN
|
|
PROMPT 4 13 "Data vidimazione "
|
|
FIELD D0
|
|
GROUP 1
|
|
END
|
|
|
|
DATE F_DATASCAD
|
|
BEGIN
|
|
PROMPT 35 13 "Data scadenza "
|
|
FIELD D1
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_CODLBU 3
|
|
BEGIN
|
|
PROMPT 4 15 "Cod. libro unico "
|
|
GROUP 2 3 4
|
|
FIELD S6
|
|
USE %LBU
|
|
INPUT CODTAB[1,4] F_ANNO SELECT
|
|
INPUT CODTAB[5,7] F_CODLBU
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Codice libro unico" CODTAB[5,7]
|
|
OUTPUT F_ANNO CODTAB[1,4]
|
|
OUTPUT F_CODLBU CODTAB[5,7]
|
|
CHECKTYPE NORMAL
|
|
WARNING "Libro unico assente"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Registri pag.2" -1 -1 78 18
|
|
|
|
BOOLEAN F_STAMPA_COSTI_RICAVI
|
|
BEGIN
|
|
PROMPT 2 2 "Stampa costi/ricavi su libro cronologico "
|
|
FIELD B2
|
|
GROUP 5
|
|
END
|
|
|
|
LIST F_FREQUENZA_STAMPA 1 16
|
|
BEGIN
|
|
PROMPT 2 2 "Stampa reg.riepilogativo "
|
|
FIELD S9
|
|
GROUP 4
|
|
ITEM "M|Mensile"
|
|
ITEM "T|Trimestrale"
|
|
END
|
|
|
|
BOOLEAN F_VENTIL
|
|
BEGIN
|
|
PROMPT 2 2 "Attivita' con ventilazione"
|
|
FIELD B3
|
|
GROUP 3
|
|
END
|
|
|
|
BOOLEAN F_STAMPA_SULLO_STESSO_REGISTRO
|
|
BEGIN
|
|
PROMPT 2 2 "Stampa sullo stesso registro"
|
|
FIELD B8
|
|
GROUP 6
|
|
END
|
|
|
|
BOOLEAN F_REGSOSP
|
|
BEGIN
|
|
PROMPT 2 4 "Registro in sospensione "
|
|
FIELD B1
|
|
GROUP 2 3
|
|
HELP "Indicare se il registro e' in sospensione d'imposta"
|
|
END
|
|
|
|
BOOLEAN F_STAMPA_CREDITO_ANNO_PREC
|
|
BEGIN
|
|
PROMPT 46 4 "Stampa credito anno precedente"
|
|
FIELD B4
|
|
GROUP 3
|
|
END
|
|
|
|
BOOLEAN F_CORRISP
|
|
BEGIN
|
|
PROMPT 46 4 "Registro corrispettivi"
|
|
FIELD B0
|
|
GROUP 2
|
|
END
|
|
|
|
LIST F_TIPO_DESC_COSTI_RICAVI 1 10
|
|
BEGIN
|
|
PROMPT 2 4 "Tipo descrizione costi/ricavi "
|
|
FIELD I3
|
|
GROUP 5
|
|
ITEM "1|Gruppo"
|
|
ITEM "2|Conto"
|
|
END
|
|
|
|
NUMBER F_ULTIMO_NUM_RIGA_STAMPATO 7
|
|
BEGIN
|
|
PROMPT 44 4 "Ultimo numero riga stamp."
|
|
FIELD I6
|
|
FLAGS "R"
|
|
GROUP 5 6
|
|
END
|
|
|
|
BOOLEAN F_STAMPA_INDIRIZZI_COMPLETI
|
|
BEGIN
|
|
PROMPT 2 6 "Stampa indirizzi completi"
|
|
FIELD B5
|
|
GROUP 2 3
|
|
END
|
|
|
|
NUMBER F_PROG_DARE 19
|
|
BEGIN
|
|
PROMPT 2 6 "Progressivo dare "
|
|
FIELD R1
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
GROUP 6
|
|
END
|
|
|
|
NUMBER F_TOT_INCASSI 19
|
|
BEGIN
|
|
PROMPT 2 6 "Totale incassi "
|
|
FIELD R0
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
GROUP 5
|
|
END
|
|
|
|
BOOLEAN F_STAMPA_RIEPIL_SUL_REGISTRO
|
|
BEGIN
|
|
PROMPT 46 6 "Stampa riepilogo liquidazione"
|
|
FIELD B6
|
|
GROUP 2 3
|
|
HELP "Stampa riepilogo IVA delle aliquote utilizzate"
|
|
MESSAGE FALSE ENABLE,F_STAMPA_LIQUIDAZIONE
|
|
MESSAGE TRUE DISABLE,F_STAMPA_LIQUIDAZIONE|"X",F_STAMPA_LIQUIDAZIONE
|
|
END
|
|
|
|
NUMBER F_TOT_PAGAMENTI 19
|
|
BEGIN
|
|
PROMPT 42 6 "Totale pagamenti "
|
|
FIELD R1
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
GROUP 5
|
|
END
|
|
|
|
BOOLEAN F_STAMPA_LIQUIDAZIONE
|
|
BEGIN
|
|
PROMPT 2 8 "Stampa liquidazione"
|
|
FIELD B7
|
|
GROUP 2 3 4
|
|
HELP "Stampa a fine periodo la liquidazione"
|
|
END
|
|
|
|
NUMBER F_PROG_AVERE 19
|
|
BEGIN
|
|
PROMPT 2 8 "Progressivo avere "
|
|
FIELD R2
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
GROUP 6
|
|
END
|
|
|
|
LIST F_MESE_STAMPA_ULTIMA_LIQ 10
|
|
BEGIN
|
|
PROMPT 2 10 "Mese stampa ultima liquidazione "
|
|
FIELD I4
|
|
FLAGS "M"
|
|
ITEM "13|Annuale"
|
|
GROUP 2 3 4
|
|
END
|
|
|
|
NUMBER F_ULTIMO_NUM_PROT 7
|
|
BEGIN
|
|
PROMPT 2 12 "Ultimo numero di protocollo "
|
|
FIELD I5
|
|
FLAGS "R"
|
|
GROUP 2 3
|
|
HELP "Inserire ultimo numero di protocollo"
|
|
END
|
|
|
|
BOOLEAN F_STAMPA_INTESTAZIONE
|
|
BEGIN
|
|
PROMPT 46 12 "Stampa intestazione ditta"
|
|
FIELD B9
|
|
GROUP 1
|
|
END
|
|
|
|
DATE F_ULTIMA_DATA_DI_REGISTR
|
|
BEGIN
|
|
PROMPT 2 14 "Ultima data di registrazione "
|
|
FIELD D2
|
|
GROUP 2 3 5 6
|
|
END
|
|
|
|
DATE F_ULTIMA_DATA_DI_STAMPA
|
|
BEGIN
|
|
PROMPT 2 16 "Ultima data di stampa "
|
|
FIELD D3
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
|
|
|
|
|