From cfe2113e70abc8e46c8f24ed9a4914e6e2e31fc6 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Sat, 29 Jun 2024 18:39:59 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=204.06.28=20-=20Se=20corrigi=C3=B3?= =?UTF-8?q?=20que=20cuando=20la=20ruta=20esta=20cerrada=20por=20Motivo=20d?= =?UTF-8?q?e=20no=20visita,=20no=20se=20podia=20entra=20a=20la=20calculado?= =?UTF-8?q?ra.=20-=20Se=20agtego=20la=20fecha=20de=20inicio=20al=20evento?= =?UTF-8?q?=20de=20"Venta=20abordo"?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_Cliente.bas | 59 ++++++++++++++++++++++------------------ B4A/Files/principal.bal | Bin 77719 -> 77710 bytes B4A/KelloggsV4.b4a | 2 +- B4A/KelloggsV4.b4a.meta | 2 +- 4 files changed, 35 insertions(+), 28 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 99fe138..4940d3d 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -403,10 +403,6 @@ End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. Sub B4XPage_Appear - If kh.motivoNoVisitaActivo Then - ToastMessageShow("Ruta CERRADA por NO VISITA", True) - Subs.iniciaActividad("Principal") - End If indicePregunta = 0 b_noVenta.Enabled = False ' Log(kh.traeTotalCliente) @@ -456,7 +452,14 @@ Sub B4XPage_Appear Starter.GPS.Start(0, 0) If Starter.ubicacionActual.IsInitialized And Starter.ubicacionActual.Latitude <> 0 Then GPS_LocationChanged(Starter.ubicacionActual) End If - If muestraBoleta Then LLAMA_BOLETA + If muestraBoleta Then + LLAMA_BOLETA + Else + If kh.motivoNoVisitaActivo Then + ToastMessageShow("Ruta CERRADA por NO VISITA", True) + Subs.iniciaActividad("Principal") + End If + End If BT_QR.Enabled = False ' b_factura.Visible = False Panel_INV_A.Visible = False @@ -641,8 +644,10 @@ Sub B4XPage_Appear Else Guardar.Visible = True End If - If Not(l_total.Text > 0) And Not(kh.traeTotalClienteDOE > 0) Then Guardar.Visible = True + If l_total.Text = "" Or l_total.Text = "null" Then l_total.Text = "0" + If Not(l_total.Text > 0) Then Guardar.Visible = True ' And Not(kh.traeTotalClienteDOE > 0 ' If la_cuenta.text = "0" Then Guardar.Visible = True 'Abordo + Log($"L_TOTAL = ${l_total.text}"$) If l_total.Text = Null Or l_total.Text = "null" Or l_total.text = "0" Then Guardar.Visible = True 'Si no hay venta entonces "Guardar" es visible. 'Promo Especial @@ -703,30 +708,32 @@ Sub B4XPage_Appear gps_boton_doe = "0" C1=Starter.skmt.ExecQuery("select IMPRESION FROM kmt_info where CAT_CL_CODIGO In (select cuenta from cuentaa)") - C1.Position = 0 - If C1.GetString("IMPRESION") <> "1" Then - S=Starter.skmt.ExecQuery2("select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_PROID = ?", Array As String("PROMODOE") ) - s.Position = 0 - If s.GetString("CUANTOS") = 0 Then - c=Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_CLIENTE_CANT_PROMOS WHERE HCCP_CLIENTE IN (Select cuenta from cuentaa) AND HCCP_PROMO = ?", Array As String("PROMODOE")) - c.Position =0 - If c.GetString("CUANTOS") > 0 Then - C3=Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM CAT_GUNAPROD2 WHERE CAT_GP_ID = ? ", Array As String("1008094223")) - C3.Position = 0 - If C3.GetString("CUANTOS") > 0 Then - c2=Starter.skmt.ExecQuery2("SELECT CAT_GP_ALMACEN FROM CAT_GUNAPROD2 WHERE CAT_GP_ID = ? ", Array As String("1008094223")) - c2.Position = 0 - If c2.GetString("CAT_GP_ALMACEN") > 0 Then - b_whats.Visible = False + If C1.RowCount > 0 Then + C1.Position = 0 + If C1.GetString("IMPRESION") <> "1" Then + S=Starter.skmt.ExecQuery2("select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_PROID = ?", Array As String("PROMODOE") ) + s.Position = 0 + If s.GetString("CUANTOS") = 0 Then + c=Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_CLIENTE_CANT_PROMOS WHERE HCCP_CLIENTE IN (Select cuenta from cuentaa) AND HCCP_PROMO = ?", Array As String("PROMODOE")) + c.Position =0 + If c.GetString("CUANTOS") > 0 Then + C3=Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM CAT_GUNAPROD2 WHERE CAT_GP_ID = ? ", Array As String("1008094223")) + C3.Position = 0 + If C3.GetString("CUANTOS") > 0 Then + c2=Starter.skmt.ExecQuery2("SELECT CAT_GP_ALMACEN FROM CAT_GUNAPROD2 WHERE CAT_GP_ID = ? ", Array As String("1008094223")) + c2.Position = 0 + If c2.GetString("CAT_GP_ALMACEN") > 0 Then + b_whats.Visible = False ' gps_boton_doe = "1" + End If + c2.Close End If - c2.Close + C3.Close End If - C3.Close + c.Close End If - c.Close + s.Close End If - s.Close End If C1.Close gps_boton_doe = "0" @@ -977,7 +984,7 @@ Sub Guardar_Click b_inicioFinVenta.Visible = False Starter.enVenta = False LogColor(">>>>>> ABORDO: " & Starter.enVenta, Colors.red) - Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Id_Almacen, ruta_tienda, "Venta Abordo", "0", "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, precision, "", "") + Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Id_Almacen, ruta_tienda, "Venta Abordo", "0", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, precision, "", "") Subs.iniciaActividad("principal") B4XPages.ShowPageAndRemovePreviousPages("Principal") End If diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index d2b6d0385963274d731a0305b8a309d1c7009b9e..fb7f9fcd4ac7aee77ac94dafe0aa03cf9715d43f 100644 GIT binary patch delta 31 ncmbP!pQZ0U%Lbvq$pLy2laKp&PIus7