#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ā, associazione ed altri enti con o senza personalitā 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 č costituito esclusivamente dalla prestazione di lavoro"          
  ITEM "I|I A titolo di utili spettanti ai soci promotori ed ai soci fondatori delle societā 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ā corrisposte per la cessazione di rapporti di collaborazione coordinata e continuativa, assoggettabili a tassazione separata"
  ITEM "P|P A titolo di indennitā corrisposte per la cessazione dei rapporti di agenzia delle persone fisiche"
  ITEM "Q|Q A titolo di indennitā corrisposte per la cessazione da funzioni notarili"
  ITEM "R|R A titolo di indennitā corrisposte per la cessazione di attivitā sportiva professionale"
  ITEM "S|S A titolo di indennitā di trasferta o di rimborso forfetario di spese spettanti a soggetti che svolgono attivitā 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ā, associazione ed altri enti con o senza personalitā 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 č costituito esclusivamente dalla prestazione di lavoro"          
  ITEM "I|A titolo di utili spettanti ai soci promotori ed ai soci fondatori delle societā 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ā corrisposte per la cessazione di rapporti di collaborazione coordinata e continuativa, se il diritto all'indennitā risulta da atto di data certa anteriore .."
  ITEM "P|A titolo di indennitā corrisposte per la cessazione da funzioni notarili"
  ITEM "R|A titolo di indennitā corrisposte per la cessazione di attivitā sportiva professionale"
  ITEM "S|A titolo di indennitā di trasferta o di rimborso forfetario di spese spettanti a soggetti che svolgono attivitā 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