diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 2bb063817..de41ff9c0 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -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]
diff --git a/Compras/RepComprasAFDetalle.aspx b/Compras/RepComprasAFDetalle.aspx
index a16109925..b4d4f8667 100644
--- a/Compras/RepComprasAFDetalle.aspx
+++ b/Compras/RepComprasAFDetalle.aspx
@@ -226,12 +226,23 @@
+
+
+
+ SubProyecto
+
+
+
+
+
+
ActivoFijo
-
+ <%----%>
+
@@ -253,6 +264,37 @@
+
+
+
+ Responsable
+
+
+
+
+
+
+
+
+ Horometro/Odometro
+
+
+
+
+
+
+
+
+
+ Tipo Mantenimiento
+
+
+
+
+
+
+
+
Unidad de Medida
diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb
index 3da3a329f..d903d5b4d 100644
--- a/Compras/RepComprasAFDetalle.aspx.vb
+++ b/Compras/RepComprasAFDetalle.aspx.vb
@@ -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("Clasificación: " & DdlClasificacion.SelectedItem.Text)
End If
+
+ If DdlClasificacion2.SelectedIndex > 0 Then
+ ListaFiltros.Add("Clasificación 2: " & DdlClasificacion2.SelectedItem.Text)
+ End If
+
For Each s As String In ListaFiltros
If Contador > 0 Then
diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
index c64ce9ebd..54b24800a 100644
--- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
+++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
@@ -584,22 +584,73 @@
- 3.00921cm
+ 2.03633cm
- 4.47377cm
+ 2.54796cm
- 2.95726cm
+ 4.20919cm
- 6.97146cm
+ 2.24876cm
+
+
+ 6.34152cm
0.6cm
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!TipoUbicacion.Value
+
+
+
+
+
+
+ TipoUbicacion
+
+ 2pt
+
+
+
+
+
+ 1pt
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
@@ -779,6 +830,46 @@
+
+
+ 0.52062cm
+
+
+ true
+ true
+
+
+
+
+ Tipo Ubicación
+
+
+
+
+
+
+ Textbox28
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
0.52062cm
@@ -1004,7 +1095,7 @@
8.2018cm
0.42363cm
1.12062cm
- 19.10097cm
+ 19.07303cm
3
@@ -100,7 +120,7 @@
0.84237cm
0.09525cm
0cm
- 25.79479cm
+ 26.76762cm
1
@@ -168,6 +200,40 @@
+
+
+
+ true
+ true
+
+
+
+
+ Sub Proyecto
+
+
+
+
+
+
+ Textbox14
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
@@ -178,7 +244,10 @@
Descripcion
-
+
@@ -209,7 +278,10 @@
Producto
-
+
@@ -230,6 +302,86 @@
+
+
+
+ true
+ true
+
+
+
+
+ Responsable
+
+
+
+
+
+
+ Textbox16
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Horometro/
+
+
+
+
+
+
+
+
+ Odometro
+
+
+
+
+
+
+ Textbox18
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
@@ -239,8 +391,11 @@
- Unidad M.
-
+ U.M.
+
@@ -271,7 +426,10 @@
Cantidad
-
+
@@ -302,7 +460,10 @@
PU
-
+
@@ -333,7 +494,10 @@
Total
-
+
@@ -392,6 +556,39 @@
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!SubProyecto.Value
+
+
+
+
+
+
+ SubProyecto
+
+
+ =IIF(Fields!Orden.Value.ToString = "0","Silver","White")
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
@@ -400,7 +597,7 @@
- =Fields!Descripcion.Value
+ =Fields!CodigoAF.Value
@@ -456,6 +653,72 @@
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!NombreCompleto.Value
+
+
+
+
+
+
+ NombreCompleto
+
+
+ =IIF(Fields!Orden.Value.ToString = "0","Silver","White")
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!AFMedida.Value
+
+
+
+
+
+
+ AFMedida
+
+
+ =IIF(Fields!Orden.Value.ToString = "0","Silver","White")
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
@@ -610,6 +873,9 @@
+
+
+
@@ -626,7 +892,7 @@
0.9482cm
0.09525cm
1.06771cm
- 25.79479cm
+ 26.76762cm
2
@@ -722,7 +988,7 @@
1.10271cm
0.09525cm
0.52945cm
- 25.79479cm
+ 26.76762cm
1