-- filtro de tipo de venta. en rep cirugía

-- globaldtsucursalcliente

OS/RepOSMedicas.aspx.vb

@@ -87,7 +87,8 @@ Partial Class OS_RepOSMedicas
         DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlProcedimiento.DataBind()
 
-
+        DdlTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa)
+        DdlTipoVenta.DataBind
 
         Dim ObjVentas As New ClsVentas
 
@@ -102,22 +103,10 @@ Partial Class OS_RepOSMedicas
         DdlEspecialidad.DataBind()
         DdlEspecialidad.Items.Insert(0, New ListItem("Todas", "-1"))
 
-
-        Dim objcliente As New ClsClientes
-
-        If objcliente.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
-            DdlClienteSucursal.DataSource = objcliente.DtResultados
-        Else
-            DdlClienteSucursal.DataSource = Nothing
-        End If
-
-        objcliente.Dispose()
-
+        DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa)
         DdlClienteSucursal.DataBind()
         DdlClienteSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
 
-
-
         'Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
         'If EsWS Then
         '    DdlCliente.setEsWebService(True)
@@ -152,7 +141,7 @@ Partial Class OS_RepOSMedicas
 
         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, CveEspecialidad:=DdlEspecialidad.SelectedValue.ToEntero,
-                                                    CveClienteSucursal:=CveClienteSucursal, CveUsuario:=UsuarioActual.CveUsuario) Then
+                                                    CveClienteSucursal:=CveClienteSucursal, CveUsuario:=UsuarioActual.CveUsuario, CveTipoVenta:=DdlTipoVenta.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjOS.DtResultados
             If ObjOS.DtResultados IsNot Nothing AndAlso ObjOS.DtResultados.Rows.Count > 0 Then
                 LnkPersonalizar.Visible = True