diff --git a/AF/CatAF.aspx b/AF/CatAF.aspx index b32f78b85..840217e53 100644 --- a/AF/CatAF.aspx +++ b/AF/CatAF.aspx @@ -54,6 +54,10 @@ Excel +
  • + + Personalizar Columnas +
    • @@ -160,7 +164,7 @@ - + @@ -190,86 +194,311 @@ -
    - Encontrados: - - -
    + - +
    + Encontrados: +
    + - + + <%-- 0 --%> + - + + <%-- 1 --%> + - <%----%> + + <%-- 2 --%> + + <%-- 3 --%> + + <%-- 4 --%> + + <%-- 5 --%> + + <%-- 6 --%> + + <%-- 7 --%> + + <%-- 8 --%> + + <%-- 9 --%> - + + + + <%-- 10 --%> + + + + + + + + <%-- 11 --%> + + + + + + + + <%-- 12 --%> + + + + + + + + <%-- 13 --%> + + + + + + + + <%-- 14 --%> + + + + + + + + <%-- 15 --%> + + + + + + + + <%-- 16 --%> + + + + + + + + <%-- 17 --%> + + + + + + + + <%-- 18 --%> + + + + + + + + <%-- 19 --%> + + + + + + + +     + + + + + + + + + +<%-- + + + + --%> + + + + + + + + - + <%-- + --%> diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb index 239c3235c..e8dfe0bfd 100644 --- a/AF/CatAF.aspx.vb +++ b/AF/CatAF.aspx.vb @@ -32,6 +32,19 @@ Partial Class AF_CatAF ViewState("DTAFCaracteristicas") = value End Set End Property + + Private Property DtDatos As DataTable + Get + If ViewState("DtDatos") Is Nothing Then + ViewState("DtDatos") = New DataTable + End If + Return DirectCast(ViewState("DtDatos"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtDatos") = value + End Set + End Property + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -46,6 +59,9 @@ Partial Class AF_CatAF CargaDatos() End If + CargaPersonalizacion() + + End If End Sub @@ -278,7 +294,7 @@ Partial Class AF_CatAF GvDatos.DataSource = DtActivosFijos GvDatos.DataBind() - 'LtlTotalRegistros.Text = DtActivosFijos.Rows.Count.ToString.FormatoNumero(0) + LtlTotalRegistros.Text = DtActivosFijos.Rows.Count.ToString.FormatoNumero(0) UpGV.Update() OrdenaDatos() @@ -492,5 +508,251 @@ Partial Class AF_CatAF #End Region +#Region " P E R S O N A L I Z A R C O L U M N A S " + Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs) + + ChkGuardarPersonalizacion.Checked = False + RegistraScript("$('#DivPersonalizar').modal('show')") + + End Sub + + Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click + + If ChkGuardarPersonalizacion.Checked Then + GuardaPersonalizacion() + End If + + Personaliza() + CargaGvDatos() + UpGV.Update() + + End Sub + + + + Private Sub GuardaPersonalizacion() + + Dim objUsuario As New ClsSisUsuarios + Dim ListPersonalizada As New List(Of String) + + If ChkCodigo.Checked Then ListPersonalizada.Add("Codigo") + + If ChkDescripcion.Checked Then ListPersonalizada.Add("Descripcion") + + If ChkTipoActivoFijo.Checked Then ListPersonalizada.Add("TipoActivoFijo") + + If ChkSubTIpoActivoFijo.Checked Then ListPersonalizada.Add("SubTIpoActivoFijo") + + If ChkResponsable.Checked Then ListPersonalizada.Add("Responsable") + + If ChkNoSerie.Checked Then ListPersonalizada.Add("NoSerie") + + If ChkAño.Checked Then ListPersonalizada.Add("Año") + + If ChkSubProyecto.Checked Then ListPersonalizada.Add("SubProyecto") + + If ChkEstadoActivoFijo.Checked Then ListPersonalizada.Add("EstadoActivoFijo") + + If ChkFechaIng.Checked Then ListPersonalizada.Add("FechaIng") + + If ChkGrupo.Checked Then ListPersonalizada.Add("Grupo") + + If ChkMarcaActivoFijo.Checked Then ListPersonalizada.Add("MarcaActivoFijo") + + If ChkModeloActivoFijo.Checked Then ListPersonalizada.Add("ModeloActivoFijo") + + If ChkNombreCuenta.Checked Then ListPersonalizada.Add("NombreCuenta") + + If ChkValorCompra.Checked Then ListPersonalizada.Add("ValorCompra") + + If ChkFechaCompra.Checked Then ListPersonalizada.Add("FechaCompra") + + If ChkFechaBaja.Checked Then ListPersonalizada.Add("FechaBaja") + + If ChkProyecto.Checked Then ListPersonalizada.Add("Proyecto") + + 'If ChkSubProyecto.Checked Then ListPersonalizada.Add("SubProyecto") + + If ChkNombreCliente.Checked Then ListPersonalizada.Add("NombreCliente") + + If ChkObservaciones.Checked Then ListPersonalizada.Add("Observaciones") + + + If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "CatAF.aspx", String.Join("|", ListPersonalizada)) Then + 'Alert("Personalizacion guardada") + End If + + objUsuario.Dispose() + + End Sub + + + Private Sub CargaPersonalizacion() + + Dim strBasePersonalizacion As String = UsuarioActual.Personalizaciones("CatAF.aspx") + + If strBasePersonalizacion.Trim.Length > 0 Then + + ChkCodigo.Checked = False + ChkDescripcion.Checked = False + ChkTipoActivoFijo.Checked = False + ChkSubTIpoActivoFijo.Checked = False + ChkResponsable.Checked = False + ChkNoSerie.Checked = False + ChkAño.Checked = False + ChkSubProyecto.Checked = False + ChkEstadoActivoFijo.Checked = False + ChkFechaIng.Checked = False + ChkGrupo.Checked = False + ChkMarcaActivoFijo.Checked = False + ChkModeloActivoFijo.Checked = False + ChkNombreCuenta.Checked = False + ChkValorCompra.Checked = False + ChkFechaCompra.Checked = False + ChkFechaBaja.Checked = False + 'ChkNoSerie.Checked = False + 'ChkEstadoActivoFijo.Checked = False + 'ChkResponsable.Checked = False + ChkProyecto.Checked = False + 'ChkSubProyecto.Checked = False + ChkNombreCliente.Checked = False + ChkObservaciones.Checked = False + + Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c) + + For Each personalizacion As String In Personalizaciones + Select Case personalizacion + Case "Codigo" + ChkCodigo.Checked = True + Exit Select + Case "Descripcion" + ChkDescripcion.Checked = True + Exit Select + Case "TipoActivoFijo" + ChkTipoActivoFijo.Checked = True + Exit Select + Case "SubTIpoActivoFijo" + ChkSubTIpoActivoFijo.Checked = True + Exit Select + Case "Responsable" + ChkResponsable.Checked = True + Exit Select + Case "NoSerie" + ChkNoSerie.Checked = True + Exit Select + Case "Año" + ChkAño.Checked = True + Exit Select + Case "SubProyecto" + ChkSubProyecto.Checked = True + Exit Select + Case "EstadoActivoFijo" + ChkEstadoActivoFijo.Checked = True + Exit Select + Case "FechaIng" + ChkFechaIng.Checked = True + Exit Select + Case "Grupo" + ChkGrupo.Checked = True + Exit Select + Case "MarcaActivoFijo" + ChkMarcaActivoFijo.Checked = True + Exit Select + Case "ModeloActivoFijo" + ChkModeloActivoFijo.Checked = True + Exit Select + Case "NombreCuenta" + ChkNombreCuenta.Checked = True + Exit Select + Case "ValorCompra" + ChkValorCompra.Checked = True + Exit Select + Case "FechaCompra" + ChkFechaCompra.Checked = True + Exit Select + Case "FechaBaja" + ChkFechaBaja.Checked = True + Exit Select + Case "Proyecto" + ChkProyecto.Checked = True + Exit Select + Case "NombreCliente" + ChkNombreCliente.Checked = True + Exit Select + Case "Observaciones" + ChkObservaciones.Checked = True + Exit Select + Case Else + Exit Select + End Select + Next + + Else + PersonalizaDefault() + End If + + Personaliza() + + UPPersonalizar.Update() + + End Sub + + + Private Sub PersonalizaDefault() + + ChkCodigo.Checked = True + ChkDescripcion.Checked = True + ChkTipoActivoFijo.Checked = True + ChkSubTIpoActivoFijo.Checked = True + ChkResponsable.Checked = True + ChkNoSerie.Checked = True + ChkAño.Checked = True + ChkSubProyecto.Checked = True + ChkEstadoActivoFijo.Checked = True + ChkFechaIng.Checked = True + + End Sub + + + Private Sub Personaliza() + + GvDatos.Columns(0).Visible = ChkCodigo.Checked + GvDatos.Columns(1).Visible = ChkDescripcion.Checked + GvDatos.Columns(2).Visible = ChkTipoActivoFijo.Checked + GvDatos.Columns(3).Visible = ChkSubTIpoActivoFijo.Checked + GvDatos.Columns(4).Visible = ChkResponsable.Checked + GvDatos.Columns(5).Visible = ChkNoSerie.Checked + GvDatos.Columns(6).Visible = ChkAño.Checked + GvDatos.Columns(7).Visible = ChkSubProyecto.Checked + GvDatos.Columns(8).Visible = ChkEstadoActivoFijo.Checked + GvDatos.Columns(9).Visible = ChkFechaIng.Checked + + GvDatos.Columns(10).Visible = ChkGrupo.Checked + GvDatos.Columns(11).Visible = ChkMarcaActivoFijo.Checked + GvDatos.Columns(12).Visible = ChkModeloActivoFijo.Checked + GvDatos.Columns(13).Visible = ChkNombreCuenta.Checked + GvDatos.Columns(14).Visible = ChkValorCompra.Checked + GvDatos.Columns(15).Visible = ChkFechaCompra.Checked + GvDatos.Columns(16).Visible = ChkFechaBaja.Checked + 'GvDatos.Columns(17).Visible = ChkNoSerie.Checked + 'GvDatos.Columns(18).Visible = ChkEstadoActivoFijo.Checked + 'GvDatos.Columns(19).Visible = ChkResponsable.Checked + GvDatos.Columns(17).Visible = ChkProyecto.Checked + 'GvDatos.Columns(18).Visible = ChkSubProyecto.Checked + GvDatos.Columns(18).Visible = ChkNombreCliente.Checked + GvDatos.Columns(19).Visible = ChkObservaciones.Checked + + + + 'Personalizo = 1 + 'If Personalizo = 1 Then + ' ImgExcelPersonalizado.Visible = True + 'Else + ' ImgExcelPersonalizado.Visible = False + 'End If + + End Sub + +#End Region End Class diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 0792aa609..5c3ef1f46 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2617,18 +2617,18 @@ Public Class ClsGenerales End Try Return Retorno - End Function - - + End Function + + #End Region - + #Region "Bitacora" Public Function GetHistorialBitacora(CveAcarreo As Integer, CveOrdenCompra As Integer, CveActivoFijo As Integer, CveOS As Integer, CvePS As Integer, CveCompra As Integer, CveIE As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1, Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveConceptoNomina As Integer = -1, Optional CvePromocion As Integer = -1, Optional CveAsistencia As Integer = -1, Optional CveAsistenciaDetalle As Integer = -1, Optional CveTipoBitacora As Integer = -1, - Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional Fecha As Date = MinFecha) As Boolean + Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional Fecha As Date = MinFecha, Optional CveContrato As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_HistorialBitacoraGet") @@ -2648,6 +2648,7 @@ Public Class ClsGenerales .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo .Add("@CveConceptoNomina", SqlDbType.Int).Value = CveConceptoNomina .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato .Add("@CveAsistencia", SqlDbType.Int).Value = CveAsistencia @@ -2698,7 +2699,7 @@ Public Class ClsGenerales CveIE As Integer, Actual As String, Anterior As String, CveUsuario As Integer, CveEmpresa As Integer, SeElimino As Integer, Descripcion As String, Tipo As String, Id_Clave As String, Optional IdPoliza As Integer = -1, Optional CvePromocion As Integer = -1, Optional CveUsuarioTabla As Integer = -1, - Optional CvePersonal As Integer = -1, Optional Motivo As String = "", Optional Fecha As String = "1900/01/01") As Boolean + Optional CvePersonal As Integer = -1, Optional Motivo As String = "", Optional Fecha As String = "1900/01/01", Optional CveContrato As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_HistorialBitacoraAdd") @@ -2725,6 +2726,7 @@ Public Class ClsGenerales .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@Motivo", SqlDbType.VarChar).Value = Motivo .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato End With diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index d78ec663b..fd14b2e9a 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1513,6 +1513,33 @@ Public Class ClsInventarios Return Retorno End Function + Public Function GetInvExistenciasCapas(CvePS As Integer, FechaI As DateTime, FechaF As DateTime, CveEmpresa As Integer, Optional CvesAlmacenes As String = "-1") As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_ExistenciasCapasGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@FechaI", SqlDbType.DateTime).Value = FechaI + .Add("@FechaF", SqlDbType.DateTime).Value = FechaF + .Add("@CvesAlmacenes", SqlDbType.VarChar).Value = CvesAlmacenes + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al obtener las existencias de los movimientos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + Catch ex As Exception + OnError("Ocurrió un error al obtener las existencias de los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index dab9d8862..b87b8b817 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -554,7 +554,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState Dim cevent As CalendarEvent = New CalendarEvent() cevent.id = dr("CveContrato").ToString.ToEntero - cevent.title = dr("DescripcionContrato").ToString + cevent.title = If(dr("CodigoAF").ToString.Trim.Length > 0, $"#{dr("CodigoAF").ToString}-{dr("DescripcionContrato").ToString}", $"-{dr("DescripcionContrato").ToString}") cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime) cevent.end = If(tipoVista = "fecha", String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime.AddHours(1)), String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime)) cevent.FechaFinal = String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index aef8546d1..11c0e9156 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6423,10 +6423,21 @@ Partial Class Compras_Compras Dim CvePrePoliza2Almacen As Integer = ObjConta.AddPrePolizas("Compras/Registrar/Almacen", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, NowADS(), ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa)) If CvePrePoliza2Almacen > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, True, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then + + Dim ImpPrepoliza As Decimal = 0D + Dim ImpPrepolizaMN As Decimal = 0D + + For Each gvRowInv As GridViewRow In GvInv.Rows + Dim gvCantidad As Decimal = gvRowInv.FCTextBox("TbCantidad").Text.ToDecimal + Dim gvPU As Decimal = gvRowInv.DataKey("PU").ToDecimal + ImpPrepoliza = ImpPrepoliza + (gvCantidad * gvPU) + Next + ImpPrepolizaMN = ImpPrepoliza * tipoCambioActual * Multiplicador + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, True, ImpPrepolizaMN.RoundSQL(2), ImpPrepolizaMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then ErrorPrepoliza = True End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, False, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, False, ImpPrepolizaMN.RoundSQL(2), ImpPrepolizaMN.RoundSQL(2), 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then ErrorPrepoliza = True End If Else diff --git a/Contratos/RepPresupuestosDetalle.aspx.vb b/Contratos/RepPresupuestosDetalle.aspx.vb index 36b32b15f..434af89c8 100644 --- a/Contratos/RepPresupuestosDetalle.aspx.vb +++ b/Contratos/RepPresupuestosDetalle.aspx.vb @@ -82,7 +82,9 @@ Partial Class Contratos_RepPresupuestosDetalle Private Sub CargaSubProyecto() DdlSubProyecto.Items.Clear() If DdlProyecto.SelectedValue.ToEntero > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then - DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1)) + DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), + GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), + GlobalDTSubProyectos(UsuarioActual.CveEmpresa, -1, DdlProyecto.SelectedValue.ToEntero, 1)) End If DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.DataBind() @@ -94,19 +96,21 @@ Partial Class Contratos_RepPresupuestosDetalle Dim CveProyecto = IfNull(Request("CveProyecto"), -1).ToString.ToEntero Dim CveSubProyecto = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero Dim CveTipoGasto = IfNull(Request("CveTipoGasto"), -1).ToString.ToEntero - Dim Agrupador = IfNull(Request("Agrupador"), -1).ToString.ToEntero + Dim Agrupador = IfNull(Request("Agrupador"), -1).ToString.ToEntero + Gpo = IfNull(Request("CveAgrupador"), -1).ToString.ToEntero + Dim Mensual = CBool(IfNull(Request("Mensual"), False)) Dim EsProyecto = CBool(IfNull(Request("EsProyecto"), False)) 'If Agrupador = 1 Then Agrupador = 2 Else Agrupador = 1 DdlAgrupador.SelectedValueExist(Agrupador) DdlClasificacion.SelectedValueExist(CveClasificacion) - If DdlAgrupador.SelectedValue.ToEntero = 1 Then + If DdlAgrupador.SelectedValue.ToEntero = 1 Then 'Clasificación DdlClasificacion.SelectedValueExist(Gpo) DdlProyecto.SelectedValueExist(CveProyecto) DdlSubProyecto.SelectedValueExist(CveSubProyecto) - ElseIf DdlAgrupador.SelectedValue.ToEntero = 2 Then + ElseIf DdlAgrupador.SelectedValue.ToEntero = 2 Then ' Centro costo If Not EsProyecto Then Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Gpo)(0) DdlProyecto.SelectedValueExist(Dr("CveProyecto")) @@ -121,6 +125,10 @@ Partial Class Contratos_RepPresupuestosDetalle TxtFiltrosFechaInicio.Text = FechaInicio TxtFiltrosFechaFin.Text = FechaFin ChkMensual.Checked = Mensual + + If Agrupador = 1 Then Agrupador = 2 Else Agrupador = 1 + DdlAgrupador.SelectedValueExist(Agrupador) + End Sub #End Region diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index 937e82045..891cfad73 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -121,30 +121,33 @@ Kardex - +
  • - PDF + PDF
  • - Excel + Excel
  • - Series Disponibles + Series Disponibles
  • - Caducidad de producto + Caducidad de producto
  • - Ayuda + Existecias por capas +
    • +
  • + Ayuda <%--
       
    --%>
    • - - + + @@ -164,17 +167,17 @@
    - Producto: + Producto:
    - +
    <%----%> - +
    - +
    @@ -192,7 +195,7 @@
    - +
    @@ -217,77 +220,81 @@
    + - -
    > -
    - -
    - - - -
    - - -
    - - - -
    - -
    - -
    - -
    - -
    - -
    - -
    - - -
    - -
    - +
    > +
    + +
    + + +
    -
    -
    + +
    + + + +
    -
    -
    Código Inicio:
    -
    -
    Código Fin:
    -
    -
    Marca
    -
    - - - -
    -
    Proveedor:
    -
    - -
    - -
    -
    -
    - Anterior +
    + +
    + +
    + +
    + +
    + +
    + + +
    + +
    +
    -
    -
    -
    - Siguiente +
    + +
    + +
    +
    Código Inicio:
    +
    + +
    +
    Código Fin:
    +
    + +
    +
    Marca
    +
    + + + +
    +
    Proveedor:
    +
    + +
    + +
    +
    +
    + Anterior +
    +
    +
    +
    + Siguiente +
    -
    @@ -424,7 +431,7 @@ - + @@ -434,31 +441,31 @@ - + - + - + - + - + - + @@ -477,19 +484,19 @@ - + - + - + @@ -545,7 +552,7 @@