From 38af5f7ea97b72b294133ce243522ae76ce4d003 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 8 Sep 2022 10:05:24 -0700
Subject: [PATCH] -- ventaactual -- regimen no obligatorio

---
 Ventas/Ventas.aspx.vb | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

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