Sub ProfitAndLoss(ByVal marketId As Integer) Print(vbCrLf & "*** Market P&L ***") Dim MPLreq As New BFUK.GetMarketProfitAndLossReq Dim MPLresp As BFUK.GetMarketProfitAndLossResp With MPLreq 'Set up the request .header = oHeaderUK .marketID = MarketOfInterest End With MPLresp = BetfairUK.getMarketProfitAndLoss(MPLreq) 'Call the API With MPLresp The response CheckHeader(.header) Print(.errorCode.ToString) If .errorCode = BFUK.GetMarketProfitAndLossErrorEnum.OK Then 'Process the response For i = 0 To UBound(.annotations) With .annotations(i) 'Print the list of runner P&Ls Print(.selectionId & " " & .selectionName & " " & .ifWin) End With Next End If End With End Sub
forum.bdp.betfair.com/showthread.php?p=2201&highlight=profit+loss#post2201
Edited by koni, 25 February 2013 - 07:28.