diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index fe6236592..ff9740c04 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -17911,7 +17911,12 @@ Partial Class Ventas
                             Msg.AppendFormat("<span style=""font-size:14px;""> La nota de crédito <a class=""Texto"" target=""_blank"" style=""font-size:18px;font-weight:bold;""  href=""/Ventas/Ventas.aspx?CveVenta={0}"">{1}</a> se genero correctamente.</span> <br/>", respNC.CveVenta, respNC.SerieFolio)
 
                             Dim SeTimbroNC As Boolean = False
-                            MsgTimbrado = TimbrarNC(respNC.Factura, SeTimbroNC)
+
+                            If LblSeTimbro.Text = "Si" Then
+                                MsgTimbrado = TimbrarNC(respNC.Factura, SeTimbroNC)
+                            Else
+                                MsgTimbrado = "No se pudo timbrar porque la factura de ingreso no ha sido timbrada previamente"
+                            End If
 
                             If Not String.IsNullOrEmpty(MsgTimbrado) Then
                                 Dim StrEr As String = $"<br/><div id = 'DivTipoCambioAdvertencia'  class='alert alert-danger' style='padding: 5px; margin-bottom: 5px; padding-right: 25px;'><strong style = 'font-size: 20px; margin-right: 25px;' > Comprobante no emitido :  </strong><br/> {MsgTimbrado}<br/>Por favor inténtelo de nuevo a través del botón 'Emitir' en ventas.</div>"