diff --git a/OS/RepServiciosMedicos.aspx b/OS/RepServiciosMedicos.aspx index a48100e0f..29d05c90f 100644 --- a/OS/RepServiciosMedicos.aspx +++ b/OS/RepServiciosMedicos.aspx @@ -468,9 +468,10 @@
- + + - +
diff --git a/OS/RepServiciosMedicos.aspx.vb b/OS/RepServiciosMedicos.aspx.vb index c26877e5e..fbd4ad598 100644 --- a/OS/RepServiciosMedicos.aspx.vb +++ b/OS/RepServiciosMedicos.aspx.vb @@ -609,18 +609,24 @@ Partial Class OS_RepServiciosMedicos Dim tCve As Integer = ObjOS.CveVenta 'busca la remisión If tCve <= 0 Then tCve = ObjOS.CveCotizacion 'sino hay remisión toma el pedido If tCve > 0 Then - 'Dim objv As New ClsVentas Dim dttps As New DataTable If ObjOS.GetDetalleMateriales(-1, CveOsConsultar) Then dttps = ObjOS.DtResultados End If - 'If objv.GetVentaDetalle(tCve) Then - ' dttps = objv.DtResultados - 'End If - 'objv.Dispose() + GvPS.DataSource = dttps GvPS.DataBind() + + 'sino hay información, cargamos los productos a surtir + 'If dttps IsNot Nothing AndAlso dttps.Rows.Count > 0 AndAlso ObjOS.CveCotizacion > 0 Then + ' Dim objv As New ClsVentas + ' If objv.GetVentaDetalle(tCve) Then + ' dttps = objv.DtResultados + ' End If + ' objv.Dispose() + 'End If + End If Dim TipoEstatus As Integer = 0 TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio), "CveEstatusOrdenServicio ASC").ToEntero