PROCEDURE autoissuereturns (pagenum IN NUMBER, pagesize IN NUMBER)
AS
businessdate DATE;
tinid VARCHAR (50);
[color=red]CURSOR vv02cur
IS[/color]
SELECT cr01_tin_id, cr12_accounts_number, cr01_calendar_type
FROM (SELECT a.*, ROWNUM rn
FROM vv02_accounts_tin a)
WHERE rn BETWEEN (pagenum - 1) * pagesize + 1 AND pagenum * pagesize;
[color=red]OPEN vv02cur;
LOOP
FETCH vv02cur
INTO tinid, accountid, calendartype;
EXIT WHEN vv02cur%NOTFOUND;[/color]
if taxtype <> '01'
then
isautoissue (accountid, taxyear, businessdate, calendartype, 1);
isautoissue (accountid, taxyear, businessdate, calendartype, 2);
isautoissue (accountid, taxyear, businessdate, calendartype, 3);
end if;
[color=red] END LOOP;
CLOSE vv02cur;[/color]
END autoissuereturns;
AS
businessdate DATE;
tinid VARCHAR (50);
[color=red]CURSOR vv02cur
IS[/color]
SELECT cr01_tin_id, cr12_accounts_number, cr01_calendar_type
FROM (SELECT a.*, ROWNUM rn
FROM vv02_accounts_tin a)
WHERE rn BETWEEN (pagenum - 1) * pagesize + 1 AND pagenum * pagesize;
[color=red]OPEN vv02cur;
LOOP
FETCH vv02cur
INTO tinid, accountid, calendartype;
EXIT WHEN vv02cur%NOTFOUND;[/color]
if taxtype <> '01'
then
isautoissue (accountid, taxyear, businessdate, calendartype, 1);
isautoissue (accountid, taxyear, businessdate, calendartype, 2);
isautoissue (accountid, taxyear, businessdate, calendartype, 3);
end if;
[color=red] END LOOP;
CLOSE vv02cur;[/color]
END autoissuereturns;