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

-- globaldtsucursalcliente

OS/RepOSMedicas.aspx

@@ -110,10 +110,7 @@
                                 <asp:DropDownList ID="DdlEstatusOS" runat="server" AppendDataBoundItems="true"  Width="100%"
                                     DataTextField="EstatusOrdenServicio" DataValueField="CveEstatusOrdenServicio" Class="input-sm select2me">
                                 </asp:DropDownList>
-                            </div>
-
-
-                            
+                            </div> 
                         </div>
                     </div>
                 </div>
@@ -132,29 +129,28 @@
                         <div runat="server" id="DivSubProyecto" class="col-md-1">
                             <asp:DropDownList ID="DdlSubProyecto" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass=" input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:DropDownList>
                         </div>
-
-
                         <label class="col-md-1 ">Médico:</label>
                         <div class="col-md-1">
                             <asp:DropDownList ID="DdlMedico" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Medico" DataValueField="CveMedico" Width="100%">
                                 <asp:ListItem Value="-1">Todos</asp:ListItem>
                             </asp:DropDownList>
                         </div>
-
-
                         <label class="col-md-1 ">Especialidad:</label>
                         <div class="col-md-1">
                             <asp:DropDownList ID="DdlEspecialidad" CssClass="form-control input-sm select2me" runat="server" DataTextField="Especialidad" Width="100%" DataValueField="CveMedicoEspecialidad"></asp:DropDownList>
                         </div>
-
                         <label class="col-md-1 ">Procedimiento:</label>
                         <div class="col-md-1">
                             <asp:DropDownList ID="DdlProcedimiento" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Procedimiento" DataValueField="CveProcedimiento" Width="100%">
                                 <asp:ListItem Value="-1">Todos</asp:ListItem>
                             </asp:DropDownList>
                         </div>
-
-
+                        <label class="col-md-1 ">Tipo Venta:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlTipoVenta" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="TipoVenta" DataValueField="CveTipoVenta" Width="100%">
+                                <asp:ListItem Value="-1">Todos</asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
                     </div>
                   
                     <div class="row">

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