ajuste de costo indirecto

Compras/Compras.aspx.vb

@@ -4452,11 +4452,11 @@ Partial Class Compras_Compras
                                         If OCVinculada And Not (CveImportacion > 0 Or CveFlete > 0) Then
                                             CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
                                         End If
-                                        If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141) Then
+                                        If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'se comento, RMF. 2020.08.19, no le hallo sentido
                                             CveConceptoContableAlmacen = 205
                                         End If
                                     Else
-                                        CveConceptoContableAlmacen = 225
+                                    CveConceptoContableAlmacen = 225
                                     End If
 
                                     'Condiciones para los casos de facturas que son en 0 pero que se utiliza el almacen