diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index a96e8339d..f25ecfa5d 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -4447,7 +4447,7 @@
                                                             <ajax:FilteredTextBoxExtender ID="FTBEImportacion" runat="server" TargetControlID="txtImportacion" FilterType="Custom, Numbers" ValidChars="." />
                                                             <%--<asp:TextBox ID="TxtIVAModal" ClientIDMode="Static" Enabled="false" runat="server" CssClass=" form-control  " CausesValidation="true" MaxLength="12" ValidationGroup="GprAgregaPS"></asp:TextBox>
                                                         <ajax:FilteredTextBoxExtender ID="FTBEIVA" runat="server" TargetControlID="TxtIVAModal" FilterType="Custom, Numbers" ValidChars="." />--%>
-                                                            <label for="<%= DdlIVA.ClientID.ToString()%>">Importación:</label>
+                                                            <label for="<%= DdlIVA.ClientID.ToString()%>">IVA Importación:</label>
                                                         </div>
                                                     </div>
                                                     <div class="col-md-3">
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index d22993da7..0e723411e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -5830,9 +5830,7 @@ Partial Class Compras_Compras
 
                                                     Dim CveSubProyectoInsertar As Integer = -1
                                                     Dim ConceptoContable As Integer = Row("CveConcepto").ToString.ToEntero
-                                                    If chkImportacion.Checked And ConceptoContable = 14 Then
-                                                        ConceptoContable = 287
-                                                    End If
+
                                                     Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
                                                     Dim importeMovimiento As Decimal = 0
                                                     Dim IdCtaContable As Integer = 0
@@ -6011,6 +6009,9 @@ Partial Class Compras_Compras
 
                                                             PorcentajeImpuesto = PorcentajeIVA
                                                             IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
+                                                            If chkImportacion.Checked Then
+                                                                ConceptoContable = 288
+                                                            End If
 
                                                             If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
                                                                 If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -6041,6 +6042,11 @@ Partial Class Compras_Compras
                                                             If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
                                                             PorcentajeImpuesto = PorcentajeIVA
                                                             IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
+
+                                                            If chkImportacion.Checked Then
+                                                                ConceptoContable = 287
+                                                            End If
+
                                                             If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
                                                                 If ObjConta.DtResultados.Rows.Count > 0 Then
                                                                     IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
@@ -7598,6 +7604,7 @@ Partial Class Compras_Compras
 
                                                                         '** PRUEBA CUANDO  SE AMORTIZA NC ANTES DE QUE SE REGISTRE NO DEBE TENER CONCEPTO 19  **  JM 01/06/2017 SE HIZO ESTO PARA LA FACTURA HRFA-8012831 DE VIGILANCIA
                                                                         '[IPP] NC NO DEBE REGISTRAR IMPUESTOS EN AMORTIZACIÓN 27/Agosto/2018
+                                                                        Dim tConceptoContable As Integer
                                                                         If Not Ant.TipoMovto.Contiene("NC", "DEV") Then
                                                                             Dim PorcentajePagoAnt As Decimal = importeMovimiento / If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, TmpDT.SUMD("ImporteConImpuestos"), TxtTotal.Text.ToDecimal)
                                                                             Dim ImporteIVA As Decimal = Math.Round(PorcentajePagoAnt * TxtIVA.Text.ToDecimal, 2)
@@ -7605,12 +7612,20 @@ Partial Class Compras_Compras
 
                                                                             If ImporteIVA <> 0 Then
                                                                                 'Agregamos el 14
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteIVA, Referencia, 14, Concepto, FechaMovimiento, CtaIvaxAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then
+                                                                                tConceptoContable = 14
+                                                                                If chkImportacion.Checked Then
+                                                                                    tConceptoContable = 287
+                                                                                End If
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteIVA, Referencia, tConceptoContable, Concepto, FechaMovimiento, CtaIvaxAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then
                                                                                     ErrorPrepoliza = True
                                                                                 End If
 
                                                                                 'Agregamos el 19
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteIVA, Referencia, 19, Concepto, FechaMovimiento, CtaIvaAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then
+                                                                                tConceptoContable = 19
+                                                                                If chkImportacion.Checked Then
+                                                                                    tConceptoContable = 288
+                                                                                End If
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteIVA, Referencia, tConceptoContable, Concepto, FechaMovimiento, CtaIvaAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then
                                                                                     ErrorPrepoliza = True
                                                                                 End If
                                                                             End If