489 lines
16 KiB
Plaintext
Executable File
489 lines
16 KiB
Plaintext
Executable File
#include "batbca7.h"
|
||
TOOLBAR "" 0 20 0 2
|
||
#include <toolbar.h>
|
||
ENDPAGE
|
||
|
||
PAGE "Tabella causali " -1 -1 78 18
|
||
|
||
GROUPBOX DLG_NULL 77 12
|
||
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 "Cod.caus." CODTAB
|
||
DISPLAY "Cod.trib." I0
|
||
DISPLAY "Art.bil." I3
|
||
DISPLAY "Quadro " S1
|
||
DISPLAY "Descrizione @60" S0
|
||
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,TCF_BINPS|K_SPACE,TCF_BINPS|DISABLE,F_IC|RESET,GR_NOCAUC@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSC|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "D|D"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|ENABLE,TCF_PERCASSPREV|RESET,GR_NOCAUD@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSD|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "D1|D1"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_NOCAUD1@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSD1|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "E|E"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_NOCAUE@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSE|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "E1|E1"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_NOCAUE1@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSE1|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 "A|A"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "AB|AB"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "A1|A1"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "A2|A2"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "A3|A3"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "B|B"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "B1|B1"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "C|C"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,GR_NOCAUC@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSC|ENABLE,F_IC|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "D|D"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|ENABLE,TCF_PERCASSPREV|RESET,GR_NOCAUD@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSD|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "DB|DB"
|
||
MESSAGE ENABLE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_NOCAUDB@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSDB|DISABLE,TCF_CAUSD|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "D1|D1"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_NOCAUD1@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSD1|DISABLE,TCF_CAUSD|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "E|E"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_NOCAUE@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSE|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "E1|E1"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_NOCAUE1@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSE1|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "E2|E2"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|HIDE,F_DESCR1|SHOW,F_DESCR2
|
||
ITEM "F|F"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "F1|F1"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "F2|F2"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|HIDE,F_DESCR1|SHOW,F_DESCR2
|
||
ITEM "G|G"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
|
||
ITEM "G1|G1"
|
||
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|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 2
|
||
BEGIN
|
||
PROMPT 1 3 ""
|
||
ITEM "A|A"
|
||
ITEM "AB|AB"
|
||
ITEM "A1|A1"
|
||
ITEM "A2|A2"
|
||
ITEM "A3|A3"
|
||
ITEM "B|B"
|
||
ITEM "B1|B1"
|
||
ITEM "C|C"
|
||
ITEM "D|D"
|
||
ITEM "DB|DB"
|
||
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"
|
||
FLAGS "H"
|
||
FIELD LF_TABCOM->S1
|
||
END
|
||
|
||
STRING F_DESCR1 60 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
|
||
|
||
STRING TCF_CAUSC 1
|
||
BEGIN
|
||
PROMPT 1 5 "Causale C "
|
||
SHEET "Codice|Descrizione@60"
|
||
INPUT TCF_CAUSC
|
||
ITEM " | "
|
||
ITEM "A|indenn. e compensi erogati ai prest. lavoro dipendente....."
|
||
ITEM "B|somme corrisp. a titolo di borsa di studio o di assegno...."
|
||
ITEM "C|indenn., gett. di pres. altri comp. corrisp. dallo Stato..."
|
||
ITEM "D|indenn., percep. per cariche elettive di cui all'art. 114.."
|
||
ITEM "E|rendite vital. e rendite a tempo determ., a tit. oneroso..."
|
||
ITEM "F|prestaz. comunque erogate in forma di trattam. periodico..."
|
||
ITEM "G|ass. period. alla cui prod. concor. n<> capitale n<> lavoro.."
|
||
ITEM "H|compensi corrisp. ai lav. imp. in lavori socialm. utili...."
|
||
OUTPUT TCF_CAUSC
|
||
OUTPUT TCF_CAUSC_DESCR
|
||
FIELD LF_TABCOM->S6
|
||
FLAGS "D"
|
||
GROUP GR_CAUDD1
|
||
GROUP GR_NOCAUD
|
||
GROUP GR_NOCAUDB
|
||
GROUP GR_NOCAUD1
|
||
GROUP GR_NOCAUE
|
||
GROUP GR_NOCAUE1
|
||
END
|
||
|
||
STRING TCF_CAUSC_DESCR 60
|
||
BEGIN
|
||
PROMPT 16 5 ""
|
||
FLAGS "D"
|
||
GROUP GR_CAUDD1
|
||
GROUP GR_NOCAUD
|
||
GROUP GR_NOCAUDB
|
||
GROUP GR_NOCAUD1
|
||
GROUP GR_NOCAUE
|
||
GROUP GR_NOCAUE1
|
||
END
|
||
|
||
STRING TCF_CAUSD 1
|
||
BEGIN
|
||
PROMPT 1 6 "Causale D "
|
||
SHEET "Codice|Descrizione@60"
|
||
INPUT TCF_CAUSD
|
||
ITEM " | "
|
||
ITEM "A|prestaz. di lav. auton. nell'eserc. di arti o prof. abit..."
|
||
ITEM "B|utiliz. econom., da parte dell'autore o dell'inventore,...."
|
||
ITEM "C|a titolo di utili deriv. da contrat. di ass. in partecip..."
|
||
ITEM "D|a titolo di utili spett. ai soci prom. ed ai soci fondat..."
|
||
ITEM "E|per la levata di protesti cambiari da parte dei segr. com.."
|
||
ITEM "F|utiliz. econom., da parte di sogg. diverso dall'autore o..."
|
||
ITEM "G|indenn. corrisp. per la cessaz. dei rapporti di agenzia...."
|
||
ITEM "H|indenn. corrisp. per la cessaz. da funzioni notarili"
|
||
ITEM "I|indenn. di trasf. o di rimb. forfet. di spese spettanti...."
|
||
ITEM "L|prestaz. di lavoro autonomo non esercitate abitualmente"
|
||
ITEM "M|prestaz. rese dagli sportivi con contratto di lav. autonomo"
|
||
ITEM "N|indenn. corrisp. per la cessaz. di attivit<69> sportiva prof.."
|
||
ITEM "T|altro titolo diverso dai precedenti"
|
||
OUTPUT TCF_CAUSD
|
||
OUTPUT TCF_CAUSD_DESCR
|
||
FIELD LF_TABCOM->S2
|
||
FLAGS "D"
|
||
GROUP GR_CAUDD1
|
||
GROUP GR_NOCAUC
|
||
GROUP GR_NOCAUDB
|
||
GROUP GR_NOCAUD1
|
||
GROUP GR_NOCAUE
|
||
GROUP GR_NOCAUE1
|
||
END
|
||
|
||
STRING TCF_CAUSD_DESCR 60
|
||
BEGIN
|
||
PROMPT 16 6 ""
|
||
FLAGS "D"
|
||
GROUP GR_CAUDD1
|
||
GROUP GR_NOCAUC
|
||
GROUP GR_NOCAUDB
|
||
GROUP GR_NOCAUD1
|
||
GROUP GR_NOCAUE
|
||
GROUP GR_NOCAUE1
|
||
END
|
||
|
||
STRING TCF_CAUSDB 1
|
||
BEGIN
|
||
PROMPT 1 7 "Causale DB "
|
||
SHEET "Codice|Descrizione@60"
|
||
INPUT TCF_CAUSDB
|
||
ITEM " | "
|
||
ITEM "A|prestaz. di lav. auton. ..... iscritti in albi senza cassa"
|
||
ITEM "B|prestaz. rese da amministrat., sindaci e revis. di soc....."
|
||
ITEM "C|prestaz. rese da collab. a giornali, riviste, enciclop....."
|
||
ITEM "D|prestaz. rese da partecipanti a collegi e commissioni"
|
||
ITEM "E|prestaz. di collab. coord. e contin. diversi da quelli....."
|
||
ITEM "F|indenn. corrisp. per la cessaz. di rapp.. ass. a tass. sep."
|
||
ITEM "G|provvigioni degli incaricati per le vendite a domicilio"
|
||
ITEM "T|altro titolo diverso dai precedenti"
|
||
OUTPUT TCF_CAUSDB
|
||
OUTPUT TCF_CAUSDB_DESCR
|
||
FIELD LF_TABCOM->S7
|
||
FLAGS "D"
|
||
GROUP GR_CAUDD1
|
||
GROUP GR_NOCAUC
|
||
GROUP GR_NOCAUD
|
||
GROUP GR_NOCAUD1
|
||
GROUP GR_NOCAUE
|
||
GROUP GR_NOCAUE1
|
||
END
|
||
|
||
STRING TCF_CAUSDB_DESCR 60
|
||
BEGIN
|
||
PROMPT 16 7 ""
|
||
FLAGS "D"
|
||
GROUP GR_CAUDD1
|
||
GROUP GR_NOCAUC
|
||
GROUP GR_NOCAUD
|
||
GROUP GR_NOCAUD1
|
||
GROUP GR_NOCAUE
|
||
GROUP GR_NOCAUE1
|
||
END
|
||
|
||
STRING TCF_CAUSD1 1
|
||
BEGIN
|
||
PROMPT 1 8 "Causale D1 "
|
||
SHEET "Codice|Descrizione@60"
|
||
INPUT TCF_CAUSD1
|
||
ITEM " | "
|
||
ITEM "A|Agente o rappresentante di commercio monomandatario"
|
||
ITEM "B|Agente o rappresentate plurimandatario"
|
||
ITEM "C|Commissionario"
|
||
ITEM "D|Mediatore"
|
||
ITEM "E|Procacciatore d'affari"
|
||
OUTPUT TCF_CAUSD1
|
||
OUTPUT TCF_CAUSD1_DESCR
|
||
FIELD LF_TABCOM->S3
|
||
FLAGS "D"
|
||
GROUP GR_CAUDD1
|
||
GROUP GR_NOCAUC
|
||
GROUP GR_NOCAUD
|
||
GROUP GR_NOCAUDB
|
||
GROUP GR_NOCAUE
|
||
GROUP GR_NOCAUE1
|
||
END
|
||
|
||
STRING TCF_CAUSD1_DESCR 60
|
||
BEGIN
|
||
PROMPT 16 8 ""
|
||
FLAGS "D"
|
||
GROUP GR_CAUDD1
|
||
GROUP GR_NOCAUC
|
||
GROUP GR_NOCAUD
|
||
GROUP GR_NOCAUDB
|
||
GROUP GR_NOCAUE
|
||
GROUP GR_NOCAUE1
|
||
END
|
||
|
||
STRING TCF_CAUSE 1
|
||
BEGIN
|
||
PROMPT 1 9 "Causale E "
|
||
SHEET "Codice|Descrizione@60"
|
||
INPUT TCF_CAUSE
|
||
ITEM " | "
|
||
ITEM "A|redditi di capitale corrisp. a sogg. resid. non eserc......"
|
||
ITEM "B|prov. corrisp. a stabili organiz. estere di impr. resid...."
|
||
ITEM "C|comp. per avviamento commerc. assogg. alla rit. a tit. acc."
|
||
ITEM "D|contrib. degli enti pubbl. e premi corrisp. dall'Unione...."
|
||
ITEM "E|interessi, premi e altri frutti dei tit. obbligaz. emessi.."
|
||
OUTPUT TCF_CAUSE
|
||
OUTPUT TCF_CAUSE_DESCR
|
||
FIELD LF_TABCOM->S8
|
||
FLAGS "D"
|
||
GROUP GR_CAUDD1
|
||
GROUP GR_NOCAUC
|
||
GROUP GR_NOCAUD
|
||
GROUP GR_NOCAUDB
|
||
GROUP GR_NOCAUD1
|
||
GROUP GR_NOCAUE1
|
||
END
|
||
|
||
STRING TCF_CAUSE_DESCR 60
|
||
BEGIN
|
||
PROMPT 16 9 ""
|
||
FLAGS "D"
|
||
GROUP GR_CAUDD1
|
||
GROUP GR_NOCAUC
|
||
GROUP GR_NOCAUD
|
||
GROUP GR_NOCAUDB
|
||
GROUP GR_NOCAUD1
|
||
GROUP GR_NOCAUE1
|
||
END
|
||
|
||
STRING TCF_CAUSE1 1
|
||
BEGIN
|
||
PROMPT 1 10 "Causale E1 "
|
||
SHEET "Codice|Descrizione@60"
|
||
INPUT TCF_CAUSE1
|
||
ITEM " | "
|
||
ITEM "A|somme deriv. dal riscatto di contratti di assic. sulla vita"
|
||
ITEM "B|capitali corrisp. in dipend... per i quali rit. del 12,50.."
|
||
ITEM "C|capitali corrisp. in dipend. di contr. di assic. sulla vita"
|
||
ITEM "D|capitali corrisp. in dipend. di contr. di capitalizzazione"
|
||
OUTPUT TCF_CAUSE1
|
||
OUTPUT TCF_CAUSE1_DESCR
|
||
FIELD LF_TABCOM->S9
|
||
FLAGS "D"
|
||
GROUP GR_CAUDD1
|
||
GROUP GR_NOCAUC
|
||
GROUP GR_NOCAUD
|
||
GROUP GR_NOCAUDB
|
||
GROUP GR_NOCAUD1
|
||
GROUP GR_NOCAUE
|
||
END
|
||
|
||
STRING TCF_CAUSE1_DESCR 60
|
||
BEGIN
|
||
PROMPT 16 10 ""
|
||
FLAGS "D"
|
||
GROUP GR_CAUDD1
|
||
GROUP GR_NOCAUC
|
||
GROUP GR_NOCAUD
|
||
GROUP GR_NOCAUDB
|
||
GROUP GR_NOCAUD1
|
||
GROUP GR_NOCAUE
|
||
END
|
||
|
||
NUMBER F_PERASS 6
|
||
BEGIN
|
||
PROMPT 1 12 "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 13 "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 14 "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
|
||
|
||
STRING F_IC 1
|
||
BEGIN
|
||
PROMPT 1 15 "T.S. "
|
||
SHEET "Codice|Descrizione@60"
|
||
INPUT F_IC
|
||
ITEM " | "
|
||
ITEM "1|legge"
|
||
ITEM "2|contratti collettivi"
|
||
ITEM "3|sentenze"
|
||
ITEM "4|atti amministrativi"
|
||
ITEM "5|altre cause non dipendenti dalla volont<6E> delle parti"
|
||
ITEM "6|se concorrono due o pi<70> dei codici precedenti"
|
||
OUTPUT F_IC
|
||
OUTPUT F_IC_DESCR
|
||
FIELD LF_TABCOM->S4
|
||
FLAGS "D"
|
||
GROUP G_ICTS
|
||
END
|
||
|
||
STRING F_IC_DESCR 60
|
||
BEGIN
|
||
PROMPT 10 15 ""
|
||
FLAGS "D"
|
||
GROUP G_ICTS
|
||
END
|
||
|
||
GROUPBOX DLG_NULL 77 4
|
||
BEGIN
|
||
PROMPT 0 17 "Contributo INPS"
|
||
END
|
||
|
||
BOOLEAN TCF_BINPS
|
||
BEGIN
|
||
PROMPT 1 18 "Contributo INPS "
|
||
FIELD LF_TABCOM->B4
|
||
MESSAGE TRUE ENABLE,INPS_GROUP@|"10.00",TCF_PERCINPS|"95.00",TCF_ASSIMPINPS
|
||
MESSAGE FALSE DISABLE,INPS_GROUP@|RESET,INPS_GROUP@
|
||
END
|
||
|
||
NUMBER TCF_PERCINPS 6
|
||
BEGIN
|
||
PROMPT 30 18 "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 19 "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 19 "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
|
||
|