This is my code when i placed the order, orderID generate successfully but Order Status not receive at that time plz give me solution for that thank you CODE............................................................................... Try
Dim Exch As String = InputBox("Enter Exch", "Exch", "NSE") Dim Trdsym As String = InputBox("Enter TrdSymbol", "TrdSymbol", "ICICIBANK") Dim Trans As String = InputBox("Enter Transaction Type", "Transaction", "BUY") Dim QtyStr As String = InputBox("Enter Qty", "Qty", "1") Dim Qty As Integer = 0 Integer.TryParse(QtyStr, Qty) Dim OrderId As String = Kite.PlaceRegularOrder(Exch, Trdsym, Trans, "MARKET", Qty, "MIS") MsgBox("Order Placed Successfully. OrderId is " & OrderId & "Order Status :" & Kite.GetOrderStatus(OrderId)) Catch ex As Exception MsgBox(ex.Message) End Try
Dim Exch As String = InputBox("Enter Exch", "Exch", "NSE") Dim Trdsym As String = InputBox("Enter TrdSymbol", "TrdSymbol", "ICICIBANK") Dim Trans As String = InputBox("Enter Transaction Type", "Transaction", "BUY") Dim QtyStr As String = InputBox("Enter Qty", "Qty", "1") Dim Qty As Integer = 0 Integer.TryParse(QtyStr, Qty) Dim OrderId As String = Kite.PlaceRegularOrder(Exch, Trdsym, Trans, "MARKET", Qty, "MIS") MsgBox("Order Placed Successfully. OrderId is " & OrderId & "Order Status :" & Kite.GetOrderStatus(OrderId)) Catch ex As Exception MsgBox(ex.Message) End Try
You can check out documentation to know more about response.
this is my code
Dim Exch As String = InputBox("Enter Exch", "Exch", "NSE")
Dim Trdsym As String = InputBox("Enter TrdSymbol", "TrdSymbol", "ICICIBANK")
Dim Trans As String = InputBox("Enter Transaction Type", "Transaction", "BUY")
Dim QtyStr As String = InputBox("Enter Qty", "Qty", "1")
Dim Qty As Integer = 0
Integer.TryParse(QtyStr, Qty)
Dim OrderId As String = Kite.PlaceRegularOrder(Exch, Trdsym, Trans, "MARKET", Qty, "MIS")
MsgBox("Order Placed Successfully. OrderId is " & OrderId & "Order Status :" & Kite.GetOrderStatus(OrderId))
Catch ex As Exception
MsgBox(ex.Message)
End Try