// 771233b.uml - quadro F2 prospetto delle ...

PAGE "Prospetto B" -1 -1 76 9   

NUMBER 101 2
BEGIN
  PROMPT 1 1 "Causale "
  USE %CA7 SELECT (S1="F2")  
  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
  FLAGS "Z"    
  WARNING "Manca la causale"
  VALIDATE REQIF_FUNC 6 102 103 104 105 
  ADD RUN 773mod -3 %CA7    
  GROUP 1
END

STRING 102 60
BEGIN
  PROMPT 15 1 ""     
  FLAGS "D"
  GROUP 1
END

NUMBER 103 6
BEGIN
  PROMPT 1 3 "Aliquota applicata        "
  PICTURE ".2"
  NUM_EXPR {(#THIS>=0) && (#THIS<=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

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

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

BUTTON DLG_NULL 9 2
BEGIN
    PROMPT -33 -1 "Azzera"
    MESSAGE RESET,1@      
END

ENDPAGE

ENDMASK
