405 lines
8.4 KiB
Plaintext
Executable File
405 lines
8.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"
|
||
USE LF_NDITTE
|
||
INPUT CODDITTA F_CODDITTA
|
||
OUTPUT F_ATTIVITA CODATTPREV
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
NUMBER F_ANNO 4
|
||
BEGIN
|
||
PROMPT 4 1 "Anno "
|
||
HELP "Anno a cui fa riferimento il registro"
|
||
FIELD CODTAB[1,4]
|
||
FLAGS "AZ"
|
||
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 "
|
||
Help "Codice del registro"
|
||
FIELD CODTAB[5,7]
|
||
FLAGS "U"
|
||
KEY 1
|
||
GROUP 1
|
||
COPY ALL F_ANNO
|
||
CHECKTYPE REQUIRED
|
||
END
|
||
|
||
STRING F_DESCR 50
|
||
BEGIN
|
||
PROMPT 4 3 "Descrizione "
|
||
HELP "Descrizione del registro"
|
||
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 "Codice del libro sociale a cui fa riferimento il registro"
|
||
END
|
||
|
||
LIST F_TIPO 26
|
||
BEGIN
|
||
PROMPT 29 5 "Tipo "
|
||
HELP "Tipo di regitro"
|
||
FIELD I0
|
||
FLAGS "G"
|
||
GROUP 1 GR_MODIFY_PROTECTED
|
||
ITEM "1|1) Vendite"
|
||
MESSAGE HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,2@
|
||
ITEM "2|2) Acquisti"
|
||
MESSAGE HIDE,2@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,3@
|
||
ITEM "3|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|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|5) Libro Giornale"
|
||
MESSAGE HIDE,2@|HIDE,4@|HIDE,5@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,6@
|
||
ITEM "6|6) Libri Sociali"
|
||
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,7@
|
||
ITEM "7|7) Libro Cespiti"
|
||
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,9@|HIDE,10@|SHOW,8@
|
||
ITEM "8|8) Libro Inventari"
|
||
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,10@|SHOW,9@
|
||
ITEM "9|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 "
|
||
HELP "Luogo dove verra' conservato il registro"
|
||
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@50" DESCR
|
||
OUTPUT F_ATTIVITA CODATT
|
||
HELP "Codice dell'attivita' della ditta"
|
||
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 "Codice dell'unita' locale della ditta"
|
||
WARNING "Unita' locale non prevista per questa ditta"
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
NUMBER F_PAGSTAMP 5
|
||
BEGIN
|
||
PROMPT 4 11 "Pagine stampate "
|
||
HELP "Numero di pagine gia' stampate"
|
||
FIELD I1
|
||
FLAGS "R"
|
||
GROUP 1
|
||
END
|
||
|
||
NUMBER F_PAGNUM 5
|
||
BEGIN
|
||
PROMPT 35 11 "Pagine numerate "
|
||
HELP "numero di pagine di cui e' stata stampata la numerazione"
|
||
FIELD I2
|
||
FLAGS "R"
|
||
GROUP 1
|
||
END
|
||
|
||
DATE F_DATAVID
|
||
BEGIN
|
||
PROMPT 4 13 "Data vidimazione "
|
||
HELP "Data di vidimazione del registro"
|
||
FIELD D0
|
||
GROUP 1
|
||
END
|
||
|
||
DATE F_DATASCAD
|
||
BEGIN
|
||
PROMPT 35 13 "Data scadenza "
|
||
HELP "Data fino a cui rimane in vigore il registro"
|
||
FIELD D1
|
||
GROUP 1
|
||
END
|
||
|
||
STRING F_CODLBU 3
|
||
BEGIN
|
||
PROMPT 4 15 "Cod. libro unico "
|
||
HELP "Codice del libro unico a cui fa riferimento"
|
||
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" CODTAB[5,7]
|
||
DISPLAY "Descrizione@50" S0
|
||
OUTPUT F_ANNO CODTAB[1,4]
|
||
OUTPUT F_CODLBU CODTAB[5,7]
|
||
ADD RUN ba3 -4
|
||
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 "
|
||
HELP "Intervallo per fare il riepilogo"
|
||
FIELD S9
|
||
GROUP 4
|
||
ITEM "M|Mensile"
|
||
ITEM "T|Trimestrale"
|
||
END
|
||
|
||
BOOLEAN F_VENTIL
|
||
BEGIN
|
||
PROMPT 2 2 "Attivita' con ventilazione"
|
||
HELP "Indicare se vengono registrate operazioni con ventilazione IVA"
|
||
FIELD B3
|
||
GROUP 3
|
||
END
|
||
|
||
BOOLEAN F_STAMPA_SULLO_STESSO_REGISTRO
|
||
BEGIN
|
||
PROMPT 2 2 "Stampa sullo stesso registro"
|
||
HELP "Indicare se il nuovo esercizio viene stampato 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"
|
||
HELP "Indicare se si vuole la stampa del credito IVA dell'anno precedente"
|
||
FIELD B4
|
||
GROUP 3
|
||
END
|
||
|
||
BOOLEAN F_CORRISP
|
||
BEGIN
|
||
PROMPT 46 4 "Registro corrispettivi"
|
||
HELP "Indicare se si tratta di registro dei corrispettivi"
|
||
FIELD B0
|
||
GROUP 2
|
||
END
|
||
|
||
LIST F_TIPO_DESC_COSTI_RICAVI 1 10
|
||
BEGIN
|
||
PROMPT 2 4 "Tipo descrizione costi/ricavi "
|
||
HELP "Livello a cui stampare la 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
|
||
HELP"Ultimo numero della riga stampata"
|
||
FLAGS "R"
|
||
GROUP 5 6
|
||
END
|
||
|
||
BOOLEAN F_STAMPA_INDIRIZZI_COMPLETI
|
||
BEGIN
|
||
PROMPT 2 6 "Stampa indirizzi completi"
|
||
HELP "Indicare se stampare gli indirizzi completi"
|
||
FIELD B5
|
||
GROUP 2 3
|
||
END
|
||
|
||
NUMBER F_PROG_DARE 15
|
||
BEGIN
|
||
PROMPT 2 6 "Progressivo dare "
|
||
HELP "Progressivo dare del giornale"
|
||
FIELD R1
|
||
PICTURE "."
|
||
FLAGS "R"
|
||
GROUP 6
|
||
END
|
||
|
||
NUMBER F_TOT_INCASSI 15
|
||
BEGIN
|
||
PROMPT 2 6 "Totale incassi "
|
||
HELP "Progressivo degli incassi effettuati"
|
||
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 "Indicare se stampare il 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 15
|
||
BEGIN
|
||
PROMPT 42 6 "Totale pagamenti "
|
||
HELP "Progressivo dei pagamenti effettuati"
|
||
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 "Indicare se stampare a fine periodo la liquidazione"
|
||
END
|
||
|
||
NUMBER F_PROG_AVERE 15
|
||
BEGIN
|
||
PROMPT 2 8 "Progressivo avere "
|
||
HELP "Progressivo avere del giornale"
|
||
FIELD R2
|
||
FLAGS "R"
|
||
PICTURE "."
|
||
GROUP 6
|
||
END
|
||
|
||
LIST F_MESE_STAMPA_ULTIMA_LIQ 10
|
||
BEGIN
|
||
PROMPT 2 10 "Mese stampa ultima liquidazione "
|
||
HELP "Mese in cui <20> stat stampata l'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 "Ultimo numero di protocollo"
|
||
END
|
||
|
||
BOOLEAN F_STAMPA_INTESTAZIONE
|
||
BEGIN
|
||
PROMPT 46 12 "Stampa intestazione ditta"
|
||
HELP "Indicare se stampare l'intestazione della ditta"
|
||
FIELD B9
|
||
GROUP 1
|
||
END
|
||
|
||
DATE F_ULTIMA_DATA_DI_REGISTR
|
||
BEGIN
|
||
PROMPT 2 14 "Ultima data di registrazione "
|
||
HELP "Date dell'ultima registrazione stampata"
|
||
FIELD D2
|
||
GROUP 2 3 5 6
|
||
END
|
||
|
||
DATE F_ULTIMA_DATA_DI_STAMPA
|
||
BEGIN
|
||
PROMPT 2 16 "Ultima data di stampa "
|
||
HELP "Data dell'ultima stampa effettuata"
|
||
FIELD D3
|
||
END
|
||
|
||
ENDPAGE
|
||
|
||
ENDMASK
|