From 68df958f9d646bcf814df048c4f080ba22884f92 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ra=C3=BAl=20Pimienta?= Date: Tue, 4 Jan 2022 01:06:59 -0700 Subject: [PATCH 1/8] Cambios en ClsEncuestas --- App_Code/ClsEncuestas.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsEncuestas.vb b/App_Code/ClsEncuestas.vb index 119c69534..a5848e63b 100644 --- a/App_Code/ClsEncuestas.vb +++ b/App_Code/ClsEncuestas.vb @@ -411,7 +411,7 @@ Public Class ClsEncuestas Dim Retorno As Boolean = False DataAdapter("PA_Enc_EncuestasRespuestasGet", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters - .Add("@CveEncuesta", SqlDbType.VarChar).Value = CveEncuesta + .Add("@CveEncuesta", SqlDbType.Int).Value = CveEncuesta End With Try SqlAdapter.Fill(Data) @@ -426,7 +426,7 @@ Public Class ClsEncuestas Dim Retorno As Boolean = False DataAdapter("PA_Enc_EncuestasRespuestasUpdate", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters - .Add("@CveRespuesta", SqlDbType.VarChar).Value = CveRespuesta + .Add("@CveRespuesta", SqlDbType.Int).Value = CveRespuesta .Add("@Respuesta", SqlDbType.VarChar).Value = Respuesta .Add("@CvePregunta", SqlDbType.Int).Value = CvePregunta End With @@ -444,7 +444,7 @@ Public Class ClsEncuestas Dim Retorno As Boolean = False DataAdapter("PA_Enc_EncuestasRespuestasRemove", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters - .Add("@CveRespuesta", SqlDbType.VarChar).Value = CveRespuesta + .Add("@CveRespuesta", SqlDbType.Int).Value = CveRespuesta End With Try SqlAdapter.Fill(Data) From a7f8b89d9e0c22070755948a544a31f5cbee0384 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 4 Jan 2022 16:22:01 -0700 Subject: [PATCH 2/8] -- funcion 529, que se considere al agregar. --- Compras/eFacturas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index f3e2ed114..23fa6a132 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -1063,7 +1063,7 @@ Partial Class Compras_eFacturas e.Row.FCHyperLink("HplProveedor").NavigateUrl = String.Format("/Compras/Proveedores.aspx?CveProveedor={0}", e.Row.DBCampo("CveProveedor")) - If e.Row.DBCampo("CveCompra") = "" AndAlso (e.Row.DBCampo("FueValidado") = "1") Then ' OrElse UsuarioActual.CveEmpresa = 66 + If (e.Row.DBCampo("CveCompra") = "" AndAlso e.Row.DBCampo("FueValidado") = "1") OrElse (UsuarioActual.Empresa.Funcionalidad(529) = "1") Then ' OrElse UsuarioActual.CveEmpresa = 66 If e.Row.DBCampo("TipoComprobante") = "P" Then e.Row.FCHyperLink("HplAgregar").Visible = False From 11aef2f7dd5ab09a0ea172e5b5b5681c25974377 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 5 Jan 2022 13:04:48 -0700 Subject: [PATCH 3/8] =?UTF-8?q?activar=20autorizaciones=20em=20empresas=20?= =?UTF-8?q?acumuladoras=20--=20opci=C3=B3n=20de=20saldar.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 103 +++++++++++++++++++++++++++++------------- 1 file changed, 71 insertions(+), 32 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index d76cbee08..64856fa2c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -802,7 +802,7 @@ Partial Class Ventas End Property Private ReadOnly Property IdCtaContClientes As Integer Get - Return ViewState("IdCtaContClientes").ToString().ToEntero() + Return IfNull(ViewState("IdCtaContClientes"), "").ToString().ToEntero() End Get End Property @@ -2080,6 +2080,13 @@ Partial Class Ventas Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then + + If IfNull(Request("Opcionx"), "").ToString = "Saldar" And UsuarioActual.CveUsuario = 100 Then + TxtFechaSaldarVenta.Text = "2021/12/31" + SaldarVenta() + Exit Sub + End If + Modalidad = "" Opcion = "" Index = 0 @@ -3048,6 +3055,8 @@ Partial Class Ventas End If MostrarOpcionesPaqueteria() + + 'If ViewState("CveCotizacion").ToString().ToEntero() > 0 Then 'If Not AjustarTotalCotizacionFacturada(ViewState("CveCotizacion").ToString().ToEntero(), TxtTotal.Text.ToDecimal) Then @@ -8042,7 +8051,7 @@ Partial Class Ventas Me.CveAutorizacion = -1 'SI ES A CREDITO DEBE VERIFICAR SI TIENE AUTORIZACIONES - If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCliente > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Egs") AndAlso RBLPago.SelectedValue = "1" Then + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCliente > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Egs") AndAlso RBLPago.SelectedValue = "1" Then Dim TipoDocumentoAutorizacion As String = "" Dim ImporteAutorizacion As Decimal = 0 Dim TipoAutorizacion As Integer = 0 @@ -8699,10 +8708,6 @@ Partial Class Ventas DebeTimbrar = False End If - 'Si es BDH no debe timbrar - If UsuarioActual.CveEmpresa = 140 Then - DebeTimbrar = False - End If If ObjFactura.TipoDocto.Contiene("Ing", "Egs", "Ant", "Dev") Then If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso UsuarioActual.Empresa.FacturaProduccion Then @@ -15500,11 +15505,6 @@ Partial Class Ventas Exit Sub End If - 'Si es BDH no debe timbrar - If UsuarioActual.CveEmpresa = 140 Then - Exit Sub - End If - If UsuarioActual.Empresa.TipoFacturacion = "CFDi" Then If UsuarioActual.Empresa.EstatusFacturacion Then @@ -24741,6 +24741,8 @@ Partial Class Ventas 'RegistraScript("$('#ModalSaldarVenta').modal('hide')", "ModalSaldarVentaHidde") + + Dim ObjConta As New ClsContabilidad ObjConta.IniciaTransacSQL() Dim CvePrePoliza As Integer = 0 @@ -24774,19 +24776,55 @@ Partial Class Ventas 'End If ' ObjIE.Dispose() - - Dim IdCtaContable As Integer = IdCtaContClientes - Dim PorcentajePago As Decimal = SaldoVenta / TxtTotal.Text.ToDecimal - Dim Saldo As Decimal = SaldoVenta - Dim SubTotal As Decimal = PorcentajePago * TxtSubTotal.Text.ToDecimal - Dim IVA As Decimal = PorcentajePago * TxtIVA.Text.ToDecimal - Dim IEPS As Decimal = PorcentajePago * TxtIEPS.Text.ToDecimal - Dim TCVenta As Decimal = TxtTipoCambio.Text.ToDecimal - Dim FechaVenta As Date = TxtFecha.Text.ToDate - Dim FechaPago As Date = TxtFechaSaldarVenta.Text.ToDate - Dim tCveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero() - Dim TCPago As Decimal = GlobalTipoCambio(TxtFechaSaldarVenta.Text.ToDate).FormatoNumero(4).ToDecimal + Dim Total As Decimal = 0 + Dim Saldo As Decimal = 0 + Dim SubTotal As Decimal + Dim IVA As Decimal + Dim IEPS As Decimal + Dim Descuentos As Decimal + Dim TCVenta As Decimal + Dim FechaVenta As Date + Dim FechaPago As Date = Request("FechaSaldar").ToDate + Dim tCveMoneda As Integer + Dim PorcentajePago As Decimal + Dim SerieFolio As String = "" + Dim CveSubProyecto As Integer + Dim CveClasificacion As Integer + Dim PorcentajeImpuesto As Decimal = 0 + + ViewState("CveVenta") = IfNull(Request("CveVenta"), 0).ToString.ToEntero + + Dim Obj As New ClsVentas + If Obj.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then + Dim DbRowVenta As DataRow = Obj.DtResultados.FiltroPrimero("") + ViewState("SaldoVenta") = DbRowVenta("Saldo").ToString() + Total = DbRowVenta("Total").ToString.ToDecimal + SubTotal = DbRowVenta("Saldo").ToString.ToDecimal + SerieFolio = DbRowVenta("SerieFolio").ToString + Saldo = SaldoVenta + PorcentajePago = SaldoVenta / Total + + IVA = PorcentajePago * DbRowVenta("IVA").ToString.ToDecimal + IEPS = PorcentajePago * DbRowVenta("IEPS").ToString.ToDecimal + Descuentos = PorcentajePago * DbRowVenta("Descuento").ToString.ToDecimal + TCVenta = DbRowVenta("TipoCambio").ToString.ToDecimal + FechaVenta = DbRowVenta("Fecha").ToString.ToDate + ' FechaPago = TxtFechaSaldarVenta.Text.ToDate + tCveMoneda = DbRowVenta("CveMoneda").ToString.ToEntero + ViewState("CveCliente") = DbRowVenta("CveCliente").ToString.ToEntero + CveSubProyecto = DbRowVenta("CveSubProyecto").ToString.ToEntero + PorcentajeImpuesto = DbRowVenta("PorcentajeIVA").ToString.ToDecimal + + If Obj.GetVentaDetalle(CveVenta) Then + CveClasificacion = Obj.DtResultados.MAX("CveClasificacion").ToEntero + End If + SubTotal = Saldo - IVA - IEPS + + End If + Obj.Dispose() + + Dim TCPago As Decimal = GlobalTipoCambio(FechaPago).FormatoNumero(4).ToDecimal Dim CveConceptoDeduccion As Integer = 211 @@ -24804,9 +24842,8 @@ Partial Class Ventas Dim CveConceptoCliente As Integer = 2 Dim ImpuestosMovto As Boolean = False Dim IdCuentaContableNoDeducible As Integer = 0 - Dim SerieFolio As String = LblSerie.Text & "-" & TxtFolio.Text Dim ConceptoPartida As String = "saldado " & SerieFolio - Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero() + If CveConceptoDeduccion = 255 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(266).ToEntero() If CveConceptoDeduccion = 211 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(559).ToEntero() @@ -24824,8 +24861,8 @@ Partial Class Ventas Dim UsaComplementaria As Boolean = True - If MsgError = "" Then - CvePrePoliza = ObjConta.AddPrePolizas("Ventas/Saldarr", 47, SaldoVenta, SaldoVenta, tCveMoneda, TxtFechaSaldarVenta.Text.ToDate, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If MsgError = "" AndAlso Saldo > 0 Then + CvePrePoliza = ObjConta.AddPrePolizas("Ventas/Saldarr", 47, SaldoVenta, SaldoVenta, tCveMoneda, FechaPago, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If tCveMoneda = 2 Then IdCtaContable = IdCtaContMonedaExtranjera @@ -24869,10 +24906,6 @@ Partial Class Ventas End If - - ' iva - Dim PorcentajeImpuesto As Decimal = DdlIVA.SelectedValue.ToEntero() - Dim IdCtaIVAXTrasladar As Integer = 0 If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then @@ -24889,10 +24922,14 @@ Partial Class Ventas End If 'al gasto,Subtotal - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, SubtotalMovto, SubTotal, SerieFolio, CveConceptoDeduccion, ConceptoPartida, FechaPago, IdCuentaContableNoDeducible, -1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=SubTotal, CveCuenta:=-1, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, SubtotalMovto, SubTotal, SerieFolio, CveConceptoDeduccion, ConceptoPartida, FechaPago, IdCuentaContableNoDeducible, -1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=SubTotal, CveCuenta:=-1, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then MsgError = "Ocurrio un error al saldar el movimiento" End If + 'If Descuentos > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not SubtotalMovto, Descuentos, SerieFolio, 103, ConceptoPartida, FechaPago, IdCuentaContableNoDeducible, -1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=Descuentos, CveCuenta:=-1, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto) Then + ' MsgError = "Ocurrio un error al saldar el movimiento" + 'End If + If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then If ObjConta.ValorPolizaDescuadre > 0 Then MsgError = ObjConta.MensajePolizaDescuadre + " " + ObjConta.ValorDiferencia @@ -24900,6 +24937,8 @@ Partial Class Ventas End If End If + Else + MsgError = "Saldo Cero" End If From 059a99953ff2916a44b8821c73460738254802c9 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 5 Jan 2022 22:17:15 -0700 Subject: [PATCH 4/8] =?UTF-8?q?cambios=20en=20filtro=20de=20Categor=C3=ADa?= =?UTF-8?q?=20en=20repentradassalidas=20reputilidadventas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsInventarios.vb | 6 ++-- App_Code/ClsPaginas.vb | 26 +++++++++----- App_Code/ClsVentas.vb | 9 +++-- Global.asax | 2 +- Inventarios/RepEntradasSalidas.aspx | 20 ++++++----- Inventarios/RepEntradasSalidas.aspx.vb | 49 +++++++++++-------------- Ventas/RepVentasUtilidad.aspx | 4 +++ Ventas/RepVentasUtilidad.aspx.vb | 19 ++++++++-- Ventas/RepVentasUtilidadPadre.aspx | 50 ++++++++++++++------------ Ventas/RepVentasUtilidadPadre.aspx.vb | 12 ++++++- 10 files changed, 120 insertions(+), 77 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 02b791de4..209735f2c 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1730,7 +1730,7 @@ Public Class ClsInventarios Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, Almacenes As String, - CveFamilia As Integer, CveSubFamilia As Integer, CvePS As Integer, CveClasificacion As Integer, Tipo As Integer, Optional CveMarca As Integer = -1, Optional CvePersonal As Integer = -1, + CveCategoria As Integer, CveClasificacion As Integer, CvePS As Integer, Tipo As Integer, Optional CveMarca As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1745,8 +1745,8 @@ Public Class ClsInventarios .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes - .Add("@CveFamilia", SqlDbType.Int).Value = CveFamilia - .Add("@CveSubFamilia", SqlDbType.Int).Value = CveSubFamilia + .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria + ' .Add("@CveSubFamilia", SqlDbType.Int).Value = CveSubFamilia .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CveMarca", SqlDbType.Int).Value = CveMarca diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 1bc365482..6be74f55b 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -2482,19 +2482,29 @@ Public Class ClsPaginas #Region "***********************************************************************DT GENERALES**************************************************************************************" Property GlobalDTGralCategorias(CveEmpresa As Integer) As DataTable - Get - If CveEmpresa <> -1 Then - Dim Dv As New DataView(DirectCast(Application("GlobalDTGralCategorias"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows) - GlobalDTGralCategorias = Dv.ToTable - Dv.Dispose() - Else - GlobalDTGralCategorias = DirectCast(Application("GlobalDTGralCategorias"), DataTable) + Dim AppNombre As String = String.Format("GlobalDTGralCategorias-{0}", CveEmpresa) + 'sino existe, recarga los datos + If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + Dim ObjGenerales As New ClsGenerales + If ObjGenerales.GetCategorias(CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados Else Application(AppNombre) = Nothing + ObjGenerales.Dispose() End If + + Dim filtro As New StringBuilder + 'If CveMarca > 0 Then + ' filtro.AppendFormat(" CveMarca={0} ", CveMarca) + 'End If + + Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), filtro.ToString, "", DataViewRowState.CurrentRows) + GlobalDTGralCategorias = Dv.ToTable + Dv.Dispose() End Get Set(value As DataTable) - Application("GlobalDTGralCategorias") = value + Dim AppNombre As String = String.Format("GlobalDTGralCategorias-{0}", CveEmpresa) + Application(AppNombre) = value End Set + End Property Property GlobalDTGralCategorias2(CveEmpresa As Integer) As DataTable diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index ad1c04887..e6a3ce320 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -2845,7 +2845,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function GetReporteVentasUtilidad(CveVendedor As String, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CvePS As Integer, CveClasificacion As Integer, CveMarca As Integer) As Boolean + Public Function GetReporteVentasUtilidad(CveVendedor As String, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUtilidadGet") @@ -2857,6 +2857,7 @@ Public Class ClsVentas .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CveMarca", SqlDbType.Int).Value = CveMarca End With @@ -2873,7 +2874,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function GetReporteVentasUtilidadDetalle(CveVendedor As String, CveVenta As Integer, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CvePS As Integer, CveClasificacion As Integer, CveMarca As Integer) As Boolean + Public Function GetReporteVentasUtilidadDetalle(CveVendedor As String, CveVenta As Integer, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUtilidadDetalleGet") With SqlAdapter.SelectCommand.Parameters @@ -2885,6 +2886,7 @@ Public Class ClsVentas .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CveMarca", SqlDbType.Int).Value = CveMarca End With @@ -2904,7 +2906,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function GetReportePadreVentasUtilidad(CveVendedor As String, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Gpo As Integer, CvePS As Integer, CveClasificacion As Integer, CveMarca As Integer) As Boolean + Public Function GetReportePadreVentasUtilidad(CveVendedor As String, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Gpo As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_RepVentasUtilidadGet") @@ -2917,6 +2919,7 @@ Public Class ClsVentas .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Gpo", SqlDbType.Int).Value = Gpo .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CveMarca", SqlDbType.Int).Value = CveMarca End With diff --git a/Global.asax b/Global.asax index 904c3caac..50d62c751 100644 --- a/Global.asax +++ b/Global.asax @@ -235,7 +235,7 @@ 'If ObjGenerales.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = ObjGenerales.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing 'If ObjGenerales.GetGralPoblaciones Then Application("GlobalDTGralPoblaciones") = ObjGenerales.DtResultados Else Application("GlobalDTGralPoblaciones") = Nothing If ObjGenerales.GetEscolaridades Then Application("GlobalDTGralEscolaridades") = ObjGenerales.DtResultados Else Application("GlobalDTGralEscolaridades") = Nothing - If ObjGenerales.GetCategorias Then Application("GlobalDTGralCategorias") = ObjGenerales.DtResultados Else Application("GlobalDTGralCategorias") = Nothing + 'If ObjGenerales.GetCategorias Then Application("GlobalDTGralCategorias") = ObjGenerales.DtResultados Else Application("GlobalDTGralCategorias") = Nothing If ObjGenerales.GetCategorias(-1, 2) Then Application("GlobalDTFamilias") = ObjGenerales.DtResultados Else Application("GlobalDTFamilias") = Nothing If ObjGenerales.GetCategorias(-1, 3) Then Application("GlobalDTCategoriasPresupuestos") = ObjGenerales.DtResultados Else Application("GlobalDTCategoriasPresupuestos") = Nothing If ObjGenerales.GetCategorias(-1, 4) Then Application("GlobalDTCategorias2") = ObjGenerales.DtResultados Else Application("GlobalDTCategorias2") = Nothing diff --git a/Inventarios/RepEntradasSalidas.aspx b/Inventarios/RepEntradasSalidas.aspx index e56681097..b2553c302 100644 --- a/Inventarios/RepEntradasSalidas.aspx +++ b/Inventarios/RepEntradasSalidas.aspx @@ -105,9 +105,9 @@
-
Solo con Movimientos
+
Opción
- + @@ -121,17 +121,24 @@
+
Categoría
+
+ +
Clasificación
-
PS
+
+
+ +
Producto
<%----%>
-
Marca
+
Marca
@@ -164,10 +171,7 @@
-
Grupo:
-
- - - - - - - - - - - -
+
+ Sucursal: +
+
+ +
Fecha Inicio:
-
+
@@ -113,7 +105,7 @@
Fecha Fin:
-
+
@@ -127,17 +119,27 @@
+ +
Grupo:
+
+ + + + + + + + + + + +