cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-21 03:49:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Se cambio el tamaño del panel de "Resumen Acumulado"

Browse Source 
- Se agregó que el envio de la informacion (boton conectar, ruta y enviar) tambien guarde en nombre del cliente los eventos como checklist, boleta, carga dia, etc
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-20 12:50:22 -06:00
parent 0b81649cc3
commit 4fa175cc93
5 changed files with 15 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/C_Principal.bas
View File

@@ -665,6 +665,8 @@ Sub cargar_Click
cmd.Name = "SELECT_HIST_ENCUESTA_KELL"
cmd.Parameters = Array As Object( e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "HIST_ENCUESTA2")
cmd.Initialize
cmd.Name = "SELECT_EXHIBIDOR_RUTA_KELL"
@@ -2740,6 +2742,8 @@ Sub b_cuotas_Click
L_META6.Text = 0
End If
DDD.Close
p_resumenAcumulado.Top = 5dip : p_resumenAcumulado.left = 5dip
p_resumenAcumulado.Width = Root.Width - 10dip : p_resumenAcumulado.height = Root.height - 10dip
p_resumenAcumulado.BringToFront
p_resumenAcumulado.Visible = True
Panel2.Visible = False
@@ -2847,10 +2851,14 @@ Sub SUBIR_INFO_PEDIDO
Do While h.nextrow
cmd.Initialize
If h.GetString("eventob") <> "Termina Venta" Then
Private nombreCliente As String = Subs.traeNombreCliente(h.GetString("usuariob"))
If h.GetString("eventob") = "Llega a almacen" Then nombreCliente = "BOLETA"
' Private nombreCliente As String = Subs.traeNombreCliente(h.GetString("usuariob"))
cmd.Name = "mandaBitacora3"
Log("BITACORA2")
Private nombreCliente As String = Subs.traeNombreCliente(h.GetString("clienteb"))
If h.GetString("eventob") = "Llega a almacen" Then nombreCliente = "BOLETA"
If h.GetString("eventob") = "Salida almacen" Then nombreCliente = "CHECKLIST"
If h.GetString("eventob") = "Fin Día" Then nombreCliente = "FIN DIA"
If h.GetString("eventob") = "Carga día" Then nombreCliente = "CARGA DIA"
' Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${traeNombreCliente(clienteb)}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$)
' TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC
cmd.Parameters = Array As Object(h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("rutab"), h.GetString("eventob"), h.GetString("clienteb"), nombreCliente, h.GetString("iniciob"), h.GetString("finb"), h.GetString("latitudb"), h.GetString("longitudb"), h.GetString("precision"), h.GetString("motivonoventa"), h.GetString("motivonovisita"), h.GetString("fechab"))