From f228f59e21d80a95d9027d4880b9a891dae74e74 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Tue, 16 Jan 2024 19:07:03 -0600 Subject: [PATCH] 16/1/24 - Correccion de error de ubicacion no inicializada --- B4A/C_Cliente.bas | 2 +- B4A/C_Nota.bas | 2 +- B4A/C_Productos.bas | 10 ++++++---- B4A/KelloggsV4.b4a.meta | 24 ++++++++++++------------ 4 files changed, 20 insertions(+), 18 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 5bf16a0..c7c6511 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -441,7 +441,7 @@ Sub B4XPage_Appear StartActivity(Starter.GPS.LocationSettingsIntent) Else Starter.GPS.Start(0, 0) - If Starter.ubicacionActual.Latitude <> 0 Then GPS_LocationChanged(Starter.ubicacionActual) + If Starter.ubicacionActual.IsInitialized and Starter.ubicacionActual.Latitude <> 0 Then GPS_LocationChanged(Starter.ubicacionActual) End If If muestraBoleta Then LLAMA_BOLETA BT_QR.Enabled = False diff --git a/B4A/C_Nota.bas b/B4A/C_Nota.bas index dd675d3..e40485e 100644 --- a/B4A/C_Nota.bas +++ b/B4A/C_Nota.bas @@ -112,7 +112,7 @@ Sub B4XPage_Appear If c.GetString("CUANTOS") > 0 Then B_PEDIDO_DOE.Text = "IR A PEDIDO DON TOÑO" B_PEDIDO_DOE.VISIBLE = True - C_DOE=Starter.skmt.ExecQuery2("select PE_PRONOMBRE,PE_COSTO_TOT, PE_CANT, PE_FOLIO FROM PEDIDO WHERE PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE asc", Array As String("DOE")) + C_DOE=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_COSTO_TOT, PE_CANT, PE_FOLIO FROM PEDIDO WHERE PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE asc", Array As String("DOE")) lv_prodsDOE.Clear If C_DOE.RowCount>0 Then For i=0 To C_DOE.RowCount -1 diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index 4c9b9af..1803cba 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -614,7 +614,8 @@ Sub b_prodMas_Click ' Log("========= " & pnl0.Tag) ' Log("========= " & pnl.Tag) ' Log("========= " & pnl.GetView(1).Tag) - Private existencias As String = pnl.GetView(1).Tag + Private existencias As String = clv_prods_ll.GetValue(index).As(Map).Get("almacen") + Log($"Existencias: ${existencias}"$) Dim laCant As B4XView = pnl.GetView(2).GetView(2) If laCant.Text = "" Then laCant.Text = 0 Private tmpMap As Map = clv_prods_ll.GetValue(index).As(Map) @@ -624,7 +625,7 @@ Sub b_prodMas_Click If buttonTag = "vendido" Then ' Log("VENDIDO") ' Log($"${(laCant.Text + 1 <= inv)} And ${(Subs.totalPedido - precio > 1)}"$) - If inv > 0 And (laCant.Text + 1 <= existencias) And (Subs.totalPedido - precio > 1) Then + If inv > 0 And (laCant.Text + 1 <= (laCant.Text + existencias)) And (Subs.totalPedido - precio > 1) Then ' Log(clv_prods_ll.GetValue(index).As(Map)) clv_prods_ll.GetValue(index).As(Map).Put("almacen", (inv - 1)) inv = inv - 1 @@ -679,7 +680,7 @@ Sub b_prodMas_Click i.Position = 0 invActualizado = i.GetString("CAT_GP_ALMACEN") End If - if Starter.tipov <> "ABORDO" then lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.append(CRLF).Append("Existencias: " & invActualizado).Color(0xFF017F01).Append($" $${precio}"$).Popall + If Starter.tipov <> "ABORDO" Then lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.append(CRLF).Append("Existencias: " & invActualizado).Color(0xFF017F01).Append($" $${precio}"$).Popall End If Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$) End Sub @@ -693,7 +694,8 @@ Private Sub et_pCant_TextChanged (Old As String, New As String) Dim index As Int = clv_prods_ll.GetItemFromView(Sender) Dim pnl0 As B4XView = clv_prods_ll.GetPanel(index) Dim pnl As B4XView = pnl0.GetView(0) - Private existencias As String = pnl.GetView(1).Tag + Private existencias As String = clv_prods_ll.GetValue(index).As(Map).Get("almacen") +' Log($"ExistenciasX: ${existencias}"$) Dim laCant As B4XView = pnl.GetView(2).GetView(2) Private id As String=clv_prods_ll.GetValue(index).As(Map).Get("id") Private precio As String=clv_prods_ll.GetValue(index).As(Map).Get("precio") diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index 88b70ea..5a5b863 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -61,36 +61,36 @@ ModuleBreakpoints7= ModuleBreakpoints8= ModuleBreakpoints9= ModuleClosedNodes0= -ModuleClosedNodes1=2,35 +ModuleClosedNodes1= ModuleClosedNodes10= -ModuleClosedNodes11=1,3,50,51,52 -ModuleClosedNodes12=1,3,13 +ModuleClosedNodes11= +ModuleClosedNodes12= ModuleClosedNodes13= -ModuleClosedNodes14=39,40,41,43,44 +ModuleClosedNodes14= ModuleClosedNodes15= ModuleClosedNodes16= ModuleClosedNodes17= -ModuleClosedNodes18=3,4,5,7,8,9,10,11,12,13,15,16,18 +ModuleClosedNodes18= ModuleClosedNodes19= ModuleClosedNodes2= ModuleClosedNodes20= -ModuleClosedNodes21=20,21,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39 +ModuleClosedNodes21= ModuleClosedNodes22= ModuleClosedNodes23= ModuleClosedNodes24= ModuleClosedNodes25= -ModuleClosedNodes26=2 +ModuleClosedNodes26= ModuleClosedNodes27= -ModuleClosedNodes28=9,10,11 +ModuleClosedNodes28= ModuleClosedNodes29= -ModuleClosedNodes3=3,86 +ModuleClosedNodes3= ModuleClosedNodes30= ModuleClosedNodes4= ModuleClosedNodes5= ModuleClosedNodes6= -ModuleClosedNodes7=11,12 +ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Visual Designer,promociones.bal,-100,2,C_Promos,Class_Globals,1,0,C_Promos,CreateListItem,207,0,Visual Designer,proditem.bal,-100,3,C_Promos,b_promoMas_Click,364,4,C_Promos,muestraPromo,110,0,C_Promos,b_prodMas_Click,262,2,C_Promos,et_pCant_TextChanged,277,6,C_Promos,et_pCant_FocusChanged,362,0,C_Promos,cuentaProds,311,6 +NavigationStack=C_Promos,b_prodMenos_Click,237,0,C_Productos,et_pCant_TextChanged,691,0,C_Productos,b_prodMas_Click,621,6,C_Nota,Class_Globals,0,0,C_Productos,LlenaProdsLL,1226,0,C_Productos,b_prodMenos_Click,581,6,Subs,actualizaProducto,916,0,Visual Designer,proditem.bal,-100,6,Visual Designer,nota.bal,-100,3,C_Nota,B4XPage_Appear,108,0 SelectedBuild=0 -VisibleModules=1,28,11,24,3,12,4,29,13 +VisibleModules=1,28,11,24,3,12,4,29,13,14,7