C++ code for XIP Allocation

#import "C:\Program Files\Macgregor\XIP\Common\XIP\TypeLibs\MxXOM.tlb" no_namespace named_guids 
#import "C:\Program Files\Macgregor\XIP\Common\XIP\TypeLibs\Xip.tlb" no_namespace named_guids exclude("_IMxXOMEvents","IMxComponentInfo","MxEnumMsgCode","MxEnumObjectType","MxEnumReturnCode","MxEnumBoolean","MxEnumXOMAction","MxEnumRefreshEventType")
#import "C:\Program Files\Macgregor\XIP\Common\XIP\TypeLibs\MxOrderGenerator.tlb" no_namespace named_guids exclude("_IMxXOMEvents","IMxComponentInfo","MxEnumMsgCode","MxEnumObjectType","MxEnumReturnCode","MxEnumBoolean","MxEnumXOMAction","MxEnumRefreshEventType","MxEnumEncryptionMethod","IMxComponentInfo_701")

IMxgXOMPtr pMxgXOM(__uuidof(MxgXOM));

GMOBlotter::GMOBlotter(String^ TraderName, String^ TraderPassword, String^ XIPDBServer)
{
 ::bstr_t trader, pwd, server; 
 trader.Attach(static_cast(System::Runtime::InteropServices::Marshal::StringToBSTR(TraderName).ToPointer()));
 pwd.Attach(static_cast(System::Runtime::InteropServices::Marshal::StringToBSTR(TraderPassword).ToPointer()));
 server.Attach(static_cast(System::Runtime::InteropServices::Marshal::StringToBSTR(XIPDBServer).ToPointer()));
    ::MxEnumReturnCode ret;
 ret=pMxgXOM->Login(trader, pwd, server, L"GMO_INTRADAY",::MxeEncryptionMethodNone);
};

int GMOBlotter::Recalc(int TickNum)
{
 ::MxEnumReturnCode ret;
 ::HRESULT h;
  IMxXOMAcctsAllocPtr pAcctsAlloc;
  ::CoInitialize(NULL);
  
try
{

  IDispatchPtr pDis =pMxgXOM->GetCollection(L"TradeOrders");
  IMxXOMOrdersPtr pOrd=NULL;
  h=pDis->QueryInterface(::IID_IMxXOMOrders,(void **) &pOrd);
  IMxXOMOrder3Ptr pTOrd;
  VARIANT* v= new VARIANT();
  h=pOrd->Item(TickNum,v);
  v->pdispVal->QueryInterface(::IID_IMxXOMOrder2,(void**) &pTOrd);

 
  h=pTOrd->GetAcctsAlloc()->QueryInterface(::IID_IMxXOMAcctsAlloc,(void**) &pAcctsAlloc);
 
  ret=pAcctsAlloc->BeginProcessing();
 // ret=pAcctsAlloc->Recalc();
 pAcctsAlloc->raw_BeginProcessing(&ret);
  h=pAcctsAlloc->raw_Recalc(&ret);
  if (ret!=::MxeOK)
   String^ error="Error";
 
}
catch (System::Runtime::InteropServices::COMException^ cex)
{
 String^ err="";
 return -1;
}
catch (...)
{
 String^ err="";
 return -1;
}
finally
{
 pAcctsAlloc->raw_EndProcessing(::MxeProcessActionSave,&ret);
 // ret=pAcctsAlloc->EndProcessing(::MxeProcessActionSave);
}
if (ret!=::MxeOK) return -1;
  return 0;
};