// 771231c.uml - quadro F prospetto B-C-D

PAGE "" -1 -1 76 9   

NUMBER 101 2
BEGIN
  PROMPT 1 1 "Causale "
  USE %CA7 SELECT (S1="F")  
  VALIDATE REQIF_FUNC 3 102 103 104
  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"
  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_AZZERA 9 2
BEGIN
  PROMPT -33 -1 "A~zzera"
  MESSAGE RESET,1@      
END

ENDPAGE

ENDMASK