diff --git a/Bancos/FluctuacionCambiaria.aspx b/Bancos/FluctuacionCambiaria.aspx
index 9f944d3b2..c7634465c 100644
--- a/Bancos/FluctuacionCambiaria.aspx
+++ b/Bancos/FluctuacionCambiaria.aspx
@@ -806,6 +806,17 @@
+
+
+
+
+
+
+
+
diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb
index 077ad1d5b..c6ec2a338 100644
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -75,7 +75,7 @@ Partial Class Bancos_FluctuacionCambiaria
If T.ActiveTabIndex = 5 Then CargaDatosAcreedoresAnticipos()
If T.ActiveTabIndex = 6 Then CargaDatosBancosCuentas()
- If T.ActiveTabIndex = 7 Then CargaDatosFiliales()
+ If T.ActiveTabIndex = 7 Then CargaDatosAcreedoresDiversos() 'CargaDatosFiliales()
If T.ActiveTabIndex = 8 Then CargaDatosDeudores()
UpTabs.Update()
End Sub
@@ -366,7 +366,7 @@ Partial Class Bancos_FluctuacionCambiaria
Private Sub CargaDatosFiliales()
Dim ObjBancos As New ClsBancos
LblTotalAcreedores.Text = "0.00"
- If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 8, UsuarioActual.CveEmpresa) Then
+ If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 88, UsuarioActual.CveEmpresa) Then
GvFiliales.DataSource = ObjBancos.DtResultados.FiltraParametros("Saldo > 0")
LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
Else
@@ -376,6 +376,19 @@ Partial Class Bancos_FluctuacionCambiaria
ObjBancos.Dispose()
GvFiliales.DataBind()
End Sub
+ Private Sub CargaDatosAcreedoresDiversos()
+ Dim ObjBancos As New ClsBancos
+ LblTotalAcreedores.Text = "0.00"
+ If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 88, UsuarioActual.CveEmpresa) Then
+ GvAcreedorDiversos.DataSource = ObjBancos.DtResultados.FiltraParametros("Saldo > 0")
+ LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+ Else
+ GvAcreedorDiversos.DataSource = Nothing
+ Alert("Ocurrio un error al cargar los acreedores", TipoMensaje.MsgAdvertencia)
+ End If
+ ObjBancos.Dispose()
+ GvAcreedorDiversos.DataBind()
+ End Sub
#End Region