--FIX fecha para surtir

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