-- unificación de cheques devueltos
This commit is contained in:
@@ -1255,7 +1255,7 @@
|
||||
<div class="row">
|
||||
<div class="col-md-12" id="DVTipoTransacciónCancelar" runat="server" visible="false">
|
||||
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: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>
|
||||
@@ -1266,7 +1266,7 @@
|
||||
<div class="row">
|
||||
<div class="col-md-12" id="DVTipoTransacciónCancelar2" runat="server" visible="false">
|
||||
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:DropDownList>
|
||||
|
||||
@@ -1319,7 +1319,7 @@
|
||||
</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;">
|
||||
<asp:UpdatePanel ID="UpdatePanel1" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
@@ -1362,7 +1362,7 @@
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</div>--%>
|
||||
|
||||
<div id="divDescripcion" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
|
||||
@@ -655,7 +655,7 @@ Partial Class Bancos_IE
|
||||
CvePrePoliza = -1
|
||||
CveSolicitudViatico = -1
|
||||
ComplementoSerieFolio = ""
|
||||
TxtFechaDevuelto.Text = Now.ToShortDateString
|
||||
'TxtFechaDevuelto.Text = Now.ToShortDateString
|
||||
TxtFechaCancelacion.Text = Now.ToShortDateString
|
||||
CveCompraDeCDin = -1
|
||||
'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.")
|
||||
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)
|
||||
Alert(Msg.ToString, TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""")
|
||||
|
||||
Else
|
||||
|
||||
If ObjAC IsNot Nothing Then ObjAC.RollBack()
|
||||
Banc.RollBack()
|
||||
Alert("El movimiento bancario no se pudo cancelar. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
GuardaLog(MensajeError + " | CANCELAR IE")
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
If ObjAC IsNot Nothing Then ObjAC.RollBack()
|
||||
Banc.RollBack()
|
||||
@@ -4593,125 +4589,125 @@ Partial Class Bancos_IE
|
||||
ObjConta.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnDevueltoIE_Click(sender As Object, e As EventArgs)
|
||||
RegistraScript("$('#DivChqDevueltoIE').modal('hide');")
|
||||
'Protected Sub BtnDevueltoIE_Click(sender As Object, e As EventArgs)
|
||||
' RegistraScript("$('#DivChqDevueltoIE').modal('hide');")
|
||||
|
||||
ChequeDevuelto()
|
||||
' ChequeDevuelto()
|
||||
|
||||
|
||||
End Sub
|
||||
'End Sub
|
||||
|
||||
Private Sub ChequeDevuelto()
|
||||
If Not IsDate(TxtFechaDevuelto.Text.ToDate) Then
|
||||
Alert("El campo fecha cancelación es incorrecto. Por favor verifique y vuelva a intentar")
|
||||
Exit Sub
|
||||
End If
|
||||
'Private Sub ChequeDevuelto()
|
||||
' If Not IsDate(TxtFechaDevuelto.Text.ToDate) Then
|
||||
' Alert("El campo fecha cancelación es incorrecto. Por favor verifique y vuelva a intentar")
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
If ChkConciliado.Checked Then
|
||||
Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError)
|
||||
Exit Sub
|
||||
End If
|
||||
' If ChkConciliado.Checked Then
|
||||
' Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError)
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
Dim Banc As New ClsBancos
|
||||
Banc.IniciaTransacSQL()
|
||||
Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL)
|
||||
' Dim Banc As New ClsBancos
|
||||
' Banc.IniciaTransacSQL()
|
||||
' Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL)
|
||||
|
||||
Dim ObjAC As ClsContPAQi = Nothing
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") Then
|
||||
ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
|
||||
ObjAC.IniciaTransacSQL()
|
||||
End If
|
||||
' Dim ObjAC As ClsContPAQi = Nothing
|
||||
' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") Then
|
||||
' ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
|
||||
' ObjAC.IniciaTransacSQL()
|
||||
' End If
|
||||
|
||||
|
||||
Dim ErrorCancelar = False
|
||||
Dim IdPolizaNueva = -1
|
||||
Dim FolioPolizaNueva = -1
|
||||
' Dim ErrorCancelar = False
|
||||
' Dim IdPolizaNueva = -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
|
||||
ErrorCancelar = True
|
||||
End If
|
||||
' If ObjAC Is Nothing Then
|
||||
' ErrorCancelar = True
|
||||
' End If
|
||||
|
||||
If Not ErrorCancelar Then
|
||||
Dim dt As DataTable
|
||||
If ObjAC.GetPoliza(IDPoliza, -1, -1, -1, -1) AndAlso ObjAC.DtResultados.Rows.Count > 0 Then
|
||||
dt = ObjAC.DtResultados
|
||||
' If Not ErrorCancelar Then
|
||||
' Dim dt As DataTable
|
||||
' If ObjAC.GetPoliza(IDPoliza, -1, -1, -1, -1) AndAlso ObjAC.DtResultados.Rows.Count > 0 Then
|
||||
' 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
|
||||
FolioPolizaNueva = ObjAC.Folio
|
||||
' If IdPolizaNueva > 0 Then
|
||||
' FolioPolizaNueva = ObjAC.Folio
|
||||
|
||||
'CREA POLIZA NEGATIVA
|
||||
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
|
||||
ErrorCancelar = True : Exit For
|
||||
End If
|
||||
Next
|
||||
' 'CREA POLIZA NEGATIVA
|
||||
' 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
|
||||
' ErrorCancelar = True : Exit For
|
||||
' End If
|
||||
' Next
|
||||
|
||||
'AJUSTA POLIZA
|
||||
If Not ErrorCancelar Then
|
||||
If Not ObjAC.AjustaPoliza(IdPolizaNueva) Then
|
||||
ErrorCancelar = True
|
||||
End If
|
||||
End If
|
||||
' 'AJUSTA POLIZA
|
||||
' If Not ErrorCancelar Then
|
||||
' If Not ObjAC.AjustaPoliza(IdPolizaNueva) Then
|
||||
' ErrorCancelar = True
|
||||
' End If
|
||||
' End If
|
||||
|
||||
'genera nuevo IE contrario
|
||||
If Not ErrorCancelar Then
|
||||
If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then
|
||||
ErrorCancelar = True
|
||||
End If
|
||||
End If
|
||||
' 'genera nuevo IE contrario
|
||||
' If Not ErrorCancelar Then
|
||||
' If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then
|
||||
' ErrorCancelar = True
|
||||
' End If
|
||||
' End If
|
||||
|
||||
Else
|
||||
ErrorCancelar = True
|
||||
End If
|
||||
' Else
|
||||
' ErrorCancelar = True
|
||||
' End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
' End If
|
||||
' End If
|
||||
|
||||
Else
|
||||
' Else
|
||||
|
||||
'siempre se hace una cancelación
|
||||
If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then
|
||||
ErrorCancelar = True
|
||||
End If
|
||||
' 'siempre se hace una cancelación
|
||||
' If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then
|
||||
' ErrorCancelar = True
|
||||
' End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
|
||||
If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
|
||||
' If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
|
||||
' If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
|
||||
|
||||
IDPoliza = ObjConta.ContaIdPoliza
|
||||
Else
|
||||
ErrorCancelar = True
|
||||
Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
' IDPoliza = ObjConta.ContaIdPoliza
|
||||
' Else
|
||||
' ErrorCancelar = True
|
||||
' Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
|
||||
' End If
|
||||
' End If
|
||||
|
||||
End If
|
||||
' End If
|
||||
|
||||
|
||||
If Not ErrorCancelar Then
|
||||
If ObjAC IsNot Nothing Then ObjAC.Commit()
|
||||
Banc.Commit()
|
||||
Dim Msg As New StringBuilder
|
||||
Msg.Append("El movimiento bancario quedó devuelto exitosamente.")
|
||||
' If Not ErrorCancelar Then
|
||||
' If ObjAC IsNot Nothing Then ObjAC.Commit()
|
||||
' Banc.Commit()
|
||||
' Dim Msg As New StringBuilder
|
||||
' 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)
|
||||
Alert(Msg.ToString, TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""")
|
||||
Else
|
||||
If ObjAC IsNot Nothing Then ObjAC.RollBack()
|
||||
Banc.RollBack()
|
||||
Alert("El movimiento bancario no se pudo registrar. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
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)
|
||||
' Alert(Msg.ToString, TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""")
|
||||
' Else
|
||||
' If ObjAC IsNot Nothing Then ObjAC.RollBack()
|
||||
' Banc.RollBack()
|
||||
' Alert("El movimiento bancario no se pudo registrar. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
' End If
|
||||
|
||||
If ObjAC IsNot Nothing Then ObjAC.Dispose()
|
||||
Banc.Dispose()
|
||||
' If ObjAC IsNot Nothing Then ObjAC.Dispose()
|
||||
' Banc.Dispose()
|
||||
|
||||
End Sub
|
||||
'End Sub
|
||||
|
||||
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) Handles LnkEliminar.Click
|
||||
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)
|
||||
Exit Sub
|
||||
End If
|
||||
RegistraScript("ShowDivDevueltoIE();")
|
||||
ChkGeneraCancelacion.Checked = True
|
||||
ChkGeneraCancelacion.Visible = False
|
||||
ActivaDevolucion()
|
||||
DdlTipoTransaccionCancelacion.SelectedValue = "16"
|
||||
DdlTipoTransaccionCancelacion.Enabled = False
|
||||
BtnCancelarIE.Text = "Devuelto"
|
||||
RegistraScript("ShowDivCancelarIE();")
|
||||
End Sub
|
||||
|
||||
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)
|
||||
|
||||
ActivaDevolucion()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ActivaDevolucion()
|
||||
Dim dttemp As DataTable
|
||||
Dim TipoMovto As String
|
||||
dttemp = GlobalDTTipoTransacciones.FiltraParametros($"CveTipoTransaccion ={DdlTipoTransaccion.SelectedValue}")
|
||||
@@ -6743,7 +6750,6 @@ Partial Class Bancos_IE
|
||||
End If
|
||||
|
||||
UpEliminarCotizacion.Update()
|
||||
|
||||
End Sub
|
||||
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
|
||||
RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
|
||||
|
||||
Reference in New Issue
Block a user