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() 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 Codigo As String = Row("Codigo").ToString()
Dim RazonSocial As String = Row("RazonSocial").ToString() Dim RazonSocial As String = Row("RazonSocial").ToString()
If RazonSocial.Trim.Length = 0 Then If RazonSocial.Trim.Length = 0 Then
Continue For Continue For
End If End If
Dim RFC As String = Row("RFC").ToString().Trim 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 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 NumExt As String = Row("Número exterior").ToString()
' Dim Colonia As String = Row("Colonia").ToString() ' Dim Colonia As String = Row("Colonia").ToString()
Dim CodigoPostal As Integer = Row("Código Postal").ToString().ToEntero() Dim CodigoPostal As Integer = Row("Código Postal").ToString().ToEntero()
' Dim Poblacion As String = Row("Población").ToString() ' Dim Poblacion As String = Row("Población").ToString()
'Dim Estado As String = Row("Estado").ToString() 'Dim Estado As String = Row("Estado").ToString()
Dim Telefono As String = Row("Teléfono").ToString() Dim Telefono As String = Row("Teléfono").ToString()
Dim ContactoMail As String = Row("Contacto").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() CveProveedor3 = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"Codigo = '{Codigo}'").ToString().ToEntero()
End If End If
Dim CodigoRegimenFiscal As String = Row("Regimen Fiscal").ToString() Dim CodigoRegimenFiscal As String = Row("Regimen Fiscal").ToString()
Dim ProveedorClasificacion As String = Row("Clasificación Proveedor").ToString() Dim ProveedorClasificacion As String = Row("Clasificación Proveedor").ToString()
Dim Moneda As String = Row("Moneda Preferente").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>") sbErrores.AppendLine($"Proveedor {RazonSocial} Tipo Operación {DIOTipoOperacion} invalida.<br>")
ErrorProv = True ErrorProv = True
End If End If
End If End If
If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN", "MONEDA NACIONAL") Then If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN", "MONEDA NACIONAL") Then
CveMoneda = 1 CveMoneda = 1
ElseIf Moneda.ToUpper.Contiene("DOLARES", "DOLAR", "USD", "DÓLARES") Then ElseIf Moneda.ToUpper.Contiene("DOLARES", "DOLAR", "USD", "DÓLARES") Then
@@ -1147,7 +1134,7 @@ Partial Class General_SaldosIniciales
If Not ErrorCuentaDeposito Then If Not ErrorCuentaDeposito Then
Dim ObjGrales As New ClsGenerales(ObjProv.IniciaTransacSQL) 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 'ErrorProv = True
End If End If
End If End If
@@ -1166,10 +1153,8 @@ Partial Class General_SaldosIniciales
End If End If
End If End If
Next Next
If Not ErrorProv Then If Not ErrorProv Then
ObjProv.Commit() ObjProv.Commit()
If ObjProv.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCompProveedores") = ObjProv.DtResultados If ObjProv.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCompProveedores") = ObjProv.DtResultados