cambios, para activación de cuentas de crédito
This commit is contained in:
@@ -5986,7 +5986,8 @@ Public Class ClsContabilidad
|
||||
Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
|
||||
Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1,
|
||||
Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1,
|
||||
Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional RegeneraCuenta As Boolean = False,
|
||||
Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional CveCredito As Integer = -1,
|
||||
Optional RegeneraCuenta As Boolean = False,
|
||||
Optional OpActualizarClasificacion As Boolean = False) As Boolean
|
||||
Dim Retorno = False
|
||||
|
||||
@@ -6008,6 +6009,7 @@ Public Class ClsContabilidad
|
||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
|
||||
.Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto
|
||||
.Add("@CveCredito", SqlDbType.Int).Value = CveCredito
|
||||
.Add("@RegeneraCuenta", SqlDbType.Bit).Value = RegeneraCuenta
|
||||
.Add("@OpActualizarClasificacion", SqlDbType.Bit).Value = OpActualizarClasificacion
|
||||
End With
|
||||
@@ -6027,7 +6029,7 @@ Public Class ClsContabilidad
|
||||
Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1,
|
||||
Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1,
|
||||
Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1,
|
||||
Optional RegeneraCuenta As Boolean = False) As Boolean
|
||||
Optional CveCredito As Integer = -1, Optional RegeneraCuenta As Boolean = False) As Boolean
|
||||
Dim Retorno = False
|
||||
|
||||
DataAdapter("PA_Conta_CuentasAsignacionesUpdate")
|
||||
@@ -6048,6 +6050,7 @@ Public Class ClsContabilidad
|
||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
|
||||
.Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto
|
||||
.Add("@CveCredito", SqlDbType.Int).Value = CveCredito
|
||||
.Add("@RegeneraCuenta", SqlDbType.Bit).Value = RegeneraCuenta
|
||||
End With
|
||||
|
||||
|
||||
@@ -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">
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -74,7 +74,7 @@
|
||||
<asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView runat="server" ID="GvDatos" EmptyDataText="" ToolTip="" CssClass="table table-striped table-advance table-hover ScrollAD"
|
||||
DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA,CveConceptoNomina,CveBancoCuenta,CveActivoFijo,CveSubProyecto,CveTipoGasto" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA,CveConceptoNomina,CveBancoCuenta,CveActivoFijo,CveSubProyecto,CveTipoGasto,CveCredito" AutoGenerateColumns="False"
|
||||
Style=" width:100%" GridLines="None">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="ConceptoContable" ItemStyle-Width="150px" HeaderText="Concepto Contable" ItemStyle-HorizontalAlign="Left"/>
|
||||
@@ -186,6 +186,10 @@
|
||||
<asp:DropDownList ID="DdlActivoFijo" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="Descripcion" DataValueField="CveActivoFijo" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
|
||||
<label for="<%= DdlActivoFijo.ClientID.ToString()%>">Activo Fijo: </label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright" id="divCredito" runat="server" visible="false">
|
||||
<asp:DropDownList ID="DdlCreditos" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="Referencia" DataValueField="CveCredito" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
|
||||
<label for="<%= DdlCreditos.ClientID.ToString()%>">Crédito: </label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright" id="divSubProyectos" runat="server" visible="false">
|
||||
<asp:DropDownList ID="DdlSubProyectos" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
|
||||
<label for="<%= DdlSubProyectos.ClientID.ToString()%>">Sub Proyectos: </label>
|
||||
|
||||
@@ -180,6 +180,18 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
|
||||
DdlPersonal.SelectedText = drp
|
||||
End If
|
||||
|
||||
If GvRow.DataKey("CveCredito").ToEntero > 0 Then
|
||||
DdlCreditos.Items.Clear()
|
||||
DdlCreditos.ClearSelection()
|
||||
Dim ObjCreditos As New ClsBancos
|
||||
If ObjCreditos.GetCreditos(-1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
DdlCreditos.DataSource = ObjCreditos.DtResultados.FiltraParametros("", DistinctColumns:={"CveCredito", "Referencia"})
|
||||
End If
|
||||
ObjCreditos.Dispose()
|
||||
DdlCreditos.DataBind()
|
||||
DdlCreditos.SelectedValue = GvRow.DataKey("CveCredito")
|
||||
End If
|
||||
|
||||
LbAgregar.Text = "Actualizar"
|
||||
UpModalModulos.Update()
|
||||
RegistraScript("$('#ModalCat').modal();")
|
||||
@@ -203,6 +215,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
|
||||
divAlmacen.Visible = Boolean.Parse(Dr("AplicaAlmacen").ToString)
|
||||
divSubProyectos.Visible = Boolean.Parse(Dr("AplicaSubProyecto").ToString)
|
||||
divActivoFijo.Visible = Boolean.Parse(Dr("AplicaActivoFijo").ToString)
|
||||
divCredito.Visible = Boolean.Parse(Dr("AplicaCredito").ToString)
|
||||
|
||||
DdlActivoFijo.Enabled = False
|
||||
|
||||
@@ -215,10 +228,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
|
||||
Else
|
||||
DdlActivoFijo.Enabled = False
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
divConceptoNomina.Visible = Dr("AplicaNomina").ToString = "True"
|
||||
|
||||
If CveConceptoContable = 51 Then
|
||||
@@ -231,6 +242,21 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
|
||||
If Dr("CveTipoSaldo").ToString = "1" Then
|
||||
divRegeneraCuenta.Visible = True
|
||||
End If
|
||||
|
||||
If Dr("AplicaCredito").ToString = "True" Then
|
||||
Dim ObjCreditos As New ClsBancos
|
||||
If ObjCreditos.GetCreditos(-1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
DdlCreditos.DataSource = ObjCreditos.DtResultados.FiltraParametros("", DistinctColumns:={"CveCredito", "Referencia"})
|
||||
End If
|
||||
ObjCreditos.Dispose()
|
||||
DdlCreditos.DataBind()
|
||||
|
||||
If OpAgregar Then
|
||||
DdlCreditos.Enabled = True
|
||||
Else
|
||||
DdlCreditos.Enabled = False
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -322,7 +348,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
|
||||
DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
|
||||
DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(),
|
||||
CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero,
|
||||
CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, RegeneraCuenta:=chkRegeneraCuenta.Checked) Then
|
||||
CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, CveCredito:=DdlCreditos.SelectedValue.ToEntero, RegeneraCuenta:=chkRegeneraCuenta.Checked) Then
|
||||
ErrorString = "Error al agregar"
|
||||
End If
|
||||
ElseIf HdnCveCuentaAsignacion.Value.ToEntero > 0 Then
|
||||
@@ -330,7 +356,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
|
||||
DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
|
||||
DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(),
|
||||
CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero,
|
||||
CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, RegeneraCuenta:=chkRegeneraCuenta.Checked) Then
|
||||
CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, CveCredito:=DdlCreditos.SelectedValue.ToEntero, RegeneraCuenta:=chkRegeneraCuenta.Checked) Then
|
||||
ErrorString = "Error al actualizar"
|
||||
End If
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user