[Home] [Help]
148: l_ori_line_amount NUMBER := 0;
149: l_ori_discount_amount NUMBER := 0;
150: l_ori_tax_amount NUMBER := 0;
151: l_ori_discount_taxamount NUMBER := 0;
152: l_ar_trx_line_id ar_gta_trx_lines_all.ar_trx_line_id%TYPE;
153:
154: -- added end.
155:
156: --get from option table,this four variable is the split codition
192: l_fp_reg_num ar_gta_trx_headers_all.fp_tax_registration_number%TYPE;
193:
194: l_trx_group_number NUMBER;
195:
196: l_functional_price ar_gta_trx_lines_all.unit_price%TYPE; --25-Apr-2006: Jogen Hu bug 5168852
197:
198: --Yao add for bug#8605196 to support discount line
199: l_discount_line_number NUMBER;--discount line number for the transaction
200: l_discount_row NUMBER;--count the discount line which will be printed on VAT invoice
785: --l_gta_trx_line_new.original_currency_amount := l_split_currency_amount;
786: l_gta_trx_line_new.original_currency_amount := round(l_split_currency_amount/nvl(l_gta_trx.trx_header.conversion_rate,1), 2);
787: --modified by Jixun for bug#16027677 end
788:
789: SELECT ar_gta_trx_lines_all_s.NEXTVAL INTO l_gta_trx_line_new.gta_trx_line_id FROM dual;
790:
791: -- add new line to VAT invoice
792: l_trx_lines_new.EXTEND;
793: l_trx_lines_new(l_trx_lines_new.COUNT) := l_gta_trx_line_new;
891: l_gta_trx_line_new.original_currency_amount:=round(l_original_c_amount*(l_quantity_limit/l_GTA_TRX_line_old.quantity),2);
892: --qiong changed for bug 10638369
893:
894: SELECT
895: AR_GTA_TRX_LINES_ALL_S.NEXTVAL
896: INTO
897: l_GTA_TRX_line_new.GTA_TRX_LINE_ID
898: FROM
899: dual;
897: l_GTA_TRX_line_new.GTA_TRX_LINE_ID
898: FROM
899: dual;
900:
901: --l_GTA_TRX_line_new.GTA_TRX_LINE_ID := AR_GTA_TRX_LINES_ALL_S.NEXTVAL;
902: l_trx_lines_new.EXTEND;
903: l_trx_lines_new(l_trx_lines_new.COUNT) := l_GTA_TRX_line_new;
904: -- ELSE l_quantity_limit =0 , then the old line is no change and new line is not needed
905: END IF;--l_quantity_limit > 0--
1010: l_gta_trx_line_new.original_currency_amount :=round(l_original_c_amount*(l_quantity_limit/l_GTA_TRX_line_old.quantity),2);
1011: --qiong changed for bug 10638369
1012:
1013: SELECT
1014: AR_GTA_TRX_LINES_ALL_S.NEXTVAL
1015: INTO
1016: l_GTA_TRX_line_new.GTA_TRX_LINE_ID
1017: FROM
1018: dual;
1015: INTO
1016: l_GTA_TRX_line_new.GTA_TRX_LINE_ID
1017: FROM
1018: dual;
1019: --l_GTA_TRX_line_new.GTA_TRX_LINE_ID := AR_GTA_TRX_LINES_ALL_S.NEXTVAL;
1020: l_trx_lines_new.EXTEND;
1021: l_trx_lines_new(l_trx_lines_new.COUNT) := l_GTA_TRX_line_new;
1022: -- ELSE l_quantity_limit =0 , then the old line is no change and new line is not needed
1023: END IF;--l_quantity_limit > 0--
1125: --l_gta_trx_line_new.original_currency_amount := l_quantity_limit * l_GTA_TRX_line_new.unit_price;
1126: l_gta_trx_line_new.original_currency_amount :=round(l_original_c_amount*(l_quantity_limit/l_GTA_TRX_line_old.quantity),2);
1127: --qiong changed for bug 10638369
1128: SELECT
1129: AR_GTA_TRX_LINES_ALL_S.NEXTVAL
1130: INTO
1131: l_GTA_TRX_line_new.GTA_TRX_LINE_ID
1132: FROM
1133: dual;
1130: INTO
1131: l_GTA_TRX_line_new.GTA_TRX_LINE_ID
1132: FROM
1133: dual;
1134: --l_GTA_TRX_line_new.GTA_TRX_LINE_ID := AR_GTA_TRX_LINES_ALL_S.NEXTVAL;
1135: l_trx_lines_new.EXTEND;
1136: l_trx_lines_new(l_trx_lines_new.COUNT) := l_GTA_TRX_line_new;
1137: -- ELSE l_quantity_limit =0 , then the old line is no change and new line is not needed
1138: END IF;--l_quantity_limit > 0--
1464: l_index := x_gta_trx_rec.trx_lines.FIRST;
1465: WHILE l_index IS NOT NULL
1466: LOOP
1467: SELECT
1468: AR_Gta_Trx_Lines_All_s.NEXTVAL
1469: INTO
1470: x_gta_trx_rec.trx_lines(l_index).gta_trx_line_id
1471: FROM
1472: dual;