campo-sirio/m770/771230f.uml

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

PAGE "Quadro C" -1 -1 78 18

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

LIST F_TIPOA 1 12
BEGIN
  PROMPT 3 0 ""
  FIELD LF_QUAC->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_CT
  ITEM "G|Giuridica"
  MESSAGE HIDE,F_CT|RESET,F_CT    
  FLAGS "HG"
END

NUMBER F_CODANAGR 5
BEGIN
  PROMPT 17 0 ""
  FIELD LF_QUAC->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_QUAC->NPROG
  FLAGS "D"
  KEY 1
END

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

STRING F_DESCRCAUS 58
BEGIN
  PROMPT 17 3 ""
  FLAGS "D"
END

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

BOOLEAN F_CT
BEGIN
  PROMPT 17 4 "C.T."
  FLAGS "D"
END

BOOLEAN QCF_TS
BEGIN
  PROMPT 25 4 "T.S."
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 5 7 "Ammontare"
END

TEXT DLG_NULL
BEGIN
  PROMPT 5 8 "corrisposto"
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 24 8 "Contributi S.S.N."
END

NUMBER QCF_CONTSSN 15
BEGIN
  PROMPT 24 9 ""
  FIELD LF_QUAC->CONTSSN       
  PICTURE "."  
  FLAGS "R"
//  MESSAGE K_TAB,F_IMPONIBILE|K_TAB,F_RITENUTE|K_TAB,F_NETTO  
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 43 8 "a ritenuta"
END

NUMBER F_SOMME 15
BEGIN
  PROMPT 43 9 ""
  FIELD LF_QUAC->SOMME       
  PICTURE "."  
  FLAGS "R"
  MESSAGE K_TAB,F_IMPONIBILE|K_TAB,F_RITENUTE|K_TAB,F_NETTO  
END

TEXT DLG_NULL
BEGIN
  PROMPT 61 8 "Imponibile"
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 5 12 "Aliquota"
END

NUMBER F_PERC 6 2
BEGIN
  PROMPT 5 13 ""
  FIELD LF_QUAC->PERC 
  MESSAGE K_TAB,F_RITENUTE 
  PICTURE ".2"
  MESSAGE K_TAB,F_RITENUTE|K_TAB,F_NETTO
END

TEXT DLG_NULL
BEGIN
  PROMPT 24 12 "Importo"
END
    
NUMBER F_RITENUTE 15
BEGIN
  PROMPT 24 13 ""
  FIELD LF_QUAC->RITENUTE
  PICTURE "."
  FLAGS "R"                   
  MESSAGE K_TAB,F_NETTO
END

TEXT DLG_NULL
BEGIN
  PROMPT 43 12 "Netto corrisposto"
END

NUMBER F_NETTO 15
BEGIN
  PROMPT 43 13 ""
  FIELD LF_QUAC->NETTO
  PICTURE "."
  FLAGS "DR"
  NUM_CALC {#F_IMPONIBILE-#F_RITENUTE}
END

ENDPAGE

ENDMASK