Orden de produccion en entrega de almacen

App_Code/ClsInventarios.vb

@@ -962,7 +962,7 @@ Public Class ClsInventarios
                                   Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Double = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1,
                                   Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Double = -1, Optional CveChofer As Integer = -1, Optional Placa As String = "",
                                   Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Identificacion As String = "", Optional Domicilio As String = "",
-                                  Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "") As Integer
+                                  Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1) As Integer
 
         Dim Retorno As Integer = -1
 
@@ -1016,6 +1016,7 @@ Public Class ClsInventarios
             .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
             .Add("@Licencia", SqlDbType.VarChar).Value = Licencia
             .Add("@Modulo", SqlDbType.VarChar).Value = Modulo
+            .Add("@CveOP", SqlDbType.Int).Value = CveOP
         End With
 
         Try

vwd.webinfo

@@ -124,6 +124,8 @@
     
   
     
+  
+