num_inp <- function(id, betrag, ro = FALSE){
  autonumericInput(
    inputId = id,
    label = NULL,
    width = "100%",
    value = betrag,
    currencySymbol = "",
    currencySymbolPlacement = "s",
    align = "right",
    readOnly = ro,
    style = "height: 15px !important;    padding: 1px 1px;"
  )
}