campo-sirio/m770/771231b.uml

// 771231b.uml - quadro F prospetto A

PAGE "Prospetto A" -1 -1 76 12

NUMBER 101 2
BEGIN
  PROMPT 1 1 "Causale "
  USE %CA7 SELECT (S1="F")  
  VALIDATE REQIF_FUNC 6 102 103 104 105 106 107
  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

NUMBER 106 15
BEGIN
  PROMPT 1 6 "Totale acconti             "
  PICTURE "."              
  GROUP 1
END

NUMBER 107 15
BEGIN
  PROMPT 1 7 "Versamento a saldo         "
  PICTURE "."              
  GROUP 1
END

NUMBER 108 15
BEGIN
  PROMPT 1 8 "Somma versata in eccedenza "
  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