cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-17 18:26:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

16/1/24 - Correccion de error de ubicacion no inicializada

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-01-16 19:07:03 -06:00
parent 1451af86ec
commit f228f59e21
4 changed files with 20 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Cliente.bas
View File

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

2
B4A/C_Nota.bas
View File

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

10
B4A/C_Productos.bas
View File

@@ -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")

24
B4A/KelloggsV4.b4a.meta
View File

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