+ AutoGenerateColumns="False" AllowPaging="False">
-
+
-
-
-
+ <%--TODO: Esto se puede meter en el stored procedured, pero me da cosa moverle :S--%>
+
+
+ <%--TODO: Esto puede tronar si el valor es DBNull --%>
+ <%# If(Convert.ToDecimal(Eval("Cantidad")) = 0, 0.ToString("C"), (Convert.ToDecimal(Eval("SubTotal")) / Convert.ToInt32(Eval("Cantidad"))).ToString("C")) %>
+
+
+ <%----%>
-
@@ -342,7 +346,8 @@
AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
-
+
+
diff --git a/General/RepIndicadorResumen.aspx.vb b/General/RepIndicadorResumen.aspx.vb
index fa27177ea..46b34244a 100644
--- a/General/RepIndicadorResumen.aspx.vb
+++ b/General/RepIndicadorResumen.aspx.vb
@@ -32,7 +32,6 @@ Partial Class General_RepIndicadorResumen
Dim ObjVentas As New ClsVentas
Dim ObjCompras As New ClsCompras
- Dim ObjMovtos As New ClsMovimientos
Dim ObjCitrus As New ClsCGame
Dim Grupo As Integer = 28 'Clasificación - PS
@@ -41,9 +40,14 @@ Partial Class General_RepIndicadorResumen
GvVxP.DataSource = ObjVentas.DtResultados
End If
+ If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1,
+ UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then
+ GvCompProductores.DataSource = ObjCompras.DtResultados.FiltraParametros("", "Cantidad DESC")
+ End If
+
If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text, UsuarioActual.CveUsuario, DdlSubProyecto.SelectedValue.ToEntero) Then
'Compras Productores
- GvCompProductores.DataSource = ObjCitrus.DTSetResultados.Tables(0).FiltraParametros("", "RazonSocial ASC")
+ 'GvCompProductores.DataSource = ObjCitrus.DTSetResultados.Tables(0).FiltraParametros("", "RazonSocial ASC")
'CxP Productores
GvCxP192.DataSource = ObjCitrus.DTSetResultados.Tables(1).FiltraParametros("", "CveMoneda,Saldo DESC")
'CxP NO productores
@@ -55,6 +59,7 @@ Partial Class General_RepIndicadorResumen
End If
ObjVentas.Dispose()
+ ObjCompras.Dispose()
ObjCitrus.Dispose()
GvVxP.DataBind()
@@ -167,28 +172,11 @@ Partial Class General_RepIndicadorResumen
End Sub
Dim CompProductoresTotales As Decimal() = New Decimal(5 - 1) {}
Protected Sub GvCompProductores_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCompProductores.RowDataBound
- 'Esto tambien se podrÃa meter en el Stored Procedure
If e.Row.RowType = DataControlRowType.DataRow Then
- CompProductoresTotales(0) += Convert.ToDecimal(IfNull(DataBinder.Eval(e.Row.DataItem, "Cantidad"), 0))
- CompProductoresTotales(1) += Convert.ToDecimal(IfNull(DataBinder.Eval(e.Row.DataItem, "SubTotal"), 0))
- CompProductoresTotales(2) += Convert.ToDecimal(IfNull(DataBinder.Eval(e.Row.DataItem, "PUPromedioKG"), 0))
- CompProductoresTotales(3) += Convert.ToDecimal(IfNull(DataBinder.Eval(e.Row.DataItem, "Saldo"), 0))
- CompProductoresTotales(4) += Convert.ToDecimal(IfNull(DataBinder.Eval(e.Row.DataItem, "Abonado"), 0))
- ElseIf e.Row.RowType = DataControlRowType.Footer Then
- 'Movemos el pie a la primera fila de la tabla
- Dim footerRow As GridViewRow = e.Row
- GvCompProductores.Controls(0).Controls.Remove(footerRow)
- GvCompProductores.Controls(0).Controls.AddAt(1, footerRow)
- 'Ahora se registran los datos
- e.Row.Cells(0).Text = "Totales"
- e.Row.Cells(1).Text = CompProductoresTotales(0).ToString("N")
- e.Row.Cells(2).Text = CompProductoresTotales(1).ToString("C")
- e.Row.Cells(3).Text = (CompProductoresTotales(2) / GvCompProductores.Rows.Count).ToString("C") 'Promedio
- e.Row.Cells(4).Text = CompProductoresTotales(3).ToString("C")
- e.Row.Cells(5).Text = CompProductoresTotales(4).ToString("C")
- For i As Integer = 1 To e.Row.Cells.Count - 1
- e.Row.Cells(i).CssClass = "margenbound"
- Next
+ If e.Row.DBCampo("Orden") = "00ND" Then
+ e.Row.CssClass = "Totales"
+ e.Row.Cells(0).Text = "Total " + e.Row.DBCampo("Moneda")
+ End If
End If
End Sub
Protected Sub GvComprasAcreed_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCompAcreed.RowDataBound
@@ -257,13 +245,15 @@ Partial Class General_RepIndicadorResumen
DtCompProductores.Columns.Add("UnidadC")
DtCompProductores.Columns.Add("UnidadI")
For Each Dr As DataRow In GvCompProductores.DataSource.Rows
- Dim Row = DtCompProductores.NewRow()
- Row("Texto") = Dr("RazonSocial").ToString
- Row("Cantidad") = Dr("Cantidad").ToString.FormatoNumero
- Row("Importe") = Dr("SubTotal").ToString.FormatoNumero
- Row("UnidadC") = "Kg"
- Row("UnidadI") = "MXN"
- DtCompProductores.Rows.Add(Row)
+ If Not Dr("Orden").ToString = "00ND" Then
+ Dim Row = DtCompProductores.NewRow()
+ Row("Texto") = Dr("GPO").ToString
+ Row("Cantidad") = Dr("Cantidad").ToString.FormatoNumero
+ Row("Importe") = Dr("SubTotal").ToString.FormatoNumero
+ Row("UnidadC") = "Kg"
+ Row("UnidadI") = "MXN"
+ DtCompProductores.Rows.Add(Row)
+ End If
Next
Dim comp_productores = From s In DtCompProductores.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Cantidad = s("Cantidad").ToString().ToDouble(), .Importe = s("Importe").ToString().ToDouble(), .UnidadC = s("UnidadC").ToString(), .UnidadI = s("UnidadI").ToString()}
Dim group_comp_productores = comp_productores.GroupBy(Function(x) x.Texto).[Select](Function(g) New With {
diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx
index 8a3b2fb41..25098cc6c 100644
--- a/OC/RepOC.aspx
+++ b/OC/RepOC.aspx
@@ -274,18 +274,16 @@
-