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

Rep AF agrupador y filtro Clasificaion 2, Carta porte

Browse Source
This commit is contained in:
rakcsle
2021-12-11 11:08:11 -07:00
parent b5cf21cbb9
commit f08ec17d64
5 changed files with 450 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Compras/PopUpVerFactura.aspx.vb
View File

@@ -937,6 +937,7 @@ Partial Class PopUpVerFactura
Dim NumPolizaSeguroMedioAmbiente As String = ""
Dim NombreAseguradoraCarga As String = ""
Dim NumPolizaSeguroCarga As String = ""
Dim TipoUbicacion As String = ""
@@ -1077,6 +1078,7 @@ Partial Class PopUpVerFactura
'NumPolizaSeguroMedioAmbiente = ValorXML(nodeAutotransporteFederal, "", "")
'NombreAseguradoraCarga = ValorXML(nodeAutotransporteFederal, "", "")
'NumPolizaSeguroCarga = ValorXML(nodeAutotransporteFederal, "", "")
'TipoUbicacion = ValorXML(TipoUbicacion, "", "")
End If
@@ -1221,6 +1223,9 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("SubTotal", SubTotal.ToString()))
params.Add(New ReportParameter("Descuentos", Descuentos.ToString()))
params.Add(New ReportParameter("Total", Total.ToString()))
params.Add(New ReportParameter("TipoUbicacion", TipoUbicacion))
' [@CertificadoContribuyente]
'[@CadenaOriginal]

44
Compras/RepComprasAFDetalle.aspx
View File

@@ -226,12 +226,23 @@
</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("Descripcion") %>'></asp:Label>--%>
<asp:Label ID="LblActivoFijo" CssClass="ML Truncate" runat="server" Text='<%# Eval("CodigoAF") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
@@ -253,6 +264,37 @@
</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 ItemStyle-HorizontalAlign="Left">
<HeaderTemplate>
Unidad de Medida

13
Compras/RepComprasAFDetalle.aspx.vb
View File

@@ -163,7 +163,7 @@ Partial Class Compras_RepComprasAFDetalle
End If
If UsuarioActual.CveEmpresa = 72 Then
GvDatos.Columns(2).Visible = True
GvDatos.Columns(3).Visible = True
End If
End If
@@ -186,6 +186,10 @@ Partial Class Compras_RepComprasAFDetalle
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
DdlClasificacion.DataBind()
DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
DdlClasificacion2.DataBind()
DdlClasificacion2.Items.Insert(0, New ListItem("Sin Clasificación", "-2"))
DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
DdlActivoFijo.DataBind()
DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -277,7 +281,7 @@ Partial Class Compras_RepComprasAFDetalle
If ObjCompras.GetRepComprasAFDetalle(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlMonedas.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1,
DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico,
DdlClasificacion.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlTipoActivoFijo.SelectedValue.ToEntero, DdlSubTipoActivoFijo.SelectedValue.ToEntero,
CvePS, Anio.ToEntero, Mes.ToEntero, AnioMes, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
CvePS, Anio.ToEntero, Mes.ToEntero, AnioMes, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero) Then
DTDatos = ObjCompras.DtResultados
GvDatos.DataSource = ObjCompras.DtResultados
@@ -435,6 +439,11 @@ Partial Class Compras_RepComprasAFDetalle
ListaFiltros.Add("<b>Clasificación:</b> " & DdlClasificacion.SelectedItem.Text)
End If
If DdlClasificacion2.SelectedIndex > 0 Then
ListaFiltros.Add("<b>Clasificación 2:</b> " & DdlClasificacion2.SelectedItem.Text)
End If
For Each s As String In ListaFiltros
If Contador > 0 Then