AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-limpieza

Browse Source
This commit is contained in:
rrene
2023-12-27 19:03:59 -07:00
parent 2b96936db4
commit 161932a4ec
1 changed files with 2 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
General/SaldosIniciales.aspx.vb
View File

@@ -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