From d49903a1ad750d94eb077cfd0147509a15ac9ff3 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:34:57 -0700 Subject: [PATCH] -- warnngs --- Contabilidad2/MovimientosconProveedores.aspx.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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