campo-sirio/m770/batbca7.uml

#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