362 lines
14 KiB
Plaintext
Executable File
362 lines
14 KiB
Plaintext
Executable File
#include "batbca7.h"
|
||
TOOLBAR "" 0 20 0 2
|
||
#include <toolbar.h>
|
||
ENDPAGE
|
||
|
||
PAGE "Tabella causali modello 770" -1 -1 78 18
|
||
|
||
GROUPBOX DLG_NULL 77 8
|
||
BEGIN
|
||
PROMPT 0 0 ""
|
||
END
|
||
|
||
NUMBER F_CODCAUS 2
|
||
BEGIN
|
||
PROMPT 1 1 "Codice causale "
|
||
FIELD LF_TABCOM->CODTAB
|
||
HELP "Inserire il codice della causale"
|
||
USE %CA7
|
||
INPUT CODTAB F_CODCAUS
|
||
DISPLAY "Codice causale " CODTAB
|
||
DISPLAY "Codice tributo " I0
|
||
DISPLAY "Descrizione @60" S0
|
||
DISPLAY "Codice quadro " S1
|
||
OUTPUT F_CODCAUS CODTAB
|
||
OUTPUT F_DESCR2 S0
|
||
OUTPUT F_CODTRIB I0
|
||
OUTPUT F_QUADRAT S1
|
||
OUTPUT F_QUADRCE2 S1
|
||
FLAGS "RZ"
|
||
CHECKTYPE REQUIRED
|
||
KEY 1
|
||
END
|
||
|
||
NUMBER F_CODTRIB 4
|
||
BEGIN
|
||
PROMPT 1 2 "Codice tributo "
|
||
FIELD LF_TABCOM->I0
|
||
HELP "Inserire il codice tributo"
|
||
WARNING "Manca il codice tributo"
|
||
CHECKTYPE REQUIRED
|
||
END
|
||
|
||
NUMBER F_ARTBIL 2
|
||
BEGIN
|
||
PROMPT 31 2 "Articolo di bilancio "
|
||
FIELD LF_TABCOM->I3
|
||
END
|
||
|
||
LIST F_QUADRCE2 2
|
||
BEGIN
|
||
PROMPT 1 3 "Codice quadro "
|
||
HELP "Inserire il codice quadro"
|
||
ITEM "C|C"
|
||
MESSAGE CLEAR,G_INPS@|ENABLE,F_CT|DISABLE,F_IC|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "D|D"
|
||
MESSAGE ENABLE,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_CAUSD1|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSD|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "D1|D1"
|
||
MESSAGE ENABLE,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_CAUSD|DISABLE,GR_CAUDD1@||ENABLE,TCF_CAUSD1|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "E|E"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "E1|E1"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
MESSAGE COPY,F_CODQUA
|
||
WARNING "Manca il codice quadro"
|
||
CHECKTYPE REQUIRED
|
||
FIELD LF_TABCOM->S1
|
||
END
|
||
|
||
LIST F_QUADRAT 2
|
||
BEGIN
|
||
PROMPT 1 3 "Codice quadro "
|
||
HELP "Inserire il codice quadro"
|
||
ITEM "A|A"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "A1|A1"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "A2|A2"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "A3|A3"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "B|B"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "B1|B1"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "C|C"
|
||
MESSAGE CLEAR,G_INPS@|ENABLE,F_CT|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|ENABLE,F_IC|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "D|D"
|
||
MESSAGE ENABLE,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_CAUSD1|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSD|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "D1|D1"
|
||
MESSAGE ENABLE,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_CAUSD|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSD1|DISABLE,TCF_CAUSD|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "E|E"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "E1|E1"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "E2|E2"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|HIDE,F_DESCR1|SHOW,F_DESCR2
|
||
ITEM "F|F"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "F1|F1"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "F2|F2"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|HIDE,F_DESCR1|SHOW,F_DESCR2
|
||
ITEM "G|G"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "G1|G1"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "N|N"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "P|P"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "Q|Q"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "R|R"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "S|S"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "T|T"
|
||
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
MESSAGE COPY,F_QUADRCE2
|
||
MESSAGE COPY,F_CODQUA
|
||
WARNING "Manca il codice quadro"
|
||
CHECKTYPE REQUIRED
|
||
FIELD LF_TABCOM->S1
|
||
END
|
||
|
||
LIST F_CODQUA
|
||
BEGIN
|
||
PROMPT 1 3 ""
|
||
ITEM "A|A"
|
||
ITEM "A1|A1"
|
||
ITEM "A2|A2"
|
||
ITEM "A3|A3"
|
||
ITEM "B|B"
|
||
ITEM "B1|B1"
|
||
ITEM "C|C"
|
||
ITEM "D|D"
|
||
ITEM "D1|D1"
|
||
ITEM "E|E"
|
||
ITEM "E1|E1"
|
||
ITEM "E2|E2"
|
||
ITEM "F|F"
|
||
ITEM "F1|F1"
|
||
ITEM "F2|F2"
|
||
ITEM "G|G"
|
||
ITEM "G1|G1"
|
||
ITEM "N|N"
|
||
ITEM "P|P"
|
||
ITEM "Q|Q"
|
||
ITEM "R|R"
|
||
ITEM "S|S"
|
||
ITEM "T|T"
|
||
FLAGS "H"
|
||
FIELD LF_TABCOM->S1
|
||
END
|
||
|
||
STRING F_DESCR1 35
|
||
BEGIN
|
||
PROMPT 1 4 "Descrizione "
|
||
HELP "Inserire la descrizione della causale"
|
||
WARNING "Manca la descrizione"
|
||
FIELD LF_TABCOM->S0
|
||
CHECKTYPE REQUIRED
|
||
MESSAGE COPY,F_DESCR2
|
||
END
|
||
|
||
STRING F_DESCR2 60
|
||
BEGIN
|
||
PROMPT 1 4 "Descrizione "
|
||
FIELD LF_TABCOM->S0
|
||
HELP "Inserire la descrizione della causale"
|
||
WARNING "Manca la descrizione"
|
||
CHECKTYPE REQUIRED
|
||
MESSAGE COPY,F_DESCR1,1,22
|
||
END
|
||
|
||
LISTBOX TCF_CAUSD 1 60
|
||
BEGIN
|
||
PROMPT 1 5 "Causale D "
|
||
ITEM "|"
|
||
ITEM "A|A Prestazione di lavoro autonomo rientranti nell'esercizio di arte o professione abituale"
|
||
ITEM "B|B Per prestazioni rese da amministratori, sindaci e revisori di societ<65>, associazione ed altri enti con o senza personalit<69> giuridica"
|
||
ITEM "C|C Per prestazioni rese da collaboratori a giornali, riviste, enciclopedie e simili"
|
||
ITEM "D|D Per prestazioni rese da partecipanti a collegi e commissioni"
|
||
ITEM "E|E Per prestazioni rese dagli sportivi con contratto di lavoro autonomo"
|
||
ITEM "F|F Per prestazioni rese nell'ambito di rapporti di collaborazione coordinata e continuativa diversi da quelli sopra elencati"
|
||
ITEM "G|G Per l'utilizzazione economica da parte dell'autore o dell'inventore, di opere dell'ingegno, di brevetti industriali e di processi, formule o informazioni relativi ad esperienze acquisite in campo industriale.."
|
||
ITEM "H|H A titolo di utili derivanti da contratti di associazione in partecipazione e da contratti di cointeresenza quando l'apporto <20> costituito esclusivamente dalla prestazione di lavoro"
|
||
ITEM "I|I A titolo di utili spettanti ai soci promotori ed ai soci fondatori delle societ<65> di capitali"
|
||
ITEM "L|L Per la levata di protesti cambiari da parte dei segretari comunali"
|
||
ITEM "M|M Per l'utilizzazione economica da parte di soggetto diverso dall'autore o dall'inventore di opere dell'ingegno, brevetti, formule .."
|
||
ITEM "N|N A titolo di indennit<69> corrisposte per la cessazione di rapporti di collaborazione coordinata e continuativa, assoggettabili a tassazione separata"
|
||
ITEM "P|P A titolo di indennit<69> corrisposte per la cessazione dei rapporti di agenzia delle persone fisiche"
|
||
ITEM "Q|Q A titolo di indennit<69> corrisposte per la cessazione da funzioni notarili"
|
||
ITEM "R|R A titolo di indennit<69> corrisposte per la cessazione di attivit<69> sportiva professionale"
|
||
ITEM "S|S A titolo di indennit<69> di trasferta o di rimborso forfetario di spese spettanti a soggetti che svolgono attivit<69> sportiva dilettantistica di cui L.25.3.86 n.80"
|
||
ITEM "T|T Altro titolo diverso dai precedenti"
|
||
FIELD LF_TABCOM->S2
|
||
FLAGS "D"
|
||
GROUP GR_CAUDD1
|
||
END
|
||
|
||
LISTBOX TCF_CAUSD1 1 60
|
||
BEGIN
|
||
PROMPT 1 6 "Causale D1 "
|
||
ITEM "|"
|
||
ITEM "A|A Agente o rappresentante di commercio monomadatario"
|
||
ITEM "B|B Agente o rappresentate plurimandatario"
|
||
ITEM "C|C Commissionario"
|
||
ITEM "D|D Mediatore"
|
||
ITEM "E|E Procacciatore d'affari"
|
||
ITEM "F|F Per somme assoggettate a ritenuta a titolo d'imposta"
|
||
FIELD LF_TABCOM->S3
|
||
FLAGS "D"
|
||
GROUP GR_CAUDD1
|
||
END
|
||
|
||
/*
|
||
STRING TCF_CAUSD 1
|
||
BEGIN
|
||
PROMPT 1 5 "Causale quadro D "
|
||
SHEET "Codice|Descrizione@80"
|
||
INPUT TCF_CAUSD
|
||
ITEM "|"
|
||
ITEM "A|Prestazione di lavoro autonomo rientranti nell'esercizio di arte o professione abituale"
|
||
ITEM "B|Per prestazioni rese da amministratori, sindaci e revisori di societ<65>, associazione ed altri enti con o senza personalit<69> giuridica"
|
||
ITEM "C|Per prestazioni rese da collaboratori a giornali, riviste, enciclopedie e simili"
|
||
ITEM "D|Per prestazioni rese da partecipanti a collegi e commissioni"
|
||
ITEM "E|Per prestazioni rese dagli sportivi con contratto di lavoro autonomo"
|
||
ITEM "F|Per prestazioni rese nell'ambito di rapporti di collaborazione coordinata e continuativa diversi da quelli sopra elencati"
|
||
ITEM "G|Per l'utilizzazione economica da parte dell'autore o dell'inventore, di opere dell'ingegno, di brevetti industriali e di processi, formule o informazioni relativi ad esperienze acquisite in campo industriale.."
|
||
ITEM "H|A titolo di utili derivanti da contratti di associazione in partecipazione e da contratti di cointeresenza quando l'apporto <20> costituito esclusivamente dalla prestazione di lavoro"
|
||
ITEM "I|A titolo di utili spettanti ai soci promotori ed ai soci fondatori delle societ<65> di capitali"
|
||
ITEM "L|Per la levata di protesti cambiari da parte dei segretari comunali"
|
||
ITEM "M|Per l'utilizzazione economica da parte di soggetto diverso dall'autore o dall'inventore di opere dell'ingegno, brevetti, formule .."
|
||
ITEM "N|A titolo di indennit<69> corrisposte per la cessazione di rapporti di collaborazione coordinata e continuativa, se il diritto all'indennit<69> risulta da atto di data certa anteriore .."
|
||
ITEM "P|A titolo di indennit<69> corrisposte per la cessazione da funzioni notarili"
|
||
ITEM "R|A titolo di indennit<69> corrisposte per la cessazione di attivit<69> sportiva professionale"
|
||
ITEM "S|A titolo di indennit<69> di trasferta o di rimborso forfetario di spese spettanti a soggetti che svolgono attivit<69> sportiva dilettantistica di cui L.25.3.86 n.80"
|
||
FIELD LF_TABCOM->S2
|
||
FLAGS "D"
|
||
GROUP GR_CAUDD1
|
||
OUTPUT TCF_CAUSD
|
||
END
|
||
|
||
STRING TCF_CAUSD1 1
|
||
BEGIN
|
||
PROMPT 30 5 "Causale quadro D1"
|
||
SHEET "Codice|Descrizione@80"
|
||
INPUT TCF_CAUSD1
|
||
ITEM "|"
|
||
ITEM "A|Agente o rappresentante di commercio monomadatario"
|
||
ITEM "B|Agente o rappresentate plurimandatario"
|
||
ITEM "C|Commissionario"
|
||
ITEM "D|Mediatore"
|
||
ITEM "E|Procacciatore d'affari"
|
||
ITEM "F|Per somme assoggettate a ritenuta a titolo d'imposta"
|
||
FIELD LF_TABCOM->S3
|
||
FLAGS "D"
|
||
GROUP GR_CAUDD1
|
||
OUTPUT TCF_CAUSD1
|
||
END
|
||
*/
|
||
|
||
BOOLEAN F_ASSRIT
|
||
BEGIN
|
||
PROMPT 1 8 "Somme assoggettate a titolo di ritenute d'acconto"
|
||
FIELD LF_TABCOM->B0
|
||
END
|
||
|
||
BOOLEAN F_IC
|
||
BEGIN
|
||
PROMPT 58 8 "T.S. "
|
||
FIELD LF_TABCOM->B3
|
||
GROUP G_ICTS
|
||
END
|
||
|
||
BOOLEAN F_CT
|
||
BEGIN
|
||
PROMPT 66 8 "C.T. "
|
||
FIELD LF_TABCOM->B2
|
||
GROUP G_ICTS
|
||
END
|
||
|
||
NUMBER F_PERASS 6
|
||
BEGIN
|
||
PROMPT 1 9 "Percentuale assoggettamento imponibile "
|
||
FIELD LF_TABCOM->R4
|
||
PICTURE ".2"
|
||
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
|
||
WARNING "Percentuale assoggettamento imponibile non valida"
|
||
END
|
||
|
||
NUMBER TCF_PERCASSPREV 6
|
||
BEGIN
|
||
PROMPT 1 10 "Percentuale cassa previdenza "
|
||
FIELD LF_TABCOM->R5
|
||
PICTURE ".2"
|
||
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
|
||
WARNING "Percentuale cassa previdenza non valida"
|
||
END
|
||
|
||
NUMBER F_PERRIT 6
|
||
BEGIN
|
||
PROMPT 1 11 "Percentuale ritenute d'acconto "
|
||
FIELD LF_TABCOM->R0
|
||
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
|
||
PICTURE ".2"
|
||
WARNING "Percentuale della ritenuta d'acconto non valida"
|
||
END
|
||
|
||
GROUPBOX DLG_NULL 77 4
|
||
BEGIN
|
||
PROMPT 0 13 "Contributo INPS"
|
||
END
|
||
|
||
BOOLEAN TCF_BINPS
|
||
BEGIN
|
||
PROMPT 1 14 "Contributo INPS "
|
||
FIELD LF_TABCOM->B4
|
||
GROUP G_INPS
|
||
MESSAGE TRUE ENABLE,INPS_GROUP@
|
||
MESSAGE FALSE DISABLE,INPS_GROUP@
|
||
END
|
||
|
||
NUMBER TCF_PERCINPS 6
|
||
BEGIN
|
||
PROMPT 30 14 "Percentuale "
|
||
PICTURE ".2"
|
||
FIELD LF_TABCOM->R1
|
||
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
|
||
FLAGS "D"
|
||
GROUP INPS_GROUP
|
||
WARNING "Percentuale contributo INPS non valida"
|
||
END
|
||
|
||
NUMBER TCF_ASSIMPINPS 6
|
||
BEGIN
|
||
PROMPT 1 15 "Percentuale ass.imp. "
|
||
PICTURE ".2"
|
||
FIELD LF_TABCOM->R2
|
||
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
|
||
FLAGS "D"
|
||
GROUP INPS_GROUP
|
||
WARNING "Percentuale ass.imp. contributo INPS non valida"
|
||
END
|
||
|
||
NUMBER TCF_COMMINPS 6
|
||
BEGIN
|
||
PROMPT 30 15 "Quota a carico del committente "
|
||
PICTURE ".2"
|
||
FIELD LF_TABCOM->R3
|
||
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
|
||
FLAGS "D"
|
||
WARNING "Quota contributo INPS a carico del committente non valida"
|
||
GROUP INPS_GROUP
|
||
END
|
||
|
||
ENDPAGE
|
||
|
||
ENDMASK
|
||
|