diff --git a/Contabilidad2/MovimientosconProveedores.aspx.vb b/Contabilidad2/MovimientosconProveedores.aspx.vb
index 8c2a8b97a..847129b32 100644
--- a/Contabilidad2/MovimientosconProveedores.aspx.vb
+++ b/Contabilidad2/MovimientosconProveedores.aspx.vb
@@ -52,11 +52,11 @@ Partial Class MovimientosconProveedores
             ViewState("DTCuentas") = value
         End Set
     End Property
-    Private Property CveSubProyecto As String
+    Private Property CveSubProyecto As Integer
         Get
-            CveSubProyecto = ViewState("CveSubProyecto").ToString
+            CveSubProyecto = ViewState("CveSubProyecto").ToString.ToEntero
         End Get
-        Set(value As String)
+        Set(value As Integer)
             ViewState("CveSubProyecto") = value
         End Set
     End Property
@@ -108,7 +108,7 @@ Partial Class MovimientosconProveedores
                     End If
 
                     If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
-                        CveSubProyecto = Request("CveSubProyecto").ToString
+                        CveSubProyecto = Request("CveSubProyecto").ToString.ToEntero
                     End If
 
 
@@ -184,9 +184,9 @@ Partial Class MovimientosconProveedores
         End If
         'Dim CveSubProyecto As String
         If Request("CveSubProyecto") IsNot Nothing Then
-            CveSubProyecto = Request("CveSubProyecto").ToString
+            CveSubProyecto = Request("CveSubProyecto").ToString.ToEntero
         Else
-            CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
+            CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
         End If
 
         If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, 1) Then