-- ajustar cantidad en partida

App_Code/ClsOC.vb

@@ -988,6 +988,24 @@ Public Class ClsOC
         End Try
         Return Retorno
     End Function
+
+    Public Function UpdateOrdenCompraDetalleDivideCantidad(CveOrdenCompra As Integer, CveOrdenCompraDetalle As Integer, Cantidad As Decimal, CveUsuarioModifico As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_OC_OrdenesCompraDetalleDivideCantidadUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra
+            .Add("@CveOrdenCompraDetalle", SqlDbType.Int).Value = CveOrdenCompraDetalle
+            .Add("@Cantidad", SqlDbType.Decimal).Value = Cantidad
+            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la Orden de Compra Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
     Public Function UpdateOrdenCompraMoneda(CveOrdenCompra As Integer, CveEmpresa As Integer, CveMoneda As Integer, CveUsuarioModifico As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_OC_OrdenesCompraMonedaUpdate")