- VERSION 5.01.28

- Se puso la version en la pagina "Principal"
- Se deshabilitó la encuesta de Pedigree
- Se agregó un espacio al nombre de los productos fijos para que se hay variables delmismo producgto,no se vayan a mandar como duplicados.

B4A/C_Principal.bas

@@ -239,6 +239,7 @@ Sub Class_Globals
 	Dim tipo_venta As String = Subs.traeTipoVentaDeBD
 	Private b_abordo As Button
 	Dim bitacora As C_Bitacora
+	Private l_version As Label
 End Sub
 
 'You can add more parameters here.
@@ -256,6 +257,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	SCROLL_RESDIA.Height = Root.Height
 	B_OK_RES.color = Colors.Red
 	B_OK_RES.TextColor = Colors.White
+	l_version.Text = Application.VersionName
 	EJECUTANDO=1
 	Dim ruta As String
 	img2.Visible =False
@@ -609,7 +611,7 @@ Sub Subir_Click
 		End If
 		c.Close
 
-		c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info2 where CAT_CL_NUM_SERIEFISICO IS NOT NULL")
+		c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info2 where CAT_CL_NUM_SERIEFISICO IS NOT NULL and gestion <> '0'")
 		If c.RowCount>0 Then
 			For i=0 To c.RowCount -1
 				c.Position=i