[Home] [Help]
42: cTransaction_Type VARCHAR2(120) := 'INO';
43: cFilename VARCHAR2(30) := NULL;
44: dTransaction_date DATE;
45: cCommunication_Method VARCHAR2(120) := 'EDI';
46: cHeader_Interface VARCHAR2(120) := 'ECE_AR_TRX_HEADERS';
47: cHeader_1_Interface VARCHAR2(120) := 'ECE_AR_TRX_HEADER_1';
48: cAlw_chg_Interface VARCHAR2(120) := 'ECE_AR_TRX_ALLOWANCE_CHARGES';
49: cLine_Interface VARCHAR2(120) := 'ECE_AR_TRX_LINES';
50: cLine_t_Interface VARCHAR2(120) := 'ECE_AR_TRX_LINE_TAX';
145:
146: xProgress := 'INO-10-1043';
147: BEGIN
148: SELECT COUNT(*) INTO xHeaderCount
149: FROM ece_ar_trx_headers
150: WHERE run_id = iRun_id;
151:
152: EXCEPTION
153: WHEN NO_DATA_FOUND THEN
4363: -- ******************************************
4364:
4365: xProgress := '2570-70';
4366: BEGIN
4367: SELECT ece_ar_trx_headers_s.nextval
4368: INTO l_header_fkey
4369: FROM sys.dual;
4370: EXCEPTION
4371: WHEN NO_DATA_FOUND THEN
4374: 'ECE_GET_NEXT_SEQ_FAILED',
4375: 'PROGRESS_LEVEL',
4376: xProgress,
4377: 'SEQ',
4378: 'ECE_AR_TRX_HEADERS_S' );
4379: END;
4380:
4381: xProgress := '2580-70';
4382: ece_Extract_Utils_PUB.insert_into_interface_tbl ( iRun_id,
4389: -- Now update the columns values of which have been obtained thru the procedure
4390: -- calls.
4391:
4392: xProgress := '2590-70';
4393: UPDATE ece_ar_trx_headers
4394: SET maximum_installment_number = l_Maximum_Installment_Number,
4395: amount_tax_due = l_Amount_Tax_Due,
4396: amount_charges_due = l_Amount_Charges_Due,
4397: amount_freight_due = l_Amount_Freight_Due,
4447: xProgress,
4448: 'INFO',
4449: 'AMOUNT, DISCOUNT AND LOCATIONS',
4450: 'TABLE_NAME',
4451: 'ECE_AR_TRX_HEADERS' );
4452: END IF;
4453:
4454: -- ******************************************
4455: --
4634: 'ECE_GET_NEXT_SEQ_FAILED',
4635: 'PROGRESS_LEVEL',
4636: xProgress,
4637: 'SEQ',
4638: 'ECE_AR_TRX_HEADERS_1_S' );
4639: END;
4640: ec_debug.pl ( 3, 'l_header_1_fkey: ',l_header_1_fkey );
4641:
4642: xProgress := '2700-70';
4646: cHeader_1_Interface,
4647: l_header_1_tbl,
4648: l_header_1_fkey );
4649:
4650: -- Now update Ship_From_Code_Int, Ship_From_Code_Ext columns on ECE_AR_TRX_HEADERS
4651: -- using the values obtained the Header 1 Select.
4652:
4653: xProgress := '2710-70';
4654: ec_debug.pl ( 3, 'l_header_1_tbl(nPos5).value: ',l_header_1_tbl(nPos5).value );
4655: ec_debug.pl ( 3, 'l_header_1_tbl(nPos5).ext_val1: ',l_header_1_tbl(nPos5).ext_val1 );
4656:
4657: -- Bug 1992730 : Modified the SHIP_FROM_CODE_EXT to SHIP_FROM_CODE_EXT1 in sql below.
4658: -- Bug 1979725. Also update ship_from_code_ext1..ext5
4659: UPDATE ECE_AR_TRX_HEADERS
4660: SET ship_from_code_int = l_header_1_tbl(nPos5).value,
4661: ship_from_code_ext1 = l_header_1_tbl(nPos5).ext_val1,
4662: ship_from_code_ext2 = l_header_1_tbl(nPos5).ext_val2,
4663: ship_from_code_ext3 = l_header_1_tbl(nPos5).ext_val3,
4674: xProgress,
4675: 'INFO',
4676: 'SHIP FROM CODE',
4677: 'TABLE_NAME',
4678: 'ECE_AR_TRX_HEADERS' );
4679: END IF;
4680:
4681: -- ******************************************
4682: --
5371: cTransaction_Type );
5372: END IF;
5373:
5374: xProgress := '3046-70';
5375: UPDATE ece_ar_trx_headers
5376: SET net_weight = l_net_weight,
5377: gross_weight = l_gross_weight,
5378: volume = l_volume,
5379: weight_uom_code_int = l_weight_uom_code,
5442:
5443:
5444: xProgress := '3044-70.3';
5445: begin
5446: update ece_ar_trx_headers
5447: set
5448: volume_uom_code_ext1 = l_volume_uom_code_ext1,
5449: volume_uom_code_ext2 = l_volume_uom_code_ext2,
5450: volume_uom_code_ext3 = l_volume_uom_code_ext3,