From 535bf49d36aa56e92ca45a0a8a165b054845dfdd Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 11 Sep 2023 18:56:13 -0700
Subject: [PATCH] -

---
 Bancos/FluctuacionCambiaria.aspx    | 10 ++++------
 Bancos/FluctuacionCambiaria.aspx.vb | 16 +++++++---------
 2 files changed, 11 insertions(+), 15 deletions(-)

diff --git a/Bancos/FluctuacionCambiaria.aspx b/Bancos/FluctuacionCambiaria.aspx
index e675c9d97..343bfe9ce 100644
--- a/Bancos/FluctuacionCambiaria.aspx
+++ b/Bancos/FluctuacionCambiaria.aspx
@@ -734,11 +734,11 @@
                                 <asp:Button Text="Generar Bancos" runat="server" ID="BtnGeneraBancos" OnClick="BtnGeneraBancos_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarBancos" />
                                  <asp:HiddenField ID="HdnBancoCvePrePoliza" runat="server" />
                                 <asp:HyperLink ID="HplBancosLiga" runat="server" Text="Ver Póliza" CssClass="Texto" Visible="false" />
-                                <asp:Button ID="BtnBancosRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnBancosRemove_Click" class="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="Está seguro de eliminar?" data-btn-ok-label="si" /></div>
+                                <asp:Button ID="BtnBancosRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnBancosRemove_Click" class="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="Está seguro de eliminar?" data-btn-ok-label="si" />
 
                             </div>
 
-                        </div> 
+                         </div>
 
                         <br />
                         <asp:GridView ID="GvCuentas" Width="99%" runat="server" AutoGenerateColumns="False"
@@ -787,7 +787,7 @@
                                 <i></i>
                             </div> 
 
-                            <div class="col-md-6" style="text-align: right!important">
+                            <div class="col-md-5" style="text-align: right!important">
                                    <asp:HiddenField ID="HdnAcreedoresDiversosCvePrePoliza" runat="server" />
                                 <asp:HyperLink ID="HplAcreedoresDiversosPoliza" runat="server" Text="Ver Póliza" CssClass="Texto" Visible="false" />
                                 <asp:Button ID="BtnAcreedoresDiversosRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnAcreedoresDiversosRemove_Click"  class="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="Está seguro de eliminar?" data-btn-ok-label="si" />
@@ -797,9 +797,7 @@
                         </div>
 
                         <br /> 
-
-                        <div style="float: right; margin-right: 50px;">
-                        </div>  
+                                              
                        <asp:GridView ID="GvAcreedorDiversos" Width="99%" runat="server" AutoGenerateColumns="False"
                             DataKeyNames="TipoCambio,Fluctuacion,RazonSocial,CveProveedor"
                             EmptyDataText="No se Encontraron" ToolTip=""
diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb
index 7a0eca2ca..7a4eb6aee 100644
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -51,15 +51,15 @@ Partial Class Bancos_FluctuacionCambiaria
         'Año Anterior
         DdlAnio.Items.Add(New ListItem(Now.AddYears(-1).Year.ToString(), Now.AddYears(-1).Year.ToString()))
 
-        For i = 1 To 12
-            Dim fecha = New DateTime(DdlAnio.SelectedValue.ToEntero(), i, 1)
-            Dim mes = fecha.ToString("MMMM", CultureInfo.GetCultureInfo("es-MX"))
-            Dim mesStr = Char.ToUpper(mes(0)) + mes.Substring(1)
+        For i As Integer = 1 To 12
+            Dim fecha As DateTime = New DateTime(DdlAnio.SelectedValue.ToEntero(), i, 1)
+            Dim mes As String = fecha.ToString("MMMM", CultureInfo.GetCultureInfo("es-MX"))
+            Dim mesStr As String = Char.ToUpper(mes(0)) + mes.Substring(1)
 
             DdlMes.Items.Add(New ListItem(mesStr, i.ToString()))
         Next
 
-        Dim UltimaFluctuacion = GlobalTipoCambioUltimaFluctuacion(Now)
+        Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(Now)
         If UltimaFluctuacion IsNot Nothing Then
             DdlMes.SelectedValueExist(UltimaFluctuacion.FechaFluctuacion.Month)
             DdlMes.SelectedValueExist(UltimaFluctuacion.FechaFluctuacion.Year)
@@ -86,7 +86,6 @@ Partial Class Bancos_FluctuacionCambiaria
         UpTabs.Update()
     End Sub
 
-
     Private Sub CargaTipoCambio()
         Dim ObjGenerales As New ClsGenerales
         ObjGenerales.GetTipoCambio(-1, FechaUltimoDiaMes)
@@ -99,7 +98,6 @@ Partial Class Bancos_FluctuacionCambiaria
 
     Private Sub CargaUltimaFluctuacion()
 
-
         Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(Now)
 
         If UltimaFluctuacion IsNot Nothing Then
@@ -1067,7 +1065,7 @@ Partial Class Bancos_FluctuacionCambiaria
         'TotalAcumulado = GvAcreedorDiversos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) Convert.ToDecimal(GvAcreedorDiversos.DataKeys(gvr.RowIndex)("Fluctuacion")))
 
 
-        If TotalAcumulado < 0 Then
+        If TotalAcumulado > 0 Then
             CveConceptoContable = 64 : TipoMovto = True
         Else
             CveConceptoContable = 65 : TipoMovto = False
@@ -1087,7 +1085,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Next
         If Not ErrorRegistrar Then
 
-            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(TotalAcumulado), Math.Abs(TotalAcumulado), CveConceptoContable, ConceptoFluctuacion, ConceptoFluctuacion, CveSubProyecto:=DdlSubProyectoAcreedoresDiversos.SelectedValue.ToEntero) Then
+            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovto, Math.Abs(TotalAcumulado), Math.Abs(TotalAcumulado), CveConceptoContable, ConceptoFluctuacion, ConceptoFluctuacion, CveSubProyecto:=DdlSubProyectoAcreedoresDiversos.SelectedValue.ToEntero) Then
                 ErrorRegistrar = True
             End If
         End If