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