AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

E172 OC Totales mas detallados, en Pesos y Dlls

Browse Source
This commit is contained in:
MLopez
2023-02-16 19:13:47 -07:00
parent 350f10891c
commit 72e79c2948
2 changed files with 41 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
OC/RepOC.aspx.vb
View File

@@ -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}<div class='dashboard-stat {1}'><div class='visual'><i class='{2}' '=''></i></div>", DIV.InnerHtml, Color, Icono)
htmldiv.AppendFormat("<div class='details'><div class='number'>{0}</div><div class='desc'><label class='indicadortipo4 col-md-6 tooltips' data-original-title='{1}'>{2}</label>", Titulo, CT1, C1)
htmldiv.AppendFormat("<label class='indicadortipo4 col-md-6 tooltips' data-original-title='{0}'>{1}</label>", CT2, C2)
htmldiv.AppendFormat("<label class='indicadortipo4 col-md-6 tooltips' data-original-title='{0}'>{1}</label>", CT3, C3)
htmldiv.AppendFormat("<label class='indicadortipo4 col-md-6 tooltips' data-original-title='{0}'>{1}</label>", CT4, C4)
htmldiv.AppendFormat("</div></div></div>")
DIV.InnerHtml = htmldiv.ToString
End Sub
#End Region
End Class