From 536f841d81a0785301dce60b4cdaee5c27eaf86b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 26 Sep 2022 10:34:14 -0700
Subject: [PATCH] =?UTF-8?q?--=20unificaci=C3=B3n=20de=20cheques=20devuelto?=
 =?UTF-8?q?s?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/IE.aspx    |   8 +-
 Bancos/IE.aspx.vb | 196 ++++++++++++++++++++++++----------------------
 2 files changed, 105 insertions(+), 99 deletions(-)

diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index f3f596eb5..14f91a793 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -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">
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 24f10ebf4..7c11763f9 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -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