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
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