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 4 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|Concessione"
  OUTPUT 103 
  OUTPUT 71
  FLAGS "U"         
  FIELD LF_RVER->LUOVERS
  CHECKTYPE REQUIRED
  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
  CHECKTYPE REQUIRED
  FLAGS "U"
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 "HZG"  
  GROUP 2 6
END

NUMBER 107 6
BEGIN
  PROMPT 2 6 "Progressivo per versamento banca "
//  FLAGS "DZ"
  FLAGS "Z"
  GROUP 2 6
END

// "Se indico la data aloora devo indicare anche l'importo"
NUMBER 108 15
BEGIN
  PROMPT 2 7 "Importo versato  "
  PICTURE "."
  FLAGS "R"
  FIELD LF_RVER->RITENUTA     
  VALIDATE REQIF_FUNC 1 102
  WARNING "Inserire la ritenuta"
  HELP "Inserire la ritenuta"
  GROUP 3
END

NUMBER VERF_NUMVERS 6
BEGIN
  PROMPT 80 80 "NUMVERS "
  FLAGS "D"
END

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

BUTTON DLG_CANCEL 9 2
BEGIN
    PROMPT -24 -1 "" 
    MESSAGE CLEAR,103|CLEAR,104|CLEAR,105|CLEAR,106|CLEAR,107|CLEAR,108
END

BUTTON DLG_AZZERA 9 2
BEGIN
    PROMPT -34 -1 "Azzera"
    MESSAGE RESET,1@|RESET,2@|RESET,3@|RESET,101
END

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

ENDPAGE

ENDMASK