begin
   fnd.fnd_global_pkg.Set_Parameter(p_employee_id => 1);
   hr.hr_report001_pkg.Main(p_date_from     => to_date('01.01.2013','dd.mm.yyyy')
                           ,p_date_to       => to_date('31.12.2013','dd.mm.yyyy')
                           ,p_department_id => 1
                           ,p_fact_job      => 'Y'
                           ,p_file_name => v);
end;

void __fastcall TFHR001::OKBtnClick(TObject *Sender)
{ADOQuery1->SQL->Clear();
 ADOQuery1->SQL->Add("begin ");
 ADOQuery1->SQL->Add("   fnd.fnd_global_pkg.Set_Parameter(p_employee_id => 1); ");
 ADOQuery1->SQL->Add("   hr.hr_report001_pkg.Main(p_date_from => to_date(:DateFrom,'dd.mm.yyyy') ,p_date_to => to_date(:DateTo,'dd.mm.yyyy') ,p_department_id => :DepartmentId ,p_fact_job => 'Y' ");
 ADOQuery1->SQL->Add("end; ");
 ADOQuery1->Parameters->ParamByName("DateFrom")->Value = DateFrom->Text;
 ADOQuery1->Parameters->ParamByName("DateTo")->Value = DateTo->Text;
 ADOQuery1->Parameters->ParamByName("DepartmentId")->Value = (int)(DepartmentName->Items->Objects[DepartmentName->ItemIndex]);
 ADOQuery1->Parameters->ParamByName("FileName")->Value = " ";
 ADOQuery1->ExecSQL();
}

begin
   fnd.fnd_global_pkg.Set_Parameter(p_employee_id => 1);
   hr.hr_report001_pkg.Main(p_date_from     => to_date('01.01.2013','dd.mm.yyyy')
                           ,p_date_to       => to_date('31.12.2013','dd.mm.yyyy')
                           ,p_department_id => 1
                           ,p_fact_job      => 'Y');
end;