diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 702b2b7b4..4ea149588 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5067,6 +5067,7 @@ Partial Class Ventas
 
             VentaActual = New Venta
             VentaActual.CveVenta = CveVenta
+            VentaActual.Fecha = DbRowVenta("Fecha").ToString.ToDate
             VentaActual.CveCliente = DbRowVenta("CveCliente").ToString.ToEntero
             VentaActual.CveMoneda = DbRowVenta("CveMoneda").ToString.ToEntero
             VentaActual.SerieFolio = DbRowVenta("SerieFolio").ToString
@@ -8461,17 +8462,8 @@ Partial Class Ventas
                 Alert("El cliente no tiene asignado un régimen fiscal.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
-
-            Dim EsPersonaMoral As Boolean = (TipoPersona = True)
-            If EsPersonaMoral AndAlso String.IsNullOrEmpty(RegimenSociedad) Then
-                Alert("El cliente no tiene asignado un regimen de sociedad.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
-            End If
-
         End If
 
-
-
         If (Me.FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso String.IsNullOrEmpty(Me.ClienteSucursal.RFC))) Then
             Alert("La sucursal no tiene asignada un RFC.", TipoMensaje.MsgAdvertencia)
             Exit Sub