From dcc3974d9d60ea8ba83237c0ecca06fd97695d8d Mon Sep 17 00:00:00 2001
From: janeth arvizu <janeth.arvizu@adssistemas.mx>
Date: Wed, 20 Nov 2019 10:03:23 -0700
Subject: [PATCH] =?UTF-8?q?Desactivar=20boton=20facturar=20si=20no=20se=20?=
 =?UTF-8?q?surti=C3=B3=20=C3=B3=20recibi=C3=B3=20mercanc=C3=ADa*?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 5dae7aa3a..46bf006b6 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3436,8 +3436,8 @@ Partial Class Ventas
 
                 Dim ObjUsados As New ClsVentas
                 Dim DtUsados As DataTable = Nothing
-                If ObjUsados.GetVentasUsados(CveVenta, DdlSubProyectoDatos.SelectedValue.ToEntero(), TxtFecha.Text.ToDateTime(), UsuarioActual.CveEmpresa) Then
-                    DtUsados = ObjVentas.DtResultados
+                If ObjUsados.GetVentasUsados(CveVenta, DdlSubProyectoDatos.SelectedValue.ToEntero(), DbRowVenta("Fecha").ToString.ToDateTime, UsuarioActual.CveEmpresa) Then
+                    DtUsados = ObjUsados.DtResultados
                 End If
                 ObjUsados.Dispose()