-- CAMBIOS EN BANCOS/FILIACIONES QUE SE TME LO CONTABLE

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