begin
                setAnalysis.Active := False;

                setAnalysis.sql.clear;
                setAnalysis.sql.add('begin');
                setAnalysis.sql.add('  invs.pkg_analiz_invest.compose(:passport, to_date(:date, ''dd.mm.yyyy''), 1, 2);');
                setAnalysis.sql.add('  invs.pkg_analiz_invest.get_affeliated_percentage(:report);');
                setAnalysis.sql.add('  invs.pkg_analiz_invest.dispose();');
                setAnalysis.sql.add('end;');

                setAnalysis.DeclareVariable('report', otCursor);

                setAnalysis.DeclareVariable('passport', otString);
                setAnalysis.SetVariable('passport',  41  {DM.portfoilio_id});

                setAnalysis.DeclareVariable('date', otString);
                setAnalysis.SetVariable('date', strDateFrom);

                setAnalysis.Active := True;
                setAnalysis.Session.Commit;
        end;