-- cambio en fluctuación cambiaria mensual

Bancos/PopIEVentas.aspx.vb

@@ -1523,7 +1523,7 @@ Partial Class Bancos_PopIEVentas
                             Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
 
                             If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
-                                If UltimaFluctuacion.FechaFluctuacion < tFecha Then
+                                If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
                                     FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
                                     TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion
                                 End If

Bancos/ProveedoresAbonar.aspx.vb

@@ -929,7 +929,7 @@ Partial Class Bancos_ProveedoresAbonar
                             Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
 
                             If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
-                                If UltimaFluctuacion.FechaFluctuacion < tFecha Then
+                                If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
                                     FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
                                     TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion
                                 End If

Ventas/ClientesAbonar.aspx.vb

@@ -623,11 +623,9 @@ Partial Class Ventas_ClientesAbonar
 
         If RblTipoPago.SelectedValue = "1" Then
 
-
             Dim ValFechaDocumento As Boolean = False
-        Dim FoliosFechasValFechaDocumento As New StringBuilder
+            Dim FoliosFechasValFechaDocumento As New StringBuilder
-
+            FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago: <br/>")
-        FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago: <br/>")
 
             For Each gvRowVal As GridViewRow In GvCxC.Rows
 
@@ -813,26 +811,12 @@ Partial Class Ventas_ClientesAbonar
                     Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
 
                     If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
-                        If UltimaFluctuacion.FechaFluctuacion < tFecha Then
+                        If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
                             FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
                             TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion
                         End If
                     End If
 
-                    'If ObjIE.GetFluctuacionesBitacora(UsuarioActual.CveEmpresa) Then
-                    '    If ObjIE.DtResultados.Rows.Count > 0 Then
-                    '        Dim tFecha As Date = TxtFechaDocumento.Text.ToDate
-                    '        Dim Fecha As String = String.Format("{0}/{1}/{2}", tFecha.Year, tFecha.Month, tFecha.Day)
-                    '        Dim drr As DataRow = ObjIE.DtResultados.FiltroPrimero("Fecha < #" & Fecha & "#", "Fecha DESC")
-
-                    '        If drr IsNot Nothing Then
-                    '            FechaUltimaFluctuacion = drr("Fecha").ToString.ToDate
-                    '            TipoCambioFluctuacion = drr("TipoCambio").ToString.ToDecimal
-                    '        End If
-
-                    '    End If
-                    'End If
-
                     If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then
                         dtConceptos = ObjMov.DtResultados
                     End If
@@ -2586,7 +2570,7 @@ Partial Class Ventas_ClientesAbonar
         Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
 
         If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
-            If UltimaFluctuacion.FechaFluctuacion < tFecha Then
+            If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
                 FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
                 TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion
             End If

Ventas/Ventas.aspx.vb

@@ -14861,7 +14861,7 @@ Partial Class Ventas
                             Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
 
                             If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
-                                If UltimaFluctuacion.FechaFluctuacion < tFecha Then
+                                If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
                                     FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
                                     TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion
                                 End If
@@ -25426,7 +25426,7 @@ Partial Class Ventas
         Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
 
         If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
-            If UltimaFluctuacion.FechaFluctuacion < tFecha Then
+            If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
                 FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
                 TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion
             End If