diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 5e1ff6b00..237f1b558 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -434,16 +434,16 @@ Partial Class Inventarios_EntregaAlmacen
 
         CveVentaAD = -1
 
-        If UsuarioActual.CveUsuario <> 100 Then
-            Exit Sub
-        End If
+        'If UsuarioActual.CveUsuario <> 100 Then
+        '    Exit Sub
+        'End If
 
         If Not IsNothing(Request("CveVenta")) AndAlso IsNumeric(Request("CveVenta")) Then
             CveVentaAD = Request("CveVenta").ToEntero()
             CargaVentaPorSurtir(Request("CveVenta").ToEntero())
-            LbSurtida.Visible = True
-            LbSurtida.Text = "SOLO MODO VISUAL"
-            BtnGuardar.Visible = False
+            'LbSurtida.Visible = True
+            'LbSurtida.Text = "SOLO MODO VISUAL"
+            'BtnGuardar.Visible = False
         End If
 
     End Sub
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index d509c1257..01522ef44 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10127,6 +10127,40 @@ Partial Class Ventas
                         End If
                     End If
 
+                    Try
+                        ViewState("CveVenta") = ObjFactura.CveVenta
+
+                        If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then
+
+                            If ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveEmbarqueManifiesto").ToEntero()) Then
+
+                            End If
+                        End If
+                        If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then
+
+                            If ObjVentas.CGame_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveManifiesto").ToEntero()) Then
+
+                            End If
+                        End If
+                    Catch ex As Exception
+                        OnError("Ocurrió un error al actualizar el embarque", ex)
+                        ErrorList.Add("Ocurrió un error al actualizar el embarque")
+                    End Try
+
+                    Try
+                        ViewState("CveVenta") = ObjFactura.CveVenta
+
+                        If Request("CveOrdenProduccion") IsNot Nothing AndAlso IsNumeric(Request("CveOrdenProduccion")) AndAlso Request("CveOrdenProduccion").ToEntero() > 0 Then
+
+                            If ObjVentas.AgroOrdenProduccionUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveOrdenProduccion").ToEntero()) Then
+
+                            End If
+                        End If
+                    Catch ex As Exception
+                        OnError("Ocurrió un error al actualizar la orden de producción", ex)
+                        ErrorList.Add("Ocurrió un error al actualizar la orden de producción")
+                    End Try
+
                     'ContPAQ El movimiento 1 es el de Venta
                     Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
                     AutoConta = AutocontaMatriz(AutoConta)
@@ -10184,36 +10218,7 @@ Partial Class Ventas
                         '    OnError("Ocurrió un error al mandar las notificaciones de autorización", ex)
                         'End Try
 
-                        Try
-                            ViewState("CveVenta") = ObjFactura.CveVenta
 
-                            If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then
-
-                                If ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveEmbarqueManifiesto").ToEntero()) Then
-
-                                End If
-                            End If
-                            If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then
-
-                                If ObjVentas.CGame_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveManifiesto").ToEntero()) Then
-
-                                End If
-                            End If
-                        Catch ex As Exception
-                            OnError("Ocurrió un error al actualizar el embarque", ex)
-                        End Try
-                        Try
-                            ViewState("CveVenta") = ObjFactura.CveVenta
-
-                            If Request("CveOrdenProduccion") IsNot Nothing AndAlso IsNumeric(Request("CveOrdenProduccion")) AndAlso Request("CveOrdenProduccion").ToEntero() > 0 Then
-
-                                If ObjVentas.AgroOrdenProduccionUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveOrdenProduccion").ToEntero()) Then
-
-                                End If
-                            End If
-                        Catch ex As Exception
-                            OnError("Ocurrió un error al actualizar la orden de producción", ex)
-                        End Try
 
                         Try
                             Dim DirectoriArchivoXML As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto) ' System.IO.Path.Combine()