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

-- asignación de pestaña

Browse Source
This commit is contained in:
rrene
2022-10-25 17:24:18 -07:00
parent 352d24af42
commit 7a766f606b
1 changed files with 10 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -140,9 +140,7 @@ Partial Class Bancos_FluctuacionCambiaria
LblComprasPerdidaGanancia.Text = If(Final < 0, "Ganancia", "Pérdida") LblComprasPerdidaGanancia.Text = If(Final < 0, "Ganancia", "Pérdida")
LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
Else
GvProveedores.DataSource = Nothing
Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
End If End If
ObjBancos.Dispose() ObjBancos.Dispose()
GvProveedores.DataBind() GvProveedores.DataBind()
@@ -180,9 +178,7 @@ Partial Class Bancos_FluctuacionCambiaria
LblComprasPerdidaGanancia.Text = If(Final > 0, "Ganancia", "Pérdida") LblComprasPerdidaGanancia.Text = If(Final > 0, "Ganancia", "Pérdida")
LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
Else
GvProveedoresAnt.DataSource = Nothing
Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
End If End If
ObjBancos.Dispose() ObjBancos.Dispose()
GvProveedoresAnt.DataBind() GvProveedoresAnt.DataBind()
@@ -221,9 +217,7 @@ Partial Class Bancos_FluctuacionCambiaria
LblTotalVentas.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero LblTotalVentas.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
UpIndicadoresVentas.Visible = True UpIndicadoresVentas.Visible = True
Else
GvVentas.DataSource = Nothing
Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
End If End If
ObjBancos.Dispose() ObjBancos.Dispose()
GvVentas.DataBind() GvVentas.DataBind()
@@ -258,9 +252,7 @@ Partial Class Bancos_FluctuacionCambiaria
LblTotalVentasAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero LblTotalVentasAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
UpIndicadoresVentas.Visible = True UpIndicadoresVentas.Visible = True
Else
GvClientesAnt.DataSource = Nothing
Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
End If End If
ObjBancos.Dispose() ObjBancos.Dispose()
GvClientesAnt.DataBind() GvClientesAnt.DataBind()
@@ -359,7 +351,7 @@ Partial Class Bancos_FluctuacionCambiaria
Private Sub CargaDatosDeudores() Private Sub CargaDatosDeudores()
Dim ObjBancos As New ClsBancos Dim ObjBancos As New ClsBancos
LblTotalDeudores.Text = "0.00" LblTotalDeudores.Text = "0.00"
If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 5, UsuarioActual.CveEmpresa) Then If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 9, UsuarioActual.CveEmpresa) Then
GvDeudores.DataSource = ObjBancos.DtResultados GvDeudores.DataSource = ObjBancos.DtResultados
LblTotalDeudores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero LblTotalDeudores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
Else Else
@@ -374,7 +366,7 @@ Partial Class Bancos_FluctuacionCambiaria
Private Sub CargaDatosFiliales() Private Sub CargaDatosFiliales()
Dim ObjBancos As New ClsBancos Dim ObjBancos As New ClsBancos
LblTotalAcreedores.Text = "0.00" LblTotalAcreedores.Text = "0.00"
If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 7, UsuarioActual.CveEmpresa) Then If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 8, UsuarioActual.CveEmpresa) Then
GvFiliales.DataSource = ObjBancos.DtResultados.FiltraParametros("Saldo > 0") GvFiliales.DataSource = ObjBancos.DtResultados.FiltraParametros("Saldo > 0")
LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
Else Else