AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

se está mandando la fecha como parametro "fecha" al agregar una paquetería

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-07-01 10:21:26 -07:00
parent 9ae39bcd58
commit d3cdba923b
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -2653,7 +2653,7 @@ Partial Class Inventarios_EntregaAlmacen
'Paqueterias guias 'Paqueterias guias
If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
Dim CveEstatus As Integer = 1 ' DdlEstatus.SelectedValue.ToEntero() 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 FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero() Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text
@@ -3123,7 +3123,7 @@ Partial Class Inventarios_EntregaAlmacen
'Paqueterias Guias 'Paqueterias Guias
If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero() 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 FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero() Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text