-- mejoras

Bancos/FluctuacionCambiaria.aspx

@@ -489,7 +489,7 @@
                                 <asp:BoundField DataField="PerdidaGanancia" HeaderText="Acción" ItemStyle-HorizontalAlign="Left" />
                             </Columns>
                         </asp:GridView>
-                        <asp:Label ID="LblTotalVentas" runat="server" Text=""></asp:Label>
+                        <asp:Label ID="LblTotalVentas" runat="server" Text="" Visible="false"></asp:Label>
                     </ContentTemplate>
                 </ajax:TabPanel>
                  <ajax:TabPanel runat="server" ID="TabVentasAnt" HeaderText="Clientes Ant">

Bancos/FluctuacionCambiaria.aspx.vb

@@ -646,6 +646,7 @@ Partial Class Bancos_FluctuacionCambiaria
         If UsuarioActual.CveEmpresa <> 119 Then Return True
         Dim ErrorRegistrar As Boolean = False
         Dim tdt As DataTable = VerificacionFluctuacion(TipoFluctuacion, FechaUltimoDiaMes)
+        CveConcepto = 299 ' manual
         'ajustar las cuentas. 
         Dim AjusteTotal As Decimal = tdt.SUMD("Diferencia")
         Dim tTipoMovto As Boolean = If(TipoFluctuacion.Contiene(2, 3, 6), False, True) 'LAS OPCIONES QUE SE CARGAN
@@ -667,6 +668,8 @@ Partial Class Bancos_FluctuacionCambiaria
                     '    AjusteTotal = AjusteTotal + dr("Importe").ToString.ToDecimal
                     'End If
                     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
+
                     AjusteTotal = AjusteTotal + dr("Importe").ToString.ToDecimal
                     If AjusteTotal < 0 Then
                         AjusteTotal = Math.Abs(AjusteTotal) ' ' si hay cambio de fluctuacion de pérdida a ganancia, o viceversas
@@ -1393,6 +1396,8 @@ Partial Class Bancos_FluctuacionCambiaria
 
 #Region "VERIFICACION "
     Private Function VerificacionFluctuacion(Opcion As Integer, Fecha As Date) As DataTable
+        If Fecha <= ("2024/09/01").ToDate Then Return Nothing ' si s mejor a sep/24, es esquema anterior
+
         Dim tdt As DataTable = Nothing
         Dim Conta As New ClsContabilidad
         If Conta.GetAjusteFluctuacion(Opcion, Fecha, UsuarioActual.CveEmpresa) Then