Spanish B4XPreferenceDialog Mayusculas

[GiovanniO]

Saludos compañeros, ¿de casualidad alguien sabe como hacer que el texto de las cajas de los preferencedialog solo acepte Mayusculas?

Este es mi codigo pero no logro entender en que parte podria definir esa opcion. Gracias por cualquier tip y saludos.

Wait For (PrefDialog.ShowDialog(Item, "OK", "CANCEL")) Complete (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        Dim params As List
        params.Initialize
        params.AddAll(Array(Item.Get("Af"), Item.Get("Estado"), Item.Get("Serie"), Item.Get("Tipo"), Item.Get("Marca"), Item.Get("Modelo"), Item.Get("FechaCompra"), Item.Get("FechaAsignacion"), Item.Get("Asignado"), Item.Get("Sucursal"))) 'keys based on the template json file
        If RowId = 0 Then 'new row
            B4XTable1.sql1.ExecNonQuery2($"INSERT INTO data VALUES("", ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"$, params)
            B4XTable1.ClearDataView
        Else
            params.Add(RowId)
            'first column is c0. We skip it as this is the "edit" column
            B4XTable1.sql1.ExecNonQuery2("UPDATE data SET c1 = ?, c2 = ?, c3 = ?, c4 = ?, c5 = ?, c6 = ?, c7 = ?, c8 = ?, c9 = ?, c10 = ? WHERE rowid = ?", params)
            B4XTable1.Refresh
        End If
    End If

 

[Mariano Ismael Castro]

Saludos compañeros, ¿de casualidad alguien sabe como hacer que el texto de las cajas de los preferenciadialog solo acepta Mayusculas?

Este es mi código pero no logro entender en que parte podría definir esa opción. Gracias por cualquier consejo y saludos.

Esperar a que (PrefDialog.ShowDialog(Item, "OK", "CANCEL")) se complete (Resultado como entero)
    Si Resultado = xui.DialogResponse_Positive Entonces
        Parámetros dim como lista
        parámetros.Inicializar
        params.AddAll(Array(Item.Get("Af"), Item.Get("Estado"), Item.Get("Serie"), Item.Get("Tipo"), Item.Get("Marca"), Item.Get("Modelo"), Item.Get("FechaCompra"), Item.Get("FechaAsignacion"), Item.Get("Asignado"), Item.Get("Sucursal"))) 'claves basadas en el archivo json de plantilla
        Si RowId = 0 Entonces 'nueva fila
            B4XTable1.sql1.ExecNonQuery2($"INSERTAR EN datos VALORES("", ?, ?, ?, ?, ?, ?, ?, ?, ?)"$, parámetros)
            B4XTable1.Borrar vista de datos
        Demás
            parámetros.Add(RowId)
            La primera columna es c0. La omitimos porque es la columna de edición.
            B4XTable1.sql1.ExecNonQuery2("ACTUALIZAR conjunto de datos c1 = ?, c2 = ?, c3 = ?, c4 = ?, c5 = ?, c6 = ?, c7 = ?, c8 = ?, c9 = ?, c10 = ? DONDE rowid = ?", parámetros)
            B4XTable1.Actualizar
        Fin si
    Fin si

Yo digo que puedes poner en mayúsculas los datos capturados usando ToUpperCase.

La otra opción es con eventos, cuando se ingresan datos vas verificando que se ingresarán en mayúscula.

En el siguiente enlace te indican como se hace esto último

[B4X] B4XPreferencesDialog - Cross platform forms

B4XPreferencesDialog makes it easy to create dialogs with all kinds of input fields. The main steps required to use these dialogs are: 1. Define the list of fields. The recommended way to do it is with Forms Builder tool...

www.b4x.com