[Home] [Help]
PACKAGE BODY: APPS.GMF_AP_GET_PAYMENT_TERMS
Source
1 PACKAGE BODY GMF_AP_GET_PAYMENT_TERMS AS
2 /* $Header: gmfpayrb.pls 115.0 99/07/16 04:21:51 porting shi $ */
3 CURSOR payment_terms(startdate date, enddate date, name1 varchar2) IS
4 SELECT apt.name,
5 apt.description,
6 apt.start_date_active,
7 apt.end_date_active,
8 apt1.creation_date,
9 apt1.last_update_date,
10 apt1.created_by,
11 apt1.last_updated_by,
12 apt1.due_percent,
13 nvl(apt1.due_amount,0),
14 nvl(apt1.due_days,0),
15 apt1.due_day_of_month,
16 apt1.due_months_forward,
17 nvl(apt1.discount_percent,0),
18 nvl(apt1.discount_days,0),
19 apt1.discount_day_of_month,
20 apt1.discount_months_forward,
21 apt1.discount_percent_2,
22 apt1.discount_days_2,
23 apt1.discount_day_of_month_2,
24 apt1.discount_months_forward_2,
25 apt1.discount_percent_3,
26 apt1.discount_days_3,
27 apt1.discount_day_of_month_3,
28 apt1.discount_months_forward_3
29 FROM ap_terms apt,ap_terms_lines apt1
30 WHERE apt.name like name1 AND
31 apt.term_id = apt1.term_id AND
32 apt1.sequence_num = 1 AND
33 apt.last_update_date BETWEEN
34 nvl(startdate,apt.last_update_date) AND
35 nvl(enddate,apt.last_update_date);
36
37 PROCEDURE ap_get_payment_terms ( startdate in date,
38 enddate in date,
39 name1 in out varchar2,
40 descr out varchar2,
41 startdateactive out date,
42 enddateactive out date,
43 duepercent out number,
44 dueamount out number,
45 duedays out number,
46 duedayofmonth out number,
47 duemonthsforward out number,
48 discountpercent out number,
49 discountdays out number,
50 discountdayofmonth out number,
51 discountmonthforward out number,
52 discountpercent2 out number,
53 discountdays2 out number,
54 discountdayofmonth2 out number,
55 discountmonthsforward2 out number,
56 discountpercent3 out number,
57 discountdays3 out number,
58 discountdayofmonth3 out number,
59 discountmonthsforward3 out number,
60 creation_date out date,
61 created_by out number,
62 last_update_date out date,
63 last_updated_by out number,
64 row_to_fetch in out number,
65 statuscode out number) IS
66 BEGIN
67 IF NOT payment_terms%ISOPEN THEN
68 OPEN payment_terms(startdate,enddate,name1);
69 END IF;
70 FETCH payment_terms
71 INTO name1 ,
72 descr ,
73 startdateactive ,
74 enddateactive ,
75 creation_date,
76 last_update_date,
77 created_by,
78 last_updated_by ,
79 duepercent ,
80 dueamount ,
81 duedays ,
82 duedayofmonth ,
83 duemonthsforward ,
84 discountpercent ,
85 discountdays ,
86 discountdayofmonth ,
87 discountmonthforward ,
88 discountpercent2 ,
89 discountdays2 ,
90 discountdayofmonth2 ,
91 discountmonthsforward2 ,
92 discountpercent3 ,
93 discountdays3 ,
94 discountdayofmonth3 ,
95 discountmonthsforward3;
96 /* added_by := pkg_gl_get_currencies.get_name(ad_by); */
97 /* modified_by := pkg_gl_get_currencies.get_name(mod_by); */
98 if payment_terms%NOTFOUND then
99 statuscode := 100;
100 end if;
101 IF payment_terms%NOTFOUND or row_to_fetch = 1 THEN
102 CLOSE payment_terms;
103 END IF;
104 EXCEPTION
105 WHEN OTHERS THEN
106 statuscode := SQLCODE;
107 END;
108 END GMF_AP_GET_PAYMENT_TERMS;