cb6165f09b
2475 2521 2493 2494 2559 2558 2556 2495 2487 2491 2470 2461 2568 2492 2587 2457 2458 2459 2460 2574 2582 2525 2526 2524 2523 2522 2531 2530 2529 2528 2527 2534 2533 2536 2537 2538 2510 2515 2585 2539 2570 2555 2584 2503 2500 2499 2543 2547 2569 2472 ???? git-svn-id: svn://10.65.10.50/trunk@702 c028cbd2-c16b-5b4b-a496-9718f37d4682
458 lines
9.1 KiB
Plaintext
Executable File
458 lines
9.1 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 "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
|
|
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]
|
|
FLAGS "U"
|
|
KEY 1
|
|
GROUP 1
|
|
COPY ALL F_ANNO
|
|
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_ANNO
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,22@
|
|
HELP "Descrizione del registro"
|
|
WARNING "La descrizione e' obbligatoria"
|
|
END
|
|
|
|
STRING F_CODLIB 2
|
|
BEGIN
|
|
PROMPT 1 5 "Codice libro "
|
|
FIELD S7
|
|
FLAGS "R"
|
|
GROUP 1
|
|
USE %ITL
|
|
INPUT CODTAB F_CODLIB
|
|
DISPLAY "Codice libro@R" 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 26
|
|
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) 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 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"
|
|
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 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 "
|
|
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
|
|
|
|
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 registro riepilogativo "
|
|
HELP "Intervallo per fare il riepilogo"
|
|
FIELD S9
|
|
GROUP 4
|
|
ITEM "M|Mensile"
|
|
ITEM "T|Trimestrale"
|
|
END
|
|
|
|
NUMBER F_PROG_DARE 15
|
|
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
|
|
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 15
|
|
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
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|