[[egostar]]

Hola matiaslegnazzi

Intenta con esto

Código Delphi [-]
function twsEPS30.WSEPS30_Invoice(ParamsStr:trParams): tInvoice; stdcall;
var 
  ck: widestring;
  cal: currency;
  tr_bl: OleVariant;
  
begin
  svr:= CoEps30Svr.create();
  result := tInvoice.Create;
  svr.LogOnEx(ParamsStr.SystemName,Paramsstr.ClientId,Paramsstr.UserName,Paramsstr.Password,Paramsstr. AppName,ck);
  svr.PrepareByMoney(ck, Paramsstr.ClientId, Paramsstr.MeterNumber, Paramsstr.Money, 0, cal);
  tr_bl:= svr.GetInvoiceData(ck,svr.Confirm(ck));
  
  //Asignamos el espacio de memoria con los registros que quieras regresar, por lo que veo es solo uno
  Setlength(result.Items,1); 
  
  With Result do
  Begin
    Branch_Code := tr_bl[0][1];
    Items[0].Item_Descripcion := tr_bl[1][0][0];
    Items[0].Item_Value := tr_bl[1][0][1];
  End;
End;

Saludos