oracle 发票核销 接口,ebs r12.1.3收款核销发票LOV个性化？

admin管理员组

文章数量:1122852

oracle 发票核销 接口,ebs r12.1.3收款核销发票LOV个性化？

问题已解决  客制化 custom.pll

--CHANGE ARXRWAPP_OPEN_TRX WHITOUT HS_INV

PROCEDURE set_arapp_trx_lov IS

l_query_string      VARCHAR2(32767);

l_customer_group_id recordgroup;

l_temp_id           NUMBER;

l_customer_lov      lov;

custom_id  NUMBER;

custom_id1  NUMBER;

BEGIN

IF name_in('system.cursor_item') = 'APP_FOLDER.TRX_NUMBER' THEN

custom_id := name_in('APP_FOLDER.CUSTOMER_ID');

custom_id1:= name_in('APP_MAIN.CUSTOMER_ID');

l_query_string := 'select

ot.trx_number ,

ot.customer_id ,

ot.customer_number ,

ot.class ,

ot.class_meaning,

ot.trx_type ,

ot.cust_trx_type_id ,

ot.trx_due_date  ,

ot.invoice_currency_code ,

ot.balance_due_curr ,

ot.balance_due_functional,

ot.customer_name ,

ot.location,

ot.trx_exchange_rate,

ot.trx_date trx_date ,

ot.trx_gl_date,

ot.calc_discount_on_lines_flag ,

ot.partial_discount_flag ,

ot.allow_overapplication_flag ,

ot.natural_application_only_flag ,

ot.creation_sign ,

ot.payment_schedule_id ,

ot.terms_sequence_number ,

ot.customer_trx_id ,

sysdate gl_date,

null reference ,

ot.term_id ,

ot.amount_due_original,

ot.amount_line_items_original ,

ot.balance_due_curr_unformatted ,

ot.discount_taken_earned,

ot.discount_taken_unearned ,

ot.trx_batch_source_name  ,

ot.amount_adjusted amount_adjusted ,

ot.amount_adjusted_pending  ,

ot.amount_line_items_remaining  ,

ot.freight_original  ,

ot.freight_remaining  ,

ot.receivables_charges_remaining  ,

ot.tax_original  ,

ot.tax_remaining  ,

ot.selected_for_receipt_batch_id ,

ot.trx_billing_number ,

ot.purchase_order ,

ot.bill_to_site_use_id ,

ot.open_receipt_status_meaning ,

ot.customer_reference,

ot.reason,

ot.receivable_application_id,

ot.account_description,

ot.customer_reason

from ar_open_trx_v ot,

( SELECT /*+ merge */ rcr.related_cust_account_id

FROM hz_cust_acct_relate rcr

WHERE rcr.status= '||''''||'A '||''''||'

AND rcr.bill_to_flag =  '||''''||'Y '||''''||'

AND rcr.cust_account_id = decode('||custom_id||',-1,'||custom_id1||',null,'||custom_id1||','||custom_id||')

UNION ALL

SELECT decode('||custom_id||',-1,'||custom_id1||',null,'||custom_id1||','||custom_id||') related_cust_account_id

FROM dual

UNION ALL

SELECT rel.related_cust_account_id

FROM ar_paying_relationships_v rel,

hz_cust_accounts acc

WHERE rel.party_id = acc.party_id

AND acc.cust_account_id = decode('||custom_id||',-1,'||custom_id1||',null,'||custom_id1||','||custom_id||')

AND :app_main.receipt_date BETWEEN effective_start_date

AND effective_end_date

union all

select -1 related_cust_account_id

from dual

union all

select -3 related_cust_account_id

from dual

union all

select -4 related_cust_account_id

from dual

) cust

where ot.status=decode('||''''||'OP'||''''||',

'||''''||'TRUE'||''''||',ot.status,'||''''||'OP'||''''||')

and ot.customer_id =cust.related_cust_account_id

and nvl(ot.trx_type,'||''''||'0000'||''''||') not like '||''''||'%XXXX%'||''''||'

order by

decode(SIGN(ot.payment_schedule_id),

-1,0

,4) ,

ot.trx_number , ot.customer_name ,

ot.terms_sequence_number , ot.payment_schedule_id';

IF not id_null(find_group('YPY_AR_OPEN_TRX')) THEN

delete_group('YPY_AR_OPEN_TRX');

END IF;

l_temp_id  := POPULATE_GROUP_WITH_QUERY('ARXRWAPP_CUST_OPEN_TRX_CC',l_query_string);

l_customer_group_id := create_group_from_query('YPY_AR_OPEN_TRX',

l_query_string);

set_lov_property('ARXRWAPP_OPEN_TRX', GROUP_NAME, 'YPY_AR_OPEN_TRX');

END IF;

END set_arapp_trx_lov;

本文标签： oracle 发票核销 接口ebs r1213收款核销发票LOV个性化