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

Rep Compras AF Detalle: Agregar Tipo, SubTipo, Clasificacion. Limpiar código. Corregir configuración de centros de costo.

Browse Source
This commit is contained in:
MLopez
2023-01-21 14:10:24 -07:00
parent f427d5707d
commit 793b06166a
2 changed files with 30 additions and 168 deletions
Download Patch File Download Diff File Expand all files Collapse all files

160
Compras/RepComprasAFDetalle.aspx
View File

@@ -8,6 +8,9 @@
max-width:600px;
width:600px;
}
.margenbound {
text-align: right;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
@@ -156,7 +159,6 @@
<div class="col-md-1"><asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label></div>
<div class="col-md-2">
<asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
@@ -164,7 +166,6 @@
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
<div class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
@@ -213,144 +214,25 @@
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" data-sort="true" DataKeyNames="Cantidad,Total,Moneda" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
<Columns>
<asp:TemplateField>
<HeaderTemplate>
Factura
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblFactura" runat="server" Text='<%# Eval("SerieFolio") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
SubProyecto
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblSubProyecto" CssClass="ML Truncate" runat="server" Text='<%# Eval("SubProyecto") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
ActivoFijo
</HeaderTemplate>
<ItemTemplate>
<%--<asp:Label ID="LblActivoFijo" CssClass="ML Truncate" runat="server" Text='<%# Eval("Descripcion") %>'></asp:Label>--%>
<asp:Label ID="LblActivoFijo" CssClass="ML Truncate" runat="server" Text='<%# Eval("CodigoAF") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField Visible="false">
<HeaderTemplate>
No. Serie
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblNoSerie" CssClass="ML Truncate" runat="server" Text='<%# Eval("NoSerie") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
Producto
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblPS" runat="server" CssClass="ML Truncate" Text='<%# Eval("CodigoPS") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
Responsable
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblResponsable" runat="server" CssClass="ML Truncate" Text='<%# Eval("NombreCompleto") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
Horometro/Odometro
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblHorometroOdometro" runat="server" CssClass="ML Truncate" Text='<%# Eval("AFMedida") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
Tipo Mantenimiento
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblAFTipoMantenimientoStr" runat="server" CssClass="ML Truncate" Text='<%# Eval("AFTipoMantenimientoStr") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
Clasificación 2
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblClasificacion2" runat="server" CssClass="ML Truncate" Text='<%# Eval("Clasificacion2") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left">
<HeaderTemplate>
Unidad de Medida
</HeaderTemplate>
<ItemTemplate>
<asp:Label Id="LtlPU" runat="server" Text='<%# Eval("UnidadMedida") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<HeaderTemplate>
Cantidad
</HeaderTemplate>
<ItemTemplate>
<asp:Label Id="LtlCantidad" runat="server" Text='<%# Eval("Cantidad", "{0:N0}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<HeaderTemplate>
PU
</HeaderTemplate>
<ItemTemplate>
<asp:Label Id="LtlPU" runat="server" Text='<%# Eval("PU", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<HeaderTemplate>
Total
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblCantidad" style="margin-right:15px" runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px">
<HeaderTemplate>
Cuenta
</HeaderTemplate>
<ItemTemplate>
<asp:Label Id="LtlPU" runat="server" Text='<%# Eval("CuentaContable") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<Columns>
<asp:BoundField DataField="SerieFolio" HeaderText="Factura" />
<asp:BoundField DataField="SubProyecto" ItemStyle-CssClass="ML Truncate" HeaderText="SubProyecto" />
<asp:BoundField DataField="CodigoAF" ItemStyle-CssClass="ML Truncate" HeaderText="Activo Fijo" />
<asp:BoundField DataField="NoSerie" ItemStyle-CssClass="ML Truncate" HeaderText="No. Serie" Visible="false"/>
<asp:BoundField DataField="CodigoPS" ItemStyle-CssClass="ML Truncate" HeaderText="Producto" />
<asp:BoundField DataField="NombreCompleto" ItemStyle-CssClass="ML Truncate" HeaderText="Responsable" />
<asp:BoundField DataField="AFMedida" ItemStyle-CssClass="ML Truncate" HeaderText="Horómetro/Odómetro" />
<asp:BoundField DataField="AFTipoMantenimientoStr" ItemStyle-CssClass="ML Truncate" HeaderText="Tipo Mantenimiento" />
<asp:BoundField DataField="TipoActivoFijo" ItemStyle-CssClass="ML Truncate" HeaderText="Tipo AF" />
<asp:BoundField DataField="SubTipoActivoFijo" ItemStyle-CssClass="ML Truncate" HeaderText="SubTipo AF" />
<asp:BoundField DataField="Clasificacion" ItemStyle-CssClass="ML Truncate" HeaderText="Clasificación" />
<asp:BoundField DataField="Clasificacion2" ItemStyle-CssClass="ML Truncate" HeaderText="Clasificación 2" />
<asp:BoundField DataField="UnidadMedida" HeaderText="Unidad de Medida" />
<asp:BoundField DataFormatString="{0:N0}" DataField="Cantidad" ItemStyle-CssClass="margenbound" HeaderText="Cantidad" />
<asp:BoundField DataFormatString="{0:C2}" DataField="PU" ItemStyle-CssClass="margenbound" HeaderText="PU" />
<asp:BoundField DataFormatString="{0:C2}" DataField="Total" ItemStyle-CssClass="margenbound" HeaderText="Total" />
<asp:BoundField DataField="CuentaContable" HeaderText="Cuenta" ItemStyle-Width="100px" />
</Columns>
<%--<RowStyle CssClass="Texto" />
<HeaderStyle CssClass="Titulos" />--%>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>

38
Compras/RepComprasAFDetalle.aspx.vb
View File

@@ -226,31 +226,7 @@ Partial Class Compras_RepComprasAFDetalle
DdlPS.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
End If
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlProyecto.Visible = False
LblSubProyecto.Text = "Sucursal"
LblProyecto.Visible = False
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlProyecto.Visible = False
LblSubProyecto.Text = "Proyecto"
LblProyecto.Visible = False
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Or UsuarioActual.Empresa.Tipo_CentroCosto = 0 Then
LblProyecto.Text = "Proyecto"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.Text = "Sucursal"
LblSubProyecto.Text = "Proyecto"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LblProyecto.Text = "Proyecto"
LblSubProyecto.Text = "Sucursal"
End If
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
End Sub
@@ -264,15 +240,19 @@ Partial Class Compras_RepComprasAFDetalle
End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyecto()
If DdlProyecto.SelectedValue = "-1" Then
DdlProyecto.Items.Clear()
DdlSubProyecto.Items.Clear()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
Else
CargaSubProyecto()
End If
End Sub
Private Sub CargaSubProyecto()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue), "SubProyecto")
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
CargaDatos()