- VERSION 4.10.23

- Correcciones en No Venta, Resumen Dia y otros detalles!!

B4A/C_Principal.bas

@@ -97,7 +97,7 @@ Sub Class_Globals
 	Private ImageView5 As ImageView
 	Private L_TICKPROM As Label
 	Private L_MARCAS As ListView
-	Private Panel11 As Panel
+	Private p_ruta2 As Panel
 	Private E_RUTA2 As EditText
 	Private resdia As ImageView
 	Private hacer_ped As ImageView
@@ -274,7 +274,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	f.Position=0
 	l_ruta.Text = f.GetString("CAT_CL_RUTA")
 	f.Close
-	
+	p_principal.Width = Root.Width : p_principal.Height = Root.Height
 '	ro = B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info2")
 '	ro.Position = 0
 '	l_ru_pri.Text = ro.GetString("CAT_CL_RUTA")
@@ -343,6 +343,8 @@ End Sub
 Sub B4XPage_Appear
 '	LogColor($"##########   ${Subs.traeRuta}  ##########"$, Colors.red)
 	p_principal.Visible = True
+	E_RUTA2.Text = ""
+	p_ruta2.Visible = False
 	Subs.validaPromoProcterPRO3009
 	HORAINGRESO ="000000"
 	Btn_Ubicar.Left = (Root.Width/2) - (Btn_Ubicar.Width/2)
@@ -1046,7 +1048,7 @@ Sub cargar_Click
 	If E_RUTA2.text <> "" Then
 		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO RUTA_SUPLENCIA(RS_RUTA) VALUES(?)",Array As String(E_RUTA2.Text))
 		E_RUTA2.Visible = False
-		Panel11.Visible = False
+		p_ruta2.Visible = False
 		
 		cmd.Initialize
 		cmd.Name = "select_cat_clientes_guna_GV2"
@@ -1979,7 +1981,7 @@ Sub connecta_Click
 	Private revisaActualizacion As Map = Subs.revisaForzarActualizacion
 	Log(revisaActualizacion)
 	If E_RUTA2.Text = e_ruta.Text Then
-		Msgbox("La ruta principal y la de suplencia NO puede ser la misma.","ERROR")
+		Msgbox("La ruta principal y la de suplencia NO pueden ser la misma.","ERROR")
 	Else
 		If e_ruta.Text = "KMTS1" Then
 			cargar.Visible = True
@@ -2137,7 +2139,7 @@ Sub e_ruta_EnterPressed
 	If e_ruta.Text = "SUPLENCIA" Then
 		e_ruta.Text = ""
 		E_RUTA2.Visible = True
-		Panel11.Visible = True
+		p_ruta2.Visible = True
 	End If
 End Sub