Correcion de pago en dolares

Bancos/ProveedoresAbonar.aspx.vb

@@ -1966,6 +1966,40 @@ Partial Class Bancos_ProveedoresAbonar
                                         End If
 
                                     End If
+
+                                    If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
+                                        'fluctuación.
+                                        Dim TCPago = TxtTCDolares.Text.ToDecimal
+
+                                        Dim ImporteFluctuacion As Decimal = 0 '((ImporteSeleccionado / TCPago) - TxtImporte.Text.ToDecimal)
+
+                                        Dim DtPrePoliza As DataTable = Nothing
+                                        If ObjMov.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                                            DtPrePoliza = ObjMov.DtResultados.Copy
+                                        End If
+
+                                        Dim PagoProveedoresME = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 312 AND TipoMovto = 0")
+                                        Dim Bancos = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 30 AND TipoMovto = 1")
+                                        Dim BancosComplementaria = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 204 AND TipoMovto = 1")
+
+                                        DtPrePoliza.Dispose()
+
+                                        ImporteFluctuacion = PagoProveedoresME - (Bancos + BancosComplementaria)
+
+                                        If ImporteFluctuacion.RoundSQL() <> 0 Then
+                                            'SI EL PAGO DE PROVEEDORES ME ES MAYOR QUE BANCOS METER EL CONCEPTO DE GANANCIA
+                                            If ImporteFluctuacion > 0 Then
+                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), Referencia, 64, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then
+                                                    MsgError = "Ocurrio un error al saldar el movimiento"
+                                                End If
+                                            ElseIf ImporteFluctuacion < 0 Then
+                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), Referencia, 65, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then
+                                                    MsgError = "Ocurrio un error al saldar el movimiento"
+                                                End If
+                                            End If
+                                        End If
+                                    End If
+
                                 Else
                                     If CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
                                         TipoCambioPago = TxtTCDolares.Text.ToDecimal