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

No generar cuantas al gregr proveeor cuando tenga funcionalidad de cuenta padre

Browse Source
This commit is contained in:
Rakcsle Supertramp
2019-10-14 15:07:49 -07:00
parent 4e0275479c
commit ff9c270c33
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Compras/Proveedores.aspx.vb
View File

@@ -1357,7 +1357,14 @@ Partial Class Compras_Proveedores
End If End If
IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(ClaveFuncionalidad, TxtRazonSocial.Text.Trim, "D", 2) If UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero > 0 Then
IdCuentaContable = UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero
Else
IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(ClaveFuncionalidad, TxtRazonSocial.Text.Trim, "D", 2)
End If
If IdCuentaContable > 0 Then If IdCuentaContable > 0 Then
ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1) ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
@@ -1571,7 +1578,8 @@ Partial Class Compras_Proveedores
'End If 'End If
Dim CreoCuenta As Boolean = False Dim CreoCuenta As Boolean = False
If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) Then
If (UsuarioActual.Empresa.UsaAC Or (UsuarioActual.Empresa.UsaContabilidad And UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero = 0)) Then
Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("") Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
If drCuenta IsNot Nothing Then If drCuenta IsNot Nothing Then