Files correlati : batbsta.msk batbiva.msk Ricompilazione Demo : [ ] Commento : Aggiunti alla tabella stata i codici ISTAT e UNICO Tolta da tabella IVA la distinzione tra beni e servizi git-svn-id: svn://10.65.10.50/branches/R_10_00@22531 c028cbd2-c16b-5b4b-a496-9718f37d4682
		
			
				
	
	
		
			273 lines
		
	
	
		
			6.8 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			273 lines
		
	
	
		
			6.8 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
| #include "batbiva.h"
 | |
| 
 | |
| TOOLBAR "topbar" 0 0 0 2
 | |
| #include <relapbar.h>
 | |
| ENDPAGE
 | |
| 
 | |
| PAGE "Codici IVA" -1 -1 78 19
 | |
| 
 | |
| STRING FLD_TABIVA_CODTAB 4
 | |
| BEGIN
 | |
|   PROMPT 2 1 "Codice   "
 | |
|   FIELD CODTAB
 | |
|   KEY 1
 | |
|   USE %IVA
 | |
|   FLAGS "U"
 | |
|   INPUT CODTAB FLD_TABIVA_CODTAB
 | |
|   DISPLAY "Codice" CODTAB
 | |
|   DISPLAY "Descrizione@50" S0
 | |
|   DISPLAY "Tipo" S1
 | |
|   DISPLAY "%@5" R0
 | |
|   DISPLAY "Vent." S6
 | |
|   DISPLAY "Sospeso" B2
 | |
|   OUTPUT FLD_TABIVA_CODTAB CODTAB
 | |
|   OUTPUT FLD_TABIVA_S0 S0
 | |
|   HELP "Inserire il codice IVA"
 | |
|   CHECKTYPE REQUIRED
 | |
|   VALIDATE ZEROFILL_FUNC 2
 | |
| END
 | |
| 
 | |
| STRING FLD_TABIVA_S0 50
 | |
| BEGIN
 | |
|   PROMPT 25 1 ""
 | |
|   FIELD S0
 | |
|   KEY 2
 | |
|   USE %IVA KEY 2
 | |
|   INPUT S0 FLD_TABIVA_S0
 | |
|   DISPLAY "Descrizione@50" S0
 | |
|   DISPLAY "Codice" CODTAB
 | |
|   DISPLAY "Tipo" S1
 | |
|   DISPLAY "%@5" R0
 | |
|   DISPLAY "Vent." S6
 | |
|   DISPLAY "Sospeso" B2
 | |
|   COPY OUTPUT FLD_TABIVA_CODTAB
 | |
|   HELP "Inserire la descrizione del codice IVA"
 | |
|   CHECKTYPE REQUIRED
 | |
|   WARNING "Manca la descrizione"
 | |
| END
 | |
| 
 | |
| LIST LST_TABIVA_S1 2 20
 | |
| BEGIN
 | |
|   PROMPT 2 2 "Tipo     "
 | |
|   FIELD S1
 | |
|   HELP "Indicare il tipo di codice IVA"
 | |
|   ITEM "  |Regime IVA normale"
 | |
|   MESSAGE ENABLE,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0
 | |
|   MESSAGE CLEAR,FLD_TABIVA_I3|CLEAR,FLD_TABIVA_I4
 | |
|   MESSAGE ENABLE,FLD_TABIVA_S6
 | |
|   ITEM "VE|Ricavi da ventilare"
 | |
|   MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0|CLEAR,FLD_TABIVA_I3
 | |
|   MESSAGE CLEAR,FLD_TABIVA_I4|CLEAR,FLD_TABIVA_S6
 | |
|   ITEM "ES|Operazioni esenti"
 | |
|   MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0
 | |
|   MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4
 | |
|   MESSAGE ENABLE,FLD_TABIVA_S6
 | |
|   ITEM "NI|Non imponibili"
 | |
|   MESSAGE CLEAR,FLD_TABIVA_R0|ENABLE,FLD_TABIVA_I0
 | |
|   MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4
 | |
|   MESSAGE ENABLE,FLD_TABIVA_S6
 | |
|   ITEM "NS|Non soggetti"
 | |
|   MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0
 | |
|   MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4
 | |
|   MESSAGE ENABLE,FLD_TABIVA_S6
 | |
| END
 | |
| 
 | |
| STRING FLD_TABIVA_S6 4
 | |
| BEGIN
 | |
|   PROMPT 39 2 "C.IVA a cui ventilare "
 | |
|   FLAGS "U"
 | |
|   FIELD S6
 | |
|   COPY USE FLD_TABIVA_CODTAB
 | |
|   INPUT CODTAB FLD_TABIVA_S6
 | |
|   COPY DISPLAY FLD_TABIVA_CODTAB
 | |
|   OUTPUT FLD_TABIVA_S6 CODTAB
 | |
|   CHECKTYPE NORMAL
 | |
|   VALIDATE ZEROFILL_FUNC 2
 | |
|   HELP "Inserire il codice iva a cui ventilare l'imposta"
 | |
|   ADD NONE
 | |
| END
 | |
| 
 | |
| NUMBER FLD_TABIVA_R0 6 2
 | |
| BEGIN
 | |
|   PROMPT 2 3 "Aliquota "
 | |
|   FIELD R0
 | |
|   HELP "Inserire la percentuale di imposta"
 | |
|   WARNING "Deve essere specificato almeno uno dei campi seguenti: aliquota, tipo, codice a cui ventilare"
 | |
|   VALIDATE ONEREQ_FUNC 3 FLD_TABIVA_R0 FLD_TABIVA_S6 LST_TABIVA_S1
 | |
| END
 | |
| 
 | |
| NUMBER FLD_TABIVA_I0 2
 | |
| BEGIN
 | |
|   PROMPT 39 3 "Perc.IVA teorica        "
 | |
|   FIELD I0
 | |
|   HELP "Inserire la percentuale teorica dell'imposta"
 | |
| END
 | |
| 
 | |
| 
 | |
| GROUPBOX DLG_NULL 78 4
 | |
| BEGIN
 | |
|   PROMPT 1 5 "@bComunicazione operazioni rilevanti ai fini dell'IVA"
 | |
| END
 | |
| 
 | |
| LIST FLD_TABIVA_S7 1 35
 | |
| BEGIN
 | |
|   PROMPT 2 6 "Cessioni "
 | |
|   FIELD S7
 | |
|   ITEM " |Non rilevante"
 | |
|   ITEM "1|1 - Imponibile"
 | |
|   ITEM "2|2 - Non imponibile"
 | |
|   ITEM "3|3 - Esente"
 | |
|   ITEM "4|4 - IVA non esposta in fattura"
 | |
|   ITEM "5|5 - Imponibile con IVA a Margine"
 | |
| END
 | |
| 
 | |
| LIST FLD_TABIVA_S8 1 35
 | |
| BEGIN
 | |
|   PROMPT 2 7 "Acquisti "
 | |
|   FIELD S8
 | |
|   ITEM " |Non rilevante"
 | |
|   ITEM "1|1 - Imponibile"
 | |
|   ITEM "2|2 - Non imponibile"
 | |
|   ITEM "3|3 - Esente"
 | |
|   ITEM "4|4 - IVA non esposta in fattura"
 | |
|   ITEM "5|5 - Imponibile con IVA a Margine"
 | |
| END
 | |
| 
 | |
| /* Reso obsoleto da ultime specifiche Spesometro di Settembre 2011
 | |
| RADIOBUTTON CHK_SERVIZI 20
 | |
| BEGIN
 | |
|   PROMPT 59 6 "Cessione / Acquisto"
 | |
|   ITEM " |Beni"
 | |
|   ITEM "X|Servizi"
 | |
|   FLAGS "Z"
 | |
|   FIELD B5
 | |
| END
 | |
| */
 | |
| 
 | |
| STRING FLD_TABIVA_I3 3
 | |
| BEGIN
 | |
|   PROMPT 3 10 "Riga vendite IVA11 per op.esenti e non imp.       "
 | |
|   FIELD S2
 | |
|   HELP "Indicare il codice riga per operazioni di vendita es. e non imp. del mod.101"
 | |
|   SHEET "Riga@4|Descrizione@70"
 | |
|   INPUT FLD_TABIVA_I3
 | |
|   OUTPUT FLD_TABIVA_I3
 | |
|   ITEM " |Nessuno"
 | |
|   ITEM "20|Operazioni non imponibili (comma 1, artt.8, 8bis e 9)"
 | |
|   ITEM "21|Operazioni non imponibili a seguito di dich. d'intento"
 | |
|   ITEM "22|Altre operazioni non imponibili"
 | |
|   ITEM "24|Operazioni non soggette (art. 74 comma 7)"
 | |
|   ITEM "25|Op. non sogg. effettuate nei confronti di terremotati"
 | |
|   ITEM "B1|Ammontare op. es. escluse da nr. 1 a 9 e 11 art. 10"
 | |
|   ITEM "B2|Ammontare op. es. di cui al nr. 11 art. 10"
 | |
|   ITEM "B3|Ammontare op. es. di cui ai nr. 1 a 9 art. 10"
 | |
|   ITEM "B4|Ammontare op. es. di cui all'art 10 nr. 27 quinquies"
 | |
|   ITEM "G7A|Cessioni intracomunitarie non imponibili"
 | |
|   ITEM "G7B|Prestazioni di servizi non soggette all'imposta"
 | |
| END
 | |
| 
 | |
| STRING FLD_TABIVA_I4 3
 | |
| BEGIN
 | |
|   PROMPT 3 11 "Riga acquisti IVA11 per op.esenti e non imp.      "
 | |
|   FIELD S9
 | |
|   SHEET "Riga|Descrizione@60"
 | |
|   INPUT FLD_TABIVA_I4
 | |
|   OUTPUT FLD_TABIVA_I4
 | |
|   ITEM " |Nessuno"
 | |
|   ITEM "12|Acquisti non imponibili (comma 2, artt8, 8bis e 9)"
 | |
|   ITEM "13|Altri acquisti non imponibili"
 | |
|   ITEM "14|Acquisti esenti"
 | |
|   ITEM "15|Acquisti non soggetti (art. 74 comma 7)"
 | |
|   ITEM "16|Acquisti non soggetti all'imposta effettuati dai terremotati"
 | |
| END
 | |
| 
 | |
| STRING FLD_TABIVA_S10 4
 | |
| BEGIN
 | |
|   PROMPT 3 12 "Operazioni attive in comunicazione annuale dati IVA    "
 | |
|   FIELD S10
 | |
|   FLAGS "U"
 | |
|   SHEET "Riga|Descrizione@60"
 | |
|   INPUT FLD_TABIVA_S10
 | |
|   ITEM "|Nessuna"
 | |
|   ITEM "CD11|Totale operazioni attive (al netto dell'IVA)"
 | |
|   ITEM "CD12|Operazioni non imponibili"
 | |
|   ITEM "CD13|Operazioni esenti"
 | |
|   ITEM "CD14|Cessioni intracomunitarie di beni"
 | |
|   OUTPUT FLD_TABIVA_S10
 | |
| END
 | |
| 
 | |
| STRING FLD_TABIVA_S11 4
 | |
| BEGIN
 | |
|   PROMPT 3 13 "Operazioni passive in comunicazione annuale dati IVA   "
 | |
|   FIELD S11
 | |
|   FLAGS "U"
 | |
|   SHEET "Riga|Descrizione@60"
 | |
|   INPUT FLD_TABIVA_S11
 | |
|   ITEM "|Nessuna"
 | |
|   ITEM "CD21|Totale operazioni passive (al netto dell'IVA)"
 | |
|   ITEM "CD22|Operazioni non imponibili"
 | |
|   ITEM "CD23|Operazioni esenti"
 | |
|   ITEM "CD24|Acquisti intracomunitari di beni"
 | |
|   ITEM "CD31|Importazioni di oro industriale ed argento puro senza pagamento dell'IVA in dogana"
 | |
|   ITEM "CD33|Rottami e altri materiali di recupero"
 | |
|   OUTPUT FLD_TABIVA_S11
 | |
| END
 | |
| 
 | |
| LIST LST_TABIVA_S3 1 31
 | |
| BEGIN
 | |
|   PROMPT 3 14 "Gestione plafond       "
 | |
|   FIELD S3
 | |
|   HELP "Indicare il tipo di gestione di plafond"
 | |
|   ITEM " |Regime normale"
 | |
|   ITEM "1|Oper. relative art.8"
 | |
|   ITEM "2|Oper. relative art.8bis"
 | |
|   ITEM "3|Oper. relative art.9" 
 | |
| END
 | |
| 
 | |
| LIST LST_TABIVA_S4 1 43
 | |
| BEGIN
 | |
|   PROMPT 3 15 "Regime agricolo        "
 | |
|   FIELD S4
 | |
|   HELP "Indicare il tipo di gestione per regime agricolo"
 | |
|   ITEM " |Regime normale"
 | |
|   ITEM "1|Vendite regime agricolo"
 | |
|   ITEM "2|Vendite accessorie/Acquisti non agricoli"
 | |
|   ITEM "3|Acquisti ad uso promiscuo"
 | |
| END
 | |
| 
 | |
| LIST LST_TABIVA_S5 1 31
 | |
| BEGIN
 | |
|   PROMPT 3 16 "Ag. viaggio/turismo    "
 | |
|   FIELD S5
 | |
|   HELP "Indicare il tipo di gestione per agenzie viaggio/turismo"
 | |
|   ITEM " |Regime normale"
 | |
|   ITEM "1|Operazioni interno CEE"
 | |
|   ITEM "2|Operazioni fuori CEE"
 | |
|   ITEM "3|Vendite miste CEE"
 | |
|   ITEM "4|Acquisti misti parte CEE"
 | |
|   ITEM "5|Acquisti misti parte fuori CEE"
 | |
| END
 | |
| 
 | |
| BOOLEAN CHK_TABIVA_B4
 | |
| BEGIN
 | |
|   PROMPT 3 17 "Escluso dal calcolo rimborso per aliquota media"
 | |
|   FIELD B4
 | |
| END
 | |
| 
 | |
| BOOLEAN CHK_TABIVA_S9
 | |
| BEGIN
 | |
|   PROMPT 3 18 "Codice per calcolo rimborso infrannuale"
 | |
|   FIELD B3
 | |
| END
 | |
| 
 | |
| BOOLEAN FLD_SOSPESO_B2
 | |
| BEGIN
 | |
|   PROMPT 3 21 "Codice IVA sospeso"
 | |
|   FIELD B2
 | |
| END
 | |
| 
 | |
| ENDPAGE
 | |
| 
 | |
| ENDMASK
 | |
| 
 |