diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 91663ea7a..4472026cd 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6376,9 +6376,9 @@ Partial Class Compras_Compras
 
                                                                     Dim DTDistinct = DT.Copy
                                                                     If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
-                                                                        DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF, 0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+                                                                        DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF, 0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
                                                                     Else
-                                                                        DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+                                                                        DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
                                                                     End If
                                                                     'RMF, si es concepto relacionado a flete o importacion, no debe de afectar al gasto
                                                                     If CveFlete > 0 OrElse CveImportacion > 0 Then
@@ -16603,7 +16603,7 @@ Partial Class Compras_Compras
     End Sub
     Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
         If Modalidad <> "U" Or Not CveFactura > 0 Then
-            DdlPSChange()
+            DdlPSChange()
         End If
     End Sub
     Private Sub DdlPSChange()
@@ -16635,9 +16635,10 @@ Partial Class Compras_Compras
                     If ViewState("IVAPS").ToString.ToEntero() = -1 Then
                         Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero())(0)
                         ViewState("IVAPS") = Drr("IVA").ToString().ToDouble()
-
-                        'DdlIVA.Enabled = True
-
+                        DdlProyecto.SelectedValueExist(Drr("CveProyecto"))
+
+                        'DdlIVA.Enabled = True
+
                         If Not Modalidad = "U" Then
 
                             Select Case ViewState("IVAPS").ToString().ToDouble
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c522faef4..b39124cfb 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7975,7 +7975,7 @@ Partial Class Ventas
         End If
 
         If ObjFactura.TipoDocto.Contiene("Ing", "Ant") AndAlso DdlTipoRelacionAnticipo.SelectedValue.ToEntero > 0 Then ' refacturación
-            ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero
+            ObjFactura.CveTipoRelacion = DdlTipoRelacionAnticipo.SelectedValue.ToEntero
             If GVAnticipos.Rows.Count > 0 Then
                 For Each gvr As GridViewRow In GVAnticipos.Rows
                     If gvr.FCCheckBox(String.Format("Chk{0}", gvr.RowIndex)).Checked AndAlso gvr.DataKey("CveConceptoContable") = "12" Then ' solo notas de crédito
@@ -15826,6 +15826,10 @@ Partial Class Ventas
         TxtOrdenCompra.Enabled = True
         TxtPedidoContrato.Enabled = True
         TxtObsAlmacen.Enabled = True
+        DdlUsoCFDI.Enabled = True
+        DdlMetodoPago33.Enabled = True
+        DdlFormaPago33.Enabled = True
+        UPCondicionesPago.Update()
 
         ModalidadEdicion = True