A new version of QP2 fundamental exploration

["Tomasz Janeczko" <amibroker@xxxx>]

Hi,

Here comes a new version of sample exploration script
that uses QP2 to access fundamental data.
If you run it using new v3.65beta it should not give you any errors.
Note: it is still slow due to the QuotesPlus slow initialization,
but it works. A persistent object creation that will solve this
speed issue will be added in some pre-3.7 beta version.

Best regards,
Tomasz Janeczko
===============
AmiBroker - the comprehensive share manager.
http://www.amibroker.com


EnableScript("jscript");

filter = cum( 1 ) == lastvalue( cum( 1 ) ); 
// this is to show only one entry per stock

ticker = name();
numcolumns = 4;

<%
CInfo = new ActiveXObject("QuotesPlus.CompanyInfo");
CInfo.Symbol = AFL("ticker");

// try-catch block handles the situation when
// QuotesPlus object returns strange values

try
{
AFL("Float") = Number( CInfo.Float() );
AFL("EPS") = Number( CInfo.TTMEPS() );
AFL("ROE") = Number( CInfo.ROE() );
AFL("Dividend") = Number( CInfo.AnnualDividend() );
}
catch( e )
{
AFL("Float") = 0;
AFL("EPS") = 0;
AFL("ROE") = 0;
AFL("Dividend") = 0;

}

%>

column0 = Float;
column0name = "Float";
column1 = EPS;
column1name = "TTM EPS";
column2 = ROE;
column2name = "ROE";
column3 = Dividend;
column3name = "Dividend";