Modify All BO Stoploss - KiteNet

ModifyAllBOStoploss.txt

Public Function ModifyAllBOStoploss(ByVal ParentOrderId As String) As String
    On Error GoTo ErrHandler:
'This is generic example to modify all BO stoploss at certain % from Ltp
'Modify the code to suit your requirements
'Make sure you are not calling this function in a loop
'Use static variables to restrict multiple calling of this function

    Dim ModifyPct As Single
    ModifyPct = 0.25 / 100    'Modify the stoploss with 0.25% from Ltp

    Dim ChildOrders As String
    ChildOrders = Kite.GetChildOrders(ParentOrderId)

    If ChildOrders = vbNullString Then ModifyAllBOStoploss = "NullChildOrders": Exit Function

    Dim ChildOrderArray() As String
    ChildOrderArray = Split(ChildOrders, ",")

    'Loop through all child orders
    'Check for SL order type
    'Check for transaction

    Dim ChildOrder As Variant
    For Each ChildOrder In ChildOrderArray
        If ChildOrders <> vbNullString Then    'Check for Null or Empty order id
            Dim OrdType As String
            OrdType = Kite.GetOrderType(ChildOrder)
            If OrdType = "SL" Then    'Modify only if OrderType SL
                Dim Trans As String
                Dim Exch As String
                Dim TrdSym As String

                Trans = Kite.GetOrderTrans(ChildOrder)
                Exch = Kite.GetOrderExch(ChildOrder)
                TrdSym = Kite.GetOrderTrdSym(ChildOrder)

                Dim Ltp As Double
                Ltp = Kite.GetLtp(Exch, TrdSym)

                If Ltp > 0 Then    'Check we have correct Ltp
                    Dim NewSlPrice As Double
                    Dim PointsToModify As Double
                    PointsToModify = Ltp * ModifyPct    '455 * 0.0025 = 1.14
                    
                    If Trans = "BUY" Then    'SL BUY Order
                        NewSlPrice = Ltp + PointsToModify
                    Else    'SL SELL order
                        NewSlPrice = Ltp - PointsToModify
                    End If

                    'Modify the BO stoploss order
                    Kite.ModifyBOSl ChildOrder, NewSlPrice
                End If

            End If
        End If
    Next
    ModifyAllBOStoploss = "Success"
    Exit Function
ErrHandler:
    ModifyAllBOStoploss = Err.Description
End Function