diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index be7ba0a55..7006cc25e 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2064,9 +2064,25 @@ Partial Class Inventarios_EntregaAlmacen
                         End If
 
                         If ErrorMovInv Then Exit For
-
                     Next
                 End If
+
+                If Not ErrorMovInv Then
+                    Dim CvePrePolizaSinCosto As Integer = ObjConta.AddPrePolizas("EA/SinCost", 53, 0, 0, 1, TxtFecha.Text.ToDate, "Entrega", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    If CvePrePolizaSinCosto > 0 Then
+
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaSinCosto, False, 0, 0, 68, TxtObservaciones.Text, TxtObservaciones.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=False) Then
+                            ErrorMovInv = True
+                        End If
+
+                        If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaSinCosto, True, 0, 0, 68, TxtObservaciones.Text, TxtObservaciones.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=False) Then
+                            ErrorMovInv = True
+                        End If
+                    Else
+                        ErrorMovInv = True
+                    End If
+                End If
+
             End If
 
             If Not ErrorMovInv Then