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

Clientes Quitar seccion de asiganacion de cuenta padre con base en funcionalidad 114

Browse Source
This commit is contained in:
rakcsle
2023-06-06 16:58:28 -07:00
parent 51d05ecc25
commit 08c14700c1
1 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
Ventas/Clientes.aspx.vb
View File

@@ -2638,31 +2638,31 @@ Partial Class Clientes
Dim CtaCliente As Integer = DdlCtaContableClientes.SelectedValue.ToEntero() Dim CtaCliente As Integer = DdlCtaContableClientes.SelectedValue.ToEntero()
' si tiene la funcionalidad de la cuenta contable padre ' si tiene la funcionalidad de la cuenta contable padre
If UsuarioActual.Empresa.Funcionalidad(114) <> "" Then 'If UsuarioActual.Empresa.Funcionalidad(114) <> "" Then
Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) ' Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
ObjContaAC.IniciaTransacSQL() ' ObjContaAC.IniciaTransacSQL()
'se registra la cuenta contable automaticamente ' 'se registra la cuenta contable automaticamente
CtaCliente = ObjContaAC.AddSiguienteCuentaHijo(UsuarioActual.Empresa.Funcionalidad(114).ToEntero(), TxtNombreComercial.Text.Trim, "A", 2) ' CtaCliente = ObjContaAC.AddSiguienteCuentaHijo(UsuarioActual.Empresa.Funcionalidad(114).ToEntero(), TxtNombreComercial.Text.Trim, "A", 2)
If CtaCliente > 0 Then ' If CtaCliente > 0 Then
ObjContaAC.Commit() ' ObjContaAC.Commit()
DdlCtaContableClientes.Items.Add(New ListItem(TxtNombreComercial.Text.Trim, CtaCliente.ToString())) ' DdlCtaContableClientes.Items.Add(New ListItem(TxtNombreComercial.Text.Trim, CtaCliente.ToString()))
DdlCtaContableClientes.SelectedValue = CtaCliente.ToString() ' DdlCtaContableClientes.SelectedValue = CtaCliente.ToString()
'MsgCuentaContable = String.Format("<br />Con la cuenta contable: {0}", NewCuenta) ' 'MsgCuentaContable = String.Format("<br />Con la cuenta contable: {0}", NewCuenta)
Else ' Else
ObjContaAC.RollBack() ' ObjContaAC.RollBack()
ObjContaAC.Dispose() ' ObjContaAC.Dispose()
Alert("Error al guardar la cuenta contable ", TipoMensaje.MsgError) ' Alert("Error al guardar la cuenta contable ", TipoMensaje.MsgError)
ObjClientes.Dispose() ' ObjClientes.Dispose()
Exit Sub ' Exit Sub
End If ' End If
ObjContaAC.Dispose() ' ObjContaAC.Dispose()
End If 'End If
Dim CodigoCuentaAltaCompaq As String = "" Dim CodigoCuentaAltaCompaq As String = ""