Spanish esperar hasta que se seleccione un items en listview

Gustavo

Member
Licensed User
Longtime User
Una consulta, tenbo un button que cuando lo presiono ejectuar un proceso de grabado de datos, el tema es que antes de guardar los datos necesito que el usuario seleccione uan opcion del listview, ejemplo
el listview tiene cargado 1-Tiene Saldo Deudor
2-Cerrado
3-No se visito por Falta de tiempo
4-otros no identificado
bueno el tema es que quiero que no se ejecuten las acciones de button hasta que se seleccione una opcion del listview. si hay otra alternativa gracias

Sub Button26_Click
Dim escribir As TextWriter
Dim lmotivo As Int
Dim komotivo As Boolean


Dim leerp As TextReader
Dim lineap As String
Dim LINEA_W As String
Dim hora,fecha As String
Dim nropedido,upedido,finpedido,finvende,fincliente As Int
Dim fpedido,fpedido0 As String
laprimera = 1
motivo = ""

komotivo = carga_motivo
If komotivo Then
.......
demas lineas de guardado
end if

end sub

Sub carga_motivo() As Boolean


If laprimera = 1 Then
Msgbox("Por Favor Seleccione El motivo Por El Cual El Cliente No Compro","Alto")
laprimera = 0
End If
listviewp7.Visible = True
listviewp7.RequestFocus

If motivo.Length > 0 Then
listviewp7.Visible = False
Return True
Else
Return False
End If




End Sub

Sub ListViewp7_ItemClick (Position As Int, Value As Object)
motivo = Value


End Sub

saludos y gracias
 

bgsoft

Well-Known Member
Licensed User
Longtime User
Hola Gustavo:

Antes de nada, cuando escribas código hazlo dentro del marco del codigo, en la barra de arriba a la derecha es el que tiene las dos flechas "<>" al lado de ",," , de esa forma el codigo es mas comprensible , o si no antes del codigo pones esto [ CODE], y al final del codigo esto:[ /CODE] (le he puesto un espacio para que no salga como codigo) y de paso si lo ve Erel no te pegara bronca :D

Lo que quieres es tan simple como poner en el evento Click del ListView una variable global que te diga que entró.
Te he puesto varias alternativas para que utilices la que quieras, por si quieres saber cual te pulsaron, el texto, etc.

B4X:
Sub Globals
   Dim SiSeleccionado  As Boolean
   Dim ItemSeleccionado As Int
   Dim TextoSeleccionado As String
............
..............
...............

Sub ListView1_ItemClick (Position As Int, Value As Object)

     SiSeleccionado = True
     ItemSeleccionado = Position
     TextoSeleccionado = ListView1.GetItem (ItemSeleccionado)
     
     Log("SiSeleccionado " & SiSeleccionado)
     Log("ItemSeleccionado " & ItemSeleccionado)
     Log("TextoSeleccionado " & TextoSeleccionado)
      
End Sub


Saludos
 
Top