AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- corrección en la visualización

Browse Source
This commit is contained in:
rrene
2024-02-17 15:34:28 -07:00
parent 2314cb7efe
commit f447227d5d
3 changed files with 10 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
AF/AF.aspx.vb
View File

@@ -661,6 +661,7 @@ Partial Class AF_AF
End Sub End Sub
Private Sub CargaTipoActivoFijo() Private Sub CargaTipoActivoFijo()
DdlTipoActivoFijo.Items.Clear()
DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(CveEmpresaActual).FiltraParametros("", "TipoActivoFijo") DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(CveEmpresaActual).FiltraParametros("", "TipoActivoFijo")
DdlTipoActivoFijo.DataBind() DdlTipoActivoFijo.DataBind()
CargaSubTipoActivoFijo() CargaSubTipoActivoFijo()

6
AF/CatClasificacionesCaracteristicas.aspx
View File

@@ -90,7 +90,7 @@
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatosCL" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatosCL" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatosCL" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristicaClasificacion" EmptyDataText="No se encontraron Clasificaciones" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None"> <asp:GridView ID="GvDatosCL" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristicaClasificacion" EmptyDataText="No se encontraron Clasificaciones" CssClass="table table-striped table-advance table-hover mysmallbtn" Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns> <Columns>
<%--<asp:TemplateField> <%--<asp:TemplateField>
<ItemTemplate>&nbsp;<asp:Literal ID="LtlTiposActivosFijosCL" runat="server" Text='<%# Eval("TipoActivoFijo", "{0}")%>'></asp:Literal></ItemTemplate> <ItemTemplate>&nbsp;<asp:Literal ID="LtlTiposActivosFijosCL" runat="server" Text='<%# Eval("TipoActivoFijo", "{0}")%>'></asp:Literal></ItemTemplate>
@@ -300,7 +300,7 @@
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatosCA" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatosCA" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatosCA" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristica" EmptyDataText="No se encontraron Características" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None"> <asp:GridView ID="GvDatosCA" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristica" EmptyDataText="No se encontraron Características" CssClass="table table-striped table-advance table-hover mysmallbtn" Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate>&nbsp;<asp:Literal ID="LtlTiposActivosFijosCA" runat="server" Text='<%# Eval("TipoActivoFijo", "{0}")%>'></asp:Literal></ItemTemplate> <ItemTemplate>&nbsp;<asp:Literal ID="LtlTiposActivosFijosCA" runat="server" Text='<%# Eval("TipoActivoFijo", "{0}")%>'></asp:Literal></ItemTemplate>
@@ -537,7 +537,7 @@
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatosOpciones" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatosOpciones" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatosOpciones" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristicaOpcion" EmptyDataText="No se encontraron Opciones" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None"> <asp:GridView ID="GvDatosOpciones" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristicaOpcion" EmptyDataText="No se encontraron Opciones" CssClass="table table-striped table-advance table-hover mysmallbtn" GridLines="None">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate>&nbsp;<asp:Literal ID="LtlTiposActivosFijosOpciones" runat="server" Text='<%# Eval("TipoActivoFijo", "{0}")%>'></asp:Literal></ItemTemplate> <ItemTemplate>&nbsp;<asp:Literal ID="LtlTiposActivosFijosOpciones" runat="server" Text='<%# Eval("TipoActivoFijo", "{0}")%>'></asp:Literal></ItemTemplate>

35
AF/CatClasificacionesCaracteristicas.aspx.vb
View File

@@ -52,7 +52,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
'Carga Globals para DT 'Carga Globals para DT
CargaTiposActivosFijos() CargaTiposActivosFijos()
CargaSubTiposActivosFijos()
''CargaCaracteristicasClasificaciones() ''CargaCaracteristicasClasificaciones()
'CargaCaracteristicas() 'CargaCaracteristicas()
End If End If
@@ -66,17 +65,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
DdlTiposActivosFijosOpciones.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) DdlTiposActivosFijosOpciones.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
DdlTiposActivosFijosOpciones.DataBind() DdlTiposActivosFijosOpciones.DataBind()
End Sub End Sub
Private Sub CargaSubTiposActivosFijos()
Dim ObjAF As New ClsAF
If ObjAF.GetSubTiposActivosFijos(UsuarioActual.CveEmpresa) Then
GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa) = ObjAF.DtResultados
Else
Alert("Ocurrio un error al obtener los SubTipos de Activos Fijos", TipoMensaje.MsgError)
End If
ObjAF.Dispose()
End Sub
#Region "CLASIFICACIONES" #Region "CLASIFICACIONES"
Protected Sub LbAgregarCL_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCL.Click Protected Sub LbAgregarCL_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCL.Click
Dim ObjCaracteristicaClasificacion As New ClsAF Dim ObjCaracteristicaClasificacion As New ClsAF
@@ -85,8 +74,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
TxtCaracteristicaClasificacionCL.Text = "" TxtCaracteristicaClasificacionCL.Text = ""
Alert("La Nueva Clasificación de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion) Alert("La Nueva Clasificación de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulosCL.Update() UpTitulosCL.Update()
GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing
CargaSubTiposActivosFijos()
If ViewState("OrdenCL").ToString() <> String.Empty Then If ViewState("OrdenCL").ToString() <> String.Empty Then
CargaGrid(ViewState("OrdenCL").ToString(), 0) CargaGrid(ViewState("OrdenCL").ToString(), 0)
@@ -147,10 +135,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
Dim ObjCaracteristicaClasificacion As New ClsAF Dim ObjCaracteristicaClasificacion As New ClsAF
If ObjCaracteristicaClasificacion.RemoveClasificacionesCaracteristicas(GvDatosCL.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then If ObjCaracteristicaClasificacion.RemoveClasificacionesCaracteristicas(GvDatosCL.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
GvDatosCL.EditIndex = -1 GvDatosCL.EditIndex = -1
GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing
CargaSubTiposActivosFijos()
'CargaCaracteristicasClasificaciones()
Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If End If
@@ -183,9 +168,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
If ObjCaracteristicaClasificacion.UpdateClasificacionesCaracteristicas(CaracteristicaClasificacion, Estatus, CveCaracteristicaClasificacion, UsuarioActual.CveEmpresa) Then If ObjCaracteristicaClasificacion.UpdateClasificacionesCaracteristicas(CaracteristicaClasificacion, Estatus, CveCaracteristicaClasificacion, UsuarioActual.CveEmpresa) Then
GvDatosCL.EditIndex = -1 GvDatosCL.EditIndex = -1
CargaSubTiposActivosFijos() GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing
'CargaCaracteristicasClasificaciones()
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If End If
@@ -228,12 +211,10 @@ Partial Class AF_CatClasificacionesCaracteristicas
TxtLongitudCA.Text = "" TxtLongitudCA.Text = ""
Alert("La Nueva Característica de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion) Alert("La Nueva Característica de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulosCA.Update() UpTitulosCA.Update()
ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
CargaSubTiposActivosFijos() GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
''CargaCaracteristicasClasificaciones()
'CargaCaracteristicas()
If ViewState("OrdenCA").ToString() <> String.Empty Then If ViewState("OrdenCA").ToString() <> String.Empty Then
CargaGrid(ViewState("OrdenCA").ToString(), 1) CargaGrid(ViewState("OrdenCA").ToString(), 1)
@@ -262,7 +243,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
End Sub End Sub
Protected Sub DdlTiposActivosFijosCA_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTiposActivosFijosCA.SelectedIndexChanged Protected Sub DdlTiposActivosFijosCA_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTiposActivosFijosCA.SelectedIndexChanged
DdlSubTiposActivosFijosCA.Items.Clear() DdlSubTiposActivosFijosCA.Items.Clear()
DdlSubTiposActivosFijosCA.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} AND CveEmpresa = {1}", DdlTiposActivosFijosCA.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)) DdlSubTiposActivosFijosCA.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa, DdlTiposActivosFijosCA.SelectedValue.ToEntero)
DdlSubTiposActivosFijosCA.DataBind() DdlSubTiposActivosFijosCA.DataBind()
DdlSubTiposActivosFijosCA.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubTiposActivosFijosCA.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
@@ -368,8 +349,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
GvDatosCA.EditIndex = -1 GvDatosCA.EditIndex = -1
GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
CargaSubTiposActivosFijos()
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If End If
@@ -596,8 +575,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
GvDatosOpciones.EditIndex = -1 GvDatosOpciones.EditIndex = -1
ViewState("DTCatacteristicaOpciones") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) ViewState("DTCatacteristicaOpciones") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
CargaSubTiposActivosFijos()
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If End If