From 802f450ea00c5c4667438ad9adbb782195f3fddd Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sun, 16 Apr 2023 12:14:31 -0700
Subject: [PATCH] Parametros de cliente regimen fiscal para
 stimulsoft,productos relacionados web service E141, cambios visuales en
 prestamo personal, correciones en ventas, precio de usados en devolucion en
 base al documento original, permiso para regenerar pdf

---
 App_Code/ClsPaginas.vb       |  4 ++++
 Ashx/E141.ashx               |  3 ++-
 Bancos/PrestamoPersonal.aspx | 16 ++++++++--------
 Ventas/Ventas.aspx.vb        | 14 ++++++++++----
 4 files changed, 24 insertions(+), 13 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 83cb1872b..d66ba6161 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -6326,6 +6326,10 @@ Public Class ClsPaginas
             Dim rds4 As New ReportDataSource With {.Name = "DataSet4", .Value = If(Vta.DtDocumentosRelacionados IsNot Nothing, Vta.DtDocumentosRelacionados, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte
             lrds.Add(rds4)
             If UsuarioActual.Empresa.Funcionalidad(707) = "1" OrElse UsarStimulsoft Then
+                If Vta.Cliente.CodigoRegimenFiscal.ToString.Length > 0 Then
+                    params.Add(New ReportParameter("ClienteRegimenFiscal", $"{Vta.Cliente.CodigoRegimenFiscal}-{Vta.Cliente.RegimenFiscal}"))
+                End If
+
                 If Vta.DtDocumentosRelacionados IsNot Nothing AndAlso Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
                     params.Add(New ReportParameter("TieneDocumentosRelacionados", "True"))
                 Else
diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx
index 0bfb003be..7f6bf47cb 100644
--- a/Ashx/E141.ashx
+++ b/Ashx/E141.ashx
@@ -1851,7 +1851,8 @@ Public Class E141 : Implements IHttpHandler
                 New JProperty("short_description", ""),
                 New JProperty("description", ""),
                 New JProperty("currency", 1),
-                New JProperty("promo_price", RowPS("PrecioPromocion"))
+                New JProperty("promo_price", RowPS("PrecioPromocion")),
+                New JProperty("product_related", RowPS("CodigosRelacionados"))
             )
 
             ArrayPS.Add(producto)
diff --git a/Bancos/PrestamoPersonal.aspx b/Bancos/PrestamoPersonal.aspx
index 332b6e4ad..10daa5b36 100644
--- a/Bancos/PrestamoPersonal.aspx
+++ b/Bancos/PrestamoPersonal.aspx
@@ -115,18 +115,18 @@
                                         </div>
                                         <div class="col-md-4" id="DivMovtoPermanente" runat="server" visible="false">
                                             <div class="row">
-                                                <div class="col-md-3">
+                                                <div class="col-md-4 control-label">
                                                     <asp:Label runat="server" Text="Concep. Nom:"></asp:Label>
                                                 </div>
-                                                <div class="col-md-9">
+                                                <div class="col-md-8">
                                                     <asp:DropDownList ID="DdlConcepto" runat="server" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
                                                 </div>
                                             </div>
                                             <div class="row">
-                                                <div class="col-md-3">
+                                                <div class="col-md-4 control-label">
                                                     <asp:Label runat="server" Text="Tipo Desc.:"></asp:Label>
                                                 </div>
-                                                <div class="col-md-9">
+                                                <div class="col-md-8">
                                                     <asp:DropDownList ID="DdlTipoDescto" runat="server" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardarPrestamo">
                                                         <asp:ListItem Value="-1" Text="Seleccione" Enabled="true"></asp:ListItem>
                                                         <%--                                                        <asp:ListItem Value="1" Text="Importe"></asp:ListItem>
@@ -137,18 +137,18 @@
                                                 </div>
                                             </div>
                                             <div class="row" id="DivImportePrestamo" runat="server" visible="false">
-                                                <div class="col-md-3">
+                                                <div class="col-md-4 control-label">
                                                     <asp:Label runat="server" Text="Importe prestamo:"></asp:Label>
                                                 </div>
-                                                <div class="col-md-9">
+                                                <div class="col-md-8">
                                                     <asp:Label runat="server" Text="" ID="LblPrestamo" ClientIDMode="Static"></asp:Label>
                                                 </div>
                                             </div>
                                             <div class="row" id="DivValor" runat="server">
-                                                <div class="col-md-3">
+                                                <div class="col-md-4 control-label">
                                                     <asp:Label runat="server" Text="Valor:"></asp:Label>
                                                 </div>
-                                                <div class="col-md-9">
+                                                <div class="col-md-8">
                                                     <asp:TextBox ID="TxtValor" CssClass="form-control input-sm" runat="server" Style="text-align: right;" onkeyup="FormatoMoneda(this)" AutoComplete="off"></asp:TextBox>
                                                     <ajax:FilteredTextBoxExtender ID="FTVValor" runat="server" TargetControlID="TxtValor" FilterType="Custom, Numbers" ValidChars="+-.," />
                                                     <asp:RequiredFieldValidator ID="RfvMontoLimite" runat="server" Display="None" ControlToValidate="TxtValor" CssClass="help-block errorimput"
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 8de097b71..fd99ebfa2 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -9365,10 +9365,13 @@ Partial Class Ventas
         If (Archivo.Exists Or Archivo2.Exists Or ArchivoSti.Exists Or ArchivoSti2.Exists Or ArchivoSti3.Exists) And IfNull(CveVenta, 0).ToString().ToEntero() > 0 Then
             HplDownPDF.Visible = True
             HplDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))
-            If UsuarioActual.CveRol = 1 Then
+
+            If UsuarioActual.TienePermisoProceso(359) Then
                 HplRenerarPDF.Visible = True
                 HplRenerarPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1&REGENERAR=1", CveVenta)))
+            End If
 
+            If UsuarioActual.CveRol = 1 Then
                 HplImprimirPDFStimulsoft.Visible = True
                 HplImprimirPDFStimulsoft.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=0&STIMULSOFT=1", CveVenta)))
             End If
@@ -25278,9 +25281,9 @@ Partial Class Ventas
 
                     ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion
 
-                    'If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Rem", "Dev") Then
-                    '    ChkDevAlm.Checked = True
-                    'End If
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Rem", "Dev") Then
+                        ChkDevAlm.Checked = True
+                    End If
 
                     If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso ObjFacturaCancelacion.TipoDocto = "Rem" Then
                         ChkDevAlm.Checked = True
@@ -33429,6 +33432,9 @@ Partial Class Ventas
 
                     Dim Cargo As Decimal = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { CveTamanioTemp  }").ToDecimal
 
+                    If DtUsadosDevolucion IsNot Nothing Then
+                        Cargo = DtUsadosDevolucion.FiltroPrimeroValor("PU", $"CvePS = {CvePsTemp}").ToString().ToDecimal()
+                    End If
 
                     If DTPSTemp.FiltraParametros($"CvePs = { CvePsTemp }").Rows.Count > 0 Then