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