Aun hay problemas con el formato de Orden de servicio

Compras/PopUpVerFactura.aspx.vb

@@ -2941,9 +2941,11 @@ Partial Class PopUpVerFactura
         Dim params As New List(Of ReportParameter)
         Dim CveFolio = ""
         CreaDT()
+        Dim ReporteEmpresa As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta))
 
         If ObjOS.GetOrdenesServicios(CveOS, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
-            If ObjOS.DtResultados.Rows.Count > 0 Then
+            If ObjOS.DtResultados.Rows.Count > 0 Then
+
                 Dim dtOS As DataTable = ObjOS.DtResultados
                 Dim dr As DataRow = dtOS.Rows(0)
                 params.Add(New ReportParameter("Cliente", dr("Cliente").ToString))
@@ -2957,41 +2959,65 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("ClienteColonia", dr("Colonia").ToString))
                 params.Add(New ReportParameter("ClienteCiudad", dr("Ciudad").ToString))
                 params.Add(New ReportParameter("ClienteEstado", dr("Estado").ToString))
-                CveFolio = dr("Folio").ToString
+                CveFolio = dr("Folio").ToString
+
+                If ReporteEmpresa.Exists Then
+                    params.Add(New ReportParameter("NoDeCliente", dr("CveCliente").ToString))
+                    params.Add(New ReportParameter("RFC", dr("RFC").ToString))
+                    params.Add(New ReportParameter("Vendedor", " "))
+                    params.Add(New ReportParameter("Correo", dr("Correo").ToString))
+                    params.Add(New ReportParameter("CodigoDeServicio", dr("CveOS").ToString))
+                    params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))
+                    params.Add(New ReportParameter("TipoServicio", dr("TipoServicio").ToString))
+                    params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString))
+                    params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
+                    params.Add(New ReportParameter("Copia", "Copia: Original"))
+                End If
             End If
         End If
 
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
         Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
-        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        If Not ReporteEmpresa.Exists Then
-        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+
+            If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", logouri))
+            Else
+                params.Add(New ReportParameter("LogoPath", ""))
+            End If
+
+            If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
+                TmpDTOS = ObjOS.DtResultados
+            End If
+
+            If ObjOS.GetDetalleMateriales(-1, CveOS) Then
+                TmpDTMaterialesOS = ObjOS.DtResultados
+            End If
 
-        If Imagen.Exists Then
+            Dim lrds As New List(Of ReportDataSource)
-            params.Add(New ReportParameter("LogoPath", logouri))
+            Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
-        Else
+            Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
-            params.Add(New ReportParameter("LogoPath", ""))
+
-        End If
+            lrds.Add(rds)
-
+            lrds.Add(rds2)
-        If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
+            ObjOS.Dispose()
-            TmpDTOS = ObjOS.DtResultados
+
-        End If
+            ImprimirPDF("Empresas/Grales/Formatos/OrdenServicio.rdlc", lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
-
+        Else
-        If ObjOS.GetDetalleMateriales(-1, CveOS) Then
+            Dim lrds As New List(Of ReportDataSource)
-            TmpDTMaterialesOS = ObjOS.DtResultados
+            Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
-        End If
+            Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
-
+
-        Dim lrds As New List(Of ReportDataSource)
+            lrds.Add(rds)
-        Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
+            lrds.Add(rds2)
-        Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
+            ObjOS.Dispose()
-
+
-        lrds.Add(rds)
+            ImprimirPDF(String.Format("Empresas/{0}/Formatos/OrdenServicio.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
-        lrds.Add(rds2)
+        End If
-
-        ImprimirPDF("Empresas/Grales/Formatos/OrdenServicio.rdlc", lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
-
-        ObjOS.Dispose()
     End Sub
     Private Sub CreaDT()
         TmpDTOS = New DataTable

OS/OrdenesServicios.aspx.vb

@@ -331,7 +331,7 @@ Partial Class OS_OrdenesServicios
             'Carga OS
             If CveOS > 0 Then
 
-                CargaEstatusOS()
+                'CargaEstatusOS()
                 CargaDatos()
                 'PermisosSegunEstatus()
                 CargaDetalles()
@@ -354,6 +354,7 @@ Partial Class OS_OrdenesServicios
                 TxtFechaRecibido.Text = Now.ToString("dd/MM/yyy")
                 ViewState("CveOS") = -1
                 DdlEstatusOS.Enabled = False
+                CargaEstatusOS()
             End If
 
             hdnEsThickbox.Value = "S"
@@ -434,9 +435,13 @@ Partial Class OS_OrdenesServicios
             DdlSubProyecto.Items.Clear()
             DdlSubProyecto.SelectedValue = Nothing
             DdlSubProyecto.DataSource = ObjOS.DtResultados.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
-            DdlSubProyecto.DataBind()
+
             If CveSubProyecto > 0 Then DdlSubProyecto.SelectedValueExist(CveSubProyecto)
+            DdlEstatusOS.DataSource = ObjOS.DtResultados.FiltraParametros(String.Format("CveSubProyecto = {0}", CveSubProyecto), "", {"CveEstatusOrdenServicio", "EstatusOrdenServicio"})
         End If
+        ObjOS.Dispose()
+        DdlSubProyecto.DataBind()
+        DdlEstatusOS.DataBind()
     End Sub
     Private Sub CargaTiposOrden()
         Dim ObjOS As New ClsOS
@@ -447,11 +452,10 @@ Partial Class OS_OrdenesServicios
         Else
             DdlTipoOrdenOS.DataSource = Nothing
         End If
-
+        ObjOS.Dispose()
         DdlTipoOrdenOS.DataBind()
         DdlTipoOrdenOS.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-        ObjOS.Dispose()
     End Sub
     Private Sub CargaDatos()
         Dim ObjOS As New ClsOS()
@@ -994,7 +998,7 @@ Partial Class OS_OrdenesServicios
 
 
         If Not CveOS > 0 Then
-
+            Dim bandera As Integer = DdlEstatusOS.SelectedValue.ToEntero
             If Not ObjOrdenServicio.AddOrdenesServicios(CveCliente, DdlSubProyecto.SelectedValue.ToEntero, TxtSolicito.Text, TxtFechaRecibido.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, DdlEstatusOS.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCotizacion, -1, -1, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
                 Errores = True
             End If
@@ -1065,8 +1069,6 @@ Partial Class OS_OrdenesServicios
 
                 Dim Liga = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";"
 
-                ImprimirAlGenerar()
-
                 ObjOrdenServicio.Commit()
 
                 Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, Liga)