-- corrección

Bancos/ProveedoresAbonar.aspx.vb

@@ -851,6 +851,8 @@ Partial Class Bancos_ProveedoresAbonar
 
                                 If gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then
                                     Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal
+                                Else
+                                    Pago.OtroGastoIngreso = 0
                                 End If
 
                                 If AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjMov) Then
@@ -868,7 +870,8 @@ Partial Class Bancos_ProveedoresAbonar
                         Dim UsaComplementariaBancos As Boolean = Not UsuarioActual.CveEmpresa.Contiene(7, 11, 122, 145)
                         Dim ConceptoMovimiento As String = $"{TxtPagueseA.Text.Trim} - {TxtObservaciones.Text} {If(Pago.TCPago > 1, $" TC:{Pago.TCPago}", "")}"
                         Dim Referencia As String = $"{HdnTipoTransaccionAbreviatura.Value}: {TxtFolio.Text.Trim}"
-                        Dim tImporteMN As Decimal = Pago.ImportePago
+                        Dim tImporteMN As Decimal = TxtImporte.Text.ToDecimal
+                        Pago.ImportePago = tImporteMN
 
                         If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then
                             Dim ObjCreditos As New ClsBancos
@@ -892,7 +895,7 @@ Partial Class Bancos_ProveedoresAbonar
                                 MsgError = "No se pudo insertar la póliza"
                             End If
 
-                            If UsaComplementariaBancos Then
+                            If CveMoneda = 2 AndAlso UsaComplementariaBancos Then
                                 If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, (Pago.ImportePago * Pago.TCPago - Pago.ImportePago).RoundSQL, 204, Referencia, ConceptoMovimiento, IdCuentaBancariaComplementaria, CveIE:=CveIE, CveProveedor:=CveProveedor, ImporteME:=Pago.ImportePago, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
                                     MsgError = "No se pudo insertar la póliza"
                                 End If