campo-sirio/m770/771233b.uml

// 771232b.uml - quadro F2 prospetto 

PAGE "Prospetto" -1 -1 78 9   

NUMBER 101 2
BEGIN
  PROMPT 1 1 "Causale "
  USE %CA7 SELECT S1="F2"
  VALIDATE REQIF_FUNC 3 103 104 105
  INPUT CODTAB 101
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione @60" S0
  DISPLAY "Codice tributo" I0
  DISPLAY "Articolo di bilancio" I3
  OUTPUT 101 CODTAB  
  OUTPUT 102 S0
  OUTPUT 103 R0
  CHECKTYPE SEARCH
  FLAGS "Z"    
  WARNING "Manca la causale"
  ADD RUN 773mod -3 %CA7    
  GROUP 1
END

STRING 102 60
BEGIN
  PROMPT 15 1 ""
  FIELD DENCAUS
  USE %CA7 KEY 2 SELECT S1="F2"
  INPUT S0 102
  DISPLAY "Descrizione @35" S0
  DISPLAY "Codice " CODTAB
  DISPLAY "Codice tributo" I0
  DISPLAY "Articolo di bilancio" I3
  COPY OUTPUT 101
  ADD RUN 773mod -3 %CA7    
  GROUP 1
END

NUMBER 103 6
BEGIN
  PROMPT 1 3 "Aliquota applicata        "
  PICTURE ".2"
  FIELD ALIQUOTA
  NUM_EXPR {(#103>=0) && (#103<=100)}
  GROUP 1
END

NUMBER 104 15
BEGIN
  PROMPT 1 4 "Somme soggette a ritenuta "
  PICTURE "."             
  GROUP 1  
END

NUMBER 105 15
BEGIN
  PROMPT 1 5 "Ritenuta operata          "
  PICTURE "."              
  GROUP 1
END

NUMBER 106 15
BEGIN
  PROMPT 1 6 "Somma versata             "
  FLAGS "D"
  PICTURE "."              
  GROUP 1
END

BUTTON DLG_OK 10 2
BEGIN
    PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
    PROMPT -23 -1 ""
END  

BUTTON DLG_AZZERA 10 2
BEGIN
    PROMPT -33 -1 "A~zzera"
    MESSAGE RESET,1@      
END

ENDPAGE

ENDMASK