It seems to me that if you were running out of
resources, you would see an error indicating that.
Have you tried running each procedure in it's own
button (just as a test)?
Dave
--- joseph fuchaka <[EMAIL PROTECTED]> wrote:
> platform Delphi 7 on windows 2000, sp4., database
> sybase asa 9.
>
> i have a payroll processing program that does some
> lengthy processing on employees, using stored
> procedures, the design is that on button click,
> select a query of all employees and then pass
> varibles of an employee to different procedures that
> do different computations on values in a database.
> the problem is that if a try to enhance a procedure
> e.g. add another function so that they are more than
> 23 procedures i get an error, some variables are not
> found. but when they are just 23 procedures all
> variables are found and the program loops through
> all records, e.g. 200 employees. is there a way of
> doing this lengthy processing, and not busting the
> memory, or the resource governor in the database.
> any help will be appreciated,
> Joseph Fuchaka. Nairobi.
>
> with qryAllEmployees do begin
> close;
> sql.Clear;
> sql.Add('SELECT employee_id, employee_no,
> company_id, first_name, last_name FROM employees
> WHERE company_id=:company_id');
>
>
parameters.ParamByName('company_id').Value:=get_company_id(ComboBoxCompany.Text);
> Open;
> end;//with
> Gauge1.MaxValue:=qryAllEmployees.RecordCount;
> ProgressCircle1.MaxValue:=23;
> qryAllEmployees.First;
> while not qryAllEmployees.Eof do begin
> year_descr:=trim(ComboBoxYear.Text);
> month_descr:=trim(ComboBoxMonth.Text);
> employee_id:=qryAllEmployeesemployee_id.Value;
> ProgressCircle1.StepBy(1);
> basic_salary:=get_basic_salary(employee_id);
> // step 1
>
>
non_taxable_benefits:=get_non_taxable_benefits(employee_id);
> ProgressCircle1.StepBy(1);//step 2
> update_emp_monthly_salaries(employee_id,
> year_descr, month_descr,
> basic_salary,
> non_taxable_benefits);//step 3
> ProgressCircle1.StepBy(1);//step 3
> insert_value_of_quaters(employee_id,
> year_descr, month_descr);
> ProgressCircle1.StepBy(1);//Step 4
> calculate_gross_pay(employee_id, year_descr,
> month_descr);
> ProgressCircle1.StepBy(1);//Step 5
> calculate_e1(employee_id, year_descr,
> month_descr);
> ProgressCircle1.StepBy(1);//Step 6
> calculate_e2_and_e3(employee_id, year_descr,
> month_descr);
> ProgressCircle1.StepBy(1);//step 7
> calculate_f(employee_id, year_descr,
> month_descr);
> ProgressCircle1.StepBy(1);//step 8
> calculate_g(employee_id, year_descr,
> month_descr);
> ProgressCircle1.StepBy(1);//step 9
> calculate_h(employee_id, year_descr,
> month_descr);
> ProgressCircle1.StepBy(1);//step 10
> calculate_j(employee_id, year_descr,
> month_descr);
> ProgressCircle1.StepBy(1);//step 11
> calculate_k(employee_id, year_descr,
> month_descr);
> ProgressCircle1.StepBy(1);//step 12
> calculate_l(employee_id, year_descr,
> month_descr);
> ProgressCircle1.StepBy(1);//step 13
> calculate_nhif(employee_id, year_descr,
> month_descr);
> ProgressCircle1.StepBy(1);//step 14
> calculate_nssf(employee_id, year_descr,
> month_descr);
> ProgressCircle1.StepBy(1);//step 15
> calculate_sacco_deductions(employee_id,
> year_descr, month_descr);
> ProgressCircle1.StepBy(1);//step 16
> calculate_other_deductions(employee_id,
> year_descr, month_descr);
> ProgressCircle1.StepBy(1);//step 17
> insert_non_taxable_earnings(employee_id,
> year_descr, month_descr);
> ProgressCircle1.StepBy(1);//step 18
> calculate_variable_deductions(employee_id,
> year_descr, month_descr);
> ProgressCircle1.StepBy(1);//step 19
> calculate_salary_arrears(employee_id,
> year_descr, month_descr);
> ProgressCircle1.StepBy(1);//step 20
> insert_pensions(employee_id, year_descr,
> month_descr);
> ProgressCircle1.StepBy(1);//step 21
> calculate_net_pay(employee_id, year_descr,
> month_descr);
> ProgressCircle1.StepBy(1);//step 22
> fill_bank_details(employee_id, year_descr,
> month_descr);
> ProgressCircle1.StepBy(1);//step 23
> fill_employee_details(employee_id, year_descr,
> month_descr);
> //application.ProcessMessages;
> qryAllEmployees.Next;
> Gauge1.Progress:=Gauge1.Progress + 1;
> end;
> //preparation of payroll complete
> // process_loans;
> ShowMessage('batch processing complete !');
>
>
>
>
>
> ---------------------------------
> Have a burning question? Go to Yahoo! Answers and
> get answers from real people who know.
>
> [Non-text portions of this message have been
> removed]
>
>
____________________________________________________________________________________
Get your own web address.
Have a HUGE year through Yahoo! Small Business.
http://smallbusiness.yahoo.com/domains/?p=BESTDEAL
