- OrdenesServicios.aspx,vb agregar campos Paciente, Episodio

- Ventas.aspx,vb mostar ddls de medico y procedimiento en observaciones
- ClsVentas Agregar funcion UpdateVentasDetalleCantidadDevolucion
- ProductosServicios.aspx,vb agregar campos codigo alterno, descripcion alterna para empresas  hospitalarias
-

OS/RepOSMedicas.aspx.vb

@@ -85,6 +85,12 @@ Partial Class OS_RepOSMedicas
         txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
         txtFechaF.Text = NowADS().ToShortDateString
 
+        DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
+        DdlMedico.DataBind()
+
+        DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
+        DdlProcedimiento.DataBind()
+
     End Sub
 
 
@@ -104,7 +110,8 @@ Partial Class OS_RepOSMedicas
         Dim FechaF As Date = If(txtFechaF.Text.Trim = "", MaxFecha, txtFechaF.Text.ToDate)
         Dim Cvecliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
 
-        If ObjOS.GetRepOrdenesServicioMedicasRep(FechaI, FechaF, Cvecliente, DdlVendedor.SelectedValue.ToEntero, DdlEstatusOS.SelectedValue.ToEntero, DdlTecnico.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If ObjOS.GetRepOrdenesServicioMedicasRep(FechaI, FechaF, Cvecliente, DdlVendedor.SelectedValue.ToEntero, DdlEstatusOS.SelectedValue.ToEntero, DdlTecnico.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa,
+                                                    CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjOS.DtResultados
         Else
             GvDatos.DataSource = Nothing