-- parametro usuario

App_Code/ClsInventarios.vb

@@ -6311,7 +6311,7 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function UpdatePedidoDetalleCantidad(CveVentaDetalle As Integer, Cantidad As Decimal, Optional Opcion As Integer = 1) As Boolean
+    Public Function UpdatePedidoDetalleCantidad(CveVentaDetalle As Integer, Cantidad As Decimal, CveUsuario As Integer, Optional Opcion As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasDetalleCantidadUpdate")
 
@@ -6319,6 +6319,7 @@ Public Class ClsInventarios
             .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle
             .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
         End With
 
         Try