From a9e218ec6763a8f1fcfcccdfad5005ca89bd8b80 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Thu, 7 Dec 2023 20:38:43 -0700
Subject: [PATCH] Ventas correcion mensaje al genrar OS

---
 App_Code/ClsVentas.vb                         | 23 +------------------
 .../Grales/Formatos/EtiquetaDeRecepcion.rdlc  | 18 +--------------
 Ventas/Ventas.aspx.vb                         |  8 +++----
 3 files changed, 6 insertions(+), 43 deletions(-)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 0b0e7d59d..89fa9d3c9 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -6080,6 +6080,7 @@ Public Class ClsVentas
     End Function
 
 #End Region
+
 #Region "PRODEDIMIENTOS"
 
     Public Function GetProcedimientos(CveProcedimiento As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
@@ -6302,28 +6303,6 @@ Public Class ClsVentas
 
 #End Region
 
-
-#Region "ECOMMERCE"
-    Public Function GetEntregasEcommerce(FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_EntregasEcommerceGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@FechaInicio", SqlDbType.Date).Value = FechaI
-            .Add("@FechaFin", SqlDbType.Date).Value = FechaF
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Reporte de Comisiones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
 #Region "IDisposable Support"
 
 
diff --git a/Empresas/Grales/Formatos/EtiquetaDeRecepcion.rdlc b/Empresas/Grales/Formatos/EtiquetaDeRecepcion.rdlc
index ed96b21c3..d7ecf0268 100644
--- a/Empresas/Grales/Formatos/EtiquetaDeRecepcion.rdlc
+++ b/Empresas/Grales/Formatos/EtiquetaDeRecepcion.rdlc
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <ReportSections>
     <ReportSection>
@@ -182,21 +182,6 @@
               <PaddingBottom>2pt</PaddingBottom>
             </Style>
           </Textbox>
-          <Image Name="Logo">
-            <Source>Embedded</Source>
-            <Value>Logo</Value>
-            <Sizing>FitProportional</Sizing>
-            <Top>1.5468cm</Top>
-            <Left>8.2016cm</Left>
-            <Height>0.74287cm</Height>
-            <Width>1.52823cm</Width>
-            <ZIndex>6</ZIndex>
-            <Style>
-              <Border>
-                <Style>None</Style>
-              </Border>
-            </Style>
-          </Image>
         </ReportItems>
         <Height>0.92351in</Height>
         <Style>
@@ -235,7 +220,6 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
-  
   <EmbeddedImages>
     <EmbeddedImage Name="Logo">
       <MIMEType>image/jpeg</MIMEType>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index b4c16c542..6e999c763 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -35788,11 +35788,11 @@ Partial Class Ventas
 
             If CveOsDetalle > 0 Then
                 'MENSAJE PRINCIPAL
-                Dim MensajeAlertOS As New StringBuilder
-                MensajeAlertOS.AppendFormat(String.Format("<br/>La  Orden de Servicio: <b>{0}</b>  se generó correctamente.<br/><br/>", ObjOrdenServicio.Folio))
+                'Dim MensajeAlertOS As New StringBuilder
+                MensajeAlert.AppendFormat(String.Format("<br/>La  Orden de Servicio: <b>{0}</b>  se generó correctamente.<br/>", ObjOrdenServicio.Folio))
                 MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=OS&CVEOS={0}", ObjOrdenServicio.CveOS)))
-                Dim Liga = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";"
-                Alert(MensajeAlertOS.ToString, TipoMensaje.MsgInformacion, Liga)
+                'Dim Liga = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";"
+                'Alert(MensajeAlertOS.ToString, TipoMensaje.MsgInformacion, Liga)
             Else
                 errorList.Add("Se presento un error al guardar la el detalle de la orden de servicio.")
                 Errores = True