Contratos, Indicadores reportes

Contratos/RepContratosObraAvances.aspx.vb

@@ -11,7 +11,7 @@ Partial Class RepContratosObraAvances
 
             CargaClientes()
             CargaContratos()
-            'CargaDatos()
+            CargaDatos()
 
         End If
     End Sub
@@ -20,9 +20,11 @@ Partial Class RepContratosObraAvances
     Private Sub CargaDatos()
 
         Dim Con As New ClsContratos
+        Dim DTDatos As New DataTable
 
-        If Con.GetContratosObraRepAvances(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, DdlContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If Con.GetContratosObraRepAvances(MinFecha, MaxFecha, DdlCliente.SelectedValue.ToEntero, DdlContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             GVDatos.DataSource = Con.DtResultados
+            DTDatos = Con.DtResultados
         Else
             GVDatos.DataSource = Nothing
         End If
@@ -30,8 +32,47 @@ Partial Class RepContratosObraAvances
         Con.Dispose()
 
         GVDatos.DataBind()
-        UpDatos.Update()
-
+        UpDatos.Update()
+
+
+        If DTDatos.Rows.Count > 0 Then
+            Indicadores(DTDatos)
+        End If
+
+    End Sub
+
+
+
+    Private Sub Indicadores(DTDatos As DataTable)
+
+        Dim NumeroContratos As Integer = DTDatos.Rows.Count
+
+        Dim TotalContratos As Decimal = DTDatos.SUM("Importe")
+        Dim TotalAvance As Decimal = DTDatos.SUM("AvanceImporte")
+        Dim TotalFaltante As Decimal = TotalContratos - TotalAvance
+
+
+        Dim TotalAvancePorcentaje As Decimal = (TotalAvance * 100) / TotalContratos
+        Dim TotalFaltantePorcentaje As Decimal = 100 - TotalAvancePorcentaje
+
+
+        LtlGrafNumeroContratos.Text = NumeroContratos.ToString
+        LtlGrafTotal.Text = TotalContratos.ToString("###,###,###.00")
+
+
+        LtlAvanceImporte.Text = $"$ {TotalAvance.ToString("###,###,###.00")}"
+        LtlAvanceImporteProcentaje1.Text = $"{TotalAvancePorcentaje.ToString("###.00")} %"
+        LtlAvanceImporteProcentaje2.Text = $"{TotalAvancePorcentaje.ToString("###.00")}%"
+        SPAvance1.Attributes.Add("style", $"width:{TotalAvancePorcentaje.ToString.ToEntero}%")
+
+
+        LtlFaltanteImporte.Text = $"$ {TotalFaltante.ToString("###,###,###.00")}"
+        LtlFaltanteImportePorcentaje1.Text = $"{TotalFaltantePorcentaje.ToString("###.00")} %"
+        LtlFaltanteImportePorcentaje2.Text = $"{TotalFaltantePorcentaje.ToString("###.00")}%"
+        SPFaltante.Attributes.Add("style", $"width:{TotalFaltantePorcentaje.ToString.ToEntero}%")
+
+        UpGrafica.Update()
+
     End Sub
 
 #Region "C O M B O S"