diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 326cc6a22..efe2c4f5d 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9676,14 +9676,20 @@ Public Class ClsPaginas
             tImporteCompra = (Pago.ImportePago * TCValuacionCompra).RoundSQL
             tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL
         End If
+        Dim ImportePagoMN As Decimal = Pago.ImportePago
+        Dim UsaComplementaria As Boolean = True
         If CompraActual.CveMoneda > 1 Then ImporteME = Pago.ImportePago
 
-        'movimiento de pago proveedor
-        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, Pago.CveConceptoPago, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+        If UsuarioActual.CveEmpresa.Contiene(13, 83) Then 'caso excepcional de complementarias
+            UsaComplementaria = False
+            ImportePagoMN = (Pago.ImportePago * TCValuacionCompra).RoundSQL
+        End If
 
+        'movimiento de pago proveedor
+        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImportePagoMN, Pago.CveConceptoPago, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
 
         'movimiento de pago proveedor Complementaria
-        If Not ErrorMovtos AndAlso CompraActual.CveMoneda > 1 Then
+        If Not ErrorMovtos AndAlso CompraActual.CveMoneda > 1 AndAlso UsaComplementaria Then
 
             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (ImporteME * TCValuacionCompra - ImporteME).RoundSQL, CveConceptoContableComplementaria, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
 
@@ -9833,7 +9839,7 @@ Public Class ClsPaginas
 
         End If
 
-        If Pago.TipoPago = "DD" AndAlso Not ErrorMovtos Then '  D E U D O R  D I V E R S O  
+        If Pago.TipoPago = "DD" AndAlso Not ErrorMovtos Then '  D E U D O R   D I V E R S O  
             Dim Ret As New ConceptosRetenciones
             If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                 If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index e95df4dd1..8941c6e1b 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -878,7 +878,7 @@ Partial Class Bancos_ProveedoresAbonar
                             End If
                         Next
 
-                        Dim UsaComplementariaBancos As Boolean = Not UsuarioActual.CveEmpresa.Contiene(7, 11, 122, 145)
+                        Dim UsaComplementariaBancos As Boolean = Not UsuarioActual.CveEmpresa.Contiene(7, 11, 122, 145, 13, 83)
                         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 = TxtImporte.Text.ToDecimal
@@ -899,10 +899,13 @@ Partial Class Bancos_ProveedoresAbonar
                             End If
 
                         Else
+                            Dim ImporteME As Decimal = 0
+                            If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then
+                                ImporteME = tImporteMN
+                                tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
+                            End If
 
-                            If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
-
-                            If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
+                            If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=tImporteMN) Then
                                 MsgError = "No se pudo insertar la póliza"
                             End If
 
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index c83d36b37..f8f7b44d8 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6954,6 +6954,8 @@ Partial Class Compras_Compras
                                                         Case 5 'Proveedores
                                                             If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor
                                                             Dim UsaComplementaria As Boolean = True
+
+                                                            If UsuarioActual.CveEmpresa.Contiene(13, 83) Then UsaComplementaria = False
                                                             If tipoCambioActual <> 1 Then
                                                                 Select Case ConceptoContable
                                                                     Case 5