diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index d024dcd69..110f122e6 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -10435,6 +10435,7 @@ Partial Class Compras_Compras
                     (row1("NoDeducible").ToString <> row2("NoDeducible").ToString) Or
                     (row1("CveActivoFijo").ToString.ToEntero <> row2("CveActivoFijo").ToString.ToEntero) Or
                     (row1("AFMedida").ToString.ToEntero <> row2("AFMedida").ToString.ToEntero) Or
+                    (row1("TipoAF").ToString.ToEntero <> row2("TipoAF").ToString.ToEntero) Or
                     (row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero) Then
                         Return False
                     End If
@@ -10566,7 +10567,7 @@ Partial Class Compras_Compras
 
                         'AF
                         DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2")
-                        If DT.Rows.Count > 0 AndAlso DdlTipoComprobante.SelectedValue <> "NC" And ConceptoContabilizacionAlmacen = 0 Then
+                        If DT.Rows.Count > 0 AndAlso DdlTipoComprobante.SelectedValue <> "NC" Then
                             For Each Row2 As DataRow In DT.Rows
                                 importeMovimiento = Row2("Total").ToString.ToDecimal
                                 importeMN = importeMovimiento * tipoCambioActual * Multiplicador
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index e268312f5..717cf216b 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -3381,7 +3381,7 @@ Partial Class Inventarios_EntradasSalidas
 
     Private Sub CargaCultivos()
         DdlModalCultivosCuadro.Items.Clear()
-        DdlModalCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue} AND Estatus = 1 ")
+        DdlModalCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue} AND Estatus = 1 ", "TemporadaCuadro")
         DdlModalCultivosCuadro.DataBind()
         DdlModalCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
     End Sub