[_scorp_]

static void Job_VendReport()
{
    UserConnection  con = new UserConnection();
    Statement       stmt = con.createStatement();
    ResultSet  resultSet;
    SqlStatementExecutePermission ssep;
    InteropPermission                   comPermission;
    str sqlExpression ="select VTr.AccountNum,VT.Name,VTr.RContractAccount,RT.RContractCode from VendTrans VTr "+
    "join vendtable VT on VT.AccountNum=VTr.AccountNum and VT.DataAreaId='dat' "+
    "left join RContractTable RT on RT.RContractAccount=VTr.RContractAccount and RT.DataAreaId='dat' "+
    "where VTr.DataAreaId='dat' and VTr.closed=''"+
    "group by VTr.AccountNum, VT.Name, VTr.RContractAccount,RT.RContractCode  having count(*)>1 and sum(VTr.AmountCur)=0 "+
    "order by RT.RContractCode";
    ;
    comPermission = new InteropPermission(InteropKind::ComInterop);
    comPermission.assert();
    ssep =  new SqlStatementExecutePermission(sqlExpression);
    ssep.assert();
    resultSet = stmt.executeQuery(sqlExpression);
    while (resultSet.next())
    {
        info(resultSet.getString(1));
    }
    CodeAccessPermission::revertAssert();
}