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

-- globaldtsucursalcliente

App_Code/ClsOS.vb

@@ -517,7 +517,8 @@ Public Class ClsOS
 
 
     Public Function GetRepOrdenesServicioMedicasRep(FechaI As Date, FechaF As Date, CveCliente As Integer, CveVendedor As Integer, CveEstatusOrdenServicio As Integer, CveUsuarioAtendio As Integer, CveSubProyecto As Integer, CveEmpresa As Integer,
-                                                    Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional CveEspecialidad As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional CveUsuario As Integer = -1) As Boolean
+                                                    Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional CveEspecialidad As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional CveUsuario As Integer = -1,
+                                                    Optional CveTipoVenta As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OS_OrdenesServiciosMedicasRepGet")
@@ -537,7 +538,7 @@ Public Class ClsOS
             .Add("@CveEspecialidad", SqlDbType.Int).Value = CveEspecialidad
             .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-
+            .Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta
         End With
 
         Try

OS/RepOSMedicas.aspx

@@ -111,9 +111,6 @@
                                     DataTextField="EstatusOrdenServicio" DataValueField="CveEstatusOrdenServicio" Class="input-sm select2me">
                                 </asp:DropDownList>
                             </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"))
 
-
+        DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa)
-        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.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

Ventas/Ventas.aspx.vb

@@ -24488,6 +24488,11 @@ Partial Class Ventas
         If Not DtTemporal.Columns.Contains("Serie") Then
             DtTemporal.Columns.Add("Serie", Type.GetType("System.String"))
         End If
+        If Not DtTemporal.Columns.Contains("CveAlmacen") Then DtTemporal.Columns.Add("CveAlmacen", GetType(Integer))
+        If Not DtTemporal.Columns.Contains("Fecha") Then
+            Dim colNew As DataColumn = New DataColumn("Fecha", GetType(Date)) With {.DefaultValue = NowADS()}
+            DtTemporal.Columns.Add(colNew)
+        End If
 
         GvInv.Columns(4).Visible = DtTemporal.MAX("Serie", "Serie <> ''") <> "" Or CveVenta <= 0
         GvInv.Columns(5).Visible = DtTemporal.MAX("Lote", "Lote <> ''") <> ""
@@ -37610,16 +37615,7 @@ Partial Class Ventas
 
     Private Sub CargaDdlClientesSucursal()
 
-        Dim objcliente As New ClsClientes
+        DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa)
-
-        If objcliente.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
-            DdlClienteSucursal.DataSource = objcliente.DtResultados
-        Else
-            DdlClienteSucursal.DataSource = Nothing
-        End If
-
-        objcliente.Dispose()
-
         DdlClienteSucursal.DataBind()
         DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))