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

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