campo-sirio/m770/771230h.uml

#include "771230a.h"

TOOLBAR "" 0 19 0 3

#include <toolbar.h>

ENDPAGE

PAGE "Quadro E" -1 -1 78 18

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

LIST F_TIPOA 1 12
BEGIN
  PROMPT 3 0 ""
  FIELD LF_QUAE->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_QUAE->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_QUAE->NPROG
  FLAGS "D"
  KEY 1
END

STRING F_CODCAUS 2
BEGIN
  PROMPT 3 3 "Causale "
  USE %CA7 SELECT ((I0!="1015")&&(S1="E")) 
  INPUT CODTAB F_CODCAUS
  DISPLAY "Codice " CODTAB 
  DISPLAY "Descrizione @60" S0  
  DISPLAY "Codice tributo" I0
  OUTPUT F_CODCAUS CODTAB
  OUTPUT F_CODTRIB I0  
  OUTPUT F_DESCRCAUS S0  
  OUTPUT F_PERC R0
  CHECKTYPE REQUIRED
  FLAGS "Z"    
  WARNING "Manca la causale"
  FIELD LF_QUAE->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

TEXT DLG_NULL
BEGIN
  PROMPT 3 8 "Imponibile"
END

NUMBER F_IMPONIBILE 15
BEGIN
  PROMPT 3 9 ""
  FIELD LF_QUAE->IMPONIBILE
  PICTURE "."  
  FLAGS "R"                            
  MESSAGE K_TAB,F_IMPORTO|K_TAB,F_NETTO  
END

GROUPBOX DLG_NULL 32 5
BEGIN
  PROMPT 25 6 "@bRitenute operate"
END

TEXT DLG_NULL
BEGIN
  PROMPT 27 8 "Aliquota"
END

NUMBER F_PERC 6 2
BEGIN
  PROMPT 27 9 ""
  FIELD LF_QUAE->PERC 
  MESSAGE K_TAB,F_IMPORTO 
  PICTURE ".2"
  MESSAGE K_TAB,F_IMPORTO|K_TAB,F_NETTO
END

TEXT DLG_NULL
BEGIN
  PROMPT 38 8 "Importo"
END
    
NUMBER F_IMPORTO 15
BEGIN
  PROMPT 38 9 ""
  FIELD LF_QUAE->IMPORTO
  PICTURE "."
  FLAGS "R"                            
  MESSAGE K_TAB,F_NETTO  
END

TEXT DLG_NULL
BEGIN
  PROMPT 3 13 "Netto corrisposto"
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 27 12 "Somme non soggette"
END

TEXT DLG_NULL
BEGIN
  PROMPT 27 13 "a ritenuta"
END

NUMBER F_SOMME 15
BEGIN
  PROMPT 27 14 ""
  FIELD LF_QUAE->SOMME       
  PICTURE "."  
  FLAGS "R"
//  MESSAGE K_TAB,F_IMPONIBILE|K_TAB,F_IMPORTO|K_TAB,F_NETTO  
END

ENDPAGE

ENDMASK