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

...

Browse Source
This commit is contained in:
cvaldes1201
2023-11-04 13:34:38 -06:00
parent 9d3ffdeed3
commit d019952e12
6 changed files with 18 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/B4XMainPage.bas
View File

@@ -223,6 +223,10 @@ Private Sub B4XPage_Created (Root1 As B4XView)
If logger Then LogColor($"////////////////// IMEI: ${IMEI} ////////////////// "$, Colors.Blue)
End If
Log("TERMINA PERMISOS Phone")
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
c=Starter.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS FROM TMP_INSPECCION_AUTO_DIARIA")
c.Position = 0
CUANTOS = c.GetString("CUANTOS")

12
B4A/C_Cliente.bas
View File

@@ -464,7 +464,9 @@ Sub B4XPage_Appear
l_segmento2.text = c.GetString("CAT_CL_SEGMENTO")
If c.GetString("CAT_CL_EMAIL") = "1" Then
L_doe.Visible = True
' b_whats.Visible = True
Else
' b_whats.Visible = False
L_doe.Visible = False
End If
'''FIN CLIENTES DOE
@@ -661,7 +663,7 @@ Sub B4XPage_Appear
gps_boton_doe = "0"
muestraBoleta = False
b_whats.Visible =False
' b_whats.Visible =False
If l_total.Text <> Null Then Tels.Visible = False
End Sub
@@ -720,7 +722,12 @@ Sub GPS_LocationChanged (Location1 As Location)
distance = l1.DistanceTo(l2) ' resultado en metros
gest.Visible = True
gps_boton_doe ="1"
c=Starter.skmt.ExecQuery("select * from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
c.Position = 0
If c.RowCount > 0 Then
gps_boton_doe = c.GetString("CAT_CL_EMAIL")
End If
' LogColor($"Distancia actual: ${distance}"$, Colors.Blue)
If distance <= 50 Or usuario = "KMTSKLL1" Then
' If pgs_boton_noventa = "1" Then Tels.Visible = True
@@ -738,6 +745,7 @@ Sub GPS_LocationChanged (Location1 As Location)
b_whats.Visible = False
End If
''' fin de la geocerca
c.Close
End Sub
Sub ListView1_ItemLongClick (Position As Int, Value As Object)

1
B4A/C_Principal.bas
View File

@@ -1800,6 +1800,7 @@ Sub JobDone(Job As HttpJob)
Dim DIA_VISITA As String = records(RESULT.Columns.Get("DIA_VISITA"))
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("DIA_VISITA"))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("DIA_VISITA",DIA_VISITA))
Log(DIA_VISITA)
'Msgbox(DIA_VISITA, "") 'ignore
Next
End If

BIN
B4A/Files/cliente.bal
View File

Binary file not shown.

2
B4A/KelloggsV3.b4a
View File

@@ -176,7 +176,7 @@ Version=12.5
#Region Project Attributes
#ApplicationLabel: Kelloggs Venta
#VersionCode: 3000
#VersionName: 3.09.19 RMI
#VersionName: 3.11.02 RMI
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#BridgeLogger:true

4
B4A/KelloggsV3.b4a.meta
View File

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_TicketsDia,Class_Globals,0,0,C_TicketsDia,B4XPage_Appear,68,2,B4XMainPage,Class_Globals,16,0
NavigationStack=Diseñador Visual,cliente.bal,-100,4,C_Cliente,b_aceptarrpomo_Click,2918,0,C_Cliente,GPS_LocationChanged,723,6,C_Clientes,Initialize,28,0,C_Clientes,ListView1_ItemClick,89,0,C_Clientes,B4XPage_Appear,70,0,B4XMainPage,B4XPage_Created,169,0,C_Principal,cargar_Click,765,0,C_Principal,JobDone,1811,2,B4XMainPage,B4XPage_Appear,318,0
SelectedBuild=0
VisibleModules=1,2,3,4,5,6,7,8,9,10,14
VisibleModules=1,2,3,4,5,6,7,8,9,10,11