- VERSION 5.05.20

- Se agregó el código de Multi-Almacen
2026-04-17 12:56:18 +00:00 · 2025-05-20 17:23:53 -06:00
parent af59ec7cd9
commit cb8c745939
6 changed files with 178 additions and 55 deletions
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -231,6 +231,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 '	Dim P As PhoneId
 	Log("provider")
 	Provider.Initialize
+	
+	Subs.guardaAppInfo

 '	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
 '	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -79,7 +79,7 @@ Sub Class_Globals
 	Dim RUTA_T As String
 	Dim reqs As List
 	'''''' MAPA RUTAS
-	Private Btn_Ubicar_Ru As Button
+	Private b_Ubicar_Ru As Button
 	Dim cargo As String
 	Private p_principal As Panel
 	Dim ime As IME
@@ -104,6 +104,12 @@ Sub Class_Globals
 	Private l_pagaresnuevos As Label
 	Private l_montoaliquidar As Label
 	Private Label16 As Label
+	Private p_multiAlmacen As Panel
+	Private s_almacen2 As Spinner
+	Private et_ruta2 As EditText
+	Private b_multiAlmacen As Button
+	Private multiAlmacen As Boolean = False
+	Private idAlmacenExtra As String = ""
 End Sub

 'You can add more parameters here.
@@ -256,8 +262,11 @@ Sub B4XPage_Appear
 '	f.Close

 	cargar.Visible = False
+	cargar.Enabled = True
 	Subir.Visible = False
 	connecta.Visible = True
+	b_multiAlmacen.Visible = False
+	p_multiAlmacen.Visible = False

 	If Cuantos = 0 Then
 		l_aLiquidar.Text = 0
@@ -1015,6 +1024,7 @@ Sub envioinfo
 End Sub

 Sub cargar_Click
+	ime.HideKeyboard
 	Dim pedidodiaanterior As Boolean = False
 	Dim cp As Cursor = Starter.skmt.ExecQuery("select * from NOVENTA")
 	If cp.RowCount > 0 Then
@@ -1074,44 +1084,15 @@ Sub cargar_Click
 		c.Position = 0
 		usuario = c.GetString("USUARIO")

-		cmd.Initialize
-		cmd.Name = "select_punteo_re_REPG_GUNA_VN"
-		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN)
-		reqManager.ExecuteQuery(cmd , 0, "punteo")
-		Log($"Pedimos Punteo"$)
-		reqs.Add("punteo")
+		cargaGeneral ' Cargamos los datos del almacen principal.

-		cmd.Initialize
-		cmd.Name = "select_almacen_re_REPG2_GUNA_VN"
-		cmd.Parameters = Array As Object(ALMACEN)
-		reqManager.ExecuteQuery(cmd , 0, "gunaprod")
-		Log($"Pedimos gunaprod - ${ALMACEN}, ${e_ruta.text}"$)
-		reqs.Add("gunaprod")
+		If multiAlmacen Then
+			Sleep(100)
+			Log(multiAlmacen)
+			Log("====================    CARGAMOS SEGUNDO ALMACEN  ======================")
+			cargaAlmacen2 ' Cargamos los datos del segundo almacen.
+		End If

-		cmd.Initialize
-		cmd.Name = "select_abonosp_REP_GUNA_VN"
-		cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN)
-		reqManager.ExecuteQuery(cmd , 0, "select_abonosp")
-
-		cmd.Initialize
-		cmd.Name = "select_cliente_re_REPG_GUNA_VN"
-		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN,e_ruta.Text,ALMACEN,e_ruta.Text,ALMACEN,ALMACEN)',e_ruta.Text,ALMACEN
-		reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
-		Log($"Pedimos kmt_datos"$)
-		reqs.Add("kmt_datos")
-
-		cmd.Initialize
-		cmd.Name = "select_ventad2_re_REPG_GUNA_VN"
-		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.Text,ALMACEN)',e_ruta.Text,ALMACEN
-		reqManager.ExecuteQuery(cmd , 0, "hist_datos")
-		Log($"Pedimos hist_datos"$)
-		reqs.Add("hist_datos")
-
-		cmd.Initialize
-		cmd.Name = "select_coords_almacen_GUNA_VN"
-		cmd.Parameters = Array As Object(ALMACEN)
-		reqManager.ExecuteQuery(cmd , 0, "coords_almacen")
-		
 '		cmd.Initialize
 '		cmd.Name = "select_cat_gunaprod3_MAZAPA"
 '		cmd.Parameters = Array As Object(ALMACEN)
@@ -1168,6 +1149,50 @@ Sub cargar_Click
 	End If
 End Sub

+
+'Carga los datos generales de la ruta.
+Sub cargaGeneral
+	Log($"******   ALMACEN: ${ALMACEN}"$)
+
+	cmd.Initialize
+	cmd.Name = "select_punteo_re_REPG_GUNA_VN"
+	cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN)
+	reqManager.ExecuteQuery(cmd , 0, "punteo")
+	Log($"Pedimos Punteo - ruta:${e_ruta.Text}, almacen: ${ALMACEN}"$)
+	reqs.Add("punteo")
+
+	cmd.Initialize
+	cmd.Name = "select_almacen_re_REPG2_GUNA_VN"
+	cmd.Parameters = Array As Object(ALMACEN)
+	reqManager.ExecuteQuery(cmd , 0, "gunaprod")
+	Log($"Pedimos gunaprod - ${ALMACEN}, ${e_ruta.text}"$)
+	reqs.Add("gunaprod")
+
+	cmd.Initialize
+	cmd.Name = "select_abonosp_REP_GUNA_VN"
+	cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN)
+	reqManager.ExecuteQuery(cmd , 0, "select_abonosp")
+
+	cmd.Initialize
+	cmd.Name = "select_cliente_re_REPG_GUNA_VN"
+	cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN,e_ruta.Text,ALMACEN,e_ruta.Text,ALMACEN,ALMACEN)',e_ruta.Text,ALMACEN
+	reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
+	Log($"Pedimos kmt_datos - ruta: ${e_ruta.text}, almacen: ${ALMACEN}"$)
+	reqs.Add("kmt_datos")
+
+	cmd.Initialize
+	cmd.Name = "select_ventad2_re_REPG_GUNA_VN"
+	cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.Text,ALMACEN)',e_ruta.Text,ALMACEN
+	reqManager.ExecuteQuery(cmd , 0, "hist_datos")
+	Log($"Pedimos hist_datos - ruta: ${e_ruta.text}, almacen: ${ALMACEN}"$)
+	reqs.Add("hist_datos")
+
+	cmd.Initialize
+	cmd.Name = "select_coords_almacen_GUNA_VN"
+	cmd.Parameters = Array As Object(ALMACEN)
+	reqManager.ExecuteQuery(cmd , 0, "coords_almacen")
+End Sub
+
 Sub JobDone(Job As HttpJob)
 '	Private r As DBResult = reqManager.HandleJob(Job)
 	If Job.Success = False Then
@@ -1206,7 +1231,7 @@ Sub JobDone(Job As HttpJob)
 					Dim CAT_CL_BCREDITO As String = records(result.Columns.Get("CAT_CL_BCREDITO"))
 					Dim CAT_CL_LIMITECREDITO As String = records(result.Columns.Get("CAT_CL_LIMITECREDITO"))
 '					Dim CAT_CL_SECUENCIA As String = records(result.Columns.Get("CAT_CL_SECUENCIA"))
-'					Log("  ++  insert into kmt_info: "&CAT_CL_RUTA&","&CAT_CL_CODIGO&","&CAT_CL_RUTA&","&CAT_CL_NOMBRE)
+					Log("  ++  insert into kmt_info: "&ALMACEN&","&CAT_CL_CODIGO&","&CAT_CL_RUTA&","&CAT_CL_NOMBRE)
 					Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO, gestion,CAT_CL_LIMITECREDITO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO,CAT_CL_LIMITECREDITO))
 				Next
 '				Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO, gestion,SECUENCIA) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?)", Array As Object (63403,1000, "VENTA RECHAZO","","","","","","","","","","","","","","-98.8357694","19.6906052","0","1"))
@@ -1283,7 +1308,7 @@ Sub JobDone(Job As HttpJob)
 		If Job.JobName = "DBRequest" Then
 			Dim result As DBResult = reqManager.HandleJob(Job)
 			If result.Tag = "gunaprod" Then 'query tag
-				Log("Entramos a GUNA_PROD<---------------------------------")
+				Log("Entramos a GUNA_PROD  <---------------------------------")
 				If reqs.IndexOf("gunaprod") > -1 Then
 					reqs.RemoveAt(reqs.IndexOf("gunaprod"))
 					Log(reqs.Size)
@@ -1306,7 +1331,7 @@ Sub JobDone(Job As HttpJob)
 					'	Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV"))
 					'  skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_DEV))
 '					Log("  ++  insert into CAT_GUNAPROD: "&CAT_GP_ID&","&CAT_GP_NOMBRE&","&CAT_GP_IMP1)
-					Log(CAT_GP_NOMBRE & "<-------------------------------------")
+'					Log(CAT_GP_NOMBRE & "<-------------------------------------")
 					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CONVERSION,PRECIOCONVER) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, 0,CONVERSION,PRECIOCONVER))
 				Next
 				Starter.skmt.TransactionSuccessful
@@ -1469,7 +1494,7 @@ Sub JobDone(Job As HttpJob)
 '						Log("Hay ruta, guardamos los nuevos")
 						Private tc As Cursor = Starter.skmt.ExecQuery($"select HVD_CLIENTE from HIST_VENTAS where HVD_CLIENTE = '${HVD_CLIENTE}' and HVD_PROID = '${HVD_PROID}'"$)
 						If tc.RowCount = 0 Then
-							Log($"Guardamos ${HVD_CLIENTE}"$)
+'							Log($"Guardamos ${HVD_CLIENTE}"$)
 							Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL, BCAJAS,CANTC,CONSECUTIVO,BCAJAS_OR,CANTC_OR) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, bcajas,cantc,consecutivo,bcajas,cantc))
 							Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS2(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
 						End If
@@ -1623,7 +1648,7 @@ Sub JobDone(Job As HttpJob)
 						Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT))
 						B4XPages.MainPage.rutaPreventa = e_ruta.TEXT
 						If conn = "1" Then
-							ToastMessageShow("Existe Conexión con el Servidor." , True)
+							ToastMessageShow("Existe Conexión con el Servidor." , False)
 						End If
 					Else
 						cargar.Visible = False
@@ -1676,7 +1701,31 @@ Sub JobDone(Job As HttpJob)
 					Next
 				Next
 			End If
+			
+			If result.Tag = "agrupaAlmacen" Then 'query tag
+				If result.Rows.Size > 1 Then
+					Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ALMACEN_AGRUPADOR(ID TEXT, DESCRIPCION TEXT)")
+					Starter.skmt.ExecNonQuery($"delete from CAT_ALMACEN_AGRUPADOR"$)
+					b_multiAlmacen.Visible = True
+					s_almacen2.Clear
+					s_almacen2.Add("-= Seleccione =-")
+					For Each records() As Object In result.Rows
+'						For Each k As String In result.Columns.Keys
+'							Log(k & ": " & records(result.Columns.Get(k)))
+'						Next
+						If ALMACEN <> records(result.Columns.Get("CAT_AL_ID")) Then
+							s_almacen2.Add(records(result.Columns.Get("CAT_AL_DESC")))
+							Starter.skmt.ExecNonQuery($"insert into CAT_ALMACEN_AGRUPADOR (ID, DESCRIPCION) values ('${records(result.Columns.Get("CAT_AL_ID"))}', '${records(result.Columns.Get("CAT_AL_DESC"))}')"$)
+						End If
+						s_almacen2.TextSize = 13
+						s_almacen2.DropdownTextColor = Colors.RGB(6, 137, 0)
+'						s_almacen2.TextColor = Colors.Green
+					Next
+				End If
+			End If
+			
 		End If
+
 		Job.Release
 	End If
 	If reqs.Size = 0 Then
@@ -1731,6 +1780,11 @@ Sub connecta_Click
 		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
+		
+		cmd.Name = "selectAgrupadorAlmacen"
+		cmd.Parameters = Array As Object(ALMACEN)
+		Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$)
+		reqManager.ExecuteQuery(cmd , 0, "agrupaAlmacen")
 	End If
 End Sub

@@ -1774,6 +1828,10 @@ Sub e_ruta_EnterPressed
 			Starter.skmt.ExecNonQuery("DELETE FROM ABONOSP")
 			Starter.skmt.ExecNonQuery("DELETE FROM ABONOS")
 			Starter.skmt.ExecNonQuery("DELETE FROM BLOCKENVIO")
+			b_multiAlmacen.Visible = False
+			p_multiAlmacen.Visible = False
+			s_almacen2.SelectedIndex = 0
+			et_ruta2.Text = ""
 			B4XPage_Appear
 		End If
 '		Starter.waypointsOrdered.Clear
@@ -1822,7 +1880,7 @@ Sub B_CLIEPROD_Click
 		B_CLIEPROD.Visible = False
 		Panel1.Visible = True
 		Panel1.BringToFront
-		Btn_Ubicar_Ru.Visible=False
+		b_Ubicar_Ru.Visible=False
 		c=Starter.skmt.ExecQuery("select  distinct(CAT_CL_NOMBRE), CAT_CL_CODIGO, gestion from kmt_info WHERE gestion <> 0 order by HORAENT")
 		Subs.SetDivider(ListView1, Colors.LightGray, 2)
 		ListView1.Clear
@@ -2025,11 +2083,11 @@ Sub B_REGRESA_Click
 	trabajar.Visible = True
 	B_CLIEPROD.Visible = True
 	Panel1.Visible = False
-	Btn_Ubicar_Ru.Visible=True
+	b_Ubicar_Ru.Visible=True
 End Sub

 ''''''''''''''''''''''''''''MAPA RUTAS
-Sub Btn_Ubicar_Ru_Click
+Sub b_Ubicar_Ru_Click
 	If b_check.Visible = True Then
 		MsgboxAsync("Favor de hacer el checklist.","Atención")
 	Else
@@ -2138,7 +2196,7 @@ Private Sub iv_calificarcliente_Click
 End Sub

 Private Sub iv_ubicar_Click
-	Btn_Ubicar_Ru_Click
+	b_Ubicar_Ru_Click
 End Sub

 Private Sub B_PAGARES_Click
@@ -2317,11 +2375,6 @@ Sub cuanto
 	Log(rescant2r+rescantr)
 	
 	'''' FIN RECHAZO
-	
-	'''''
-
-	
-	
 End Sub

 Private Sub ListView2_ItemClick (Position As Int, Value As Object)
@@ -2340,4 +2393,65 @@ Private Sub ListView2_ItemClick (Position As Int, Value As Object)
 		P_PAGARES.Visible = False
 		B4XPages.ShowPage("Cliente")
 	End If
+End Sub
+
+Private Sub et_ruta2_TextChanged (Old As String, New As String)
+	If s_almacen2.Size > 0 Then
+		If s_almacen2.SelectedItem <> "-= Seleccione =-" And New <> "" Then
+			cargar.Enabled = True
+		Else
+			cargar.Enabled = False
+		End If
+	End If
+End Sub
+
+Private Sub s_almacen2_ItemClick (Position As Int, Value As Object)
+	Private ga As ResultSet = Starter.skmt.ExecQuery($"select * from CAT_ALMACEN_AGRUPADOR where descripcion = '${Value}'"$)
+	Do While ga.NextRow
+		idAlmacenExtra = ga.GetString("ID")
+	Loop
+	Log($"${Value}, ${idAlmacenExtra}"$)
+	If Value <> "-= Seleccione =-" And et_ruta2.Text <> "" Then
+		cargar.Enabled = True
+	Else
+		cargar.Enabled = False
+	End If
+End Sub
+
+Private Sub b_multiAlmacen_Click
+	s_almacen2.SelectedIndex = 0
+	et_ruta2.Text = ""
+	If p_multiAlmacen.Visible Then
+		p_multiAlmacen.Visible = False
+		cargar.Enabled = True
+		multiAlmacen = False
+	Else
+		p_multiAlmacen.Visible = True
+		cargar.Enabled = False
+		multiAlmacen = True
+	End If
+End Sub
+
+Sub cargaAlmacen2
+	Log("=================================================")
+	Log("============    CARGAMOS ALMACEN 2   ===============")
+	Log("=================================================")
+	Private almacenPrincipal = ALMACEN
+	Private rutaPrincipal = e_ruta.text
+	ALMACEN = idAlmacenExtra
+	e_ruta.text = et_ruta2.text
+	Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MULTI_A_ALMACEN"))
+	Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MULTI_A_ALMACEN", ALMACEN))
+	Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MULTI_A_RUTA"))
+	Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MULTI_A_RUTA", e_ruta.Text))
+	l_ruta.Text = "0"
+	cargaGeneral
+	Sleep(2000)
+	ALMACEN = almacenPrincipal
+	e_ruta.text = rutaPrincipal
+	b_multiAlmacen.Visible = False
+	p_multiAlmacen.Visible = False
+	s_almacen2.SelectedIndex = 0
+	et_ruta2.Text = ""
+	cargar.Enabled = True
 End Sub
--- a/B4A/Files/principal.bal
+++ b/B4A/Files/principal.bal
--- a/B4A/Subs.bas
+++ b/B4A/Subs.bas
@@ -1104,4 +1104,11 @@ Sub logJobDoneResultados(resultado As DBResult)
 			LogColor(k & " = " & records(resultado.Columns.Get(k)), Colors.RGB(215,37,0))
 		Next
 	Next
-End Sub
+End Sub
+
+'Guarda el nombre y version de la app en CAT_VARIABLES.
+Sub guardaAppInfo 'ignore
+	Starter.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'APP_VERSION'")
+	Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$)
+	Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$)
+End Sub
--- a/B4A/guna_reparto.b4a
+++ b/B4A/guna_reparto.b4a
@@ -251,7 +251,7 @@ Version=12.8
 #Region Project Attributes 
 	#ApplicationLabel: Guna Reparto
 	#VersionCode: 1
-	#VersionName: 5.05.07
+	#VersionName: 5.05.20
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
--- a/B4A/guna_reparto.b4a.meta
+++ b/B4A/guna_reparto.b4a.meta
@@ -94,6 +94,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Diseñador Visual,principal.bal,-100,2,Diseñador Visual,cliente.bal,-100,1,C_Cliente,Class_Globals,111,0,C_Principal,JobDone,1146,0,C_Principal,envioinfo,879,6,C_Cliente,imprime_abonopagare,1735,0,C_Cliente,B_IMP_Click,847,0,C_Cliente,b_imprimesegun_Click,2571,0,C_Cliente,B4XPage_Appear,210,6,C_Cliente,HIST_Click,814,0
+NavigationStack=C_Principal,cargaAlmacen2,2447,6,C_Principal,JobDone,1669,2,C_Principal,envioinfo,1015,0,C_Principal,cargaGeneral,1177,6,C_Principal,e_ruta_EnterPressed,1823,0,C_Principal,ListView2_ItemClick,2386,0,C_Principal,et_ruta2_TextChanged,2393,5,Diseñador Visual,principal.bal,-100,6,C_Principal,B4XPage_Appear,176,6,C_Principal,cargar_Click,1074,6,B4XMainPage,B4XPage_Created,226,0
 SelectedBuild=0
-VisibleModules=2,4,5,6,7,9,30,29,16,27
+VisibleModules=2,16,4,5,6,7,9,30,29,27