diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index ba0aeeb98..6ca4edfda 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -958,27 +958,20 @@ Partial Class General_SaldosIniciales
 
                 ObjProv.IniciaTransacSQL()
 
-                For Each Row As DataRow In dt.Rows
+                For Each Row As DataRow In dt.FiltraParametros("RazonSocial <> ''").Rows
 
                     Dim Codigo As String = Row("Codigo").ToString()
                     Dim RazonSocial As String = Row("RazonSocial").ToString()
-
                     If RazonSocial.Trim.Length = 0 Then
                         Continue For
                     End If
 
                     Dim RFC As String = Row("RFC").ToString().Trim
-
                     Dim Dirrecion As String = $"{ Row("Población").ToString()}, { Row("Estado").ToString()} , Colonia { Row("Colonia").ToString()},   {Row("Calle").ToString()} #{Row("Número exterior").ToString()}"
-
                     'Dim NumExt As String = Row("Número exterior").ToString()
-
-
                     ' Dim Colonia As String = Row("Colonia").ToString()
                     Dim CodigoPostal As Integer = Row("Código Postal").ToString().ToEntero()
-
                     ' Dim Poblacion As String = Row("Población").ToString()
-
                     'Dim Estado As String = Row("Estado").ToString()
                     Dim Telefono As String = Row("Teléfono").ToString()
                     Dim ContactoMail As String = Row("Contacto").ToString()
@@ -1003,9 +996,6 @@ Partial Class General_SaldosIniciales
                         CveProveedor3 = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"Codigo = '{Codigo}'").ToString().ToEntero()
                     End If
 
-
-
-
                     Dim CodigoRegimenFiscal As String = Row("Regimen Fiscal").ToString()
                     Dim ProveedorClasificacion As String = Row("Clasificación Proveedor").ToString()
                     Dim Moneda As String = Row("Moneda Preferente").ToString()
@@ -1075,10 +1065,7 @@ Partial Class General_SaldosIniciales
                             sbErrores.AppendLine($"Proveedor {RazonSocial} Tipo Operación {DIOTipoOperacion} invalida.<br>")
                             ErrorProv = True
                         End If
-
                     End If
-
-
                     If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN", "MONEDA NACIONAL") Then
                         CveMoneda = 1
                     ElseIf Moneda.ToUpper.Contiene("DOLARES", "DOLAR", "USD", "DÓLARES") Then
@@ -1147,7 +1134,7 @@ Partial Class General_SaldosIniciales
 
                             If Not ErrorCuentaDeposito Then
                                 Dim ObjGrales As New ClsGenerales(ObjProv.IniciaTransacSQL)
-                                If Not ObjGrales.AddCuentasDepositos(Banco, "-1", "-1", NumeroCuenta, ClabeInter, "-1", "-1", "-1", "-1", UsuarioActual.CveUsuario, 1, UsuarioActual.CveEmpresa, CveProveedor:=ObjProv.CveProveedor) Then
+                                If Not ObjGrales.AddCuentasDepositos(Banco, "", "", NumeroCuenta, ClabeInter, "", "", "", "", UsuarioActual.CveUsuario, 1, UsuarioActual.CveEmpresa, CveProveedor:=ObjProv.CveProveedor) Then
                                     'ErrorProv = True
                                 End If
                             End If
@@ -1166,10 +1153,8 @@ Partial Class General_SaldosIniciales
 
                         End If
                     End If
-
                 Next
 
-
                 If Not ErrorProv Then
                     ObjProv.Commit()
                     If ObjProv.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCompProveedores") = ObjProv.DtResultados