cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-17 21:06:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.09.06.EP_d

Browse Source 
- Codigo para promo Procter PRO3009
- Codigo para promo Unilever PRO3015
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-09-09 11:16:42 -06:00
parent 012169a186
commit 4de48f6db6
8 changed files with 308 additions and 86 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
B4A/C_Cliente.bas
View File

@@ -423,6 +423,7 @@ Sub Class_Globals
Dim motivoNoVenta, motivoNoVisita As String
Dim contadorIniciarVenta As Int = 0
Dim IniVenNO As Boolean = False
private geoCont as int = 0
End Sub
'You can add more parameters here.
@@ -1164,10 +1165,10 @@ Private Sub b_geopass_Click
End Sub
Private Sub LA_GEO_LongClick
If distance > 99 Then
p_pideGeoPass.BringToFront
p_pideGeoPass.Visible = True
End If
' If distance > 99 Then
' p_pideGeoPass.BringToFront
' p_pideGeoPass.Visible = True
' End If
End Sub
Sub JobDone(Job As HttpJob)
@@ -1183,10 +1184,15 @@ Sub JobDone(Job As HttpJob)
Log("SIN REGISTROS " & result1.Rows.Size)
If result1.Rows.Size = 0 Then MsgboxAsync("Contraseña equivocada, por favor intente de nuevo.", "ATENCION")
For Each records() As Object In result1.Rows
' For Each k As String In result.Columns.Keys
' Log(k & ": " & records(result.Columns.Get(k)))
' Next
Private permiso_geoPass As String = records(result1.Columns.Get("'OK'"))
For Each k As String In result1.Columns.Keys
Log(k & ": " & records(result1.Columns.Get(k)))
Next
Private permiso_geoPass As String = "KO"
Log($"|${result1.Columns.Get("'OK'")}|"$)
' Log($"|${records(result1.Columns.Get("'OK'"))}|"$)
' If result1.Columns.Get("'OK'") <> "null" And result1.Columns.Get("'OK'") <> Null Then
permiso_geoPass = result1.Columns.Get("'OK'")
' End If
If permiso_geoPass = "OK" Then
m_lat = B4XPages.MainPage.lat_gps
m_lon = B4XPages.MainPage.lon_gps
@@ -1197,6 +1203,8 @@ Sub JobDone(Job As HttpJob)
cmd.Name = "delete_geoPass_GUNA"
cmd.Parameters = Array As Object( Subs.traeAlmacen, Subs.traeRuta)
reqManager.ExecuteQuery(cmd , 0, "traeGeoPass")
Else
MsgboxAsync("Contraseña equivocada, por favor intente de nuevo.", "ATENCION")
End If
Next
End If
@@ -4795,3 +4803,16 @@ Private Sub b_Inicio_Fin_venta_Click
b_Inicio_Fin_venta.Visible = False
End Sub
Private Sub LA_GEO_Click
Log(geoCont)
If geoCont = 3 Then
Subs.centraPanel(p_pideGeoPass, Root.Width)
geoCont = 0
If distance > 99 Then
p_pideGeoPass.BringToFront
p_pideGeoPass.Visible = True
End If
End If
geoCont = geoCont + 1
End Sub