cheveguerra/Mazapa-Reparto
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mazapa-Reparto.git synced 2026-04-19 22:09:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

cambio de servidor

Browse Source
This commit is contained in:
cvaldes1201
2025-06-04 13:50:10 -06:00
parent c1df998ed6
commit cfe90f8b53
861 changed files with 122055 additions and 24055 deletions
Download Patch File Download Diff File Expand all files Collapse all files

99
B4A/C_Cliente.bas
View File

@@ -77,6 +77,7 @@ Sub Class_Globals
Private l_efectivo As Label
Private l_montoefec As Label
Dim distance As Long
Private b_visitasinentrega As Button
End Sub
'You can add more parameters here.
@@ -302,7 +303,31 @@ Sub B4XPage_Appear
l_montopag.Visible = False
End If
If distance < 50 Then
Starter.distanciaGeo = ""
c = Starter.skmt.ExecQuery("SELECT HABILITADO FROM GPS")
If c.RowCount = 0 Then
Starter.skmt.ExecNonQuery2("INSERT INTO GPS VALUES (?)", Array As Object(1))
End If
c = Starter.skmt.ExecQuery("SELECT HABILITADO FROM GPS")
If c.RowCount > 0 Then
c.Position = 0
If c.GetString("HABILITADO") = 0 Then
Starter.distanciaGeo = "500000000000"
Log("Esto es la distancia si esta desactivada la Geo: " & Starter.distanciaGeo)
Else If c.GetString("HABILITADO") = 1 Then
Starter.distanciaGeo = "50"
Log("Esto es la distancia si esta activada la Geo: " & Starter.distanciaGeo)
End If
Else
' B4XSwitch1.Value = False
End If
Private ubicacionActual, l2 As Location
ubicacionActual.Initialize2(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)
l2.Initialize2(LATITUD, LONGITUD)
distance = ubicacionActual.DistanceTo(l2)
' Log("Esto es la distancia?<<<<<<<<<<<<<" & Starter.distanciaGeo)
If distance < Starter.distanciaGeo Then
Tar.Visible = True
gest.Visible = True
b_noEntrega.Visible = True
@@ -313,7 +338,11 @@ Sub B4XPage_Appear
b_noEntrega.Visible = False
HIST.Visible = False
End If
Log(distance)
Tar.Visible = True
gest.Visible = True
b_noEntrega.Visible = True
HIST.Visible = True
End Sub
Sub Activity_Pause (UserClosed As Boolean)
@@ -343,17 +372,22 @@ Sub GPS_LocationChanged (Location1 As Location)
'now we need the distance between our location and the target location
distance = l1.DistanceTo(l2) 'the result is in meter
If distance < 50 Then
Tar.Visible = True
gest.Visible = True
b_noEntrega.Visible = True
HIST.Visible = True
Else
Tar.Visible = False
gest.Visible = False
b_noEntrega.Visible = False
HIST.Visible = False
c = Starter.skmt.ExecQuery("SELECT HABILITADO FROM GPS")
If c.RowCount > 0 Then
c.Position = 0
Dim habi As String = c.GetString("HABILITADO")
End If
' If distance < Starter.distanciaGeo Then
' Tar.Visible = True
' gest.Visible = True
' b_noEntrega.Visible = True
' HIST.Visible = True
' Else
' Tar.Visible = False
' gest.Visible = False
' b_noEntrega.Visible = False
' HIST.Visible = False
' End If
Log("DISTANCIA "&distance)
End If
@@ -409,7 +443,7 @@ Sub Guardado
rutaactualizar = rut.GetString("CAT_CL_RUTA")
End If
Starter.skmt.ExecNonQuery($"DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa) AND NV_RUTA ='${rutaactualizar}' "$)
' Starter.skmt.ExecNonQuery($"DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa) AND NV_RUTA ='${rutaactualizar}' "$)
Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON,NV_RUTA) VALUES(?,?,?,?,?,?,?,?) ", Array As Object (cuenta,sDate &" "& sTime, usuario, "ENTREGA","ENTREGA COMPLETA", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,rutaactualizar))
Starter.skmt.ExecNonQuery2("INSERT INTO REPARTO_GEO (CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, TIPO,ENVIO) VALUES(?,?,?,?,?,?,?,?,?,?,0)",Array As String (la_cuenta.Text, usuario, sDate &" "&sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,B4XPages.MainPage.almacen,ruta,rutapre,fechaprev, "ENTREGADO"))
Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 2, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa) and CAT_CL_RUTA = '${rutaactualizar}' "$)
@@ -1027,4 +1061,43 @@ Sub JobDone(Job As HttpJob)
Job.Release
End If
End Sub
Private Sub b_visitasinentrega_Click
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat="HHmmss"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
c=Starter.skmt.ExecQuery("select CUENTA from cuentaa")
c.Position = 0
cuenta = c.GetString("CUENTA")
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
usuario = c.GetString("USUARIO")
c.Close
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
d.Position = 0
Dim ruta As String = d.GetString("RUTAA")
d.Close
d = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
d.Position = 0
Dim rutapre As String = d.GetString("CAT_CL_RUTA")
d.Close
' d = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
' d.Position = 0
Dim fechaprev As String = Subs.traefECHAPREV
' d.Close
Dim rutaactualizar As String
Dim rut As Cursor = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
If rut.RowCount > 0 Then
rut.Position = 0
rutaactualizar = rut.GetString("CAT_CL_RUTA")
End If
' Starter.skmt.ExecNonQuery($"DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa) AND NV_RUTA ='${rutaactualizar}' "$)
Starter.skmt.ExecNonQuery2("INSERT INTO REPARTO_GEO (CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, TIPO,ENVIO) VALUES(?,?,?,?,?,?,?,?,?,?,0)",Array As String (la_cuenta.Text, usuario, sDate &" "&sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,B4XPages.MainPage.almacen,ruta,rutapre,fechaprev, "VISITA PENDIENTE"))
B4XPages.ShowPage("Principal")
End Sub