From d3cdba923bd2585a53e839124b344bf975316fa1 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 1 Jul 2020 10:21:26 -0700 Subject: [PATCH] =?UTF-8?q?se=20est=C3=A1=20mandando=20la=20fecha=20como?= =?UTF-8?q?=20parametro=20"fecha"=20al=20agregar=20una=20paqueter=C3=ADa?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntregaAlmacen.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 6eb9ba7a5..d2acbfd5f 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2653,7 +2653,7 @@ Partial Class Inventarios_EntregaAlmacen 'Paqueterias guias If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then Dim CveEstatus As Integer = 1 ' DdlEstatus.SelectedValue.ToEntero() - Dim Fecha As String = "-1" 'TxtFechaPaqInterna.Text + Dim Fecha As String = Now.ToString 'TxtFechaPaqInterna.Text Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text) Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero() Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text @@ -3123,7 +3123,7 @@ Partial Class Inventarios_EntregaAlmacen 'Paqueterias Guias If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero() - Dim Fecha As String = "-1" 'TxtFechaPaqInterna.Text + Dim Fecha As String = Now.ToString 'TxtFechaPaqInterna.Text Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text) Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero() Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text