campo-sirio/m770/77qe2b.uml

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

PAGE "Quadro E2" -1 -1 78 18

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

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

STRING F_CODCAUS 2
BEGIN
  PROMPT 3 3 "Causale "
  USE %CA7 SELECT (S1="E2")
  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_QUAE2->CODCAUS
  ADD RUN 773mod -3 %CA7
END

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

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

TEXT DLG_NULL
BEGIN
  PROMPT 5 8 "Somme soggette r.a."
END

NUMBER F_IMPONIBILE 15
BEGIN
  PROMPT 5 9 ""
  FIELD LF_QUAE2->SOGGRIT       
  PICTURE "."  
  FLAGS "R"
  MESSAGE K_TAB,F_PERC  
END

/****************
TEXT DLG_NULL
BEGIN
  PROMPT 38 6 "Amm. compl. premi riscossi"
END                                                     

TEXT DLG_NULL
BEGIN
  PROMPT 38 7 "sui quali le ritenute sono"
END

TEXT DLG_NULL
BEGIN
  PROMPT 38 8 "state commisurate"
END

NUMBER F_IMPONIBILE 15
BEGIN
  PROMPT 38 9 ""
  FIELD LF_QUAE1->AMMONTARE
  PICTURE "."  
  FLAGS "R" 
  MESSAGE K_TAB,F_IMPORTO|K_TAB,F_NETTO                           
END
*******************************/

GROUPBOX DLG_NULL 32 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_QUAE2->PERC 
  PICTURE ".2"
END

TEXT DLG_NULL
BEGIN
  PROMPT 16 13 "Ritenute operate"
END
    
NUMBER F_IMPORTO 15
BEGIN
  PROMPT 16 14 ""
  FIELD LF_QUAE2->ROPE
  PICTURE "."
  FLAGS "R"                            
END

ENDPAGE

ENDMASK