Compra B-11648 error en total almacen contra prepoliza,GDiaz - 2024.08.09
This commit is contained in:
rakcsle
255
AF/CatAF.aspx
255
AF/CatAF.aspx
@@ -54,6 +54,10 @@
|
||||
<i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel
|
||||
</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
|
||||
<asp:LinkButton ID="LnkPersonalizar" OnClick="LnkPersonalizar_Click" runat="server"><i class="fa fa-pencil"></i>Personalizar Columnas</asp:LinkButton>
|
||||
</li>
|
||||
|
||||
</ContentTemplate>
|
||||
<Triggers>
|
||||
@@ -160,7 +164,7 @@
|
||||
<asp:TemplateField ItemStyle-Width="132px">
|
||||
<ItemStyle BorderStyle="None" />
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtlCaracteristica" runat="server" Text='<%# Eval("Caracteristica","{0}:")%>' Width="65"></asp:Label>
|
||||
<asp:Label ID="LtlCaracteristica" runat="server" Text='<%# Eval("Caracteristica", "{0}:")%>' Width="65"></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
@@ -190,86 +194,311 @@
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
<div>
|
||||
<td>Encontrados:</td>
|
||||
<td><b>
|
||||
<asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b></td>
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<asp:UpdatePanel ID="UpGV" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se Encontró Activo Fijo Registrado" ToolTip="Listado de Activos Fijos" CssClass="table table-smallpadding Widthall" GridLines="None">
|
||||
<div>
|
||||
Encontrados:<b><asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b>
|
||||
</div>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se Encontró Activo Fijo Registrado" ToolTip="Listado de Activos Fijos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Código">
|
||||
|
||||
<%-- 0 --%>
|
||||
<asp:TemplateField HeaderText="Código" >
|
||||
<ItemStyle Width="70px" />
|
||||
<ItemTemplate>
|
||||
<asp:HyperLink ID="Hpl" runat="server" Text='<%# Eval("Codigo") %>' NavigateUrl='<%# Eval("CveActivoFijo", "/AF/AF.aspx?CveActivoFijo={0}")%>'></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Descripción">
|
||||
|
||||
<%-- 1 --%>
|
||||
<asp:TemplateField HeaderText="Descripción">
|
||||
<ItemTemplate>
|
||||
<%--<asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Descripcion")%>'></asp:Literal>--%>
|
||||
<asp:HyperLink ID="HplDescripcion" runat="server" Text='<%# Eval("Descripcion") %>' NavigateUrl='<%# Eval("CveActivoFijo", "/AF/AF.aspx?CveActivoFijo={0}")%>'></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 2 --%>
|
||||
<asp:TemplateField HeaderText="Tipo Act. Fijo">
|
||||
<ItemStyle Width="125px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTipoActivoFijo" runat="server" Text='<%# Eval("TipoActivoFijo")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 3 --%>
|
||||
<asp:TemplateField HeaderText="Sub Tipo Act. Fijo">
|
||||
<ItemStyle Width="125px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlSubTIpoActivoFijo" runat="server" Text='<%# Eval("SubTIpoActivoFijo")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 4 --%>
|
||||
<asp:TemplateField HeaderText="Responsable">
|
||||
<ItemStyle Width="125px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlResponsable" runat="server" Text='<%# Eval("Responsable")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 5 --%>
|
||||
<asp:TemplateField HeaderText="No. Serie">
|
||||
<ItemStyle Width="50px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlNoSerie" runat="server" Text='<%# Eval("NoSerie")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 6 --%>
|
||||
<asp:TemplateField HeaderText="Año" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemStyle Width="50px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlAño" runat="server" Text='<%# Eval("Año")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 7 --%>
|
||||
<asp:TemplateField HeaderText="SubProyecto">
|
||||
<ItemStyle Width="110px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 8 --%>
|
||||
<asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemStyle Width="50px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlEstadoActivoFijo" runat="server" Text='<%# Eval("EstadoActivoFijo")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 9 --%>
|
||||
<asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
|
||||
<ItemStyle Width="75px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</asp:TemplateField>
|
||||
|
||||
|
||||
<%-- 10 --%>
|
||||
<asp:TemplateField HeaderText="Grupo">
|
||||
<ItemStyle Width="75px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlGrupo" runat="server" Text='<%# Eval("Grupo")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 11 --%>
|
||||
<asp:TemplateField HeaderText="Marca">
|
||||
<ItemStyle Width="100px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlMarcaActivoFijo" runat="server" Text='<%# Eval("MarcaActivoFijo")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 12 --%>
|
||||
<asp:TemplateField HeaderText="Modelo">
|
||||
<ItemStyle Width="100px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlModeloActivoFijo" runat="server" Text='<%# Eval("ModeloActivoFijo")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 13 --%>
|
||||
<asp:TemplateField HeaderText="Nombre Cuenta">
|
||||
<ItemStyle Width="100px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlNombreCuenta" runat="server" Text='<%# Eval("NombreCuenta")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 14 --%>
|
||||
<asp:TemplateField HeaderText="Valor Compra" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemStyle Width="75px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlValorCompra" runat="server" Text='<%# Eval("ValorCompra", "{0:C}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 15 --%>
|
||||
<asp:TemplateField HeaderText="Fecha Compra" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemStyle Width="75px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaCompra" runat="server" Text='<%# Eval("FechaCompra", "{0:d}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 16 --%>
|
||||
<asp:TemplateField HeaderText="Fecha Baja" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemStyle Width="75px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaBaja" runat="server" Text='<%# Eval("FechaBaja", "{0:d}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 17 --%>
|
||||
<asp:TemplateField HeaderText="Proyecto">
|
||||
<ItemStyle Width="110px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlProyecto" runat="server" Text='<%# Eval("Proyecto")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 18 --%>
|
||||
<asp:TemplateField HeaderText="Nombre Cliente">
|
||||
<ItemStyle Width="125px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlNombreCliente" runat="server" Text='<%# Eval("NombreCliente")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 19 --%>
|
||||
<asp:TemplateField HeaderText="Observaciones">
|
||||
<ItemStyle Width="150px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlObservaciones" runat="server" Text='<%# Eval("Observaciones")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div id="DivPersonalizar" class="modal fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
|
||||
<!-- Modal content SucursalCobranza-->
|
||||
<div class="modal-content">
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<table class="table table-striped nobordertop table-advance table-hover">
|
||||
<tbody>
|
||||
<tr>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkCodigo" runat="server" Text=" Codigo" Checked="true" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkDescripcion" runat="server" Text=" Descripcion" Checked="true" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkTipoActivoFijo" runat="server" Text=" Tipo Activo Fijo" Checked="true" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkSubTIpoActivoFijo" runat="server" Text=" Sub Tipo Activo Fijo" Checked="true" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkResponsable" runat="server" Text=" Responsable" Checked="true" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkNoSerie" runat="server" Text=" No Serie" Checked="true" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkAño" runat="server" Text=" Año" Checked="true" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkSubProyecto" runat="server" Text=" Sub Proyecto" Checked="true" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkEstadoActivoFijo" runat="server" Text=" Estado Activo Fijo" Checked="true" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkFechaIng" runat="server" Text=" Fecha Ing" Checked="true" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkGrupo" runat="server" Text=" Grupo" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkMarcaActivoFijo" runat="server" Text=" Marca Activo Fijo" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkModeloActivoFijo" runat="server" Text=" Modelo Activo Fijo" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkNombreCuenta" runat="server" Text=" Nombre Cuenta" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkValorCompra" runat="server" Text=" Valor Compra" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkFechaCompra" runat="server" Text=" Fecha Compra" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkFechaBaja" runat="server" Text=" Fecha Baja" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="CheckBox1" runat="server" Text=" No Serie" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="CheckBox2" runat="server" Text=" Estado Activo Fijo" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="CheckBox3" runat="server" Text=" Responsable" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkProyecto" runat="server" Text=" Proyecto" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="CheckBox4" runat="server" Text=" Sub Proyecto" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkNombreCliente" runat="server" Text=" Nombre Cliente" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkObservaciones" runat="server" Text=" Observaciones" /></td>
|
||||
</tr>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</tbody>
|
||||
</table>
|
||||
|
||||
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<div class="row">
|
||||
<div class="col-md-6" style="text-align: left">
|
||||
<asp:CheckBox ID="ChkGuardarPersonalizacion" runat="server" Text=" Guarda Personalización" TextAlign="Right" />
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<%--<button type="button" class="btn btn-success" data-dismiss="modal" onclick="$('#BtnPersonalizar').click();">Personalizar</button>--%>
|
||||
<asp:Button ID="BtnPersonalizar" ClientIDMode="Static" CssClass="btn btn-success" runat="server" Text="Personalizar" class="btn btn-success" OnClick="BtnPersonalizar_Click" />
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
<%-- <asp:UpdatePanel runat="server">
|
||||
<ContentTemplate>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>--%>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
|
||||
<script src="/Metronic/assets/global/scripts/datatable.js"></script>
|
||||
<%-- <script src="/Metronic/assets/global/scripts/datatable.js"></script>
|
||||
<script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
|
||||
<script type="text/javascript">
|
||||
var OrdenarGV = function () {
|
||||
@@ -282,5 +511,5 @@
|
||||
$('#C_GvDatos').parent().parent().children().first().css("position", "static");
|
||||
}
|
||||
|
||||
</script>
|
||||
</script>--%>
|
||||
</asp:Content>
|
||||
|
||||
264
AF/CatAF.aspx.vb
264
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
|
||||
|
||||
Reference in New Issue
Block a user