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

-- corrección

Browse Source
This commit is contained in:
rrene
2025-01-10 08:00:16 -07:00
parent 806d86e2ce
commit eb9404e470
1 changed files with 15 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -208,11 +208,9 @@ Partial Class Bancos_FluctuacionCambiaria
Dim Perdida As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion > 0") Dim Perdida As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion > 0")
Dim Ganancias As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion < 0") Dim Ganancias As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion < 0")
Dim PerdidaAux As Double = Perdida.SUM("Fluctuacion", "Fluctuacion > 0").Abs Dim PerdidaAux As Double = Perdida.SUM("Fluctuacion", "Fluctuacion > 0").Abs
Dim GanaciaAux As Double = Ganancias.SUM("Fluctuacion", "Fluctuacion < 0").Abs Dim GananciaAux As Double = Ganancias.SUM("Fluctuacion", "Fluctuacion < 0").Abs
Dim Final As Double = GanaciaAux - PerdidaAux
HdnClienteCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString HdnClienteCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
@@ -221,18 +219,18 @@ Partial Class Bancos_FluctuacionCambiaria
BtnClientesRemove.Visible = HdnClienteCvePrePoliza.Value.ToEntero > 0 BtnClientesRemove.Visible = HdnClienteCvePrePoliza.Value.ToEntero > 0
BtnGeneraVentas.Visible = Not HdnClienteCvePrePoliza.Value.ToEntero > 0 BtnGeneraVentas.Visible = Not HdnClienteCvePrePoliza.Value.ToEntero > 0
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_PerdidasVentas.Text = PerdidaAux.ToString.FormatoNumero 'LtIndicador_FinalVentas.Text = Final.ToString.FormatoNumero
LtIndicador_GanaciaVentas.Text = GanaciaAux.ToString.FormatoNumero
LtIndicador_FinalVentas.Text = Final.ToString.FormatoNumero
LblVentasPerdidaGanancia.Text = If(Final < 0, "Pérdida", "Ganancia")
LblTotalVentas.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
UpIndicadoresVentas.Visible = True UpIndicadoresVentas.Visible = True
Dim tdt As DataTable = VerificacionFluctuacion(3, FechaUltimoDiaMes) Dim tdt As DataTable = VerificacionFluctuacion(3, FechaUltimoDiaMes)
Dim Final As Decimal = tdt.SUMD("Diferencia")
IImagenFinalVentas.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd")
LblVentasPerdidaGanancia.Text = If(Final > 0, "Pérdida", "Ganancia")
LblTotalVentas.Text = (PerdidaAux - GananciaAux).FormatoNumero 'tdt.SUMD("Diferencia").FormatoNumero
LtIndicador_PerdidasVentas.Text = tdt.SUMD("Diferencia").FormatoNumero LtIndicador_PerdidasVentas.Text = tdt.SUMD("Diferencia").FormatoNumero
LtIndicador_GanaciaVentas.Text = "" LtIndicador_GanaciaVentas.Text = ""
LtIndicador_FinalVentas.Text = "" LtIndicador_FinalVentas.Text = ""
@@ -669,7 +667,8 @@ Partial Class Bancos_FluctuacionCambiaria
' AjusteTotal = AjusteTotal + dr("Importe").ToString.ToDecimal ' AjusteTotal = AjusteTotal + dr("Importe").ToString.ToDecimal
'End If 'End If
tTipoMovto = dr("TipoMovto").ToString.ToBool tTipoMovto = dr("TipoMovto").ToString.ToBool
If TipoFluctuacion.Contiene(3) AndAlso tTipoMovto AndAlso AjusteTotal > 0 Then AjusteTotal = -AjusteTotal 'si es cleintes, abonado y el ajustes es positivo tiene que restar If TipoFluctuacion.Contiene(3) AndAlso tTipoMovto Then AjusteTotal = -AjusteTotal 'si es cleintes, abonado y el ajustes es positivo tiene que restar
AjusteTotal = AjusteTotal + dr("Importe").ToString.ToDecimal AjusteTotal = AjusteTotal + dr("Importe").ToString.ToDecimal
If AjusteTotal < 0 Then If AjusteTotal < 0 Then