--Validación de timbrado

Ventas/Ventas.aspx.vb

@@ -18477,6 +18477,17 @@ Partial Class Ventas
         If UsuarioActual.Empresa.TipoFacturacion = "CFDi" Then
             If UsuarioActual.Empresa.FacturaProduccion Then
 
+                Using ObjVta As New ClsVentas
+                    If ObjVta.GetVenta(Me.CveVenta, UsuarioActual.CveEmpresa) Then
+                        Dim RowVenta As DataRow = ObjVta.DtResultados.FiltroPrimero("")
+                        If RowVenta IsNot Nothing AndAlso RowVenta("SeTimbro").ToString() = "Si" Then
+                            Dim Liga = $"document.location.href=""/Ventas/Ventas.aspx?CveVenta={Me.CveVenta}"";"
+                            Alert("La factura ya ha sido timbrada previamente", TipoMensaje.MsgAdvertencia, JSBtnAceptar:=Liga, ShowCloseButton:=False)
+                            Exit Sub
+                        End If
+                    End If
+                End Using
+
                 CreaObjetosVenta()
 
                 'PARA CUANDO YA ESTA GUARDADA LA VENTA