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

cambios, para activación de cuentas de crédito

Browse Source
This commit is contained in:
rrene
2023-05-04 18:18:40 -07:00
parent e733e6db82
commit be36ad1b2b
5 changed files with 43 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Bancos/Creditos.aspx
View File

@@ -493,7 +493,7 @@
<ajax:ValidatorCalloutExtender ID="VCEProveedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVProveedor" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
</tr>
<tr>
<tr runat="server" id="trClasifContable" visible="false">
<td colspan="2">
<asp:RadioButtonList runat="server" ID="RBLClasificacionContable" AutoPostBack="true" RepeatDirection="Horizontal">
<asp:ListItem Text="Doc x Pagar" Value="1" Selected="True"></asp:ListItem>
@@ -501,7 +501,7 @@
</asp:RadioButtonList>
</td>
</tr>
<tr>
<tr runat="server" id="trCtaContable" visible="false">
<td>Cuenta Contable:</td>
<td>
<asp:UpdatePanel runat="server" ID="UpCtaContable" UpdateMode="Conditional">

2
Bancos/Creditos.aspx.vb
View File

@@ -549,7 +549,7 @@ Partial Class Bancos_Creditos
DdlCtaContable.Items.Clear()
Dim IdCuentaPadre As Integer = If(RBLClasificacionContable.SelectedValue.ToEntero = 1, UsuarioActual.Empresa.Funcionalidad(203).ToEntero, UsuarioActual.Empresa.Funcionalidad(202).ToEntero)
If IdCuentaPadre > 0 Then
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso IdCuentaPadre > 0 Then
Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
If ObjContabilidad.GetCuentasRecursiva(IdCuentaPadre, 1) Then
DdlCtaContable.DataSource = ObjContabilidad.DtResultados