From 669ea895adfffa23ab7689626b0b5ef3376dc610 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 22 Jun 2024 15:16:34 -0700 Subject: [PATCH] =?UTF-8?q?--=20filtro=20de=20tipo=20de=20venta.=20en=20re?= =?UTF-8?q?p=20cirug=C3=ADa=20--=20globaldtsucursalcliente?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsOS.vb | 5 +++-- OS/RepOSMedicas.aspx | 18 +++++++----------- OS/RepOSMedicas.aspx.vb | 19 ++++--------------- Ventas/Ventas.aspx.vb | 16 ++++++---------- 4 files changed, 20 insertions(+), 38 deletions(-) diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index 723c9861d..d6af2b03d 100644 --- a/App_Code/ClsOS.vb +++ b/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 diff --git a/OS/RepOSMedicas.aspx b/OS/RepOSMedicas.aspx index 30bfd425d..89d2b984d 100644 --- a/OS/RepOSMedicas.aspx +++ b/OS/RepOSMedicas.aspx @@ -110,10 +110,7 @@ - - - - + @@ -132,29 +129,28 @@
- -
Todos
- -
-
Todos
- - + +
+ + Todos + +
diff --git a/OS/RepOSMedicas.aspx.vb b/OS/RepOSMedicas.aspx.vb index f1caa606e..8f1e7c1c9 100644 --- a/OS/RepOSMedicas.aspx.vb +++ b/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 diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 7f71e50f0..78359ad49 100644 --- a/Ventas/Ventas.aspx.vb +++ b/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 - - 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("Seleccione uno", "-1"))