From b232a29c8fbf540d962552f284e51cc70360534c Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 12 Mar 2024 18:14:43 -0700
Subject: [PATCH] --aplicacion de RNC como devolucion de remisiones

---
 Ventas/Ventas.aspx    |  74 ++++++++++-
 Ventas/Ventas.aspx.vb | 278 ++++++++++++++++++++++++++++++++++++------
 2 files changed, 312 insertions(+), 40 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 72bdb40e7..7b66733c6 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -252,7 +252,7 @@
                 <asp:LinkButton ID="LBNotaCredito" runat="server" OnClick="LBNotaCredito_Click" CausesValidation="False" Text="<i class='fa fa-pencil'></i> Aplicar Nota de Crédito" Visible="false" />
             </li>
             <li>
-                <asp:LinkButton ID="LnkAplicarRNCDevolucion" runat="server" Visible="false" CausesValidation="False" Text="<i class='fa fa-pencil'></i> Aplicar RNC por devolución"
+                <asp:LinkButton ID="LnkAplicarRNCDevolucion" runat="server" Visible="false" CausesValidation="False" Text="<i class='fa fa-pencil'></i> Aplicar Devolución con RNC "
                     OnClick="LnkAplicarRNCDevolucion_Click" />
             </li>
             <li>
@@ -7567,6 +7567,78 @@
         </asp:UpdatePanel>
     </div>
 
+    <%-- MODAL APLICAR DEVOLUCIONES --%>
+    <div class="modal ADS fade" id="DivAplicaRNCDevolucion" role="dialog">
+        <asp:UpdatePanel ID="UpAplicaRNCDevolucion" class="modal-dialog modal-lg rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header" style="background-color: #3598dc; color: white; font-weight: bold">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">Aplicar Devolución</h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row" style="margin-bottom: 10px;">
+                            <div class="text-right col-md-offset-8 col-md-4">
+                                <input type="text" id="TxtBusquedaRNCDevolucion" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaRNCDevolucion','{0}')", GvAplicaRNCDevolucion.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaRNCDevolucion','{0}')", GvAplicaRNCDevolucion.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                            </div>
+                        </div>
+                        <div class="row">
+                            <div class="col-md-12">
+                                <div style="max-height: 300px; overflow-y: auto;">
+                                    <asp:GridView ID="GvAplicaRNCDevolucion" runat="server" OnRowDataBound="GvAplicaRNCDevolucion_RowDataBound" AutoGenerateColumns="false" GridLines="None" CssClass="table table-grid table-striped table-advance table-hover Widthall"
+                                        DataKeyNames="CveVentaDetalle, PU, Total, Cantidad,Descuento,CvePS,PS,Codigo,CodigoPS,CveTipoPS,CveTipoInvPS,CveUM,UM,CveClasificacion,
+                                            Clasificacion,CveProyecto,Proyecto,CveSubProyecto,SubProyecto,Obs,PorcentajeIVA,ImporteIVA,PorcentajeRetIVA,ImporteRetIVA,PorcentajeRetISR,
+                                            ImporteRetISR,PorcentajeIEPS,ImporteIEPS,SATClaveProdServ,SATClaveUM,CantSur,CantRes,CveTamaño,CodigoObjetoImpuesto"
+                                        AllowPaging="False">
+                                        <Columns>
+                                            <asp:TemplateField>
+                                                <ItemTemplate>
+                                                    <asp:CheckBox ID="Chk" runat="server" />
+                                                </ItemTemplate>
+                                                <ItemStyle Width="8px" HorizontalAlign="Center" />
+                                                <ControlStyle Width="8px" />
+                                            </asp:TemplateField>
+                                            <asp:BoundField HeaderText="Cant. Original" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                            <asp:BoundField HeaderText="Cant. Devuelta" DataField="CantSur" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                            <asp:BoundField HeaderText="Cant. Restante" DataField="CantRes" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                            <asp:TemplateField HeaderText="Cantidad">
+                                                <ItemTemplate>
+                                                    <asp:TextBox ID="TxtCantidadAplicaDevolucion" runat="server" Text='<%#Eval("CantRes").ToString%>' MaxLength="12" Width="46px" Height="24px"></asp:TextBox>
+                                                    <ajax:FilteredTextBoxExtender ID="SoloNumeros1" runat="server" TargetControlID="TxtCantidadAplicaDevolucion" FilterType="Custom, Numbers" ValidChars=".," />
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" />
+                                            <asp:BoundField HeaderText="Observacion" DataField="Obs" ItemStyle-HorizontalAlign="Left" />
+                                            <asp:TemplateField HeaderText="Proyecto/SubProyecto">
+                                                <ItemTemplate>
+                                                    <asp:Label Style="border-bottom: 1px solid gray;" ID="LblProyecto" runat="server" Text='<%# Eval("Proyecto", "{0}<br />") %>'></asp:Label>
+                                                    <asp:Label ID="LblSubProyecto" runat="server" Text='<%# Eval("SubProyecto") %>' Width="90px"></asp:Label>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:BoundField HeaderText="PU" DataField="PU" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                           <%-- <asp:TemplateField HeaderText="PU Editado" Visible="false">
+                                                <ItemTemplate>
+                                                    <asp:TextBox ID="TxtPrecioEditado" runat="server" Text='<%#Eval("PU").ToString%>' MaxLength="12" Width="50%" Height="24px" CssClass="ImporteDevolucion"></asp:TextBox>
+                                                    <ajax:FilteredTextBoxExtender ID="SoloNumeros1Editado" runat="server" TargetControlID="TxtPrecioEditado" FilterType="Custom, Numbers" ValidChars=".," />
+                                                </ItemTemplate>
+                                            </asp:TemplateField>--%>
+                                            <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                        </Columns>
+                                    </asp:GridView>
+                                </div>
+                            </div>
+                        </div>
+                    </div>
+                    <div class="modal-footer" style="text-align: center">
+                        <asp:Button ID="BtnAplicarRNCDevolucion" runat="server" CssClass="btn btn-primary" Text="Aplicar" OnClick="BtnAplicaRNCDevolucion_Click" ValidationGroup="GrpAplicaDevolucionRNC" />
+                        <button type="button" class="btn default" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+
     <%--APLICAR REMISIONES DE NC DE DEVOLUCION--%>
     <div id="ModalAplicaRNCDevolucion" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel ID="UpRNCDevolucion" class="modal-dialog rowpadding modal-lg" tabindex="-1" runat="server" UpdateMode="Conditional">
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1eb4471a4..121ef73c9 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3548,10 +3548,6 @@ Partial Class Ventas
                 End If
                 UpPS.Update()
 
-                If DdlTipoComprobante.Items.FindByValue("RNC") Is Nothing Then
-                    DdlTipoComprobante.Items.Add(New ListItem("Remisión de nota de crédito", "RNC"))
-                End If
-
             End If
 
         End If
@@ -5112,11 +5108,23 @@ Partial Class Ventas
                         End If
                         DiasCredito = DbRowVenta("DiasCredito").ToString().ToEntero()
                         EsDiasCreditoFijo = CBool(DbRowVenta("EsDiasCreditoFijo").ToString())
+                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                            Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto")))
+                            If TienePermiso <> "" Then ' si tiene acceso en el subproyecto 
+                                'LkNotaCredito.Visible = UsuarioActual.TienePermisoProceso(175)
+                                If UsuarioActual.TienePermisoProceso(264) Then
+                                    InicializaAplicaRNCDevolucion(TmpDT)
+                                End If
+                            End If
+                        End If
                     Case "RNC"
                         Trsaldo.Visible = True
                         HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
                         HplPagado.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
-
+                        If DdlTipoComprobante.Items.FindByValue("RNC") Is Nothing Then
+                            DdlTipoComprobante.Items.Add(New ListItem("Remisión de nota de crédito", "RNC"))
+                        End If
+                        DdlTipoComprobante.SelectedValueExist("RNC")
                     Case "OP"
                         TdOrdenPago.Visible = True
                         DdlOrdenPago.SelectedValue = DbRowVenta("Num3").ToString()
@@ -14904,6 +14912,42 @@ Partial Class Ventas
 
                                 Next
 
+                                If ObjFactura.AplicaDevolucion AndAlso ObjFactura.TipoDocto = "RNC" AndAlso CveVentaDevolucion > 0 Then
+                                    Dim importeMovimientoDev As Decimal = TxtTotal.Text.ToDecimal
+                                    importeMovimientoDev = If(SaldoVentaDevolucion < importeMovimientoDev, SaldoVentaDevolucion, importeMovimientoDev)
+
+                                    importeMovimiento = importeMovimientoDev * Multiplicador
+                                    importeMX = importeMovimiento * tipoCambio
+
+                                    If importeMovimiento <> 0 Then
+                                        If Not ErrorPrepoliza AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMovimiento * tipoCambio, 150, Referencia, Concepto, CveVenta:=CveVentaDevolucion, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=-1, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveClasificacion:=ObjFactura.DtDetalle.MAX("CveClasificacion").ToEntero(), CveSubProyecto:=ObjFactura.CveSubProyecto, Contabilizable:=Contabilizable) Then
+                                            ErrorPrepoliza = True
+                                        End If
+
+                                        If Not ErrorPrepoliza AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento * -1, importeMX * -1, 277, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveVentaAmortizacion:=-1, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                            ErrorPrepoliza = True
+                                        End If
+
+                                        If Not ErrorPrepoliza AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento * -1, importeMX * -1, 278, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveVentaAmortizacion:=-1, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                            ErrorPrepoliza = True
+                                        End If
+
+                                        If Not ErrorPrepoliza Then
+                                            Dim CveConceptoPagoNC As Integer = 251
+                                            If ObjFactura.CveMoneda > 1 Then
+                                                CveConceptoPagoNC = 301
+                                            End If
+
+                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, importeMX, CveConceptoPagoNC, Referencia, Concepto, CveVenta:=CveVentaDevolucion, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then
+                                                ErrorPrepoliza = True
+                                            Else
+                                                ViewState("SeGuardoPrePoliza") = True
+                                            End If
+                                        End If
+
+                                    End If
+                                End If
+
                                 If UsuarioActual.Empresa.Funcionalidad(344) = "1" AndAlso ObjFactura.TipoDocto = "Egs" Then
                                     Dim ListaNC As List(Of Modelos.Factura) = Nothing
 
@@ -27471,34 +27515,39 @@ Partial Class Ventas
 
 #Region "  APLICAR NOTA DE CREDITO  "
     Private Sub InicializaAplicarNC()
-        'If Not UsuarioActual.CveUsuario = 100 Then
-        '    If Not UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119) Then
-        '        Exit Sub
-        '    End If
-        'End If
-
-        If CveVenta <= 0 Or Not DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant") Or Not HplSaldoAuxiliar.Text.ToDouble > 0 Then
-            ''If Not HplSaldoAuxiliar.Text.ToDouble > 0 Then LkNotaCredito.Visible = False
-            Exit Sub
-        End If
-
-        'sino tiene el permiso de peude generar NC
-        If Not UsuarioActual.TienePermisoProceso(175) Then
-            Exit Sub
-        End If
-
-        If DeshabilitarAplicarNotaDeCredito(LblRFC.Text) Then
+        'SI NO ES VENTA EXISTENTE NO DEBE ENTRAR ESTE PROCESO
+        If CveVenta <= 0 Then
             Exit Sub
         End If
 
         AplicaNCMasiva = False
         AplicaNC = False
-        LBNotaCredito.Visible = True
 
-        If UsuarioActual.CveUsuario = 100 Then
-            LnkAplicarRNCDevolucion.Visible = True
+        'SOLO APLICA PARA INGRESOS O ANTICIPOS
+        If (Not DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant")) Then
+            ''If Not HplSaldoAuxiliar.Text.ToDouble > 0 Then LkNotaCredito.Visible = False
+            LBNotaCredito.Visible = False
+            Exit Sub
         End If
 
+        'sino tiene el permiso de peude generar NC
+        If Not UsuarioActual.TienePermisoProceso(175) Then
+            LBNotaCredito.Visible = False
+            Exit Sub
+        End If
+
+        If Not HplSaldoAuxiliar.Text.ToDouble > 0 Then
+            LBNotaCredito.Visible = False
+            Exit Sub
+        End If
+
+        If DeshabilitarAplicarNotaDeCredito(LblRFC.Text) Then
+            LBNotaCredito.Visible = False
+            Exit Sub
+        End If
+
+        LBNotaCredito.Visible = True
+
         'LkNotaCredito.Visible = False
 
         TxtNCPorcentaje.Attributes.Add("onkeyup", "CalculaImporteNC();")
@@ -27552,9 +27601,7 @@ Partial Class Ventas
 
         AplicaNCMasiva = True
         LBNotaCredito.Visible = True
-        If UsuarioActual.CveUsuario = 100 Then
-            LnkAplicarRNCDevolucion.Visible = True
-        End If
+
         'LkNotaCredito.Visible = False
         TxtNCPorcentaje.Attributes.Add("onkeyup", "CalculaImporteNCMasivo();")
         TxtNCImporte.Text = "0.00"
@@ -30003,6 +30050,45 @@ Partial Class Ventas
 
         UpDevolucion.Update()
 
+    End Sub
+    Private Sub InicializaAplicaRNCDevolucion(DtDetalle As DataTable)
+
+        'sino tiene el permiso no puede generar Devolucion
+        If Not UsuarioActual.TienePermisoProceso(264) Then
+            Exit Sub
+        End If
+
+        LnkAplicarRNCDevolucion.Visible = True
+
+        Dim SeEsconde As Boolean = False
+
+        If DtDetalle IsNot Nothing AndAlso DtDetalle.Rows.Count > 0 Then
+            If Not DtDetalle.SUM("CantSur").ToString().ToDecimal > 0 Then SeEsconde = True
+            'NO MOSTRAR LOS PRODUCTOS CON LA CLASIFICACION DE USADOS
+            GvAplicaRNCDevolucion.DataSource = DtDetalle.FiltraParametros("CantRes > 0 AND CveClasificacion <> 20519")
+        End If
+
+
+        'activo el permiso para registrar el importe diferente a la devolución
+        'GvAplicaRNCDevolucion.Columns(9).Visible = UsuarioActual.TienePermisoProceso(253)
+
+        'MODALIDAD CENTRO COSTOS
+        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
+            GvAplicaRNCDevolucion.Columns(7).HeaderText = "Sucursal"
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
+            GvAplicaRNCDevolucion.Columns(7).HeaderText = "Proyecto"
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
+            GvAplicaRNCDevolucion.Columns(7).HeaderText = "Sucursal/Proyecto"
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
+            GvAplicaRNCDevolucion.Columns(7).HeaderText = "Proyecto/Sucursal"
+        End If
+
+        If SeEsconde Then GvAplicaRNCDevolucion.Columns(1).Visible = False : GvAplicaRNCDevolucion.Columns(2).Visible = False : GvAplicaRNCDevolucion.Columns(3).Visible = False
+
+        GvAplicaRNCDevolucion.DataBind()
+
+        UpAplicaRNCDevolucion.Update()
+
     End Sub
     Protected Sub BtnCalcularPenalizacion_Click(sender As Object, e As EventArgs)
         Dim PorcentajePenalizacion As Decimal = (TxtPorPenalizacion.Text.ToDecimal() / 100D)
@@ -35019,20 +35105,51 @@ Partial Class Ventas
 
     Protected Sub LnkAplicarRNCDevolucion_Click(sender As Object, e As EventArgs)
 
-        Dim DtNC As DataTable = Nothing
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+            Dim SaldoAlmacen As Decimal = 0
 
-        Dim ObjMovtos As New ClsMovimientos()
-        If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveMoneda:=-1) Then
-            DtNC = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'RNC' AND TipoRNC = 3 AND CveVenta > 0 and Saldo > 0", "Moneda,Fecha,Folio")
+            Dim PermiteCancelar As Boolean = True
+            Using ObjVentas As New ClsVentas
+                If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, VerificaAlmacen:=True) Then
+                    If ObjVentas.DtResultados.Rows.Count > 0 Then
+                        Dim RowVenta As DataRow = ObjVentas.DtResultados.Rows(0)
+                        SaldoAlmacen = RowVenta("SaldoAlmacen").ToString().ToDecimal()
+                    End If
+                End If
+            End Using
+
+            Dim PuedeAplicarDevolucion As Boolean = False
+
+            If SaldoAlmacen > 0 Then
+                If DevolucionAlmacen = 0 Then
+                    PuedeAplicarDevolucion = True
+                ElseIf DevolucionAlmacen.Contiene(1, 2) Then
+                    Alert("No se puede aplicar una devolución sobre el documento actual", TipoMensaje.MsgAdvertencia)
+                End If
+            ElseIf SaldoAlmacen <= 0 Then
+                Alert("No se puede aplicar una devolución sobre el documento actual", TipoMensaje.MsgAdvertencia)
+            End If
+
+            If PuedeAplicarDevolucion Then
+                RegistraScript("$('#DivAplicaRNCDevolucion').modal('show');")
+            End If
+        Else
+            Dim DtNC As DataTable = Nothing
+
+            Dim ObjMovtos As New ClsMovimientos()
+            If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveMoneda:=-1) Then
+                DtNC = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'RNC' AND TipoRNC = 3 AND CveVenta > 0 and Saldo > 0", "Moneda,Fecha,Folio")
+            End If
+            ObjMovtos.Dispose()
+
+            GvRNCDevoluciones.DataSource = DtNC
+            GvRNCDevoluciones.DataBind()
+
+            UpRNCDevolucion.Update()
+
+            RegistraScript("$('#ModalAplicaRNCDevolucion').modal('show');")
         End If
-        ObjMovtos.Dispose()
 
-        GvRNCDevoluciones.DataSource = DtNC
-        GvRNCDevoluciones.DataBind()
-
-        UpRNCDevolucion.Update()
-
-        RegistraScript("$('#ModalAplicaRNCDevolucion').modal('show');")
     End Sub
 
     Protected Sub BtnAplicarRNCDevoluciones_Click(sender As Object, e As EventArgs)
@@ -37512,5 +37629,88 @@ Partial Class Ventas
 
     End Sub
 
+    Protected Sub GvAplicaRNCDevolucion_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.FCTextBox("TxtCantidadAplicaDevolucion").Attributes.Add("onkeyup", $"LimitaCantidadAplicaDev({e.Row.DBCampo("CantRes").ToDecimal}, this);")
+            If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
+                e.Row.FCLabel("LblProyecto").Text = e.Row.FCLabel("LblSubProyecto").Text
+                e.Row.FCLabel("LblProyecto").Style.Clear()
+                e.Row.FCLabel("LblSubProyecto").Text = ""
+                'e.Row.FCCheckBox("ChkAplicar").Attributes.Add("onclick", $"CalculaSaldoRNCChk({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble}, this);")
+            End If
+        End If
+    End Sub
+
+    Protected Sub BtnAplicaRNCDevolucion_Click(sender As Object, e As EventArgs)
+
+        Dim Selecciono As Boolean = False
+        For Each Gv As GridViewRow In GvAplicaRNCDevolucion.Rows
+            If Gv.FCCheckBox("Chk").Checked And Gv.FCTextBox("TxtCantidadAplicaDevolucion").Text.ToDouble > 0 Then
+                Selecciono = True
+                Exit For
+            End If
+        Next
+
+        If Not Selecciono Then
+            Alert("Tiene que seleccionar al menos un concepto y este dege tener una cantidad mayor a 0. Por favor verifique y vuelva a intentar", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If DdlTipoComprobante.Items.FindByValue("RNC") Is Nothing Then
+            DdlTipoComprobante.Items.Add(New ListItem("Remisión de nota de crédito", "RNC"))
+        End If
+
+        DdlTipoComprobante.SelectedValueExist("RNC")
+
+        TmpDT.Clear()
+        For Each Gv As GridViewRow In GvAplicaRNCDevolucion.Rows
+            If Gv.FCCheckBox("Chk").Checked And Gv.FCTextBox("TxtCantidadAplicaDevolucion").Text.ToDecimal > 0 Then
+                Dim Cantidad As Decimal = Gv.FCTextBox("TxtCantidadAplicaDevolucion").Text.ToDecimal
+                Dim Descuento As Decimal = Cantidad * Gv.DataKey("Descuento").ToString().ToDecimal / Gv.DataKey("Cantidad").ToString().ToDecimal
+                Dim PU As Decimal = Gv.DataKey("PU").ToDecimal
+                Dim Total As Decimal = (Cantidad * PU)
+                Dim TotalImpuestos As Decimal = (Cantidad * PU) - Descuento
+                Dim TotalCalculableImpuestosIVA As Decimal = TotalImpuestos * (1 + Gv.DataKey("PorcentajeIEPS").ToString().ToDecimal)
+                Dim ImporteIVA As Decimal = TotalCalculableImpuestosIVA * Gv.DataKey("PorcentajeIVA").ToString().ToDecimal
+                Dim ImporteRetIVA As Decimal = TotalImpuestos * Gv.DataKey("PorcentajeRetIVA").ToString().ToDecimal
+                Dim ImporteRetISR As Decimal = TotalImpuestos * Gv.DataKey("PorcentajeRetISR").ToString().ToDecimal
+                Dim ImporteIEPS As Decimal = TotalImpuestos * Gv.DataKey("PorcentajeIEPS").ToString().ToDecimal
+                Dim CodigoObjetoImpuesto As String = Gv.DataKey("CodigoObjetoImpuesto")
+
+                AgregaTempDT(TmpDT, Gv.DataKey("CvePS").ToString().ToEntero(), Gv.DataKey("PS").ToString(), Gv.DataKey("Codigo").ToString(), Gv.DataKey("CodigoPS").ToString(),
+                            Gv.DataKey("CveTipoPS").ToString().ToEntero(), Gv.DataKey("CveTipoInvPS").ToString().ToEntero(),
+                            Gv.DataKey("CveUM").ToString().ToEntero(), Gv.DataKey("UM").ToString(), Gv.DataKey("CveClasificacion").ToString().ToEntero(),
+                            Gv.DataKey("Clasificacion").ToString(), Gv.DataKey("CveProyecto").ToString().ToEntero(), Gv.DataKey("Proyecto").ToString(),
+                            Gv.DataKey("CveSubProyecto").ToString().ToEntero(), Gv.DataKey("SubProyecto").ToString(),
+                            Gv.DataKey("Obs").ToString(), Cantidad, PU, Gv.DataKey("PorcentajeIVA").ToString().ToDecimal, ImporteIVA,
+                            Gv.DataKey("PorcentajeRetIVA").ToString().ToDecimal, ImporteRetIVA,
+                            Gv.DataKey("PorcentajeRetISR").ToString().ToDecimal, ImporteRetISR, Gv.DataKey("PorcentajeIEPS").ToString().ToDecimal,
+                            ImporteIEPS, -1, Descuento, Total, "", "", -1, -1,
+                            Gv.DataKey("SATClaveProdServ").ToString(), Gv.DataKey("SATClaveUM").ToString(), -1, Gv.DataKey("CveVentaDetalle").ToString().ToEntero(), -1, -1, -1, -1, Gv.DataKey("CveTamaño").ToEntero(), CodigoObjetoImpuesto:=CodigoObjetoImpuesto)
+            End If
+        Next
+
+        BtnsFacturar.Visible = False
+        BtnEditarRemision.Visible = False
+
+        LimpiaDocumentoDEV()
+        CambiaTipoDocto()
+
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+            If TxtAtencionA.Text.Trim.Length = 0 Then
+                TxtAtencionA.Enabled = True
+            End If
+        End If
+
+        CalculaTotalesVenta()
+
+        UpParametros.Update()
+
+        AplicaDevolucion = True
+        CveVentaDevolucion = Me.CveVenta
+        SaldoVentaDevolucion = HplSaldoAuxiliar.Text.ToDecimal
+
+        RegistraScript("$('#DivAplicaRNCDevolucion').modal('hide')")
+    End Sub
 End Class