diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb
index fca85e652..73dbec805 100644
--- a/OC/RepOC.aspx.vb
+++ b/OC/RepOC.aspx.vb
@@ -385,10 +385,17 @@ Partial Class RepOC
GvConsultar.DataSource = OC.DtResultados
DtOC = OC.DtResultados
DtPorAtender = OC.DtResultados
- LblTotal.Text = OC.DtResultados.SUM("Total").FormatoNumero
If UsuarioActual.TienePermisoProceso(227) Then
- DivTotalOC.Visible = True
+ DivIndicadores.Visible = True
+ DivIndicadores.InnerHtml = String.Empty
+ Dim Cantidad As Integer = DtOC.COUNT("CveOrdenCompra")
+ Dim TotalPesos As Double = DtOC.SUM("Total", "CveMoneda = 1")
+ Dim TotalDolares As Double = DtOC.SUM("Total", "CveMoneda = 2")
+ Dim Total As Double = TotalPesos + (TotalDolares * GlobalTipoCambio)
+
+ MuestraIndicador(DivIndicadores, "green-haze", "fa fa-money", "Órdenes de Compra", Cantidad.ToString, "Cantidad", "$" + Total.FormatoNumero, "Total", "$" + TotalPesos.FormatoNumero, "Pesos", "$" + TotalDolares.FormatoNumero, "Dólares")
+ UPPIndicador.Update()
End If
'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
@@ -603,6 +610,17 @@ Partial Class RepOC
End Sub
#End Region
-
+#Region "Indicadores"
+ Private Sub MuestraIndicador(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, C1 As String, CT1 As String, C2 As String, CT2 As String, C3 As String, CT3 As String, C4 As String, CT4 As String)
+ Dim htmldiv As New StringBuilder
+ htmldiv.AppendFormat("{0}