checkpoint en la orden de servicio

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"