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

-- unificación de cheques devueltos

Browse Source
This commit is contained in:
rrene
2022-09-26 10:34:14 -07:00
parent 5f19c643e3
commit 536f841d81
2 changed files with 105 additions and 99 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Bancos/IE.aspx
View File

@@ -1255,7 +1255,7 @@
<div class="row"> <div class="row">
<div class="col-md-12" id="DVTipoTransacciónCancelar" runat="server" visible="false"> <div class="col-md-12" id="DVTipoTransacciónCancelar" runat="server" visible="false">
Movimiento: Movimiento:
<asp:DropDownList ID="DdlTipoTransaccionCancelacion" CssClass="form-control input-sm select2me" runat="server" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" ValidationGroup="GrpCancelarIE"> <asp:DropDownList ID="DdlTipoTransaccionCancelacion" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" ValidationGroup="GrpCancelarIE">
<asp:ListItem Value="-1">Seleccione uno</asp:ListItem> <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlTipoTransaccionCancelacion" runat="server" ControlToValidate="DdlTipoTransaccionCancelacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Transaccion''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCancelarIE"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVDdlTipoTransaccionCancelacion" runat="server" ControlToValidate="DdlTipoTransaccionCancelacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Transaccion''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCancelarIE"></asp:RequiredFieldValidator>
@@ -1266,7 +1266,7 @@
<div class="row"> <div class="row">
<div class="col-md-12" id="DVTipoTransacciónCancelar2" runat="server" visible="false"> <div class="col-md-12" id="DVTipoTransacciónCancelar2" runat="server" visible="false">
Cuenta Devolución: Cuenta Devolución:
<asp:DropDownList ID="DdlDevolucionCuenta" CssClass="form-control input-sm select2me" runat="server" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" > <asp:DropDownList ID="DdlDevolucionCuenta" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" >
<asp:ListItem Value="-1">-</asp:ListItem> <asp:ListItem Value="-1">-</asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
@@ -1319,7 +1319,7 @@
</div> </div>
</div> </div>
<div id="DivChqDevueltoIE" class="modal fade"> <%-- <div id="DivChqDevueltoIE" class="modal fade">
<div class="modal-dialog" style="max-height: 500px; max-width: 500px;"> <div class="modal-dialog" style="max-height: 500px; max-width: 500px;">
<asp:UpdatePanel ID="UpdatePanel1" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpdatePanel1" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
@@ -1362,7 +1362,7 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
</div> </div>--%>
<div id="divDescripcion" class="modal ADS fade" role="dialog"> <div id="divDescripcion" class="modal ADS fade" role="dialog">
<div class="modal-dialog"> <div class="modal-dialog">

196
Bancos/IE.aspx.vb
View File

@@ -655,7 +655,7 @@ Partial Class Bancos_IE
CvePrePoliza = -1 CvePrePoliza = -1
CveSolicitudViatico = -1 CveSolicitudViatico = -1
ComplementoSerieFolio = "" ComplementoSerieFolio = ""
TxtFechaDevuelto.Text = Now.ToShortDateString 'TxtFechaDevuelto.Text = Now.ToShortDateString
TxtFechaCancelacion.Text = Now.ToShortDateString TxtFechaCancelacion.Text = Now.ToShortDateString
CveCompraDeCDin = -1 CveCompraDeCDin = -1
'If UsuarioActual.CveEmpresa.Contiene(66) Then trNotificar.Visible = True 'If UsuarioActual.CveEmpresa.Contiene(66) Then trNotificar.Visible = True
@@ -4564,20 +4564,16 @@ Partial Class Bancos_IE
Msg.Append("El movimiento bancario quedó cancelado exitosamente.") Msg.Append("El movimiento bancario quedó cancelado exitosamente.")
End If End If
If IdPolizaNueva > 0 Then Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza de cancelación</a>", IdPolizaNueva) If IdPolizaNueva > 0 Then Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza de cancelación</a>", IdPolizaNueva)
Alert(Msg.ToString, TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""") Alert(Msg.ToString, TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""")
Else Else
If ObjAC IsNot Nothing Then ObjAC.RollBack() If ObjAC IsNot Nothing Then ObjAC.RollBack()
Banc.RollBack() Banc.RollBack()
Alert("El movimiento bancario no se pudo cancelar. Por favor vuelva a intentar.", TipoMensaje.MsgError) Alert("El movimiento bancario no se pudo cancelar. Por favor vuelva a intentar.", TipoMensaje.MsgError)
GuardaLog(MensajeError + " | CANCELAR IE") GuardaLog(MensajeError + " | CANCELAR IE")
End If End If
Else Else
If ObjAC IsNot Nothing Then ObjAC.RollBack() If ObjAC IsNot Nothing Then ObjAC.RollBack()
Banc.RollBack() Banc.RollBack()
@@ -4593,125 +4589,125 @@ Partial Class Bancos_IE
ObjConta.Dispose() ObjConta.Dispose()
End Sub End Sub
Protected Sub BtnDevueltoIE_Click(sender As Object, e As EventArgs) 'Protected Sub BtnDevueltoIE_Click(sender As Object, e As EventArgs)
RegistraScript("$('#DivChqDevueltoIE').modal('hide');") ' RegistraScript("$('#DivChqDevueltoIE').modal('hide');")
ChequeDevuelto() ' ChequeDevuelto()
End Sub 'End Sub
Private Sub ChequeDevuelto() 'Private Sub ChequeDevuelto()
If Not IsDate(TxtFechaDevuelto.Text.ToDate) Then ' If Not IsDate(TxtFechaDevuelto.Text.ToDate) Then
Alert("El campo fecha cancelación es incorrecto. Por favor verifique y vuelva a intentar") ' Alert("El campo fecha cancelación es incorrecto. Por favor verifique y vuelva a intentar")
Exit Sub ' Exit Sub
End If ' End If
If ChkConciliado.Checked Then ' If ChkConciliado.Checked Then
Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError) ' Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError)
Exit Sub ' Exit Sub
End If ' End If
Dim Banc As New ClsBancos ' Dim Banc As New ClsBancos
Banc.IniciaTransacSQL() ' Banc.IniciaTransacSQL()
Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL) ' Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL)
Dim ObjAC As ClsContPAQi = Nothing ' Dim ObjAC As ClsContPAQi = Nothing
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") Then ' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") Then
ObjAC = New ClsContPAQi(UsuarioActual.Empresa) ' ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
ObjAC.IniciaTransacSQL() ' ObjAC.IniciaTransacSQL()
End If ' End If
Dim ErrorCancelar = False ' Dim ErrorCancelar = False
Dim IdPolizaNueva = -1 ' Dim IdPolizaNueva = -1
Dim FolioPolizaNueva = -1 ' Dim FolioPolizaNueva = -1
If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1")) Then ' If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1")) Then
If ObjAC Is Nothing Then ' If ObjAC Is Nothing Then
ErrorCancelar = True ' ErrorCancelar = True
End If ' End If
If Not ErrorCancelar Then ' If Not ErrorCancelar Then
Dim dt As DataTable ' Dim dt As DataTable
If ObjAC.GetPoliza(IDPoliza, -1, -1, -1, -1) AndAlso ObjAC.DtResultados.Rows.Count > 0 Then ' If ObjAC.GetPoliza(IDPoliza, -1, -1, -1, -1) AndAlso ObjAC.DtResultados.Rows.Count > 0 Then
dt = ObjAC.DtResultados ' dt = ObjAC.DtResultados
' MES ANTERIOR, MOVIMIENTOS CONTRARIOS (NEGATIVOS) ' ' MES ANTERIOR, MOVIMIENTOS CONTRARIOS (NEGATIVOS)
IdPolizaNueva = ObjAC.AddPoliza(1, String.Format("Cheque Devuelto: {0}", dt.Rows(0)("Concepto").ToString), 0, 0, UsuarioActual.CveUsuario, TxtFechaDevuelto.Text.ToDate) ' IdPolizaNueva = ObjAC.AddPoliza(1, String.Format("Cheque Devuelto: {0}", dt.Rows(0)("Concepto").ToString), 0, 0, UsuarioActual.CveUsuario, TxtFechaDevuelto.Text.ToDate)
If IdPolizaNueva > 0 Then ' If IdPolizaNueva > 0 Then
FolioPolizaNueva = ObjAC.Folio ' FolioPolizaNueva = ObjAC.Folio
'CREA POLIZA NEGATIVA ' 'CREA POLIZA NEGATIVA
For Each dr As DataRow In dt.Rows ' For Each dr As DataRow In dt.Rows
If Not ObjAC.AddMovimiento(IdPolizaNueva, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "True", dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, String.Format("Cancelacion: {0}", dt.Rows(0)("Concepto").ToString), dr("IdSegNeg").ToString.ToEntero, TxtFechaDevuelto.Text.ToDate, "") Then ' If Not ObjAC.AddMovimiento(IdPolizaNueva, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "True", dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, String.Format("Cancelacion: {0}", dt.Rows(0)("Concepto").ToString), dr("IdSegNeg").ToString.ToEntero, TxtFechaDevuelto.Text.ToDate, "") Then
ErrorCancelar = True : Exit For ' ErrorCancelar = True : Exit For
End If ' End If
Next ' Next
'AJUSTA POLIZA ' 'AJUSTA POLIZA
If Not ErrorCancelar Then ' If Not ErrorCancelar Then
If Not ObjAC.AjustaPoliza(IdPolizaNueva) Then ' If Not ObjAC.AjustaPoliza(IdPolizaNueva) Then
ErrorCancelar = True ' ErrorCancelar = True
End If ' End If
End If ' End If
'genera nuevo IE contrario ' 'genera nuevo IE contrario
If Not ErrorCancelar Then ' If Not ErrorCancelar Then
If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then ' If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then
ErrorCancelar = True ' ErrorCancelar = True
End If ' End If
End If ' End If
Else ' Else
ErrorCancelar = True ' ErrorCancelar = True
End If ' End If
End If ' End If
End If ' End If
Else ' Else
'siempre se hace una cancelación ' 'siempre se hace una cancelación
If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then ' If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then
ErrorCancelar = True ' ErrorCancelar = True
End If ' End If
If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then ' If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then ' If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
IDPoliza = ObjConta.ContaIdPoliza ' IDPoliza = ObjConta.ContaIdPoliza
Else ' Else
ErrorCancelar = True ' ErrorCancelar = True
Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia) ' Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
End If ' End If
End If ' End If
End If ' End If
If Not ErrorCancelar Then ' If Not ErrorCancelar Then
If ObjAC IsNot Nothing Then ObjAC.Commit() ' If ObjAC IsNot Nothing Then ObjAC.Commit()
Banc.Commit() ' Banc.Commit()
Dim Msg As New StringBuilder ' Dim Msg As New StringBuilder
Msg.Append("El movimiento bancario quedó devuelto exitosamente.") ' Msg.Append("El movimiento bancario quedó devuelto exitosamente.")
If IdPolizaNueva > 0 Then Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza de cancelación</a>", IdPolizaNueva) ' If IdPolizaNueva > 0 Then Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza de cancelación</a>", IdPolizaNueva)
Alert(Msg.ToString, TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""") ' Alert(Msg.ToString, TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""")
Else ' Else
If ObjAC IsNot Nothing Then ObjAC.RollBack() ' If ObjAC IsNot Nothing Then ObjAC.RollBack()
Banc.RollBack() ' Banc.RollBack()
Alert("El movimiento bancario no se pudo registrar. Por favor vuelva a intentar.", TipoMensaje.MsgError) ' Alert("El movimiento bancario no se pudo registrar. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If ' End If
If ObjAC IsNot Nothing Then ObjAC.Dispose() ' If ObjAC IsNot Nothing Then ObjAC.Dispose()
Banc.Dispose() ' Banc.Dispose()
End Sub 'End Sub
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) Handles LnkEliminar.Click Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) Handles LnkEliminar.Click
If CveIECancelado > 0 Then If CveIECancelado > 0 Then
@@ -5999,7 +5995,13 @@ Partial Class Bancos_IE
Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError) Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError)
Exit Sub Exit Sub
End If End If
RegistraScript("ShowDivDevueltoIE();") ChkGeneraCancelacion.Checked = True
ChkGeneraCancelacion.Visible = False
ActivaDevolucion()
DdlTipoTransaccionCancelacion.SelectedValue = "16"
DdlTipoTransaccionCancelacion.Enabled = False
BtnCancelarIE.Text = "Devuelto"
RegistraScript("ShowDivCancelarIE();")
End Sub End Sub
Protected Sub LnkCancelar_Click(sender As Object, e As EventArgs) Protected Sub LnkCancelar_Click(sender As Object, e As EventArgs)
@@ -6712,6 +6714,11 @@ Partial Class Bancos_IE
Protected Sub ChkGeneraCancelacion_CheckedChanged(sender As Object, e As EventArgs) Protected Sub ChkGeneraCancelacion_CheckedChanged(sender As Object, e As EventArgs)
ActivaDevolucion()
End Sub
Private Sub ActivaDevolucion()
Dim dttemp As DataTable Dim dttemp As DataTable
Dim TipoMovto As String Dim TipoMovto As String
dttemp = GlobalDTTipoTransacciones.FiltraParametros($"CveTipoTransaccion ={DdlTipoTransaccion.SelectedValue}") dttemp = GlobalDTTipoTransacciones.FiltraParametros($"CveTipoTransaccion ={DdlTipoTransaccion.SelectedValue}")
@@ -6743,7 +6750,6 @@ Partial Class Bancos_IE
End If End If
UpEliminarCotizacion.Update() UpEliminarCotizacion.Update()
End Sub End Sub
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString