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

-- activación de subproyecto para saldado

Browse Source
This commit is contained in:
rrene
2024-06-08 08:30:12 -07:00
parent 078b2e246e
commit 128ba3b6ee
2 changed files with 17 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Bancos/RepIngresosPorComprobar.aspx
View File

@@ -271,7 +271,7 @@
</ajax:TabPanel>
</ajax:TabContainer>
<div id="DivModalSaldar" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog modal" runat="server" ID="UPModalCort" UpdateMode="Conditional">
<asp:UpdatePanel class="modal-dialog modal" runat="server" ID="UPModalSaldar" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-content">
<div class="modal-header ">
@@ -282,7 +282,7 @@
<div class="row">
<div class="col-md-2" style="text-align: left">Fecha:</div>
<div class="col-md-2">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
<asp:TextBox ID="TxtFecha" CssClass="form-control input-sm ADSMaskDate" Style="width: 118px" runat="server"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="LnkCortfecha" class="btn default " Text=" <i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
@@ -294,6 +294,13 @@
</div>
</div>
</div>
<div class="row">
<div class="col-md-2" style="text-align: left">SubProyecto:</div>
<div class="col-md-4">
<asp:DropDownList ID="DdlSubProyectoSaldar" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
</asp:DropDownList>
</div>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="BtnSaldar" OnClick="BtnSaldar_Click" runat="server" Text="Saldar" CssClass="btn btn-primary" ValidationGroup="VgGuardar" />

13
Bancos/RepIngresosPorComprobar.aspx.vb
View File

@@ -261,6 +261,9 @@ Partial Class Bancos_RepIngresosPorComprobar
UPDatos.Update()
End If
Next
DdlSubProyectoSaldar.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyectoSaldar.DataBind()
UPModalSaldar.Update()
End Sub
Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
@@ -274,17 +277,16 @@ Partial Class Bancos_RepIngresosPorComprobar
ObjConta.IniciaTransacSQL()
Dim CvePrePoliza As Integer = 0
Dim MsgError As String = ""
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepIngresosPorComprobar", 6, 0, 0, 1, TxtFecha.Text.ToDate, "Saldo de IxC", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
For Each gr As GridViewRow In GvIPC.Rows
If gr.FCCheckBox("Chk").Checked Then
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepIngresosPorComprobar", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, TxtFecha.Text.ToDate, "Saldo de IxC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 92, "", "Saldo de IxC por Sistema", CveIE:=gr.DataKey("CveIE").ToEntero, CveCliente:=gr.DataKey("CveCliente").ToEntero) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 92, "", "Saldo de IxC", CveIE:=gr.DataKey("CveIE").ToEntero, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then
MsgError = "Ocurrio un error al saldar el movimiento"
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 78, "", "Saldo de IxC por Sistema", CveIE:=gr.DataKey("CveIE").ToEntero) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 78, "", "Saldo de IxC", CveIE:=gr.DataKey("CveIE").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then
MsgError = "Ocurrio un error al saldar el movimiento"
End If
End If
@@ -293,7 +295,8 @@ Partial Class Bancos_RepIngresosPorComprobar
If MsgError = "" Then
ObjConta.Commit()
CargaDatos()
Alert("Los movimientos se saldaron correctamente.")
Alert(String.Format("Los movimientos se saldaron correctamente.</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", CvePrePoliza, ObjConta.ContaFolio))
Else
ObjConta.RollBack()
Alert(MsgError, TipoMensaje.MsgError)