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

PAGE "Tabella causali " -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 "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,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"
  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"
  FIELD LF_TABCOM->S1
END

LIST F_CODQUA 2
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 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 5 "Causale D  "
  SHEET "Codice|Descrizione@60"
  INPUT TCF_CAUSD
  ITEM " | "
  ITEM "A|prestaz. di lav. aut. ... nell’es.  arti o prof. abituale"
  ITEM "B|prestaz. rese da amministratori, sindaci e revisori..."
  ITEM "C|prestaz. rese da collaboratori a giornali, riviste, ..."
  ITEM "D|prestaz. rese da partecipanti a collegi e commissioni"
  ITEM "E|prestaz. rese dagli sportivi con contratto di lav. autonomo"
  ITEM "F|prestaz. ... di rapp. di coll. coord. e c. diversi dai prec"          
  ITEM "G|utiliz. economica, da parte dell’autore o dell’inventore..."          
  ITEM "H|utili ... da contratti di associazione in partecipazioni..."          
  ITEM "I|utili ... ai soci promot. e/o fond. delle soc. di capitale"          
  ITEM "L|per la levata di protesti cambiari da parte dei segretar..."          
  ITEM "M|utiliz. economica, ... di soggetto diverso dall’autore o..."                  
  ITEM "N|indennità corrisp. per la cessaz. di rapporti di coll..."
  ITEM "P|indennità corrisp. per la cessaz. dei rapporti di agenzia"
  ITEM "Q|indennità corrisp. per la cessaz. da funzioni notarili"
  ITEM "R|indennità corrisp. per la cessaz. di attività sportiva prof"
  ITEM "S|indennità di trasf. o di rimborso forfettario di spese..."
  ITEM "T|altro titolo diverso dai precedenti"
  OUTPUT TCF_CAUSD
  OUTPUT TCF_CAUSD_DESCR
  FIELD LF_TABCOM->S2
  FLAGS "D"      
  GROUP GR_CAUDD1
END

STRING TCF_CAUSD_DESCR 60
BEGIN             
  PROMPT 16 5 ""
  FLAGS "D"      
  GROUP GR_CAUDD1
END

STRING TCF_CAUSD1 1
BEGIN             
  PROMPT 1 6 "Causale D1 "
  SHEET "Codice|Descrizione@60"
  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"
  OUTPUT TCF_CAUSD1
  OUTPUT TCF_CAUSD1_DESCR                                        
  FIELD LF_TABCOM->S3  
  FLAGS "D"      
  GROUP GR_CAUDD1
END

STRING TCF_CAUSD1_DESCR 60
BEGIN             
  PROMPT 16 6 ""
  FLAGS "D"      
  GROUP GR_CAUDD1
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