From 5a9398a9448fd1502a3ab1ec485913f8c624e9ba Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 2 Dec 2023 12:41:30 -0700
Subject: [PATCH] --- mejora

---
 General/SaldosIniciales.aspx.vb | 24 ++++++++++--------------
 1 file changed, 10 insertions(+), 14 deletions(-)

diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 5b74eeaa9..fe266b6b4 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -354,10 +354,10 @@ Partial Class General_SaldosIniciales
                     Exit Sub
                 End If
 
-                If Not dt.Columns(9).ColumnName = "IEPS" Then
-                    Alert("El nombre de la décima columna debe ser 'IEPS'. Favor de corregirlo", TipoMensaje.MsgError)
-                    Exit Sub
-                End If
+                'If Not dt.Columns(9).ColumnName = "IEPS" Then
+                '    Alert("El nombre de la décima columna debe ser 'IEPS'. Favor de corregirlo", TipoMensaje.MsgError)
+                '    Exit Sub
+                'End If
 
                 'If Not dt.Columns(10).ColumnName = "Tamaño" Then
                 '    Alert("El nombre de la onceava columna debe ser 'Tamaño'. Favor de corregirlo", TipoMensaje.MsgError)
@@ -711,11 +711,11 @@ Partial Class General_SaldosIniciales
                     Dim Marca As String = Row("Marca").ToString().Trim
                     Dim AplicaSerie As Boolean = If(Row("AplicaSerie").ToString().Trim.ToUpper.Contiene("1", "SI"), True, False)
                     Dim Precio As Double = Row("Precio").ToString().ToDouble
-                    Dim IEPS As Decimal = Row("IEPS").ToString().ToDecimal
+                    Dim IEPS As Decimal = If(Row.Table.Columns.Contains("IEPS"), Row("IEPS").ToString().Trim.ToDecimal, -1)
                     Dim Tamaño As String = If(Row.Table.Columns.Contains("Tamaño"), Row("Tamaño").ToString().Trim, "")
                     Dim SATClavePS As String = Row("Código SAT").ToString().Trim
 
-                    Dim Clasificacion2 As String = If(dt.Columns.Contains("Servicio"), Row("Servicio").ToString().Trim, "")
+                    Dim Clasificacion2 As String = If(dt.Columns.Contains("Clasificacion2"), Row("Clasificacion2").ToString().Trim, "")
                     Dim Litraje As Double = If(dt.Columns.Contains("Conversion Unidad"), Row("Conversion Unidad").ToString().ToDouble, 0)
                     Dim RinTamaño As String = If(Row.Table.Columns.Contains("Tamaño de Rin"), Row("Tamaño de Rin").ToString().Trim, "")
                     Dim Medida As String = If(Row.Table.Columns.Contains("Medida"), Row("Medida").ToString().Trim, "")
@@ -1441,8 +1441,6 @@ Partial Class General_SaldosIniciales
                 Dim Encontrados As Integer = 0
                 Dim RFC As String = ""
 
-                Dim ObjCompras As New ClsCompras
-                Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
 
                 Try
                     DtProveedores = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
@@ -1549,10 +1547,8 @@ Partial Class General_SaldosIniciales
                         Encontrados = Encontrados + 1
 
                     Next
-                    If Not ErrorCompras Then
-                        Next
 
-                    Catch ex As Exception
+                Catch ex As Exception
                     OnError("Ocurrió un error al cargar los datos", ex)
                     ErrorCompras = True
                 End Try
@@ -2294,7 +2290,7 @@ Partial Class General_SaldosIniciales
 
                                 For Each nuevaEntrada As DataRow In dt.FiltraParametros($"TRIM(Almacen) = '{almacenActual}'").Rows
                                     contadorMovimientos += 1
-                                    Dim RowPS As DataRow = ProductosServiciosRef.FiltroPrimero($"Codigo = '{nuevaEntrada("CodigoPS")}' AND CveEmpresa = {UsuarioActual.CveEmpresa}")
+                                    Dim RowPS As DataRow = ProductosServiciosRef.FiltroPrimero($"Codigo = '{nuevaEntrada("CodigoPS")}' ")
                                     If RowPS IsNot Nothing Then
                                         Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero()
                                         Dim CveUM As Integer = RowPS("CveUnidadMedida").ToString().ToEntero()
@@ -2316,8 +2312,8 @@ Partial Class General_SaldosIniciales
                                             Throw New Exception()
                                         End If
                                     Else
-                                        mensajeError = $"No se encontró el producto o servicio con código ""{nuevaEntrada("CodigoPS")}"""
-                                        Throw New Exception()
+                                        mensajeError = "" '$"No se encontró el producto o servicio con código ""{nuevaEntrada("CodigoPS")}"""
+                                        'Throw New Exception()
                                     End If
                                 Next
                                 If contadorMovimientos = 0 Then