From 65761b00693634edbec33b0bd7f8d91961b5000f Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 12 Dec 2024 13:41:11 -0700
Subject: [PATCH] --FIX fecha para surtir

---
 Ventas/Ventas.aspx.vb | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index d72180b9e..30935dea6 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3629,6 +3629,8 @@ Partial Class Ventas
                 ImgAntiPend.Visible = False
             End If
 
+            InicializaDevolucionAlmacen()
+
         End If
 
     End Sub
@@ -12625,7 +12627,12 @@ Partial Class Ventas
         If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
             ObjFactura.Medico = DdlMedico.SelectedItem.Text
             ObjFactura.Procedimiento = DdlProcedimiento.SelectedItem.Text
-            ObjFactura.FechaParaSurtir = TxtFechaOS.Text.Trim.ToDateTime
+
+            Dim FechaParaSurtir As DateTime = MinFecha
+            If TxtFechaOS.Text.Replace(",", "").ToDateTime() > MinFecha Then
+                FechaParaSurtir = TxtFechaOS.Text.Replace(",", "").ToDateTime()
+            End If
+            ObjFactura.FechaParaSurtir = FechaParaSurtir
         End If
 
         'CONVERTIR REMISION - TIPO MONEDA  -DOLARES A PESOS