367 lines
14 KiB
Plaintext
367 lines
14 KiB
Plaintext
|
#include "batbca7.h"
|
|||
|
|
TOOLBAR "" 0 20 0 2
|
|||
|
|
#include <toolbar.h>
|
|||
|
|
ENDPAGE
|
|||
|
|
|
|||
|
|
#define INPS_GROUP 7
|
|||
|
|
#define GR_CAUDD1 8
|
|||
|
|
#define G_ICTS 9
|
|||
|
|
|
|||
|
|
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 "| "
|
|||
|
|
MESSAGE DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "C|C"
|
|||
|
|
MESSAGE ENABLE,F_CT|DISABLE,F_IC|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "D|D"
|
|||
|
|
MESSAGE 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 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 RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "E1|E1"
|
|||
|
|
MESSAGE 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"
|
|||
|
|
FIELD LF_TABCOM->S1
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
LIST F_QUADRAT 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 3 "Codice quadro "
|
|||
|
|
HELP "Inserire il codice quadro"
|
|||
|
|
ITEM "| "
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "A|A"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "A1|A1"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "A2|A2"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "A3|A3"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "B|B"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "B1|B1"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "C|C"
|
|||
|
|
MESSAGE ENABLE,F_CT|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|ENABLE,F_IC|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "D|D"
|
|||
|
|
MESSAGE 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 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 RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "E1|E1"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "E2|E2"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|HIDE,F_DESCR1|SHOW,F_DESCR2
|
|||
|
|
ITEM "F|F"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "F1|F1"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "F2|F2"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|HIDE,F_DESCR1|SHOW,F_DESCR2
|
|||
|
|
ITEM "G|G"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "G1|G1"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "N|N"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "P|P"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "Q|Q"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "R|R"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "S|S"
|
|||
|
|
MESSAGE RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
|||
|
|
ITEM "T|T"
|
|||
|
|
MESSAGE 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"
|
|||
|
|
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
|
|||
|
|
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
|
|||
|
|
|