diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 81ca0bc0f..8ee3d686f 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4087,20 +4087,20 @@ Partial Class Compras_Compras
             Exit Sub
         End If
 
-        'DF - 10/04/2017
-        If UsuarioActual.TienePermisoProceso(187) Then
-            If TxtSerie.Text <> SerieVieja Then
-                Dim dtt As DataTable = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa)
-                If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
-                    Dim SerieNueva As String = dtt.FiltroPrimeroValor("Serie", $"Serie = '{TxtSerie.Text}'").ToString
-                    If SerieNueva = "" Then
-                        Alert("La Serie no es válida, por favor revise que se encuentre dentro de la lista de las sucursales del proveedor.", TipoMensaje.MsgAdvertencia)
-                        Exit Sub
-                    End If
-                End If
+        ''DF - 10/04/2017
+        'If UsuarioActual.TienePermisoProceso(187) Then
+        '    If TxtSerie.Text <> SerieVieja Then
+        '        Dim dtt As DataTable = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa)
+        '        If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
+        '            Dim SerieNueva As String = dtt.FiltroPrimeroValor("Serie", $"Serie = '{TxtSerie.Text}'").ToString
+        '            If SerieNueva = "" Then
+        '                Alert("La Serie no es válida, por favor revise que se encuentre dentro de la lista de las sucursales del proveedor.", TipoMensaje.MsgAdvertencia)
+        '                Exit Sub
+        '            End If
+        '        End If
 
-            End If
-        End If
+        '    End If
+        'End If
 
         'Excede el limite de credito
         If RBLPago.SelectedValue = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac") AndAlso UsuarioActual.Empresa.Funcionalidad(518) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(185) Then
@@ -6037,14 +6037,19 @@ Partial Class Compras_Compras
                                                             If importeMovimiento <> 0 Then
                                                                 Dim IdCtaIva As Integer = 0
                                                                 IdCtaIva = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
+                                                                Dim ttConceptoContable As Integer = 14
 
-                                                                If ObjConta.GetRetCuenta(14, UsuarioActual.CveEmpresa) And Not IdCtaIva > 0 Then
+                                                                If ObjConta.GetRetCuenta(ttConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaIva > 0 Then
                                                                     If ObjConta.DtResultados.Rows.Count > 0 Then
                                                                         IdCtaIva = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
                                                                     End If
                                                                 End If
 
-                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 14, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIva, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
+                                                                If chkImportacion.Checked Then
+                                                                    ttConceptoContable = 287
+                                                                End If
+
+                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ttConceptoContable, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIva, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
                                                                     ErrorPrepoliza = True
                                                                 End If
                                                             End If