From a44c616fcffe74ca0c0575920a571cceb6dc3593 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Wed, 28 Aug 2019 11:56:14 -0500
Subject: [PATCH] reparando erroes de saldos iniciales

---
 General/SaldosIniciales.aspx.vb | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 76eba6639..7ffc1911c 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1533,7 +1533,6 @@ Partial Class General_SaldosIniciales
                 Dim contadorMovimientos As Integer = 0
                 Dim listadoMovimientos As String = ""
                 Dim mensajeError As String = ""
-                Dim banderRowCount As Integer = dt.Rows.Count
                 Try
                     For Each almacenSinRepetir As DataRow In dt.FiltraParametros("Almacen <> ''", DistinctColumns:={"Almacen"}).Rows
                         Dim almacenActual As String = almacenSinRepetir("Almacen").ToString
@@ -1545,10 +1544,9 @@ Partial Class General_SaldosIniciales
                             contadorMovimientos += 1
                             For Each nuevaEntrada As DataRow In dt.FiltraParametros($"Almacen = '{almacenActual}'").Rows
                                 Dim RowPS As DataRow = ProductosServiciosRef.FiltroPrimero($"Codigo = '{nuevaEntrada("CodigoPS")}' AND CveEmpresa = {UsuarioActual.CveEmpresa}")
-
-                                Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero
-                                Dim CveUM As Integer = RowPS("CveUnidadMedida").ToString().ToEntero
-                                If CvePS > 0 Then
+                                If RowPS IsNot Nothing Then
+                                    Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero
+                                    Dim CveUM As Integer = RowPS("CveUnidadMedida").ToString().ToEntero
                                     If CveUM > 0 Then
                                         Dim Cantidad As Decimal = nuevaEntrada("Existencia").ToString.ToDecimal
                                         Dim Valor As Decimal = nuevaEntrada("Valor").ToString.ToDecimal
@@ -1563,7 +1561,6 @@ Partial Class General_SaldosIniciales
                                     End If
                                 Else
                                     mensajeError = $"No se encontró el producto o servicio con código ""{nuevaEntrada("CodigoPS")}"""
-                                    Throw New Exception()
                                 End If
                             Next
                         Else