cheveguerra/Mariana-Reparto-V5
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana-Reparto-V5.git synced 2026-04-17 12:56:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se agrega la validación de la ruta para que no puedan cargar otra una vez dado click en sync

Browse Source
This commit is contained in:
jalarakmt
2026-03-12 17:22:34 -06:00
parent c93d41387c
commit ba16ec6d46
3 changed files with 27 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
B4A/C_Principal.bas
View File

@@ -1040,14 +1040,35 @@ Sub cargar_Click
pedidodiaanterior = True
End If
End If
If Not (pedidodiaanterior) Then
Dim rCargada As Cursor= Starter.skmt.ExecQuery("SELECT * FROM RUTAA")
Dim variable As Boolean = False
If rCargada.RowCount > 0 Then
rCargada.Position = 0
Dim exruta As String = rCargada.GetString("RUTAA")
If exruta = e_ruta.Text Then
variable = True
Else
'no cargamos'
variable = False
Log("Ya existe una ruta")
MsgboxAsync("No puedes cargar día con una ruta diferente, Por favor haz FIN DIA e intenta nuevamente.","Atención")
End If
'
Else If rCargada.RowCount = 0 Then
variable = True
End If
If variable Then
If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a Internet", "Revisa tu conexión")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_entrega_cargada"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
reqManager.ExecuteQuery(cmd ,0, "entrega_cargada")
End If
@@ -1738,6 +1759,8 @@ Sub JobDone(Job As HttpJob)
cmd.Name = "update_ruta_entrega_cargada"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
reqManager.ExecuteCommand(cmd , "update_rrcargada")
Starter.skmt.ExecNonQuery("DELETE FROM RUTAA")
Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT))
Log("CUMPLE")
EJECUTANDO = 1
@@ -1950,8 +1973,7 @@ Sub connecta_Click
' Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta")
ToastMessageShow("Validando Conexión." , True)
Starter.skmt.ExecNonQuery("DELETE FROM RUTAA")
Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT))
B4XPages.MainPage.rutaPreventa = e_ruta.TEXT
End If
End Sub

2
B4A/Mariana_Reparto.b4a
View File

@@ -216,7 +216,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: MARIANA Reparto
#VersionCode: 1
#VersionName: 6.03.2
#VersionName: 6.03.03
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

2
B4A/Mariana_Reparto.b4a.meta
View File

@@ -91,6 +91,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=8,9
NavigationStack=C_Principal,JobDone,1723,6,Diseñador Visual,principal.bal,-100,1,C_Principal,cargar_Click,1043,5,C_Cheklist,JobDone,770,0,C_Cheklist,B4XPage_Created,110,0,C_Cheklist,Class_Globals,16,0,C_Cheklist,b_guardar_Click,643,0,Diseñador Visual,checklist.bal,-100,2,Diseñador Visual,check.bal,-100,6,C_Cheklist,Camera1_PictureTaken,269,0
NavigationStack=C_Cheklist,b_guardar_Click,643,0,Diseñador Visual,checklist.bal,-100,2,Diseñador Visual,check.bal,-100,6,C_Cheklist,Camera1_PictureTaken,269,0,B4XMainPage,b_arqueocieego_Click,731,0,B4XMainPage,Class_Globals,22,0,C_Principal,connecta_Click,1946,0,C_Principal,JobDone,1736,0,C_Principal,cargar____Click,1055,0,C_Principal,cargar_Click,1053,0
SelectedBuild=0
VisibleModules=28,2,3,4,5,6,7,8,9,10,16,29,1