In production we're getting a "Side is Required" error from the code below however it works fine in the test environment. Any ideas welcome. Thanks!
Private Function SendOptionsOrder() As Integer '=============================================================== ' Send diagonal options order to REDI. '=============================================================== Dim Ord As New COMPLEXORDER Dim RediRtn As Variant Dim RetVal As Integer: RetVal = RET_OK Dim ErrMsg As Variant ' Complex order header Ord.Strategy = "Diagonal" Ord.SetSymbol 0, "VICI" Ord.SetTIF 0, "Day" Ord.SetAccount 0, "ACC1" ' Long Put Ord.SetSide 1, "Buy" Ord.SetPosition 1, "Open" Ord.SetOptType 1, "Put" Ord.SetMonth 1, "Jan '23" Ord.SetStrike 1, "30.00" ' Short Put Ord.AddOptionLeg Ord.SetSide 2, "Sell" Ord.SetPosition 2, "Open" Ord.SetOptType 2, "Put" Ord.SetMonth 2, "Nov '21" Ord.SetStrike 2, "25.00" ' complete header details Ord.CustomerIndicator = "xyz" Ord.SetExchange 0, "IBCO DMA" Ord.SetQuantity 0, 1 Ord.SetPriceType 0, "Limit" Ord.SetPrice 0, 2 ' send order RediRtn = Ord.Submit(ErrMsg) If Not RediRtn Then RetVal = RET_FAIL If Trim(ErrMsg) = "" Then ErrMsg = "No error message returned. Please contact support." End If ErrMsg = "Options order FAILED." & vbCrLf & vbCrLf & "Error Message: " & ErrMsg MsgBox ErrMsg, vbCritical + vbOKOnly, "Order Entry Failed" End If SendOptionsOrder = RetVal End Function