mirror of
https://github.com/KeymonSoft/Mariana_Censos.git
synced 2026-04-20 22:29:13 +00:00
3/1/2023 - Se agregaron campos nuevos y scroll a cliente
- Se agregó el telefono y correo a clienets nuevos y clientes viejos. - Se agregó un scroll a cliente para que se vean todos los campos!
This commit is contained in:
@@ -54,6 +54,13 @@ Sub Class_Globals
|
||||
Private et_atiende As EditText
|
||||
Private et_telefono As EditText
|
||||
Private et_email As EditText
|
||||
Private sv_nuevoClienteDatos As ScrollView
|
||||
Private l_tituloCuestionaro As Label
|
||||
Private l_cuestionario As Label
|
||||
Dim q As C_Cuestionario
|
||||
Dim su As StringUtils
|
||||
Dim clienteAnt As String = ""
|
||||
dim cuestionarioTexto as string
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -70,20 +77,39 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
If File.Exists(ruta, "kmt.db") = False Then
|
||||
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
|
||||
End If
|
||||
sv_nuevoClienteDatos.Width = Root.Width
|
||||
sv_nuevoClienteDatos.Height = Root.Height
|
||||
sv_nuevoClienteDatos.Panel.LoadLayout("nuevoClienteDatos")
|
||||
' Subs.centraBoton(p_botones, p_nuevoCliente.Width)
|
||||
' skmt.Initialize(ruta,"kmt.db", True)
|
||||
' p_camara.Height = Root.Height
|
||||
' p_camara.Width = Root.Width
|
||||
q.Initialize(Me, "q", Root, B4XPages.MainPage.skmt)
|
||||
End Sub
|
||||
|
||||
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||
|
||||
Sub B4XPage_Appear
|
||||
camposModificados.Initialize
|
||||
l_cuestionario.Visible = False
|
||||
l_tituloCuestionaro.Visible = False
|
||||
et_nombre.Text = ""
|
||||
et_direccion.Text = ""
|
||||
et_atiende.Text = ""
|
||||
et_telefono.Text = ""
|
||||
et_email.Text = ""
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
no_cliente= "NC" & sTime & no_ruta
|
||||
Log(no_cliente)
|
||||
Log($"CargarCliente: ${cargarCliente}"$)
|
||||
reqManager.Initialize(Me, Starter.server)
|
||||
If Not(Starter.gps.GPSEnabled) Then
|
||||
ToastMessageShow("Es necesario tener el GPS encendido", True)
|
||||
StartActivity(Starter.gps.LocationSettingsIntent)
|
||||
End If
|
||||
' p_botones.Top = l_cuestionario.top + l_cuestionario.Height + 20dip
|
||||
p_nuevoCliente.Height = p_botones.Top + p_botones.Height + 20dip
|
||||
sv_nuevoClienteDatos.Panel.Height = p_nuevoCliente.Height
|
||||
Dim losGiros As List = Subs.traeGirosLista
|
||||
cb_giro.SetItems(losGiros)
|
||||
B_FOTO.Enabled = True
|
||||
@@ -101,18 +127,18 @@ Sub B4XPage_Appear
|
||||
elOtroCliente = cc.GetString("CAT_CL_CODIGO")
|
||||
et_nombre.Text = cc.GetString("CAT_CL_NOMBRE")
|
||||
et_direccion.Text = cc.GetString("CAT_CL_CALLE1")
|
||||
et_nombre.Text = cc.GetString("CAT_CL_NOMBRE")
|
||||
' B_FOTO.Enabled = False
|
||||
et_atiende.Text = cc.GetString("CAT_CL_NOMBRE")
|
||||
et_telefono.Text = cc.GetString("CAT_CL_TELEFONO")
|
||||
et_email.Text = cc.GetString("CAT_CL_EMAIL")
|
||||
Log($"${losGiros.IndexOf(cc.GetString("CAT_CL_GIRO"))}, ${losGiros}, ${cc.GetString("CAT_CL_GIRO")}"$)
|
||||
cb_giro.SelectedIndex = losGiros.IndexOf(cc.GetString("CAT_CL_GIRO"))
|
||||
|
||||
End If
|
||||
End If
|
||||
b_ubicacion.Text = "Buscando ubicación ..."
|
||||
b_guardar.Visible = False
|
||||
Subs.panelVisible(p_nuevoCliente, 0, 0)
|
||||
p_nuevoCliente.Height = Root.Height
|
||||
p_nuevoCliente.Width = Root.Width
|
||||
' Subs.panelVisible(p_nuevoCliente, 0, 0)
|
||||
' p_nuevoCliente.Height = Root.Height
|
||||
' p_nuevoCliente.Width = Root.Width
|
||||
' Subs.centraEtiqueta(Label1, Root.Width)
|
||||
' Subs.centraEtiqueta(l_sinUbicacion, Root.Width)
|
||||
Subs.centraPanel(p_botones, Root.Width)
|
||||
@@ -128,7 +154,37 @@ Sub B4XPage_Appear
|
||||
' cb_giro.
|
||||
' l_sinUbicacion.Visible = True
|
||||
CallSubDelayed(Tracker, "StartFLPSmall")
|
||||
Log($"${B4XPages.MainPage.principal.l_dia.text}, ${Starter.dia_semana}"$)
|
||||
' Log($"${B4XPages.MainPage.principal.l_dia.text}, ${Starter.dia_semana}"$)
|
||||
'Revisamos si el cliente actual es diferente del anterior y si es diferente ponemos encuestaIniciada en VERDADERO.
|
||||
If clienteAnt <> no_cliente Then q.encuestaIniciada = False
|
||||
clienteAnt = no_cliente
|
||||
' Log("CON ENCUESTA: " & q.clienteConCuestionario(Subs.traeCliente))
|
||||
' Log("INICIADA: " & q.encuestaIniciada)
|
||||
If cargarCliente Then
|
||||
Log(">>>>>> " & no_cliente)
|
||||
If l_cuestionario.Visible Then
|
||||
p_botones.Top = l_cuestionario.Top + l_cuestionario.Height + 20dip
|
||||
Else
|
||||
p_botones.Top = l_tituloCuestionaro.Top + 20dip
|
||||
End If
|
||||
Private cuest As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select * from cuestionario where Q_IDCLIENTE = '${Subs.traeCliente}'"$)
|
||||
If cuest.RowCount > 0 Then
|
||||
Log("HAY CUESTIONARIO")
|
||||
Private cs As CSBuilder
|
||||
cs.Initialize
|
||||
For i = 0 To cuest.RowCount - 1
|
||||
cuest.Position = i
|
||||
cs.color(Colors.black).Append(cuest.GetString("Q_PREGUNTA")).popall.Append(CRLF).Append(" " & cuest.GetString("Q_RESPUESTA")).Append(CRLF).popall
|
||||
Next
|
||||
l_cuestionario.Text = cs
|
||||
l_cuestionario.Visible = True
|
||||
l_tituloCuestionaro.Visible = True
|
||||
l_cuestionario.Height = su.MeasureMultilineTextHeight(l_cuestionario, l_cuestionario.Text)
|
||||
End If
|
||||
End If
|
||||
Log($"${q.encuestaIniciada} | ${cargarCliente}"$)
|
||||
If Not(q.encuestaIniciada) And Not(cargarCliente) Then q.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
|
||||
ajustaTamano
|
||||
End Sub
|
||||
|
||||
Sub GPS_LocationChanged (Location1 As Location)
|
||||
@@ -165,23 +221,22 @@ Sub b_guardar_Click
|
||||
else if B4XPages.MainPage.principal.l_ruta.Text = "0" Then
|
||||
ToastMessageShow("Es necesario cargar una ruta.", False)
|
||||
Else
|
||||
Log("entramos a b_guardar")
|
||||
' Log("entramos a b_guardar")
|
||||
Log($"CargarCliente: ${cargarCliente}"$)
|
||||
DateTime.DateFormat = "dd/MM/yyyy"
|
||||
DateTime.Timeformat = "HHmmss"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
Log($" //////////// Date: ${sDate} - Time: ${sTime} ////////////////"$)
|
||||
' Log($" //////////// Date: ${sDate} - Time: ${sTime} ////////////////"$)
|
||||
'Aqui creamos manualmete la hora con el separador de los 2 puntos porque en algunas versiones de android no respeta el formato "Timeformat = 'HH:mm:ss'"
|
||||
Private hora As String = sTime.SubString2(0,2)
|
||||
Private mins As String = sTime.SubString2(2,4)
|
||||
Private segs As String = sTime.SubString(4)
|
||||
sTime = hora&":"&mins&":"&segs
|
||||
Log("////////////// sTime: "&sTime&" ////////////////")
|
||||
' Log("////////////// sTime: "&sTime&" ////////////////")
|
||||
c = B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info")
|
||||
c.Position=0
|
||||
no_ruta= c.GetString("CAT_CL_RUTA")
|
||||
no_cliente= "NC" & sTime & no_ruta
|
||||
If cargarCliente Then no_cliente = elOtroCliente
|
||||
Log("++ ++ no_cliente = "&no_cliente)
|
||||
c.Close
|
||||
@@ -194,7 +249,7 @@ Sub b_guardar_Click
|
||||
CAT_CL_LAT = '${B4XPages.MainPage.lat_gps}', CAT_CL_LONG = '${B4XPages.MainPage.lon_gps}', CAT_CL_GIRO = '${cb_giro.SelectedItem}', CAT_CL_NOMBRE = '${Subs.escapeSQLString(et_nombre.Text)}', CAT_CL_CALLE1 = '${Subs.escapeSQLString(et_direccion.text)}', CAT_CL_ENVIO_PENDIENTE = 1,
|
||||
LAT_CENSADOR = '${B4XPages.MainPage.lat_gps}', LON_CENSADOR = '${B4XPages.MainPage.lon_gps}', CAMPOS_MODIFICADOS = '${Subs.list2string(camposModificados)}' where CAT_CL_CODIGO In (select cuenta from cuentaa)"$)
|
||||
Else
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO, CAT_CL_RUTA, CAT_CL_NOMBRE, CAT_CL_CALLE1, CAT_CL_LAT, CAT_CL_LONG, CAT_CL_FECHA_CAPTURA, CAT_CL_DIAS_VISITA, LAT_CENSADOR, LON_CENSADOR, CAT_CL_ENVIO_PENDIENTE, CAT_CL_TELEFONO, CAT_CL_ATIENDE1, CAT_CL_EMAIL) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, 1, ?, ?, ?) ", Array As Object (no_cliente, no_ruta, et_nombre.Text, et_direccion.Text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, DateNC, Starter.dia_semana, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, et_atiende.Text, et_telefono.Text, et_email.Text))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO, CAT_CL_RUTA, CAT_CL_NOMBRE, CAT_CL_CALLE1, CAT_CL_LAT, CAT_CL_LONG, CAT_CL_FECHA_CAPTURA, CAT_CL_DIAS_VISITA, LAT_CENSADOR, LON_CENSADOR, CAT_CL_ENVIO_PENDIENTE, CAT_CL_TELEFONO, CAT_CL_ATIENDE1, CAT_CL_EMAIL, CAT_CL_GIRO) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, 1, ?, ?, ?, ?) ", Array As Object (no_cliente, no_ruta, et_nombre.Text, et_direccion.Text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, DateNC, Starter.dia_semana, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, et_atiende.Text, et_telefono.Text, et_email.Text, cb_giro.SelectedItem))
|
||||
End If
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente))
|
||||
@@ -391,17 +446,27 @@ Sub mandaPendientesNuevosClientes
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Log(c.GetString("NOM_FOTO"))
|
||||
cuestionarioTexto = ""
|
||||
Private cuest As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select * from cuestionario where Q_IDCLIENTE = '${c.GetString("CAT_CL_CODIGO")}'"$)
|
||||
If cuest.RowCount > 0 Then
|
||||
cuest.Position = 0
|
||||
cuestionarioTexto = cuest.GetString("Q_FECHA")
|
||||
For cu = 0 To cuest.RowCount - 1
|
||||
cuestionarioTexto = $"${cuestionarioTexto}|${cuest.GetString("Q_IDPREGUNTA")}|${cuest.GetString("Q_PREGUNTA")}|${cuest.GetString("Q_IDRESPUESTA")}|${cuest.GetString("Q_RESPUESTA")}"$
|
||||
Next
|
||||
End If
|
||||
' Log(c.GetString("NOM_FOTO"))
|
||||
If c.GetString("NOM_FOTO") <> Null And c.GetString("NOM_FOTO") <> "" And c.GetString("NOM_FOTO") <> "null" Then
|
||||
Log(File.Exists(Dirp&Dir&Dir2,c.GetString("NOM_FOTO")))
|
||||
Log($"${Dirp&Dir&Dir2},${c.GetString("NOM_FOTO")}"$)
|
||||
' Log(File.Exists(Dirp&Dir&Dir2,c.GetString("NOM_FOTO")))
|
||||
' Log($"${Dirp&Dir&Dir2},${c.GetString("NOM_FOTO")}"$)
|
||||
fotox = Null
|
||||
If File.Exists(Dirp&Dir&Dir2,c.GetString("NOM_FOTO")) Then fotox = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir&Dir2,c.GetString("NOM_FOTO")))
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "guardaClienteNuevo_MARDS"
|
||||
cmd.Name = "guardaClienteNuevo2_MARDS"
|
||||
' Log(">>>>>>> TMP_CLIENTES_CENSOS")
|
||||
' TMP_ALMACENID, TMP_RUTA, TMP_USUARIO, TMP_ID_CLIENTE, TMP_NOMBRE, TMP_DOMICILIO, TMP_FECHA_CAPTURA_MOVIL, TMP_FECHA_SINCRONIZACION, TMP_LATITUD, TMP_LONGITUD
|
||||
cmd.Parameters = Array As Object(Subs.traeAlmacen, c.GetString("CAT_CL_RUTA"), Subs.traeUsuarioDeBD, c.GetString("CAT_CL_CODIGO"), c.GetString("CAT_CL_NOMBRE"), c.GetString("CAT_CL_CALLE1"), c.GetString("CAT_CL_FECHA_CAPTURA"), sDateP, c.GetString("CAT_CL_LAT"), c.GetString("CAT_CL_LONG"), fotox, elGiro, Starter.dia_semana)
|
||||
cmd.Parameters = Array As Object(Subs.traeAlmacen, c.GetString("CAT_CL_RUTA"), Subs.traeUsuarioDeBD, c.GetString("CAT_CL_CODIGO"), c.GetString("CAT_CL_NOMBRE"), c.GetString("CAT_CL_CALLE1"), c.GetString("CAT_CL_FECHA_CAPTURA"), sDateP, c.GetString("CAT_CL_LAT"), c.GetString("CAT_CL_LONG"), fotox, elGiro, Starter.dia_semana, c.GetString("CAT_CL_TELEFONO"), c.GetString("CAT_CL_EMAIL"), cuestionarioTexto)
|
||||
' Log($"${c.GetString("CAT_CL_CODIGO")}, ${Subs.traeAlmacen}, ${c.GetString("CAT_CL_LAT")}, ${c.GetString("CAT_CL_LONG")}, ${c.GetString("CAT_CL_SECUENCIA")}, ${c.GetString("CAT_CL_RUTA")}, ${c.GetString("CAT_CL_DIASEMANA")}, ${c.GetString("CAT_CL_GIRO")}, ${c.GetString("CAT_CL_NOMBRE")}, ${c.GetString("CAT_CL_ATIENDE1")}, ${c.GetString("CAT_CL_CALLE")}, ${c.GetString("CAT_CL_NOINT")}, ${c.GetString("CAT_CL_NOEXT")}, ${c.GetString("CAT_CL_CALLE1")}, ${c.GetString("CAT_CL_CRUCE1")}, ${c.GetString("CAT_CL_CALLE2")}, ${c.GetString("CAT_CL_CP")}, ${c.GetString("CAT_CL_COLONIA")}, ${c.GetString("CAT_CL_MUNI")}, ${c.GetString("CAT_CL_EDO")}, ${c.GetString("CAT_CL_ESTATUS")}, ${c.GetString("CAT_CL_FECHA_CAPTURA")}, ${sDate}, ${Subs.traeUsuarioDeBD}"$)
|
||||
reqManager.ExecuteCommand(cmd , $"guardaClienteNuevo_${c.GetString("CAT_CL_CODIGO")}"$)
|
||||
|
||||
@@ -426,4 +491,83 @@ End Sub
|
||||
|
||||
Private Sub et_direccion_TextChanged (Old As String, New As String)
|
||||
camposModificados.Add("CAT_CL_CALLE1")
|
||||
End Sub
|
||||
|
||||
Sub q_preguntaContestada(m As Map)
|
||||
' Recibimos el id de la pregunta, el id de la respuesta, el texto de la respuesta y el objeto del panelSombra para poder ocultarlo.
|
||||
Log(m)
|
||||
Log($">>>>>>> PREGUNTA ${m.Get("idPregunta")}"$)
|
||||
' If q.IsInitialized Then Log($"${q.encuestaIniciada}|${q.preguntaActual}"$)
|
||||
' m.Get("panel").As(Panel).Visible = False 'Ocultamos el panel de la pregunta.
|
||||
m.Get("panel").As(Panel).RemoveView 'Quitamos le panel de la pregunta
|
||||
DateTime.DateFormat = "yyyyMMdd"
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"delete from CUESTIONARIO where Q_IDCLIENTE = '${Subs.traeCliente}' and Q_IDPREGUNTA = '${m.Get("idPregunta")}'"$)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"insert into CUESTIONARIO (Q_IDCLIENTE, Q_IDPREGUNTA, Q_PREGUNTA, Q_IDRESPUESTA, Q_RESPUESTA, Q_FECHA) values ('${no_cliente}', '${m.Get("idPregunta")}', '${m.Get("pregunta")}', '${m.Get("idRespuesta")}', '${m.Get("respuesta")}', '${DateTime.Date(DateTime.now)}')"$)
|
||||
Select Case m.Get("idPregunta")
|
||||
Case "1"
|
||||
If m.Get("respuesta") = "No, está enrejado o no se tiene acceso" Then
|
||||
Log("Tiendajon / Ventana / Kiosko")
|
||||
ToastMessageShow("Tiendajon / Ventana / Kiosko", False)
|
||||
q.agregaPregunta("6", "¿Cuenta con caja de salida para cobro con sistema de computo?", Array As String("Si, tiene sistema de computo para cobro", "No"))
|
||||
Else if m.Get("respuesta") = "Si se pude acceder" Then
|
||||
q.agregaPregunta("2", "¿Tiene al menos 2 pasillos con acceso directo a la mercancía?", Array As String("Si tiene al menos 2 pasillos con acceso directo a la mercancía", "No tiene pasillos o solo uno central"))
|
||||
End If
|
||||
Case "2"
|
||||
If m.Get("respuesta") = "Si tiene al menos 2 pasillos con acceso directo a la mercancía" Then
|
||||
Log("Mini-Super")
|
||||
ToastMessageShow("Mini-Super", False)
|
||||
q.agregaPregunta("6", "¿Cuenta con caja de salida para cobro con sistema de computo?", Array As String("Si, tiene sistema de computo para cobro", "No"))
|
||||
else If m.Get("respuesta") = "No tiene pasillos o solo uno central" Then
|
||||
q.agregaPregunta("3", "¿Cuenta con enfriador horizontal para venta de perecederos como queso, jamon, crema, etc.?", Array As String("Si", "No tiene enfriador horizontal."))
|
||||
End If
|
||||
Case "3"
|
||||
Log("|"&m.Get("respuesta")&"|")
|
||||
If m.Get("respuesta") = "Si" Then
|
||||
Log("Miscelanea")
|
||||
ToastMessageShow("Miscelanea", False)
|
||||
q.agregaPregunta("6", "¿Cuenta con caja de salida para cobro con sistema de computo?", Array As String("Si, tiene sistema de computo para cobro", "No"))
|
||||
else If m.Get("respuesta") = "No tiene enfriador horizontal." Then
|
||||
q.agregaPregunta("4", "¿El local esta enfocado a venta especializada?", Array As String("No", "Si"))
|
||||
End If
|
||||
Case "4"
|
||||
If m.Get("respuesta") = "No" Then
|
||||
Log("Abarrotera")
|
||||
ToastMessageShow("Abarrotera", False)
|
||||
q.agregaPregunta("6", "¿Cuenta con caja de salida para cobro con sistema de computo?", Array As String("Si, tiene sistema de computo para cobro", "No"))
|
||||
else If m.Get("respuesta") = "Si" Then
|
||||
q.agregaPregunta("5", "¿Cual venta especializada?", Array As String("Carnicería / Pollería", "Cremería", "Depósito / Vinateria", "Dulcería", "Farmacia", "Fonda / Restaurante / Cafetería", "Verdulería"))
|
||||
End If
|
||||
Case "5"
|
||||
Log(m.Get("respuesta"))
|
||||
ToastMessageShow(m.Get("respuesta"), False)
|
||||
' If m.Get("respuesta") = "No" Then
|
||||
' Log("Abarrotera")
|
||||
' q.agregaPregunta("5", "¿Cuenta con caja de salida para cobro con sistema de computo?", Array As String("Si, tiene sistema de computo para cobro", "No"))
|
||||
' else If m.Get("respuesta") = "Si" Then
|
||||
q.agregaPregunta("6", "¿Cuenta con caja de salida para cobro con sistema de computo?", Array As String("Si, tiene sistema de computo para cobro", "No"))
|
||||
' End If
|
||||
Case "6"
|
||||
Log(m.Get("respuesta"))
|
||||
ToastMessageShow(m.Get("respuesta"), False)
|
||||
Log(">>>>>>>>>> " & q.encuestaIniciada)
|
||||
q.encuestaIniciada = False
|
||||
Log(">>>>>>>>>> " & q.encuestaIniciada)
|
||||
' Case 6
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
'Ajusta el tamaño del panel de scroll.
|
||||
Sub ajustaTamano
|
||||
' Log("xx: " & sv_clientesDatos.Panel.Height)
|
||||
' Log($"${b_guardaCambios.Top} + 350"$)
|
||||
If l_cuestionario.Visible Then
|
||||
Log("visible")
|
||||
p_botones.Top = l_cuestionario.Top + l_cuestionario.Height + 20
|
||||
Else
|
||||
Log("INVisible")
|
||||
p_botones.Top = b_ubicacion.Top + b_ubicacion.Height + 20
|
||||
End If
|
||||
p_nuevoCliente.Height = p_botones.Top + 350
|
||||
sv_nuevoClienteDatos.Panel.Height = p_nuevoCliente.Height
|
||||
' Log("xx: " & sv_clientesDatos.Panel.Height)
|
||||
End Sub
|
||||
Reference in New Issue
Block a user