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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2022-10-11 18:59:53 -07:00
parent b2b88748ad cb419457c2
commit 93465e0c8f
4 changed files with 54 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
General/SaldosIniciales.aspx.vb
View File

@@ -1021,7 +1021,7 @@ Partial Class General_SaldosIniciales
Dim CodigoRegimenFiscal As String = Row("Regimen Fiscal").ToString
Dim Clasificacion 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 DIOTTipoTercero As String = Row("Tipo Tercero").ToString.Trim.ToUpper
Dim DIOTipoOperacion As String = Row("Tipo Operación").ToString
@@ -1103,10 +1103,10 @@ Partial Class General_SaldosIniciales
End If
If Clasificacion.Trim.Length > 0 Then
CveProveedorClasificacion = DTClasificaciones.FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
If ProveedorClasificacion.Trim.Length > 0 Then
CveProveedorClasificacion = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedorClasificacion", $"ProveedorClasificacion = '{ProveedorClasificacion}'").ToString.ToEntero
If Not CveProveedorClasificacion > 0 Then
sbErrores.AppendLine($"Proveedor {RazonSocial} Clasificación {Clasificacion} invalida.<br>")
sbErrores.AppendLine($"Proveedor {RazonSocial} Proveedor Clasificacion {ProveedorClasificacion} invalida.<br>")
ErrorProv = True
End If
End If
@@ -2022,10 +2022,10 @@ Partial Class General_SaldosIniciales
For Each Row As DataRow In dt.Rows
Dim Cuenta As String = Row("Cuenta").ToString.Trim
Dim Cuenta As String = Row("Cuenta").ToString.Trim.Replace("-", "")
If Cuenta <> "" Then
NombreCuenta = Row("NombreCuenta").ToString.Trim
CuentaPadre = Row("CuentaPadre").ToString.Trim
CuentaPadre = Row("CuentaPadre").ToString.Trim.Replace("-", "")
Dim TipoCuenta As String = Row("TipoCuenta").ToString.Trim
Dim AgrupadorSAT As String = Row("AgrupadorSAT").ToString.Trim