Cliente:
@@ -92,6 +92,151 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Avance
+
+
+
+
+
+
+
+ |
+
+ Porcentaje
+
+
+
+
+
+
+
+ |
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--76% Avance--%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Faltante
+
+
+
+
+
+
+
+ |
+
+ Porcentaje
+
+
+
+
+
+
+
+ |
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--76% Avance--%>
+
+
+
+
+
+
+
+
+
+
+
+
@@ -116,45 +261,91 @@
DataKeyNames="CveContrato,NumeroContrato" ShowHeader="True"
CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
+
-
+
+
+
+
diff --git a/Contratos/RepContratosObraAvances.aspx.vb b/Contratos/RepContratosObraAvances.aspx.vb
index 6215f5a5a..987e7206c 100644
--- a/Contratos/RepContratosObraAvances.aspx.vb
+++ b/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).RoundAD(2)
+ Dim TotalFaltantePorcentaje As Decimal = (100 - TotalAvancePorcentaje).RoundAD(2)
+
+
+ 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"
diff --git a/Contratos/RepContratosObraAvancesDetalle.aspx b/Contratos/RepContratosObraAvancesDetalle.aspx
index 1a1269883..1cee61c45 100644
--- a/Contratos/RepContratosObraAvancesDetalle.aspx
+++ b/Contratos/RepContratosObraAvancesDetalle.aspx
@@ -8,89 +8,159 @@