// 771232b.uml - quadro F1 prospetto A

PAGE "" -1 -1 54 10

LIST 101 10
BEGIN
  PROMPT 1 1 "Tipo persona "
  ITEM "F|Fisica"
  ITEM "G|Giuridica"
END

NUMBER 102 5
BEGIN
  PROMPT 39 1 "Codice "
  USE LF_ANAG 
  INPUT TIPOA 101 SELECT
  INPUT CODANAGR 102
  DISPLAY "Tipo" TIPOA
  DISPLAY "Codice" CODANAGR
  DISPLAY "Denominazione@50" RAGSOC
  OUTPUT 102 CODANAGR
  OUTPUT 103 RAGSOC
  CHECKTYPE NORMAL
  ADD RUN ba4 -1
END     

STRING 103 50
BEGIN
  PROMPT 1 2 ""
  USE LF_ANAG KEY 2
  INPUT TIPOA 101 SELECT
  INPUT RAGSOC 103
  DISPLAY "Tipo" TIPOA
  DISPLAY "Denominazione@50" RAGSOC
  DISPLAY "Codice" CODANAGR
  COPY OUTPUT 102
  CHECKTYPE NORMAL
  ADD RUN ba4 -1
END

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

STRING 105 35
BEGIN
  PROMPT 16 3 ""
  FIELD S0
  USE %CA7 KEY 2 SELECT (S1="F1")  
  INPUT S0 105
  DISPLAY "Descrizione @35" S0
  DISPLAY "Codice " CODTAB
  DISPLAY "Codice tributo" I0
  DISPLAY "Articolo di bilancio" I3
  COPY OUTPUT 104
  VALIDATE REQIF_FUNC 2 106 107
  FIELD S0
  WARNING "Descrizione obbligatoria"
  GROUP 1
END

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

NUMBER 107 15
BEGIN
  PROMPT 1 5 "Somme soggette a ritenuta          "
  PICTURE "."             
  GROUP 1  
END

NUMBER 108 15
BEGIN
  PROMPT 1 6 "Ritenuta operata                   "
  PICTURE "."              
  GROUP 1
END

NUMBER 109 15
BEGIN
  PROMPT 1 7 "Somme corrisposte                  "
  PICTURE "."
  GROUP 1 
  FLAGS "D"
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