reporte de sugerencias y mensaje agregado a clsContabilidad

App_Code/ClsContabilidad.vb

@@ -1120,7 +1120,13 @@ Public Class ClsContabilidad
 
         If Empresa.TipoContabilizacion = 1 Then ' contabilidad en SIG
 
-            ContabilizaDesContabilizaPrePoliza(CvePrePoliza, True, Empresa.CveEmpresa)
+
+            Retorno = ContabilizaDesContabilizaPrePoliza(CvePrePoliza, True, Empresa.CveEmpresa)
+
+            If Retorno Then
+                Mensaje.Append(String.Format("<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", CvePrePoliza, _ContaFolio))
+            End If
+
 
         Else
             If CvePrePoliza <= 0 Then Return False

Inventarios/EntregaAlmacen.aspx

@@ -770,6 +770,9 @@
                         <h4 class="modal-title">Sugerencias</h4>
                     </div>
                     <div class="modal-body">
+                        <div class="row" style="text-align:right;height:50px;width:98%">
+                            <asp:Button ID="BtnImprimirSugerencias" CssClass="btn green-haze btn-outline btn-circle btn-sm" OnClick="BtnImprimirSugerencias_Click"  runat="server" Text="Imprimir" AutoPostBack="true"/>
+                        </div>
                         <asp:GridView ID="GvSugerencias" runat="server" EmptyDataText="No se encontraron registros." AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall ScrollAD" GridLines="None">
                             <Columns>
                                 <asp:BoundField HeaderText="Cantidad" DataField="Cantidad"  DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
@@ -787,6 +790,9 @@
                     </div>
                 </div>
             </ContentTemplate>
+            <Triggers>
+                <asp:PostBackTrigger ControlID="BtnImprimirSugerencias"/>
+            </Triggers>
         </asp:UpdatePanel>
     </div>
 

Inventarios/EntregaAlmacen.aspx.vb

@@ -7,6 +7,8 @@ Imports System.Linq
 Imports CrystalDecisions.[Shared].Json
 Imports Extensiones
 
+Imports Microsoft.Reporting.WebForms
+
 Partial Class Inventarios_EntregaAlmacen
     Inherits ClsPaginas
 
@@ -3064,6 +3066,23 @@ Partial Class Inventarios_EntregaAlmacen
         End If
     End Sub
 
+    Protected Sub BtnImprimirSugerencias_Click(sender As Object, e As EventArgs)
+        Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa)
+        Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
+
+        Dim params As New List(Of ReportParameter)
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", logouri))
+        Else
+            params.Add(New ReportParameter("LogoPath", ""))
+        End If
+        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+
+        ImprimirPDF("Empresas/Grales/Formatos/RepEntregaAlmacenSugerencia.rdlc", DtDatosSugerencias, params, "Equipo GPS")
+    End Sub
+
 #End Region