557 lines
11 KiB
Plaintext
Executable File
557 lines
11 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
|
||
PROMPT 1 1 "Ditta "
|
||
FLAGS "FRDG"
|
||
USE LF_NDITTE
|
||
INPUT CODDITTA F_CODDITTA
|
||
OUTPUT F_RAGSOC RAGSOC
|
||
OUTPUT F_ATTIVITA CODATTPREV
|
||
CHECKTYPE NORMAL
|
||
MESSAGE COPY,18@
|
||
MESSAGE FALSE COPY,18@
|
||
END
|
||
|
||
STRING F_RAGSOC 50
|
||
BEGIN
|
||
PROMPT 20 1 ""
|
||
FLAGS "DG"
|
||
MESSAGE COPY,19@
|
||
MESSAGE FALSE COPY,19@
|
||
END
|
||
|
||
NUMBER F_ANNO 4
|
||
BEGIN
|
||
PROMPT 1 2 "Anno "
|
||
HELP "Anno a cui fa riferimento il registro"
|
||
FIELD CODTAB[1,4]
|
||
FLAGS "GAZ"
|
||
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
|
||
MESSAGE COPY,20@
|
||
MESSAGE FALSE COPY,20@
|
||
END
|
||
|
||
STRING F_CODICE 3
|
||
BEGIN
|
||
PROMPT 49 2 "Codice registro "
|
||
Help "Codice del registro"
|
||
FIELD CODTAB[5,7]
|
||
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_CODICE CODTAB[5,7]
|
||
OUTPUT F_ANNO CODTAB[1,4]
|
||
OUTPUT F_DESCR S0
|
||
// COPY ALL F_ANNO
|
||
FLAGS "GUZ"
|
||
KEY 1
|
||
GROUP 1
|
||
CHECKTYPE REQUIRED
|
||
MESSAGE COPY,21@
|
||
END
|
||
|
||
STRING F_DESCR 50
|
||
BEGIN
|
||
PROMPT 1 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_CODICE
|
||
CHECKTYPE REQUIRED
|
||
MESSAGE COPY,22@
|
||
HELP "Descrizione del registro"
|
||
WARNING "La descrizione e' obbligatoria"
|
||
END
|
||
|
||
NUMBER F_CODLIB 2
|
||
BEGIN
|
||
PROMPT 1 5 "Codice libro "
|
||
FIELD S7
|
||
FLAGS "Z"
|
||
GROUP 1
|
||
USE %ITL
|
||
INPUT CODTAB F_CODLIB
|
||
DISPLAY "Codice libro" CODTAB
|
||
DISPLAY "Descrizione @50" S0
|
||
OUTPUT F_CODLIB CODTAB
|
||
OUTPUT F_DESCR S0
|
||
CHECKTYPE NORMAL
|
||
HELP "Codice del libro sociale a cui fa riferimento il registro"
|
||
END
|
||
|
||
LIST F_TIPO 1 28
|
||
BEGIN
|
||
PROMPT 30 5 "Tipo "
|
||
HELP "Tipo di registro"
|
||
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) Giornale di magazzino"
|
||
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|SHOW,10@
|
||
END
|
||
|
||
STRING F_CONSPRESSO 50
|
||
BEGIN
|
||
PROMPT 1 7 "Conservato presso "
|
||
HELP "Luogo dove verra' conservato il registro"
|
||
FIELD S1
|
||
GROUP 1
|
||
END
|
||
|
||
STRING F_ATTIVITA 5
|
||
BEGIN
|
||
PROMPT 1 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"
|
||
ADD RUN ba4 -4
|
||
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
|
||
ADD RUN ba4 -3
|
||
END
|
||
|
||
NUMBER F_PAGSTAMP 5
|
||
BEGIN
|
||
PROMPT 1 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 1 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 1 15 "Cod. libro unico "
|
||
FIELD S6
|
||
HELP "Codice del libro unico a cui fa riferimento"
|
||
FLAGS "UZ"
|
||
GROUP 2 3 4
|
||
USE %LBU
|
||
INPUT CODTAB[1,4] F_ANNO
|
||
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]
|
||
WARNING "Libro unico assente"
|
||
CHECKTYPE NORMAL
|
||
VALIDATE NOT_EMPTY_CHECK_FIELD
|
||
END
|
||
|
||
BOOLEAN F_CONFIG
|
||
BEGIN
|
||
PROMPT 1 17 "Stampante configurata"
|
||
END
|
||
|
||
BUTTON F_PRINTER 30 2
|
||
BEGIN
|
||
PROMPT 40 17 "Configurazione ~stampante"
|
||
END
|
||
|
||
ENDPAGE
|
||
|
||
PAGE "Opzioni" -1 -1 78 18
|
||
|
||
NUMBER DLG_NULL 5
|
||
BEGIN
|
||
PROMPT 1 1 "Ditta "
|
||
FLAGS "DR"
|
||
GROUP 18
|
||
END
|
||
|
||
STRING DLG_NULL 50
|
||
BEGIN
|
||
PROMPT 20 1 ""
|
||
FLAGS "D"
|
||
GROUP 19
|
||
END
|
||
|
||
NUMBER DLG_NULL 4
|
||
BEGIN
|
||
PROMPT 1 2 "Anno "
|
||
FLAGS "DP"
|
||
GROUP 20
|
||
END
|
||
|
||
STRING DLG_NULL 3
|
||
BEGIN
|
||
PROMPT 49 2 "Codice registro "
|
||
FLAGS "D"
|
||
GROUP 21
|
||
END
|
||
|
||
STRING DLG_NULL 50
|
||
BEGIN
|
||
PROMPT 1 3 "Descrizione "
|
||
GROUP 22
|
||
FLAGS "D"
|
||
END
|
||
|
||
BOOLEAN F_REGSOSP
|
||
BEGIN
|
||
PROMPT 1 5 "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 5 "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 5 "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 1 5 "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 1 5 "Ultima riga stampata "
|
||
FIELD I6
|
||
HELP "Ultimo numero della riga stampata"
|
||
FLAGS "R"
|
||
GROUP 5 6
|
||
END
|
||
|
||
BOOLEAN F_STAMPA_INDIRIZZI_COMPLETI
|
||
BEGIN
|
||
PROMPT 1 7 "Stampa indirizzi completi"
|
||
HELP "Indicare se stampare gli indirizzi completi"
|
||
FIELD B5
|
||
GROUP 2 3
|
||
END
|
||
|
||
LIST F_FREQUENZA_STAMPA 1 16
|
||
BEGIN
|
||
PROMPT 1 7 "Stampa reg. riepilogativo "
|
||
HELP "Intervallo per fare il riepilogo"
|
||
FIELD S9
|
||
GROUP 4
|
||
ITEM "M|Mensile"
|
||
ITEM "T|Trimestrale"
|
||
END
|
||
|
||
NUMBER F_PROG_DARE 17
|
||
BEGIN
|
||
PROMPT 1 7 "Progressivo dare "
|
||
HELP "Progressivo dare del giornale"
|
||
FIELD R1
|
||
PICTURE "#.###.###.###.###"
|
||
FLAGS "R"
|
||
GROUP 6
|
||
END
|
||
|
||
NUMBER F_TOT_INCASSI 15
|
||
BEGIN
|
||
PROMPT 1 7 "Totale incassi "
|
||
HELP "Progressivo degli incassi effettuati"
|
||
FIELD R0
|
||
FLAGS "R"
|
||
PICTURE "."
|
||
GROUP 5
|
||
END
|
||
|
||
BOOLEAN F_STAMPA_RIEPIL_SUL_REGISTRO
|
||
BEGIN
|
||
PROMPT 46 7 "Stampa riepilogo liquidazione"
|
||
FIELD B6
|
||
GROUP 2 3 4
|
||
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 7 "Totale pagamenti "
|
||
HELP "Progressivo dei pagamenti effettuati"
|
||
FIELD R1
|
||
FLAGS "R"
|
||
PICTURE "."
|
||
GROUP 5
|
||
END
|
||
|
||
BOOLEAN F_STAMPA_LIQUIDAZIONE
|
||
BEGIN
|
||
PROMPT 1 9 "Stampa liquidazione"
|
||
FIELD B7
|
||
GROUP 2 3 4
|
||
HELP "Indicare se stampare a fine periodo la liquidazione"
|
||
END
|
||
|
||
NUMBER F_PROG_AVERE 17
|
||
BEGIN
|
||
PROMPT 1 9 "Progressivo avere "
|
||
HELP "Progressivo avere del giornale"
|
||
FIELD R2
|
||
FLAGS "R"
|
||
PICTURE "#.###.###.###.###"
|
||
GROUP 6
|
||
END
|
||
|
||
BOOLEAN F_STAMPA_COSTI_RICAVI
|
||
BEGIN
|
||
PROMPT 42 9 "Stampa costi/ricavi su libro cronologico "
|
||
FIELD B2
|
||
GROUP 5
|
||
END
|
||
|
||
BOOLEAN F_VENTIL
|
||
BEGIN
|
||
PROMPT 46 9 "Attivita' con ventilazione"
|
||
HELP "Indicare se vengono registrate operazioni con ventilazione IVA"
|
||
FIELD B3
|
||
GROUP 3
|
||
END
|
||
|
||
LIST F_MESE_STAMPA_ULTIMA_LIQ 10
|
||
BEGIN
|
||
PROMPT 1 11 "Mese stampa ultima liquidazione "
|
||
HELP "Mese in cui e' stata stampata l'ultima liquidazione"
|
||
FIELD I4
|
||
FLAGS "M"
|
||
ITEM "00|Nessuno"
|
||
ITEM "13|Annuale"
|
||
GROUP 2 3 4
|
||
END
|
||
|
||
BOOLEAN F_STAMPA_SULLO_STESSO_REGISTRO
|
||
BEGIN
|
||
PROMPT 1 11 "Stampa sullo stesso registro"
|
||
HELP "Indicare se il nuovo esercizio viene stampato sullo stesso registro"
|
||
FIELD B8
|
||
GROUP 6
|
||
END
|
||
|
||
NUMBER F_ULTIMO_NUM_PROT 7
|
||
BEGIN
|
||
PROMPT 1 13 "Ultimo numero di protocollo "
|
||
FIELD I5
|
||
FLAGS "R"
|
||
GROUP 2 3
|
||
HELP "Ultimo numero di protocollo"
|
||
END
|
||
|
||
DATE F_ULTIMA_DATA_DI_REGISTR
|
||
BEGIN
|
||
PROMPT 1 15 "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 1 17 "Ultima data di stampa "
|
||
HELP "Data dell'ultima stampa effettuata"
|
||
FIELD D3
|
||
END
|
||
|
||
BOOLEAN F_STAMPA_INTESTAZIONE
|
||
BEGIN
|
||
PROMPT 46 17 "Stampa intestazione ditta"
|
||
HELP "Indicare se stampare l'intestazione della ditta"
|
||
FIELD B9
|
||
GROUP 1
|
||
END
|
||
|
||
NUMBER F_FREQSTA 2
|
||
BEGIN
|
||
FLAGS "U"
|
||
PROMPT 2 6 "Frequenza di stampa "
|
||
FIELD I1
|
||
NUM_EXPR #F_FREQ<=31
|
||
WARNING "La frequenza di stampa pu<70> arrivare fino a 31 giorni"
|
||
GROUP 10
|
||
END
|
||
|
||
BOOLEAN F_STARAGG
|
||
BEGIN
|
||
PROMPT 2 7 "Stampa giornale raggruppato"
|
||
FIELD B1
|
||
GROUP 10
|
||
END
|
||
|
||
BOOLEAN F_STARAGGMAG
|
||
BEGIN
|
||
PROMPT 2 8 "Raggruppo i magazzini"
|
||
FIELD B2
|
||
GROUP 10
|
||
END
|
||
|
||
BOOLEAN F_STACLAFIS
|
||
BEGIN
|
||
PROMPT 2 9 "Raggruppo per classe fiscale articoli "
|
||
FIELD B3
|
||
GROUP 10
|
||
END
|
||
|
||
|
||
BOOLEAN F_STAFISART
|
||
BEGIN
|
||
PROMPT 2 10 "Raggruppo per gruppo fiscale articoli "
|
||
FIELD B4
|
||
GROUP 10
|
||
END
|
||
|
||
BOOLEAN F_STAFISCAU
|
||
BEGIN
|
||
PROMPT 2 11 "Raggruppo per gruppo causali "
|
||
FIELD B5
|
||
GROUP 10
|
||
END
|
||
|
||
NUMBER F_PAGULTCORR 3
|
||
BEGIN
|
||
PROMPT 2 12 "Pagina e data ultima stampa esercizio corrente "
|
||
FIELD I5
|
||
GROUP 10
|
||
END
|
||
|
||
DATE F_ULTCORR
|
||
BEGIN
|
||
PROMPT 58 12 ""
|
||
FIELD D0
|
||
GROUP 10
|
||
END
|
||
|
||
NUMBER F_PAGULTPREC 3
|
||
BEGIN
|
||
PROMPT 2 13 "Pagina e data ultima stampa esercizio precedente "
|
||
FIELD I6
|
||
GROUP 10
|
||
END
|
||
|
||
DATE F_ULTPREC
|
||
BEGIN
|
||
PROMPT 58 13 ""
|
||
FIELD D1
|
||
GROUP 10
|
||
END
|
||
|
||
|
||
ENDPAGE
|
||
|
||
ENDMASK
|
||
|
||
|