campo-sirio/m770/770100d.uml

// m70100d.uml - VERSAMENTI
PAGE "Versamento " -1 -1 68 11

BOOLEAN 101
BEGIN
  PROMPT 1 1 "Codice tributo 1015 "
  FIELD LF_RVER->VERS1015 
END

GROUPBOX DLG_NULL 68 3
BEGIN
  PROMPT 1 2 "@bDati versamento"
END

DATE 102
BEGIN
  PROMPT 2 3 "Data "
  FIELD LF_RVER->DATAVERS
  VALIDATE REQIF_FUNC 5 103 104 105 106 107
  WARNING "Inserire la data del versamento"
  GROUP 1
END

STRING 103 1
BEGIN
  PROMPT 19 3 "Luogo "       
  HELP "Indicare il luogo del versamento"
  SHEET "Cod.|Descrizione@30"
  INPUT 103
  ITEM " |Nessuno"
  ITEM "T|Tesoreria"
  ITEM "C|F24"
  OUTPUT 103 
  OUTPUT 71
  FLAGS "UG"         
  FIELD LF_RVER->LUOVERS
  GROUP 1
END

STRING 71 12
BEGIN
  PROMPT 29 3 ""
  FLAGS "D"
END
 
TEXT 209
BEGIN
  PROMPT  2 5 "Serie        "
  GROUP 2 4
END

TEXT 210
BEGIN
  PROMPT  2 5 "Codice ABI   "
  GROUP 2 6
END 

TEXT 212
BEGIN
  PROMPT 25 5 "Codice CAB   "
  GROUP 2 6
END

TEXT 213
BEGIN
  PROMPT 25 5 "Quietanza    "
  GROUP 2 3
END

TEXT 211
BEGIN
  PROMPT 25 5 "Numero       "
  GROUP 2 4 5
END

STRING 104 1
BEGIN
  PROMPT 42 3 "Tipo "
  FIELD LF_RVER->TIPOVERS      
  SHEET "Cod.|Descrizione@30"
  INPUT 104
  ITEM " |Nessuno"
  ITEM "C|C/C Postale"
  ITEM "D|Distinta"                          
  ITEM "B|Delega bancaria"
  OUTPUT 104    
  OUTPUT 70
  GROUP 1
  FLAGS "UG"
END

STRING 70 16
BEGIN
  PROMPT 51 3 ""
  FLAGS "D"
END
 
STRING 105 5 
BEGIN
  PROMPT 16 5 ""
  FIELD LF_RVER->SERIE
  FLAGS "ZG"
  WARNING "Inserire la serie/codice ABI"
  GROUP 1 2 4 6
END

STRING 106 11
BEGIN
  PROMPT 39 5 ""
  FIELD LF_RVER->NUMERO
  VALIDATE REQIF_FUNC 2 103 104
  WARNING "Inserire il numero"
  HELP "Inserire il numero"
  MESSAGE COPY,72
  FLAGS "G"  
  GROUP 1 2 3 4 5 
END


NUMBER 72 5
BEGIN
  PROMPT 39 5 ""
  FIELD LF_RVER->NUMERO
  VALIDATE REQIF_FUNC 2 103 104
  WARNING "Inserire il codice CAB"
  HELP "CODICE CAB LUNGO 5"
  MESSAGE COPY,106
  FLAGS "HZ"  
  GROUP 2 6
END

NUMBER 107 6
BEGIN
  PROMPT 2 6 "Progressivo per versamento banca "
  FLAGS "ZG"
  GROUP 2 6
END

CURRENCY 108 15
BEGIN
  PROMPT 2 7 "Importo versato  "
  FIELD LF_RVER->RITENUTA     
  VALIDATE REQIF_FUNC 1 102
  WARNING "Inserire la ritenuta"
  HELP "Inserire la ritenuta"
  GROUP 3
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

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

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

BUTTON DLG_AZZERA 9 2
BEGIN
    PROMPT -34 -1 "A~zzera"
    MESSAGE RESET,1@|RESET,2@|RESET,3@|RESET,101
    PICTURE TOOL_RESET
END

BUTTON DLG_SELPAG 9 2
BEGIN
  PROMPT -44 -1 "~Pagamenti"
  HELP "Seleziona i pagamenti collegati"
  PICTURE TOOL_LINK
END

ENDPAGE

ENDMASK