campo-sirio/m770/batbca7.uml

#include "batbca7.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE

PAGE "Causali 770" -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
  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 "Z"
  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 "LA|LA"          
  MESSAGE ENABLE,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 "SF|SF"                     
  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 "SG|SG"                    
  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 "LA|LA" 
  MESSAGE ENABLE,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 "SF|SF"                     
  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 "SG|SG"                    
  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_QUADRCE2
  MESSAGE COPY,F_CODQUA
  WARNING "Manca il codice quadro"
  FIELD LF_TABCOM->S1
END

LIST F_CODQUA 2
BEGIN
  PROMPT 1 3 ""
  ITEM "LA|LA"  
  ITEM "SF|SF"  
  ITEM "SG|SG"  
  ITEM "ST|ST"  
  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_CAUSD 1
BEGIN             
  PROMPT 1 6 "Causale LA "
  FLAGS "U"
  SHEET "Codice|Descrizione@250"
  INPUT TCF_CAUSD
  ITEM " | "
  ITEM "A|Prestazioni di lavoro autonomo rientranti nell'esercizio di arte o professione abituale"
  ITEM "B|Utilizzazione economica, da parte dell'autore o dell'inventore, di opere dell'ingegno, di brevetti industriali e di processi, formule o informazioni relativi ad esperienzeacquisite in campo industriale, commerciale o scientifico"
  ITEM "C|Utili derivanti da contratti di associazione in partecipazione e da contratti di cointeressenza quando l' apporto e' costituito esclusivamente dalla prestazione di lavoro"
  ITEM "D|utili spettanti ai soci promotori ed ai soci fondatori delle societa' di capitali"
  ITEM "E|Levata di protesti cambiari da parte dei segretari comunali"
  ITEM "F|Prestazioni rese dagli sportivi con contratto di lavoro autonomo"
  ITEM "G|Idennita' corrisposte per la cessazione di attivita' sportiva professionale"
  ITEM "H|Idennita' corrisposte per la cessazione dei rapporti di agenzia delle persone fisiche"
  ITEM "I|Idennita' corrisposte per la cessazione da funzionari notarili"
  ITEM "L|Utilizzaz. economica, da parte di sogg. diverso dall'autore o dall'inventore, di opere dell'ingegno, di brevetti industiali e di processi, formule e informaz. relativi ad esperienze acquisite in campo industriale, commerciale, scientifico"
  ITEM "M|Prestazioni di lavoro autonomo non esercitate abitualmente"
  ITEM "N|Idennita' di trasferta, rinborso forfetario di spese, premi e compensi erogati nell' esercizio diretto di attivita' sportiva dilettantistiche"
  ITEM "P|Prestazioni in forma di capitale e riscatti erogati dalle forme di previdenza complementare di cui al D.Lgs 21 aprile 1993,n. 124 e sucessive modificazioni a lavoratori autonomi e imprenditori individuali"
  ITEM "Q|Provvigioni corrisposte ad agente o rappresentante di commercio monomandatario"
  ITEM "R|Provvigioni corrisposte ad agente o rappresentante plurimandatario"
  ITEM "S|Provvigioni corrisposte a commissionario"
  ITEM "T|Provvigioni corrisposte a mediatore"
  ITEM "U|Provvigioni corrisposte a procacciatore di affari"
  ITEM "V|Provvigioni corrisposte a incaricato per le vendite a domicilio"
  ITEM "W|Provvigioni corrisposte a incaricato per la vendita porta a porta e per la vendita ambulante di giornali quotidiani e periodici (L. 25 febbraio 1987, n. 67)"
  ITEM "Z|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 250 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_CAUSD1 1
BEGIN             
  PROMPT 1 8 "Causale SE "
  FLAGS "U"
  SHEET "Codice|Descrizione@250"
  INPUT TCF_CAUSD1
  ITEM " | "
  ITEM "A|agente o rappresentante di commercio monomandatario"
  ITEM "B|agente o rappresentante plurimandatario"
  ITEM "C|commissionario"
  ITEM "D|mediatore"
  ITEM "E|procacciatore di affari"
  ITEM "F|incaricato per le vendite a domicilio" 
  ITEM "G|incaricato per la vendita porta a porta e per la vendita ambulante di giornali quotidiani e periodici (L.25 febbraio 1987, n.67)"
  ITEM "T|altro soggetto diverso dai precedenti"
  OUTPUT TCF_CAUSD1
  OUTPUT TCF_CAUSD1_DESCR                                        
  FIELD LF_TABCOM->S3  
  FLAGS "DH"
  GROUP GR_CAUDD1 
  GROUP GR_NOCAUC 
  GROUP GR_NOCAUD 
  GROUP GR_NOCAUDB
  GROUP GR_NOCAUE
  GROUP GR_NOCAUE1
END

STRING TCF_CAUSD1_DESCR 250 60
BEGIN             
  PROMPT 16 8 ""
  FLAGS "DH"      
  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 SF "
  FLAGS "U"
  SHEET "Codice|Descrizione@250"
  INPUT TCF_CAUSE
  ITEM " | "
  ITEM "A|redditi di capitale corrisposti a soggetti residenti non esercenti attivit<69> d'impresa comerciale, assoggettati alla ritenuta a titolo d'acconto di cui all'art.26, ultimo comma del D.P.R. n.600 del 1973"
  ITEM "B|proventi corrisposti a stabili organizzazioni estere di imprese residenti, non appartenenti all'impresa erogante, assoggettabili alla ritenuta d'acconto nella misura del 12,50 o del 27 per cento (art.26,ultimo comma,del D.P.R.600 del 1973)"
  ITEM "C|compensi per avviamento commerciale assoggettati alla ritenuta a titolo di acconto di cui all'art.28, primo comma, del D.P.R. n.600 del 1973"
  ITEM "D|contributi degli enti pubblici e privati e premi corrisposti dall'Unione nazionale incremento razze equine (UNIRE) e dalla Federazione italiana sport equestri (FISE), assoggettati alla rit. d'acc. di cui all'art.28,secondo comma,DPR600 del 1973"
  ITEM "E|proventi di cui all'art.41, comma 1, lettere g-bis e g-ter, del Tuir, assoggettati a ritenuta a titolo d'acconto o non assoggetati a ritenuta, percepiti da soggetti non esercenti attivit<69> d'impresa, ai sensi dell'art.26,comma3-bis,DPR600 del 1973"
  ITEM "F|proventi di cui all'art.41, comma 1, lett. g-bis, del Tuir, divenuti esigibili dal 1 gennaio al 18 agosto 1999, per i quali non <20> stata resa l'opzione di cui all'art.2, comma 5, del D.Lgs. n.259 del 1999"          
  ITEM "G|proventi derivanti da mutui, depositi e conti correnti diversi da quelli bancari e postali, ad eccezione dei proventi derivanti da prestiti di denaro"          
  ITEM "H|interessi ed altri proventi derivanti da depositi e conti correnti bancari e postali"          
  ITEM "I|rendite perpetue e prestazioni annuali perpetue"          
  ITEM "L|prestazioni di fideiussioni e di ogni altra garanzia"          
  ITEM "M|proventi derivanti da operazioni di pronti contro termine e di riporto su titoli e valute"                  
  ITEM "N|proventi derivanti da operazioni di mutuo di titoli garantito"
  ITEM "P|certificati di deposito emessi da banche a decorrere dal 1 luglio 1998"
  ITEM "Q|certificati di deposito e buoni fruttiferi emessi da banche fino al 30 giugno 1998 (art.6 della L. 26 aprile 1982, n.181; art.4 del D.M. 5 dicembre 1997, n.494"
  ITEM "R|altri redditi di capitale, diversi da quelli individuati nei codici da G a Q, per i quali <20> stata applicata una aliquota ridotta o pari a zero in applicazione di accordi internazionali e di convenzioni bilaterali per evitare la doppia imposizione"
  ITEM "S|somme corrisposte a soggetti residenti negli Stati esteri indicati nei D.M. del 04/09/1996, del 25/03/1998, del 16/12/1998 e del 10/06/1999, per i quali hanno trovato applicazioni le disposizioni dell'art.9, commi 1 e 4, del D.Lgs. n.461 del 1997"
  ITEM "T|interessi ed altri proventi derivanti da finanziamenti effettuati da soggetti non residenti e raccolti dalla societ<65> costituita ai sensi del'art.13 della L. 23 dicembre 1998, n.448, per la cartolarizzazione dei crediti INPS"
  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 250 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 SG "
  FLAGS "U"
  SHEET "Codice|Descrizione@250"
  INPUT TCF_CAUSE1
  ITEM " | "
  ITEM "A|somme derivanti dal riscatto di contratti di assicurazione sulla vita"
  ITEM "B|capitali corrisposti in dipendenza di contratti di assicurazione sulla vita e contratti di capitalizzazione corrisposti a soggetti che esercitano attivit<69> commerciali per i quali la ritenuta del 12,50% si applica a titolo d'acconto"
  ITEM "C|capitoli corrisposti in dipendenza di contratti di assicurazione sulla vita, ivi compresi i capitali corrisposti ai sensi del D.Lgs. 21/04/1993, n.124, e dell'art.1, comma 5, della L. 28 febbraio 1997, n.30"
  ITEM "D|capitali corrisposti in dipendenza di contratti di capitalizzazione"
  ITEM "E|rendite corrisposte per conto della assicurazione invalidit<69>, vecchiaia e superstiti Svizzera (AVS) assoggettate a ritenuta unica del 5% ai sensi dell'art.76 della L. 30 dicembre 1991, n.413"
  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 250 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@
  MESSAGE FALSE DISABLE,INPS_GROUP@|RESET,INPS_GROUP@ 
END

NUMBER TCF_PERCINPS 6 2
BEGIN
  PROMPT 30 18 "Percentuale "
  PICTURE ".2"       
  FIELD LF_TABCOM->R1                    
  NUM_EXPR {(#THIS>0) && (#THIS<=100)}    
  FLAGS "DU"
  GROUP INPS_GROUP
  CHEKCTYPE REQUIRED
  WARNING "Percentuale contributo INPS non valida"
END

NUMBER TCF_ASSIMPINPS 6 2
BEGIN             
  PROMPT 1 19 "Percentuale ass.imp. "
  PICTURE ".2"
  FIELD LF_TABCOM->R2                      
  NUM_EXPR {(#THIS>0) && (#THIS<=100)}      
  FLAGS "DU"  
  GROUP INPS_GROUP
  WARNING "Percentuale ass.imp. contributo INPS non valida"
  CHEKCTYPE REQUIRED
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