campo-sirio/m770/771230b.uml

#include "771230a.h"
TOOLBAR "" 0 19 0 3
#include <toolbar.h>
ENDPAGE

// Lista modifiche:
// 22.5.96 Output di S2 (causale D) invece di S0 (descrizione)

PAGE "Quadro D" -1 -1 78 18

NUMBER F_CODDITTA 5
BEGIN
  FLAGS "H"
  FIELD LF_QUAD->CODDITTA
  KEY 1
END

LIST F_TIPOA 1 12
BEGIN
  PROMPT 3 0 ""
  FIELD LF_QUAD->TIPOA
  ITEM "F|Fisica"
  ITEM "G|Giuridica"   
  FLAGS "D"
  KEY 1
END

LIST F_TIPOAF 1 12
BEGIN
  PROMPT 3 1 ""    
  ITEM "F|Fisica"
  MESSAGE SHOW,F_IC
  ITEM "G|Giuridica"
  MESSAGE HIDE,F_IC|RESET,F_IC    
  FLAGS "HG"
END

NUMBER F_CODANAGR 5
BEGIN
  PROMPT 17 0 ""
  FIELD LF_QUAD->CODANAGR
  MESSAGE COPY,F_CODANAGR2
  FLAGS "D"
  KEY 1
END

NUMBER F_CODANAGR2 5
BEGIN
  USE LF_ANAG KEY 1
  INPUT TIPOA    F_TIPOA 
  INPUT CODANAGR F_CODANAGR
  DISPLAY "Cognome - Nome o Ragione sociale@50"    RAGSOC
  OUTPUT F_RAGSOC2  RAGSOC
  CHECKTYPE REQUIRED
  FLAGS "HG"
END  

STRING F_RAGSOC2 45
BEGIN
  PROMPT 24 0 ""
  FLAGS "D"
END

NUMBER F_NPROG 4
BEGIN
  PROMPT 71 0 ""
  FIELD LF_QUAD->NPROG
  FLAGS "D"
  KEY 1
END

STRING F_CODCAUS 2
BEGIN
  PROMPT 3 3 "Causale "
  USE %CA7 SELECT ((I0!="1015")&&(S1="D")) 
  INPUT CODTAB F_CODCAUS
  DISPLAY "Codice " 		CODTAB 
  DISPLAY "Descrizione @60" S0    
  DISPLAY "Causale D" 		S2
  DISPLAY "Codice tributo" 	I0
  DISPLAY "I.C." 			B1
  OUTPUT F_CODCAUS 		CODTAB
  OUTPUT F_CODTRIB 		I0  
  OUTPUT F_DESCRCAUS 	S2
  OUTPUT QDF_CODCAUSD	S2
  OUTPUT F_PERC 		R0
  CHECKTYPE REQUIRED
  FLAGS "Z"    
  WARNING "Manca la causale"
  FIELD LF_QUAD->CODCAUS
  ADD RUN 773mod -3 %CA7
END

STRING QDF_CODCAUSD 1
BEGIN
  PROMPT 17 3 ""      
  FLAGS "D"
END

LISTBOX F_DESCRCAUS 55
BEGIN
  PROMPT 20 3 ""
  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"
  FLAGS "D"      
END

NUMBER F_CODTRIB 4
BEGIN
  PROMPT 11 4 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 58 5
BEGIN
  PROMPT 3 6 "@bAmmontare corrisposto"
END

TEXT DLG_NULL
BEGIN
  PROMPT 5 8 "Totale"
END

NUMBER F_TOTALE 15
BEGIN
  PROMPT 5 9 ""
  FIELD LF_QUAD->TOTALE
  PICTURE "."
  FLAGS "R"         
  MESSAGE K_TAB,F_IMPONIBILE|K_TAB,F_IMPORTO|K_TAB,F_NETTO
END

TEXT DLG_NULL
BEGIN
  PROMPT 24 7 "Somme non soggette"
END

TEXT DLG_NULL
BEGIN
  PROMPT 24 8 "a ritenuta"
END

NUMBER F_SOMME 15
BEGIN
  PROMPT 24 9 ""
  FIELD LF_QUAD->SOMME       
  PICTURE "."  
  FLAGS "R"
  MESSAGE K_TAB,F_IMPONIBILE|K_TAB,F_IMPORTO|K_TAB,F_NETTO  
END

TEXT DLG_NULL
BEGIN
  PROMPT 43 8 "Imponibile"
END

NUMBER F_IMPONIBILE 15
BEGIN
  PROMPT 43 9 ""
  FIELD LF_QUAD->IMPONIBILE
  PICTURE "."  
  FLAGS "DR"
  NUM_CALC {#F_TOTALE-#F_SOMME}  
END

GROUPBOX DLG_NULL 39 5
BEGIN
  PROMPT 3 11 "@bRitenute operate"
END

TEXT DLG_NULL
BEGIN
  PROMPT 5 13 "Aliquota"
END

NUMBER F_PERC 6 2
BEGIN
  PROMPT 5 14 ""
  FIELD LF_QUAD->PERC 
  MESSAGE K_TAB,F_IMPORTO 
  PICTURE ".2"
  MESSAGE K_TAB,F_IMPORTO|K_TAB,F_NETTO
END

TEXT DLG_NULL
BEGIN
  PROMPT 24 13 "Importo"
END
    
NUMBER F_IMPORTO 15
BEGIN
  PROMPT 24 14 ""
  FIELD LF_QUAD->IMPORTO
  PICTURE "."
  FLAGS "R"
  //NUM_CALC {#F_IMPONIBILE*#F_PERC/100}
  MESSAGE K_TAB,F_NETTO
END

TEXT DLG_NULL
BEGIN
  PROMPT 43 13 "Netto corrisposto"
END

NUMBER F_NETTO 15
BEGIN
  PROMPT 43 14 ""
  FIELD LF_QUAD->NETTO
  PICTURE "."
  FLAGS "DR"
  NUM_CALC {#F_IMPONIBILE-#F_IMPORTO}
END


ENDPAGE

ENDMASK