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

agregando indicadores en ventas

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-01-16 15:45:03 -07:00
parent 22fe25651a
commit 3f3994a9d9
2 changed files with 75 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
Bancos/FluctuacionCambiaria.aspx
View File

@@ -165,7 +165,7 @@
<ajax:TabContainer runat="server" ID="T"> <ajax:TabContainer runat="server" ID="T">
<ajax:TabPanel runat="server" ID="TabCompras" HeaderText="Compras"> <ajax:TabPanel runat="server" ID="TabCompras" HeaderText="Compras">
<ContentTemplate> <ContentTemplate>
<asp:UpdatePanel ID="UpIndicadores" UpdateMode="Conditional" runat="server" Visible ="False"> <asp:UpdatePanel ID="UpIndicadores" UpdateMode="Conditional" runat="server" Visible="False">
<ContentTemplate> <ContentTemplate>
<div id="DivIndicadores" visible="true" class="row" runat="server"> <div id="DivIndicadores" visible="true" class="row" runat="server">
<div class="col-md-3 col-sm-6 col-xs-12"> <div class="col-md-3 col-sm-6 col-xs-12">
@@ -243,6 +243,62 @@
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel runat="server" ID="TabVentas" HeaderText="Ventas"> <ajax:TabPanel runat="server" ID="TabVentas" HeaderText="Ventas">
<ContentTemplate> <ContentTemplate>
<asp:UpdatePanel ID="UpIndicadoresVentas" UpdateMode="Conditional" runat="server" Visible="false">
<ContentTemplate>
<div id="DivIndicadoresVentas" visible="true" class="row" runat="server">
<div class="col-md-3 col-sm-6 col-xs-12">
<div class="widget-thumb text-uppercase bordered">
<h4 class="widget-thumb-heading">PERDIDA</h4>
<div class="widget-thumb-wrap">
<i class="widget-thumb-icon bg-red fa fa-money"></i>
<div class="widget-thumb-body">
<span class="widget-thumb-subtitle">MXN</span>
<span class="widget-thumb-body-stat">
<asp:Literal ID="LtIndicador_PerdidasVentas" Text="" runat="server" />
</span>
</div>
</div>
</div>
</div>
<div class="col-md-3 col-sm-6 col-xs-12">
<div class="widget-thumb text-uppercase bordered">
<h4 class="widget-thumb-heading">GANANCIA</h4>
<div class="widget-thumb-wrap">
<i class="widget-thumb-icon bg-green fa fa-money"></i>
<div class="widget-thumb-body">
<div class="row">
<div class="col-md-6">
<span class="widget-thumb-subtitle">MXN</span>
<span class="widget-thumb-body-stat">
<asp:Literal ID="LtIndicador_GanaciaVentas" Text="" runat="server" />
</span>
</div>
</div>
</div>
</div>
</div>
</div>
<div class="col-md-3 col-sm-6 col-xs-12">
<div class="widget-thumb text-uppercase bordered">
<h4 class="widget-thumb-heading">FINAL</h4>
<div class="widget-thumb-wrap">
<i id="IImagenFinalVentas" runat="server" class=""></i>
<div class="widget-thumb-body">
<div class="row">
<div class="col-md-6">
<span class="widget-thumb-subtitle">MXN</span>
<span class="widget-thumb-body-stat">
<asp:Literal ID="LtIndicador_FinalVentas" Text="" runat="server" />
</span>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div style="float: right; margin-right: 50px;"> <div style="float: right; margin-right: 50px;">
<asp:Button Text="Generar Clientes" runat="server" ID="BtnGeneraVentas" OnClick="BtnGeneraVentas_Click" Style="margin-left: 30px;" class="btn btn-primary" /> <asp:Button Text="Generar Clientes" runat="server" ID="BtnGeneraVentas" OnClick="BtnGeneraVentas_Click" Style="margin-left: 30px;" class="btn btn-primary" />
</div> </div>

19
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -78,7 +78,7 @@ Partial Class Bancos_FluctuacionCambiaria
Dim GanaciaAux As Double = Ganancias.SUM("Fluctuacion") Dim GanaciaAux As Double = Ganancias.SUM("Fluctuacion")
Dim Final As Double = GanaciaAux - PerdidaAux Dim Final As Double = GanaciaAux - PerdidaAux
'"widget-thumb-icon bg-green-jungle fa fa-usd"widget-thumb-icon bg-red fa fa-usd
IImagenResultado.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd") IImagenResultado.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd")
LtIndicador_ExistenciaPerdida.Text = PerdidaAux.ToString.FormatoNumero LtIndicador_ExistenciaPerdida.Text = PerdidaAux.ToString.FormatoNumero
@@ -103,7 +103,24 @@ Partial Class Bancos_FluctuacionCambiaria
LblTotalVentas.Text = "0.00" LblTotalVentas.Text = "0.00"
If ObjBancos.GetFluctuaciones(TxtFecha.Text.ToDate, 2, UsuarioActual.CveEmpresa) Then If ObjBancos.GetFluctuaciones(TxtFecha.Text.ToDate, 2, UsuarioActual.CveEmpresa) Then
GvVentas.DataSource = ObjBancos.DtResultados GvVentas.DataSource = ObjBancos.DtResultados
Dim Perdida As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion < 0")
Dim Ganancias As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion > 0")
Dim PerdidaAux As Double = Perdida.SUM("Fluctuacion").Abs
Dim GanaciaAux As Double = Ganancias.SUM("Fluctuacion")
Dim Final As Double = GanaciaAux - PerdidaAux
IImagenFinalVentas.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd")
LtIndicador_PerdidasVentas.Text = PerdidaAux.ToString.FormatoNumero
LtIndicador_GanaciaVentas.Text = GanaciaAux.ToString.FormatoNumero
LtIndicador_FinalVentas.Text = Final.ToString.FormatoNumero
LblTotalVentas.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero LblTotalVentas.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
UpIndicadoresVentas.Visible = True
Else Else
GvVentas.DataSource = Nothing GvVentas.DataSource = Nothing
Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia) Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)