campo-sirio/m770/771231b.uml

// 771231b.uml - quadro F prospetto A-B-C

PAGE "" -1 -1 52 9   

NUMBER 101 2
BEGIN
  PROMPT 1 1 "Causale "
  USE %CA7 SELECT (S1="F")  
  INPUT CODTAB 101
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione @35" S0
  DISPLAY "Codice tributo" I0
  DISPLAY "Articolo di bilancio" I3
  OUTPUT 101 CODTAB  
  OUTPUT 102 S0
  OUTPUT 103 R0
  CHECKTYPE SEARCH
  FLAGS "Z"             
  FIELD CODTAB
  ADD RUN 773mod -3 %CA7    
  GROUP 1
END

STRING 102 35
BEGIN
  PROMPT 15 1 ""
  USE %CA7 KEY 2 SELECT (S1="F")  
  INPUT S0 102
  DISPLAY "Descrizione @35" S0
  DISPLAY "Codice " CODTAB
  DISPLAY "Codice tributo" I0
  DISPLAY "Articolo di bilancio" I3
  COPY OUTPUT 101
  VALIDATE REQIF_FUNC 2 103 104
  FIELD S0
  WARNING "Descrizione obbligatoria"
  GROUP 1
END

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