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

Cambios funcionamiento

Browse Source
This commit is contained in:
cvaldes1201
2023-11-06 20:11:38 -06:00
parent fd6d581422
commit 3004841676
4 changed files with 18 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Durakelo_reparto.b4a
View File

@@ -180,8 +180,8 @@ Sub Activity_Create(FirstTime As Boolean)
End If
skmt.Initialize(ruta,"kmt.db", True)
' server = "http://10.0.0.205:1782"
server = "http://keymon.lat:1782"
' server = "http://11.0.0.120:1782"
server = "http://keymon.lat:1781"
If FirstTime Then
' reqManager.Initialize(Me,"http://201.99.139.28:1782")

4
Durakelo_reparto.b4a.meta
View File

@@ -64,6 +64,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=3,6,8,17,18,19
ModuleClosedNodes9=
NavigationStack=seleccion,inv_Click,1071,0,seleccion,e_ruta_EnterPressed,1042,0,seleccion,JobDone,679,0,seleccion,cargar_Click,484,0,seleccion,Subir_Click,436,0,seleccion,trabajar_Click,422,0,seleccion,Activity_Pause,418,0,seleccion,to_number_vb,410,0,seleccion,Activity_Resume,287,0,colonia,Activity_Create,33,0,Main,Activity_Create,81,0
NavigationStack=seleccion,to_number_vb,410,0,colonia,Activity_Create,33,0,seleccion,Activity_Create,110,0,Main,Activity_Create,76,0,Starter,ENVIA_ULTIMA_GPS,82,0,Diseñador Visual,seleccion.bal,-100,1,seleccion,Activity_Resume,197,5,MAPA_RUTAS,MapFragment1_Ready,146,0,seleccion,JobDone,626,6,seleccion,cargar_Click,549,6
SelectedBuild=0
VisibleModules=18,21,10,9,12,8,4,14,11,2,5,7,15,16,17,20,19
VisibleModules=18,21,10,9,12,8,4,14,11,2,17

2
Starter.bas
View File

@@ -46,7 +46,7 @@ End Sub
Sub pe_BatteryChanged (Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
Main.batt=Level
Log(main.batt)
Log(Main.batt)
End Sub
Private Sub Timer1_Tick

18
seleccion.bas
View File

@@ -198,6 +198,8 @@ Sub Activity_Resume
c=skmt.ExecQuery("select noversion from version")
c.Position=0
HORAINGRESO ="000000"
If c.RowCount > 0 Then
If c.GetString("NOVERSION") <> "2.1" Then
ToastMessageShow("EXISTE UNA NUEVA VERSION ACTUALIZA POR FAVOR." , True)
cargar.Visible = False
@@ -207,6 +209,7 @@ Sub Activity_Resume
BUSCA.Visible = False
inv.Visible = False
End If
End If
c.Close
@@ -506,7 +509,7 @@ Sub cargar_Click
'cmd.Initialize
'cmd.Name = "Select_count_clie"
'reqManager.ExecuteQuery(cmd,0,"count_cli")
Log(ALMACEN)
If ALMACEN = "5" Or ALMACEN ="6" Or ALMACEN = "3" Then
cmd.Initialize
cmd.Name = "select_punteo_re_DUR2"
@@ -539,15 +542,17 @@ Sub cargar_Click
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
Else
Log("aqui")
cmd.Initialize
cmd.Name = "select_punteo_re_DUR"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "punteo")
cmd.Initialize
cmd.Name = "select_almacen_guna_re_dur"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
' cmd.Initialize
' cmd.Name = "select_almacen_guna_re_dur"
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
' reqManager.ExecuteQuery(cmd , 0, "gunaprod")
cmd.Initialize
cmd.Name = "select_almacen_guna_re_dur"
@@ -625,6 +630,7 @@ Sub JobDone(Job As HttpJob)
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "kmt_datos" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA"))
Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_CL_NOMBRE"))
@@ -754,7 +760,9 @@ Sub JobDone(Job As HttpJob)
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "punteo" Then 'query tag
Log("punteo")
For Each records() As Object In RESULT.Rows
Log("punteo2")
Dim HV_CLIENTE As String = records(RESULT.Columns.Get("HV_CLIENTE"))
Dim HV_LONG As String = records(RESULT.Columns.Get("HV_LONG"))
Dim HV_LAT As String = records(RESULT.Columns.Get("HV_LAT"))