From 8487abfda438c3d496982cecb3798216aee3af84 Mon Sep 17 00:00:00 2001
From: Oscar Irigoyen <rakcsle@outlook.com>
Date: Sat, 11 Feb 2023 11:17:29 -0700
Subject: [PATCH] Correciones warnigs,  parametros  compilacion productivo

---
 App_Code/ClsContabilidad.vb                     | 3 +++
 Contabilidad2/MovimientosconProveedores.aspx.vb | 2 +-
 Contabilidad2/RepEstadoResultados.aspx.vb       | 2 +-
 Finanzas/RepEstadoResultados.aspx.vb            | 2 +-
 Ventas/Ventas.aspx.vb                           | 2 +-
 5 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 9531d6855..7be58e7ef 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -3843,6 +3843,8 @@ Public Class ClsContabilidad
 
         Return Retorno
     End Function
+
+    'Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean
     Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean
         Dim Retorno = False
 
@@ -5533,6 +5535,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
+    'Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean
     Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean
         Dim Retorno = False
 
diff --git a/Contabilidad2/MovimientosconProveedores.aspx.vb b/Contabilidad2/MovimientosconProveedores.aspx.vb
index 8c2a8b97a..e36b48bab 100644
--- a/Contabilidad2/MovimientosconProveedores.aspx.vb
+++ b/Contabilidad2/MovimientosconProveedores.aspx.vb
@@ -189,7 +189,7 @@ Partial Class MovimientosconProveedores
             CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
         End If
 
-        If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, 1) Then
+        If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, TipoReporte, 1) Then
 
             If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
                 DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0")
diff --git a/Contabilidad2/RepEstadoResultados.aspx.vb b/Contabilidad2/RepEstadoResultados.aspx.vb
index 87b1df7e3..384529945 100644
--- a/Contabilidad2/RepEstadoResultados.aspx.vb
+++ b/Contabilidad2/RepEstadoResultados.aspx.vb
@@ -180,7 +180,7 @@ Partial Class Contabilidad2_RepEstadoResultados
         Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
 
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, DdlSubproyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 0) Then
             DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatos = Nothing
diff --git a/Finanzas/RepEstadoResultados.aspx.vb b/Finanzas/RepEstadoResultados.aspx.vb
index 04957a446..f2eee49ae 100644
--- a/Finanzas/RepEstadoResultados.aspx.vb
+++ b/Finanzas/RepEstadoResultados.aspx.vb
@@ -176,7 +176,7 @@ Partial Class Contabilidad2_RepEstadoResultados
         Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
 
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, 0) Then
             DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatos = Nothing
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c71fc445f..2b4e80213 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -35376,7 +35376,7 @@ Partial Class Ventas
                 DdlRegimenFiscalCliente.DataBind()
             Else
                 Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
-                Dim Val As String
+                Dim Val As String = ""
 
                 If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                     'verifico que sino existe el valor. lo limpie