Ventas/Ventas.aspx.vb

@@ -9703,6 +9703,18 @@ Partial Class Ventas
                         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.CveEmpresa, UsuarioActual.CveUsuario, Request("CveOrdenProduccion").ToEntero()) Then
+
+                                End If
+                            End If
+                        Catch ex As Exception
+                            OnError("Ocurrió un error al actualizar el embarque", ex)
+                        End Try
 
                         Try
                             Dim DirectoriArchivoXML As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto) ' System.IO.Path.Combine()