diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 3569a58bf..628e7c404 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -378,6 +378,9 @@
             <li>
                 <asp:LinkButton ID="LnkSolicitarCredito" Visible="false" runat="server"><i class="fa fa-plus"></i>Solicitar autorización de crédito</asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton ID="LnkCancelarSoloCFDI" Visible="false" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea cancelar el CFDI?" data-btn-ok-label="si" OnClick="LnkCancelarSoloCFDI_Click"><i class="fa fa-plus"></i>Cancelar solo CFDI</asp:LinkButton>
+            </li>
         </ContentTemplate>
         <Triggers>
             <asp:AsyncPostBackTrigger ControlID="LnkImprimir" EventName="Click" />
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index baea76166..f25d14e3b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2340,6 +2340,11 @@ Partial Class Ventas
 
         If Not IsPostBack Then
 
+            ''SOLO SISTEMA DEBE VER ESTA OPCION
+            'If UsuarioActual.CveUsuario = 100 Then
+            '    LnkCancelarSoloCFDI.Visible = True
+            'End If
+
             If IfNull(Request("Opcionx"), "").ToString = "Saldar" And UsuarioActual.CveUsuario = 100 Then
                 TxtFechaSaldarVenta.Text = "2021/12/31"
                 SaldarVenta()
@@ -16193,6 +16198,8 @@ Partial Class Ventas
 #Region "  BTN ELIMINAR   "
     Protected Sub BtnEmitir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnEmitir.Click
 
+        'ChkEnviarFactura.Checked = False
+
         If CveVenta <= 0 Then
             Alert("Ocurrió un error al emitir la factura", TipoMensaje.MsgError)
             Exit Sub
@@ -35731,5 +35738,32 @@ Partial Class Ventas
 
 #End Region
 
+    Protected Sub LnkCancelarSoloCFDI_Click(sender As Object, e As EventArgs)
+        If CveVenta > 0 Then
+            Dim RowVenta As DataRow = Nothing
+
+            Using ObjVentas As New ClsVentas
+                If (ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa)) Then
+                    RowVenta = ObjVentas.DtResultados.Copy().Rows(0)
+                End If
+            End Using
+
+            If RowVenta IsNot Nothing Then
+                Dim FolioFiscal As String = RowVenta("FolioFiscal").ToString().Trim()
+                Dim Total As Decimal = RowVenta("Total").ToString().ToDecimal()
+                Dim RFCReceptor As String = RowVenta("RFCReceptor").ToString()
+                Dim ObjTimbrado As New Timbrado
+                Dim resp = ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC, CvePACCancelacion:=4, ValidaFactura:=False, CveSATMotivoCancelacion:=2)
+                If resp IsNot Nothing Then
+                    Alert(resp.Estado)
+                End If
+
+            End If
+        End If
+
+
+
+
+    End Sub
 End Class