validación agregada a SaldosIniciales

General/SaldosIniciales.aspx.vb

@@ -1533,8 +1533,9 @@ 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("", DistinctColumns:={"Almacen"}).Rows
+                    For Each almacenSinRepetir As DataRow In dt.FiltraParametros("Almacen <> ''", DistinctColumns:={"Almacen"}).Rows
                         Dim almacenActual As String = almacenSinRepetir("Almacen").ToString
                         'Dim CveAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero
                         Dim CveAlmacen As Integer = AlmacenRef.FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero