campo-sirio/m770/771230b.uml

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

PAGE "Quadro D" -1 -1 78 18

NUMBER F_CODDITTA 5
BEGIN     
	PROMPT 80 80 ""
  FLAGS "D"
  FIELD LF_QUAD->CODDITTA
  KEY 1
END

LIST F_TIPOA 1 12
BEGIN
  PROMPT 2 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"
  ITEM "G|Giuridica"
  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 50 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

TEXT DLG_NULL
BEGIN
PROMPT 3 2 "Causale"
END

STRING F_CODCAUS 2
BEGIN
  PROMPT 3 3 ""
  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

NUMBER F_CODTRIB 4
BEGIN
  PROMPT 8 3 ""
  FLAGS "D"
END

STRING QDF_CODCAUSD 1
BEGIN             
  PROMPT 14 3 ""
  SHEET "Codice|Descrizione@60"
  INPUT QDF_CODCAUSD
  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 QDF_CODCAUSD
  OUTPUT F_DESCRCAUS
  FLAGS "D"
END

STRING F_DESCRCAUS 60
BEGIN             
  PROMPT 17 3 ""
  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