E119. Fluctuacion cambiaria mensual

2021-12-21 19:16:12 -07:00
parent 345dedb782
commit 26752b51e3
15 changed files with 996 additions and 713 deletions
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -800,20 +800,31 @@ Partial Class Ventas_ClientesAbonar
                    Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
                    Dim TipoCambioFluctuacion As Decimal = 1
                    Dim FechaUltimaFluctuacion As Date = MinFecha
-                    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
+                    Dim tFecha As Date = TxtFechaDocumento.Text.ToDate
+                    Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)

+                    If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing 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
@@ -2554,24 +2565,35 @@ Partial Class Ventas_ClientesAbonar
        Dim CvePrePoliza As Integer = 0
        Dim MsgError As String = ""

-        Dim ObjIE As New ClsBancos
+        'Dim ObjIE As New ClsBancos
        Dim FechaUltimaFluctuacion As Date = MinFecha
        Dim TipoCambioFluctuacion As Decimal = 1
-        If ObjIE.GetFluctuacionesBitacora(UsuarioActual.CveEmpresa) Then
-            If ObjIE.DtResultados.Rows.Count > 0 Then
-                Dim tFecha As Date = TxtFechaIncobrable.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
+        Dim tFecha As Date = TxtFechaIncobrable.Text.ToDate
+        Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)

+        If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
+            If UltimaFluctuacion.FechaFluctuacion < tFecha Then
+                FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
+                TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion
            End If
        End If

-        ObjIE.Dispose()
+        'If ObjIE.GetFluctuacionesBitacora(UsuarioActual.CveEmpresa) Then
+        '    If ObjIE.DtResultados.Rows.Count > 0 Then
+        '        Dim tFecha As Date = TxtFechaIncobrable.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
+
+        'ObjIE.Dispose()

        CvePrePoliza = ObjConta.AddPrePolizas("Bancos/ClientesAbonar/SaldarI", 47, 0, 0, 1, TxtFechaIncobrable.Text.ToDate, TxtObsSaldarIncobrable.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)

--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6285,7 +6285,7 @@ Partial Class Ventas
        Dim ValorAutorizacion As String = UsuarioActual.Empresa.Funcionalidad(595)

        'OBLIGAR PAGO DE CONTADO SI EL CLIENTE NO PERMITE CREDITO
-        If UsuarioActual.Empresa.Funcionalidad(570) = "1" AndAlso Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot") AndAlso EsCreaApartirDe) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) Then
+        If UsuarioActual.Empresa.Funcionalidad(570) = "1" AndAlso Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso EsCreaApartirDe) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) Then
            RBLPago.SelectedValue = "2"
            RBLPago.Items(0).Enabled = False
            RBLPago_SelectedIndexChanged(Nothing, Nothing)
@@ -14611,20 +14611,31 @@ Partial Class Ventas

                            Dim FechaUltimaFluctuacion As Date = MinFecha
                            Dim TipoCambioFluctuacion As Decimal = 1
-                            If ObjIE.GetFluctuacionesBitacora(UsuarioActual.CveEmpresa) Then
-                                If ObjIE.DtResultados.Rows.Count > 0 Then
-                                    Dim tFecha As Date = Now 'gvr.DataKey("Fecha").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")
+                            Dim tFecha As Date = Now

-                                    If drr IsNot Nothing Then
-                                        FechaUltimaFluctuacion = drr("Fecha").ToString().ToDate
-                                        TipoCambioFluctuacion = drr("TipoCambio").ToString().ToDecimal
-                                    End If
+                            Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)

+                            If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing 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 = Now 'gvr.DataKey("Fecha").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 DdlMoneda.SelectedValue.ToEntero() = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 1 Then 'SI LA VENTA VIENE EN PESOS Y SE VA A PAGAR EN PESOS
                                tipoCambioPago = 1
                                tipoCambioVenta = 1
@@ -23935,6 +23946,7 @@ Partial Class Ventas
                    For Each Dr2 As DataRow In DtContratosSerieDetalle.FiltraParametros($"ConsecId = {Dr("CveContratoDetalle")}").Rows
                        Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, factura.CveEmpresa, CveAlmacenExistenciasContrato, Serie:=Dr2("Serie").ToString(), FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1)
                        If Existencia < 1 Then
+                            GuardaLogAD($"El producto no tiene existencia: CvePS:{CveProducto},CveUnidad:{CveUnidad},Cantidad: {Cantidad},Existencia: {Existencia},CveAlmacen:{CveAlmacenExistenciasContrato},Serie:{Dr2("Serie").ToString()}")
                            Return False
                        End If

@@ -23947,6 +23959,7 @@ Partial Class Ventas
                Else
                    Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, factura.CveEmpresa, CveAlmacenExistenciasContrato, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1)
                    If Existencia < Cantidad Then
+                        GuardaLogAD($"El producto no tiene existencia: CvePS:{CveProducto},CveUnidad:{CveUnidad},Cantidad: {Cantidad},Existencia: {Existencia},CveAlmacen:{CveAlmacenExistenciasContrato}")
                        Return False
                    End If

@@ -24719,24 +24732,34 @@ Partial Class Ventas
        Dim CvePrePoliza As Integer = 0
        Dim MsgError As String = ""

-        Dim ObjIE As New ClsBancos
+        'Dim ObjIE As New ClsBancos
        Dim FechaUltimaFluctuacion As Date = MinFecha
        Dim TipoCambioFluctuacion As Decimal = 1
-        If ObjIE.GetFluctuacionesBitacora(UsuarioActual.CveEmpresa) Then
-            If ObjIE.DtResultados.Rows.Count > 0 Then
-                Dim tFecha As Date = TxtFechaSaldarVenta.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
+        Dim tFecha As Date = TxtFechaSaldarVenta.Text.ToDate
+        Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)

+        If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing 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 = TxtFechaSaldarVenta.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")

-        ObjIE.Dispose()
+        '        If drr IsNot Nothing Then
+        '            FechaUltimaFluctuacion = drr("Fecha").ToString().ToDate
+        '            TipoCambioFluctuacion = drr("TipoCambio").ToString().ToDecimal
+        '        End If
+
+        '    End If
+        'End If
+
+        ' ObjIE.Dispose()


        Dim IdCtaContable As Integer = IdCtaContClientes
@@ -27719,20 +27742,29 @@ Partial Class Ventas
        TipoCambioFactura = TxtTipoCambio.Text.ToDecimal

        If DdlMoneda.SelectedValue.ToEntero() > 1 Then
-            Dim ObjIE As New ClsBancos
-            If ObjIE.GetFluctuacionesBitacora(UsuarioActual.CveEmpresa) Then
-                If ObjIE.DtResultados.Rows.Count > 0 Then
-                    Dim tFecha As Date = TxtFecha.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
-                        TipoCambioFactura = drr("TipoCambio").ToString().ToDecimal
-                    End If
+            Dim tFecha As Date = TxtFecha.Text.ToDate
+            Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)

+            If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
+                If UltimaFluctuacion.FechaFluctuacion > tFecha Then
+                    TipoCambioFactura = UltimaFluctuacion.TCFluctuacion
                End If
            End If
-            ObjIE.Dispose()
+
+            'Dim ObjIE As New ClsBancos
+            'If ObjIE.GetFluctuacionesBitacora(UsuarioActual.CveEmpresa) Then
+            '    If ObjIE.DtResultados.Rows.Count > 0 Then
+            '        Dim tFecha As Date = TxtFecha.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
+            '            TipoCambioFactura = drr("TipoCambio").ToString().ToDecimal
+            '        End If
+
+            '    End If
+            'End If
+            'ObjIE.Dispose()
        Else
            TipoCambioFactura = 1
        End If