64:
65: Begin
66:
67:
68: fnd_file.put_line(FND_FILE.LOG, ' inside procedure ');
69:
70: lv_base_curr_code := 'INR';
71:
72: Begin
97: Close get_prec;
98:
99: End if;
100:
101: fnd_file.put_line(FND_FILE.LOG, ' invoice id '|| p_invoice_id);
102: fnd_file.put_line(FND_FILE.LOG, ' po dist id '|| p_po_dist_id);
103:
104: for Misc_loop in ( select *
105: from JAI_AP_MATCH_INV_TAXES
98:
99: End if;
100:
101: fnd_file.put_line(FND_FILE.LOG, ' invoice id '|| p_invoice_id);
102: fnd_file.put_line(FND_FILE.LOG, ' po dist id '|| p_po_dist_id);
103:
104: for Misc_loop in ( select *
105: from JAI_AP_MATCH_INV_TAXES
106: where invoice_id = p_invoice_id
108: )
109: loop
110:
111:
112: fnd_file.put_line(FND_FILE.LOG,' inside loop -- 2 ' );
113:
114: /* For later use if necessary to check the tax type. now education cess will not be
115: created at invoice level if it is available in PO/Receipt level
116:
131: Close get_misc_lines;
132:
133: If nvl(p_amount ,0) <> 0 Then
134:
135: fnd_file.put_line(FND_FILE.LOG,' Inside item amount not zero ' || p_amount);
136:
137: If nvl(r_get_misc_lines.amount , 0 ) <> 0 Then
138:
139: fnd_file.put_line(FND_FILE.LOG,' Inside Tax amount not zero ' || r_get_misc_lines.amount);
135: fnd_file.put_line(FND_FILE.LOG,' Inside item amount not zero ' || p_amount);
136:
137: If nvl(r_get_misc_lines.amount , 0 ) <> 0 Then
138:
139: fnd_file.put_line(FND_FILE.LOG,' Inside Tax amount not zero ' || r_get_misc_lines.amount);
140:
141: IF nvl(p_invoice_price_variance,0 ) <> 0 Then
142:
143: ln_tax_ipv := r_get_misc_lines.amount * (nvl(p_invoice_price_variance,0) /p_amount);
149: ln_tax_erv := r_get_misc_lines.amount * (nvl(p_exchange_rate_variance,0)/p_amount);
150:
151: End if;
152:
153: fnd_file.put_line(FND_FILE.LOG,' IPV '|| ln_tax_ipv);
154: fnd_file.put_line(FND_FILE.LOG,' ERV '|| ln_tax_erv);
155:
156: /* IPV */
157:
150:
151: End if;
152:
153: fnd_file.put_line(FND_FILE.LOG,' IPV '|| ln_tax_ipv);
154: fnd_file.put_line(FND_FILE.LOG,' ERV '|| ln_tax_erv);
155:
156: /* IPV */
157:
158: If nvl(ln_tax_ipv,0) <> 0 then
156: /* IPV */
157:
158: If nvl(ln_tax_ipv,0) <> 0 then
159:
160: fnd_file.put_line(FND_FILE.LOG,' Inside IPV not zero '|| ln_tax_ipv);
161:
162: ln_tax_bipv := ln_tax_ipv * nvl(r_get_misc_lines.exchange_rate,1);
163:
164: update ap_invoice_distributions_all
172:
173:
174: If nvl(ln_tax_erv,0) <> 0 then
175:
176: fnd_file.put_line(FND_FILE.LOG,' Inside ERV not zero '|| ln_tax_erv);
177: fnd_file.put_line(FND_FILE.LOG,' rate var CCID '|| P_rate_var_ccid);
178:
179: update ap_invoice_distributions_all
180: set exchange_rate_variance = round(ln_tax_erv,ln_inv_pre),
173:
174: If nvl(ln_tax_erv,0) <> 0 then
175:
176: fnd_file.put_line(FND_FILE.LOG,' Inside ERV not zero '|| ln_tax_erv);
177: fnd_file.put_line(FND_FILE.LOG,' rate var CCID '|| P_rate_var_ccid);
178:
179: update ap_invoice_distributions_all
180: set exchange_rate_variance = round(ln_tax_erv,ln_inv_pre),
181: rate_var_code_combination_id = P_rate_var_ccid
207: Exception
208: When others then
209: P_errmsg := SQLERRM;
210: P_retcode := 2;
211: Fnd_File.put_line(Fnd_File.LOG, 'EXCEPTION END PROCEDURE - JAI_CALC_IPV ');
212: Fnd_File.put_line(Fnd_File.LOG, 'Error : ' || P_errmsg);
213: End jai_calc_ipv_erv;
214:
215: -- added, Harshita for Bug 5553150
208: When others then
209: P_errmsg := SQLERRM;
210: P_retcode := 2;
211: Fnd_File.put_line(Fnd_File.LOG, 'EXCEPTION END PROCEDURE - JAI_CALC_IPV ');
212: Fnd_File.put_line(Fnd_File.LOG, 'Error : ' || P_errmsg);
213: End jai_calc_ipv_erv;
214:
215: -- added, Harshita for Bug 5553150
216: