diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index dea3a36fb..edeb0928b 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1790,7 +1790,6 @@ Partial Class General_SaldosIniciales Try For Each almacenSinRepetir As DataRow In dt.FiltraParametros("Almacen <> ''", DistinctColumns:={"Almacen"}).Rows Dim almacenActual As String = almacenSinRepetir("Almacen").ToString.Trim - 'Dim CveAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero Dim CveAlmacen As Integer = AlmacenRef.FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero If CveAlmacen > 0 Then @@ -1798,9 +1797,8 @@ Partial Class General_SaldosIniciales listadoMovimientos += $"movimiento con folio {ObjMovimientos.Folio}
" If movimientoCabecera > 0 Then - - contadorMovimientos += 1 - For Each nuevaEntrada As DataRow In dt.FiltraParametros($"Almacen = '{almacenActual}'").Rows + 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}") If RowPS IsNot Nothing Then Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero @@ -1823,6 +1821,11 @@ Partial Class General_SaldosIniciales Throw New Exception() End If Next + If contadorMovimientos = 0 Then + mensajeError = $"No se encontraros registros del almacen: ""{almacenActual}""" + Throw New Exception() + Exit For + End If Else mensajeError = $"No se registró el encabezado ""{almacenActual}""" Throw New Exception()