From 86a850b1ffd1278e5b2606fe0c30c0f2e1da71ed Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Fri, 18 Oct 2019 10:35:25 -0500
Subject: [PATCH] checkpoint en la orden de servicio

---
 OS/OrdenesServicios.aspx.vb | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index e586d230e..5bfb5f754 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -340,7 +340,7 @@ Partial Class OS_OrdenesServicios
 
             hdnEsThickbox.Value = "S"
             hdnClientIDLink.Value = "NoDefinido"
-
+            ImprimirAlGenerar()
         End If
 
     End Sub
@@ -2423,6 +2423,13 @@ Partial Class OS_OrdenesServicios
 
         ImprimirPDF("Empresas/Grales/Formatos/OrdenServicio.rdlc", lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
     End Sub
+
+    Private Sub ImprimirAlGenerar()
+        Dim params As New List(Of ReportParameter)
+        Dim report As LocalReport = New LocalReport()
+        report.ReportPath = String.Format("Empresas/{0}/Formatos/FormatoOS.rdlc", UsuarioActual.CveEmpresa)
+        Dim paramCollection = report.GetParameters
+    End Sub
 #End Region
 
 #Region "S O L I C I T A R  M A T E R I A L"