diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index f5e9f3ecb..963b4f3a6 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1743,8 +1743,26 @@ Partial Class Compras_Compras
                     Select Case TipoComprobante
                         Case "ingreso" : DdlTipoComprobante.SelectedValue = "Fac" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
                         Case "egreso" : DdlTipoComprobante.SelectedValue = "NC" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) : ChkAplicaNotaCredito.Enabled = False
-                        Case "I" : DdlTipoComprobante.SelectedValue = "Fac" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
-                        Case "E" : DdlTipoComprobante.SelectedValue = "NC" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) : ChkAplicaNotaCredito.Enabled = False
+                        Case "I"
+                            DdlTipoComprobante.SelectedValue = "Fac"
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC"))
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
+                            DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("6"))
+                            DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("11"))
+                        Case "E"
+                            DdlTipoComprobante.SelectedValue = "NC"
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac"))
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
+                            ChkAplicaNotaCredito.Enabled = False
+
+
+
+                            DdlTipoCompra.Items.Clear()
+                            DdlTipoCompra.Items.Add(New ListItem("Seleccione", "-1"))
+                            DdlTipoCompra.Items.Add(New ListItem("NC Con Productos", "6"))
+                            DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11"))
+
+
                     End Select
 
                     'DIV ALIAS
@@ -10144,7 +10162,7 @@ Partial Class Compras_Compras
                     '        ErrorPrepoliza = True
                     '    End If
                     Case 6
-                        Dim CveProveedorConcepto As Integer = 0, CveAcreedor As Integer = 0, CveIE As Integer = 0, CveColectiva As Integer = 0, CveCreditoDetalle As Integer = 0
+                        Dim CveProveedorConcepto As Integer = 0, CveIE As Integer = 0, CveCreditoDetalle As Integer = 0
                         Dim ConceptoPersonal As String = "", Concepto As String = ""
 
                         If Not ObjConta.GetPrePolizasDetalle(CvePrePoliza) Then
@@ -10152,9 +10170,7 @@ Partial Class Compras_Compras
                         Else
                             If ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (6,68,49,205,176)").Rows.Count > 0 Then
                                 CveProveedorConcepto = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveProveedor").ToString.ToEntero
-                                CveAcreedor = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveAcreedor").ToString.ToEntero
                                 CveIE = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveIE").ToString.ToEntero
-                                CveColectiva = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveColectiva").ToString.ToEntero
                                 CveCreditoDetalle = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveCreditoDetalle").ToString.ToEntero
                                 Concepto = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("Concepto").ToString
                             End If
@@ -10195,7 +10211,7 @@ Partial Class Compras_Compras
                                 End If
 
                                 If importeMovimiento <> 0 Then
-                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then
                                         ErrorPrepoliza = True
                                     End If
                                 End If
@@ -10242,7 +10258,7 @@ Partial Class Compras_Compras
                                             CveCuenta = 0
                                         End If
 
-                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
                                             ErrorPrepoliza = True
                                         End If
 
@@ -10358,7 +10374,7 @@ Partial Class Compras_Compras
                                 'AGREGA MOVIMIENTO
                                 If importeMovimiento <> 0 Then
                                     Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
-                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then
                                         ErrorPrepoliza = True
                                     End If
                                 End If
@@ -10476,6 +10492,10 @@ Partial Class Compras_Compras
         _TipoComprobante = ValorXML(nodo, "tipoDeComprobante")
         TipoCambio = ValorXML(nodo, "TipoCambio", "1").ToDouble
 
+
+
+
+
         If Version = "3.3" Then
             Dim drm As DataRow = GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", ValorXML(nodo, "MetodoPago")))
             If drm IsNot Nothing Then
@@ -16333,7 +16353,10 @@ Partial Class Compras_Compras
     End Sub
 
     Protected Sub DdlTipoComprobante_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+
         If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
+
             If DdlTipoComprobante.SelectedValue = "NC" Then
                 DivReembolso.Visible = False
                 RBLPago.Items(2).Enabled = False
@@ -16359,7 +16382,9 @@ Partial Class Compras_Compras
 
 
         End If
+
         UPCondicionesPago.Update()
+
     End Sub