From 8c84011c0177ebd8b2faba5fef998042921e9cf8 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 7 Mar 2024 19:17:43 -0700
Subject: [PATCH] --Activar las RNC, para devoluciones sobre Remisiones. y que
 quede pendiente para aplicarse en las futuras "remisiones/facturas".
 --Agregar columna "Atencion A" en gridview de amortizaciones --Obligar a
 llenar el texto Atencion A con la funconalidad 109 en todos los tipos de
 documento

---
 Ventas/Clientes.aspx    |  1 +
 Ventas/Clientes.aspx.vb | 14 +++++---
 Ventas/Ventas.aspx      | 72 +++++++++++++++++++++-------------------
 Ventas/Ventas.aspx.vb   | 73 ++++++++++++++++++++++++++++++-----------
 4 files changed, 103 insertions(+), 57 deletions(-)

diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 347109d9d..615d5941e 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -1461,6 +1461,7 @@
                                                     <asp:ListItem Value="Rem" Class="one"><label><b>Remisión</b></label></asp:ListItem>
                                                     <asp:ListItem Value="Ped" Class="one"><label><b>Pedido</b></label></asp:ListItem>
                                                     <asp:ListItem Value="DPe" Class="one"><label><b>Devolución de Pedido</b></label></asp:ListItem>
+                                                    <asp:ListItem Value="RNC" Class="one"><label><b>Remisión de NC</b></label></asp:ListItem>
                                                 </asp:RadioButtonList>
                                             </div>
                                         </div>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 34288b8e0..48457315e 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -922,12 +922,18 @@ Partial Class Clientes
                 LnkAgregarLineaAdicional.Visible = True
                 GetLineasAdicionales()
             End If
+
+            If UsuarioActual.Empresa.Funcionalidad(109) <> "1" Then
+                If RblTipo.Items.FindByValue("RNC") IsNot Nothing Then
+                    RblTipo.Items.Remove(RblTipo.Items.FindByValue("RNC"))
+                End If
+            End If
+
+            ChkPermiso4.Enabled = False
+            ChkPermiso5.Enabled = False
+            ChkPermiso6.Enabled = False
         End If
 
-        'EN SERIO SE OCUPA EN CADA POSTBACK ??? IPP 7 SEPTIEMNRE 2017
-        ChkPermiso4.Enabled = False
-        ChkPermiso5.Enabled = False
-        ChkPermiso6.Enabled = False
 
     End Sub
 
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 5a677a9e8..6205dd638 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -4572,6 +4572,12 @@
                                             <asp:Literal ID="LtlAbreviatura" runat="server" Text='<%# Eval("Abreviatura") %>'></asp:Literal>
                                         </ItemTemplate>
                                     </asp:TemplateField>
+                                    <asp:TemplateField Visible="false">
+                                        <HeaderTemplate>Atención A</HeaderTemplate>
+                                        <ItemTemplate>
+                                            <asp:Literal runat="server" Text='<%# Eval("AtencionA") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
                                     <asp:TemplateField>
                                         <HeaderTemplate>Amort. Ant.</HeaderTemplate>
                                         <ItemTemplate>
@@ -8685,41 +8691,41 @@
         </asp:UpdatePanel>
     </div>
 
-     <asp:Button ID="BtnShowBloqueoAcceso" runat="server" Text="Show Modal Popup" Style="visibility: hidden; display: none;" />
-        <asp:Button ID="BtnCloseBloqueoAcceso" runat="server" CssClass="btn btn-danger" Style="visibility: hidden; display: none;" Text="Cancelar" />
+    <asp:Button ID="BtnShowBloqueoAcceso" runat="server" Text="Show Modal Popup" Style="visibility: hidden; display: none;" />
+    <asp:Button ID="BtnCloseBloqueoAcceso" runat="server" CssClass="btn btn-danger" Style="visibility: hidden; display: none;" Text="Cancelar" />
 
-        <!-- ModalPopupExtender -->
-        <cc1:ModalPopupExtender ID="mpeBloque" runat="server" PopupControlID="PanelBloqueoAcceso" TargetControlID="BtnShowBloqueoAcceso"
-            BackgroundCssClass="modalBackground">
-        </cc1:ModalPopupExtender>
+    <!-- ModalPopupExtender -->
+    <cc1:ModalPopupExtender ID="mpeBloque" runat="server" PopupControlID="PanelBloqueoAcceso" TargetControlID="BtnShowBloqueoAcceso"
+        BackgroundCssClass="modalBackground">
+    </cc1:ModalPopupExtender>
 
-        <asp:Panel ID="PanelBloqueoAcceso" runat="server" CssClass="modalPopup" align="center" Style="display: none">
-            <table border="0" width="250px" cellspacing="1" style="background-color: White; padding-left: 10px;">
-                <tr style="background-color: #3598dc; color: #FFFFFF; font-size: 14px; text-align: center">
-                    <td colspan="2">
-                        <asp:Label runat="server" Text="<i class='fa fa-lock fa-2 icontxt'></i>&nbsp;Acceso Restringido" /></td>
-                </tr>
-                <tr>
-                    <td colspan="1">&nbsp;</td>
-                    <td colspan="1">&nbsp;</td>
-                </tr>
-                <tr>
-                    <td colspan="1">
-                        <asp:Label runat="server" Text="Código de Acceso:" Font-Bold="true" Width="120px" />
-                    </td>
-                    <td colspan="1" style="text-align: center">
-                        <asp:TextBox ID="TxtCodigoAcceso" runat="server" type="password"></asp:TextBox>
-                        <asp:RequiredFieldValidator ID="RFVCodigoAcceso" runat="server" ControlToValidate="TxtCodigoAcceso" Display="None" ErrorMessage="<span class='has-error'><span id='username-error' class='help-block'>El campo <b>''Código de Acceso''</b> es necesario.</span></span>" ValidationGroup="GrpValidarCodigo"></asp:RequiredFieldValidator>
-                    </td>
-                </tr>
-                <tr>
-                    <td colspan="2"><span class='has-error'><span id='username-error' class='help-block'>
-                        <asp:Literal ID="LtlMensajeBloqueo" runat="server" Text=""></asp:Literal></span></span></td>
-                </tr>
-            </table>
-            <asp:Button ID="BtnCambiar" runat="server" CssClass="btn btn-success btn-sm" Text="Desbloquear" ValidationGroup="GrpValidarCodigo" OnClick="BtnCambiar_Click" />
-            &nbsp;
-        </asp:Panel>
+    <asp:Panel ID="PanelBloqueoAcceso" runat="server" CssClass="modalPopup" align="center" Style="display: none">
+        <table border="0" width="250px" cellspacing="1" style="background-color: White; padding-left: 10px;">
+            <tr style="background-color: #3598dc; color: #FFFFFF; font-size: 14px; text-align: center">
+                <td colspan="2">
+                    <asp:Label runat="server" Text="<i class='fa fa-lock fa-2 icontxt'></i>&nbsp;Acceso Restringido" /></td>
+            </tr>
+            <tr>
+                <td colspan="1">&nbsp;</td>
+                <td colspan="1">&nbsp;</td>
+            </tr>
+            <tr>
+                <td colspan="1">
+                    <asp:Label runat="server" Text="Código de Acceso:" Font-Bold="true" Width="120px" />
+                </td>
+                <td colspan="1" style="text-align: center">
+                    <asp:TextBox ID="TxtCodigoAcceso" runat="server" type="password"></asp:TextBox>
+                    <asp:RequiredFieldValidator ID="RFVCodigoAcceso" runat="server" ControlToValidate="TxtCodigoAcceso" Display="None" ErrorMessage="<span class='has-error'><span id='username-error' class='help-block'>El campo <b>''Código de Acceso''</b> es necesario.</span></span>" ValidationGroup="GrpValidarCodigo"></asp:RequiredFieldValidator>
+                </td>
+            </tr>
+            <tr>
+                <td colspan="2"><span class='has-error'><span id='username-error' class='help-block'>
+                    <asp:Literal ID="LtlMensajeBloqueo" runat="server" Text=""></asp:Literal></span></span></td>
+            </tr>
+        </table>
+        <asp:Button ID="BtnCambiar" runat="server" CssClass="btn btn-success btn-sm" Text="Desbloquear" ValidationGroup="GrpValidarCodigo" OnClick="BtnCambiar_Click" />
+        &nbsp;
+    </asp:Panel>
 
 
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 49ca77f5e..1a5fe4e83 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3547,6 +3547,10 @@ 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
@@ -5089,6 +5093,10 @@ Partial Class Ventas
 
                         HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto"))))
                     Case "Egs"
+                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                            TxtAtencionA.Text = DbRowVenta("AtencionA").ToString()
+                        End If
+
                         HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto"))))
                         HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString()
                         Trsaldo.Visible = True
@@ -5120,6 +5128,9 @@ Partial Class Ventas
                         DiasCredito = DbRowVenta("DiasCredito").ToString().ToEntero()
                         EsDiasCreditoFijo = CBool(DbRowVenta("EsDiasCreditoFijo").ToString())
                     Case "RNC"
+                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                            TxtAtencionA.Text = DbRowVenta("AtencionA").ToString()
+                        End If
                         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"))
@@ -9248,6 +9259,11 @@ Partial Class Ventas
             End If
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso TxtAtencionA.Text.Trim.Length = 0 Then
+            Alert("El campo 'Atención A' es requerido. Favor de llenarlo", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         If Not ValidaImportePublicoGeneral() Then
             Exit Sub
         End If
@@ -14873,6 +14889,33 @@ Partial Class Ventas
 
                                     End If
 
+                                    'SI ES PAGO CON DEVOLUCION
+                                    If DdlTipoAmortizacionAnticipo.SelectedValue = "4" Then
+                                        If row2.DataKey("CveConceptoContable").ToString().ToEntero() = 277 Then
+
+                                            If row2.FCCheckBox("Chk" & row2.RowIndex).Checked Then
+                                                importeMovimiento = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal() * Multiplicador
+                                                importeMX = importeMovimiento * tipoCambio
+                                                sumaAmorticaciones += importeMovimiento
+
+                                                If importeMovimiento <> 0 Then
+                                                    If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMovimiento * tipoCambio, 150, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, 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 ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento * -1, importeMX * -1, 277, Referencia, Concepto, CveVenta:=row2.DataKey("CveVenta").ToString().ToEntero(), CveVentaAmortizacion:=-1, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                                        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento * -1, importeMX * -1, 278, Referencia, Concepto, CveVenta:=row2.DataKey("CveVenta").ToString().ToEntero(), CveVentaAmortizacion:=-1, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                                            ErrorPrepoliza = True
+                                                        End If
+                                                    Else
+                                                        ErrorPrepoliza = True
+                                                    End If
+                                                End If
+                                            End If
+
+                                        End If
+                                    End If
+
                                 Next
 
                                 If UsuarioActual.Empresa.Funcionalidad(344) = "1" AndAlso ObjFactura.TipoDocto = "Egs" Then
@@ -16205,7 +16248,11 @@ Partial Class Ventas
             End If
 
             GVAnticipos.Columns(4).Visible = False
-            GVAnticipos.Columns(7).Visible = False
+            GVAnticipos.Columns(8).Visible = False
+
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                GVAnticipos.Columns(6).Visible = True
+            End If
 
             GVAnticipos.DataBind()
         End If
@@ -16343,7 +16390,7 @@ Partial Class Ventas
             'SI UN REGISTRO ES DE DIFERENTE MONEDA AL DOCUMENTO SE MUESTRAN LAS COLUMNAS
             If e.Row.DBCampo("CveMoneda").ToString().ToEntero() > 0 And e.Row.DBCampo("CveMoneda").ToString().ToEntero() <> DdlMoneda.SelectedValue.ToEntero() Then
                 GVAnticipos.Columns(4).Visible = True
-                GVAnticipos.Columns(7).Visible = True
+                GVAnticipos.Columns(8).Visible = True
             End If
 
 
@@ -16744,7 +16791,7 @@ Partial Class Ventas
                 If DdlTipoAmortizacionAnticipo.SelectedValue = "4" Then
 
                     For Each gvr As GridViewRow In GVAnticipos.Rows
-                        If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(12) Then
+                        If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(12, 277) Then
                             Amortizacion += gvr.FCTextBox(String.Format("TxtAnticipo{0}", gvr.RowIndex)).Text.ToDecimal ' - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)
                         End If
                     Next
@@ -20184,28 +20231,14 @@ Partial Class Ventas
         'si tiene la funcionalidad que se active independiente del tipo de documento RMF 15-10-2017
         Tr33.Visible = True
 
-        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant") Then
+        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs", "Dev") Then
             BtnEmitirImprimir.Text = "Emitir e Imprimir"
-            'TdReferencia.Style.Add("display", "none")
-        ElseIf DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev") Then
-            BtnEmitirImprimir.Text = "Emitir e Imprimir"
-            'TdReferencia.Style.Remove("display")
-        ElseIf DdlTipoComprobante.SelectedValue = "Rem" Then
+        ElseIf DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped", "PeC", "PA", "RNC", "Com") Then
             BtnEmitirImprimir.Text = "Registrar"
-            'TdReferencia.Style.Add("display", "none")
-        ElseIf DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC", "PA") Then
-            BtnEmitirImprimir.Text = "Registrar"
-            'TdReferencia.Style.Add("display", "none")
         ElseIf DdlTipoComprobante.SelectedValue = "Cot" Then
             BtnEmitirImprimir.Text = "Cotizar"
-            'TdReferencia.Style.Add("display", "none")
-
             'FACTURACION 3.3
             Tr33.Visible = True
-
-        ElseIf DdlTipoComprobante.SelectedValue = "Com" Then
-            BtnEmitirImprimir.Text = "Registrar"
-            'TdReferencia.Style.Add("display", "none")
         ElseIf DdlTipoComprobante.SelectedValue.ToString() = "OP" Then
             BtnEmitirImprimir.Text = "Registrar"
             TdOrdenPago.Visible = True
@@ -30695,7 +30728,7 @@ Partial Class Ventas
 
         If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
             If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "4" Then
-                Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 And SaldoSubtotal > 0  {If(CveVenta < 0, $"AND Tipo = 'NC' ", "")}")
+                Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 And SaldoSubtotal > 0  {If(CveVenta < 0, $"AND Tipo IN('NC','RNC') ", "")}")
                 divAmortizacionTipoRelacion.Visible = False
                 GVAnticipos.DataSource = DtMovtos
                 GVAnticipos.DataBind()