- VERSION 4.10.11

- Encuesta Pedrigree Cajitas Act II
- Actualizacion Forzosa

B4A/C_Cliente.bas

@@ -424,6 +424,7 @@ Sub Class_Globals
 	Dim contadorIniciarVenta As Int = 0
 	Dim IniVenNO As Boolean = False
 	Private geoCont As Int = 0
+	Private l_version As Label
 End Sub
 
 'You can add more parameters here.
@@ -475,6 +476,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	p_pregunta1.Width = Root.Height
 	Tels.Visible = False
 	gest.Visible = False
+	l_version.Left = Root.Width - (l_version.Width + 10)
 	cuest.Initialize(Me, "cuest", Root, B4XPages.MainPage.skmt)
 End Sub
 
@@ -494,7 +496,7 @@ Sub B4XPage_Appear
 	LA_GPS.TextColor = Colors.Red
 	LA_GPS.Text = "SIN UBICACION GPS"
 	cercavalor = 0
-	
+	l_version.Text = Application.VersionName
 	b_Inicio_Fin_venta.Text = "INICIAR VENTA"
 	b_Inicio_Fin_venta.BringToFront
 '	LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red)
@@ -1681,7 +1683,7 @@ Private Sub b_preguntag_Click
 		
 		
 	Else
-		Msgbox("Contesta la pregunta de favor","AVISO")
+		Msgbox("Contesta la pregunta por favor","AVISO")
 	End If
 End Sub