Query to get Employee Leave Balance for Specific Plan in Oracle Fusion

SELECT papf.person_number employee_number

      ,ppn.full_name employee_name

  ,TO_CHAR(acc.procd_date,'DD-MON-YYYY','NLS_DATE_LANGUAGE = AMERICAN') transaction_date

  ,SUM(acc.value) balance

  FROM per_all_people_f papf

  ,per_person_names_f ppn

  ,anc_per_acrl_entry_dtls acc

  ,anc_absence_plans_vl abpv

WHERE papf.person_id = ppn.person_id

  AND TRUNC(SYSDATE) BETWEEN papf.effective_start_date AND papf.effective_end_date

  AND TRUNC(SYSDATE) BETWEEN ppn.effective_start_date AND ppn.effective_end_date

  AND ppn.name_type = 'GLOBAL'

  AND acc.person_id = papf.person_id

  AND abpv.absence_plan_id = acc.pl_id

  AND abpv.name = 'XX Plan'

  AND papf.person_number = '123456789'--:p_person_number

GROUP BY papf.person_number 

      ,ppn.full_name 

Query to get Customer Details in Oracle Fusion

select party.party_id

      ,party.party_number

      ,party.party_name customer_name

      ,(select party_nm.attribute1 from HZ_PERSON_PROFILES party_nm where party_nm.party_id = party.party_id) person_name_global

      ,party.party_type 

      ,party.orig_system_reference party_orig_system_reference

      ,party.sales_account_id

      ,cust_account.cust_account_id

      ,cust_account.account_number 

      ,cust_account.customer_class_code

      ,cust_account.orig_system_reference cust_orig_system_reference

      ,cust_accts.cust_acct_site_id

      ,cust_accts.party_site_id

      ,cust_accts.orig_system_reference cust_site_orig_system_reference

      ,cust_accts.bill_to_flag

      ,cust_accts.ship_to_flag

      ,party_site.location_id

      ,party_site.party_site_number

      ,party_site.party_site_name

      ,party_site.orig_system_reference party_site_orig_system_reference

      ,site_use.site_use_id

      ,site_use.site_use_code

      ,site_use.primary_flag

      ,site_use.location

      ,site_use.orig_system_reference site_use_orig_system_reference

      ,ref_accts.bu_id

      ,ref_accts.ledger_id

      ,ledger.name ledger_name

      ,ref_accts.rev_ccid

      ,ref_accts.rec_ccid

      ,rev_gcc.segment1||'-'||rev_gcc.segment2||'-'||rev_gcc.segment3||'-'||rev_gcc.segment4||'-'||rev_gcc.segment5||'-'||rev_gcc.segment6||'-'||rev_gcc.segment7||'-'||rev_gcc.segment8 revenue_account

      ,rec_gcc.segment1||'-'||rec_gcc.segment2||'-'||rec_gcc.segment3||'-'||rec_gcc.segment4||'-'||rec_gcc.segment5||'-'||rec_gcc.segment6||'-'||rec_gcc.segment7||'-'||rec_gcc.segment8 receivable_account

from hz_parties party

    ,hz_cust_accounts cust_account

    ,hz_cust_acct_sites_all cust_accts

    ,hz_party_sites party_site

    ,hz_cust_site_uses_all site_use

    ,ar_ref_accounts_all ref_accts

    ,gl_code_combinations rev_gcc

    ,gl_code_combinations rec_gcc

    ,gl_ledgers ledger

where party_name = 'AYMAN ABDULMOHSEN AL-OJAIMI'

  and party.party_id = cust_account.party_id

  and cust_account.cust_account_id = cust_accts.cust_account_id

  and cust_accts.party_site_id = party_site.party_site_id

  and cust_accts.cust_acct_site_id = site_use.cust_acct_site_id

  --AND site_use.primary_flag = 'Y'

  AND ref_accts.source_ref_table(+) = 'HZ_CUST_SITE_USES_ALL'

  and ref_accts.source_ref_account_id(+) = site_use.site_use_id

  and ref_accts.rev_ccid = rev_gcc.code_combination_id(+)

  and ref_accts.rec_ccid = rec_gcc.code_combination_id(+)

  and ref_accts.ledger_id = ledger.ledger_id(+)

Script to update Supplier pay_group_lookup_code in Oracle APPS R12

DECLARE

lc_return_status  VARCHAR2(2000);

ln_msg_count      NUMBER;

ll_msg_data        LONG;

Ln_Vendor_Id      NUMBER;

Ln_Vendor_site_Id NUMBER;

ln_message_int    NUMBER;

Ln_Party_Id        NUMBER;

lrec_vendor_rec ap_vendor_pub_pkg.r_vendor_rec_type;

BEGIN

-- Initialize apps session

fnd_global.apps_initialize(0, 50554, 200);

mo_global.set_policy_context('S',204);

mo_global.init('SQLAP');

 

Ln_Vendor_Id                          := 1;

Lrec_Vendor_Rec.pay_group_lookup_code := 'Employee';

ap_vendor_pub_pkg.update_vendor_public(p_api_version => 1

                                          ,x_return_status => lc_return_status

                                          ,x_msg_count => ln_msg_count

                                          ,x_msg_data => ll_msg_data

                                          ,p_vendor_rec => Lrec_Vendor_Rec

                                          ,p_Vendor_Id => Ln_Vendor_Id

  );

IF (lc_return_status <> 'S') 

THEN

IF ln_msg_count    >= 1 THEN

FOR v_index IN 1..ln_msg_count

LOOP

fnd_msg_pub.get (p_msg_index => v_index

                ,p_encoded => 'F'

                ,p_data => ll_msg_data

,p_msg_index_out => ln_message_int 

);

Ll_Msg_Data := 'UPDATE_VENDOR '||SUBSTR(Ll_Msg_Data,1,3900);

dbms_output.put_line('Ll_Msg_Data - '||Ll_Msg_Data );

END LOOP;

END IF;

END IF;

COMMIT;

EXCEPTION

WHEN OTHERS THEN

dbms_output.put_line('SQLERRM - '||SQLERRM );

ROLLBACK;

END

Script to update Supplier Type(ap_suppliers.vendor_type_lookup_code) in Oracle APPS R12

DECLARE

lc_return_status  VARCHAR2(2000);

ln_msg_count      NUMBER;

ll_msg_data        LONG;

Ln_Vendor_Id      NUMBER;

Ln_Vendor_site_Id NUMBER;

ln_message_int    NUMBER;

Ln_Party_Id        NUMBER;

lrec_vendor_rec ap_vendor_pub_pkg.r_vendor_rec_type;

BEGIN

-- Initialize apps session

fnd_global.apps_initialize(0, 50554, 200);

mo_global.set_policy_context('S',204);

mo_global.init('SQLAP');

 

Ln_Vendor_Id                          := 1;

Lrec_Vendor_Rec.vendor_type_lookup_code := 'LOCAL';

ap_vendor_pub_pkg.update_vendor_public(p_api_version => 1

                                          ,x_return_status => lc_return_status

                                          ,x_msg_count => ln_msg_count

                                          ,x_msg_data => ll_msg_data

                                          ,p_vendor_rec => Lrec_Vendor_Rec

                                          ,p_Vendor_Id => Ln_Vendor_Id

  );

IF (lc_return_status <> 'S') 

THEN

IF ln_msg_count    >= 1 THEN

FOR v_index IN 1..ln_msg_count

LOOP

fnd_msg_pub.get (p_msg_index => v_index

                ,p_encoded => 'F'

                ,p_data => ll_msg_data

,p_msg_index_out => ln_message_int 

);

Ll_Msg_Data := 'UPDATE_VENDOR '||SUBSTR(Ll_Msg_Data,1,3900);

dbms_output.put_line('Ll_Msg_Data - '||Ll_Msg_Data );

END LOOP;

END IF;

END IF;

COMMIT;

EXCEPTION

WHEN OTHERS THEN

dbms_output.put_line('SQLERRM - '||SQLERRM );

ROLLBACK;

END

Script to update Supplier Tax Payer ID(AP_SUPPLIERS.NUM_1099) in Oracle APPS R12

DECLARE

lc_return_status  VARCHAR2(2000);

ln_msg_count      NUMBER;

ll_msg_data        LONG;

Ln_Vendor_Id      NUMBER;

Ln_Vendor_site_Id NUMBER;

ln_message_int    NUMBER;

Ln_Party_Id        NUMBER;

lrec_vendor_rec ap_vendor_pub_pkg.r_vendor_rec_type;

BEGIN

-- Initialize apps session

fnd_global.apps_initialize(0, 50554, 200);

mo_global.set_policy_context('S',204);

mo_global.init('SQLAP');

 

Ln_Vendor_Id                          := 1;

Lrec_Vendor_Rec.jgzz_fiscal_code := 'X123456789X';

ap_vendor_pub_pkg.update_vendor_public(p_api_version => 1

                                          ,x_return_status => lc_return_status

                                          ,x_msg_count => ln_msg_count

                                          ,x_msg_data => ll_msg_data

                                          ,p_vendor_rec => Lrec_Vendor_Rec

                                          ,p_Vendor_Id => Ln_Vendor_Id

  );

IF (lc_return_status <> 'S') 

THEN

IF ln_msg_count    >= 1 THEN

FOR v_index IN 1..ln_msg_count

LOOP

fnd_msg_pub.get (p_msg_index     => v_index

                ,p_encoded       => 'F'

,p_data          => ll_msg_data

,p_msg_index_out => ln_message_int 

);

Ll_Msg_Data := 'UPDATE_VENDOR '||SUBSTR(Ll_Msg_Data,1,3900);

dbms_output.put_line('Ll_Msg_Data - '||Ll_Msg_Data );

END LOOP;

END IF;

END IF;

COMMIT;

EXCEPTION

WHEN OTHERS THEN

dbms_output.put_line('SQLERRM - '||SQLERRM );

ROLLBACK;

END

API to Create Online Accounting for AP Payment in Oracle APPS R12 (ap_drilldown_pub_pkg.payment_online_accounting)

    PROCEDURE xx_payment_accounting(errbuf OUT VARCHAR2

   ,retcode           OUT VARCHAR2

   ,p_invoice_id    IN  NUMBER

   )

IS

CURSOR c1 

IS

SELECT DISTINCT aca.check_id, aca.check_number        

              FROM ap_invoices_all xlpi

      ,ap_invoice_payments_all aipa

  ,ap_checks_all aca

             WHERE xlpi.invoice_id   = aipa.invoice_id

               AND xlpi.invoice_id   = pin_invoice_id

               AND aipa.check_id     = aca.check_id

               AND ap_checks_pkg.get_posting_status(aca.check_id) = 'N';

   -- This condition is to pick invoices which are paid and unaccounted

   ;  

ln_processed_cnt    NUMBER := 0;

ln_failed_cnt       NUMBER := 0;  

lv_error_buf        VARCHAR2(4000);

ln_retcode          NUMBER; 

BEGIN

FOR rec_create_pmt_accounting IN c1

LOOP

BEGIN

fnd_file.put_line(fnd_file.log,'Check ID: '||rec_create_pmt_accounting.check_id);

ln_retcode   := NULL;

lv_error_buf := NULL;

ap_drilldown_pub_pkg.payment_online_accounting(p_check_id           => rec_create_pmt_accounting.check_id

  ,p_accounting_mode    => 'P'      

  ,p_errbuf             => lv_error_buf

  ,p_retcode            => ln_retcode

  ,p_calling_sequence   => 'XX_PAYMENT_ACCOUNTING'

  );

IF ln_retcode = 0 

THEN

fnd_file.put_line(fnd_file.log,'Invoice Check ID: '

||rec_create_pmt_accounting.check_id 

||'. Payment ('

||rec_create_pmt_accounting.check_number

||') Accounted Sucessfully'

);

ln_processed_cnt := ln_processed_cnt+1;

ELSIF ln_retcode = 1 THEN

fnd_file.put_line(fnd_file.log,'Invoice Check ID: '

||rec_create_pmt_accounting.check_id

||'. Payment ('

||rec_create_pmt_accounting.check_number

||') Accounting ended in WARNING. Errbuf : '

||lv_error_buf

);

ln_processed_cnt := ln_processed_cnt+1;

ELSIF ln_retcode = 2 THEN

fnd_file.put_line(fnd_file.log,'Invoice Check ID: '

||rec_create_pmt_accounting.check_id 

||'. Payment ('

||rec_create_pmt_accounting.check_number

||') Accounting ended in ERROR. Errbuf : '

||lv_error_buf

);       

ln_failed_cnt := ln_failed_cnt +1;          

ELSE

fnd_file.put_line(fnd_file.log,'Invoice Check ID: '

||rec_create_pmt_accounting.check_id 

||'. Payment ('

||rec_create_pmt_accounting.check_number

||') Accounting ended in ERROR. Errbuf : '

||lv_error_buf

||' Retcode: '

||ln_retcode

);

ln_failed_cnt := ln_failed_cnt +1;

END IF; 

COMMIT;

EXCEPTION

WHEN OTHERS THEN

fnd_file.put_line(fnd_file.log,'Invoice Check ID: ' 

||rec_create_pmt_accounting.check_id

||'. Payment Accounting failed with Unhandled Exception. Error Message:' 

||SQLERRM);

ln_failed_cnt := ln_failed_cnt + 1;

END;

END LOOP;

fnd_file.put_line ( fnd_file.log,'Processed Record Count: '

||ln_processed_cnt

||' Failed Record Count: '

||ln_failed_cnt);

EXCEPTION

WHEN OTHERS THEN

fnd_file.put_line ( fnd_file.log,'Main Error in xx_payment_accounting. Error Message: '||SQLERRM);

END xx_payment_accounting;

ap_checks_pkg.get_posting_status(check_id) to pick AP Invoice Payments which are not acconted.

Pass check_id from ap_checks_all (aca) to ap_checks_pkg.get_posting_status to pick invoice payments which are not accounted.

ap_checks_pkg.get_posting_status(aca.check_id)

INVALID_PATH: File location or filename was invalid(UTL_FILE) in Oracle APPS

1. Create Directory using below command

CREATE OR REPLACE directory XXDIR AS '/home/erp';

--Here change directory path(/home/erp) according to your path.

Give the required permissions to above path.

2. Connect to WinSCP/Putty and Create directory.

3. Now use the directory name in utl_file 

UTL_FILE.FOPEN('XXDIR ','file_name','R');

Package jdr_utils in OAF

Jdr_utils.listcustomizations:

 begin 

    dbms_output.put_line('***START***');

    Jdr_utils.listcustomizations('/oracle/apps/ce/bankaccounttransfer/webui/BankAccountTransferPG');

    dbms_output.put_line('***STOP***'); 

end;

• Searches Personalization’s for the OAF Page. We can find the Page URL (path) from about this page.

jdr_utils.listDocuments:- Similar to list customizations, it searches recursively, we do not specify the page name, but path.

exec jdr_utils.listDocuments('/oracle/apps/ce/bankaccounttransfer/webui/', true)

Jdr_utils.listContents:- Recursively finds all personalization's from a given path.

exec Jdr_utils.listContents ('/oracle/apps/ce/bankaccounttransfer/webui', true)

jdr_utils.DeleteDocument:- It deletes Personalization.
exec jdr_utils.DeleteDocument('/oracle/apps/eam/workorder/webui/customizations/site/0/EAM_EW_START_PAGE') 

Invalid customer transaction identifier.APPLY : ORA-01403: no data foundORA-01403: no data found in Package AR_RECEIPT_API_PUB Procedure Apply

One of the possible reason is Invoice already paid.

You can validate with below query. 

select * from ra_customer_trx_all where trx_number = '1'

note customer_trx_id from the above query.

select * from ar_receivable_applications_all

where applied_customer_trx_id = <pass customer trx id>

note cash_receipt_id from above query 

select * from ar_cash_receipts_all

where cash_receipt_id = <pass cash receipt id>

Is there any API to End Date GL Code Combinations from Backend in Oracle APPS

As per the Oracle as of now there is no API to End Date GL Code Combinations from Backend. Please refer below notes from Oracle Support.

• Is Effective Date From / 'Start Date Active' Mandatory for GL Code Combinations? Can it Be Changed to "null" Value? (Doc ID 2763034.1)
• Check if these details could have been ported from the segment values, in that case verify if you want to have Start/End Date for the segment values left in the system while the same details would be removed for the code combinations
• Any sql update on gl_code_combinations table will not be supported in any way. You must perform the changes in the code combinations form, manually.
• To port changes from segment values to code combinations, you may use Program - Inherit Segment Value Attributes (see referenced documents)
• GLNSVI: What is the Purpose of the Segment Value Inheritance Program/ Program - Inherit Segment Value Attributes ? (Doc ID 170569.1)

AR Receipt Reversal Categories(REVERSAL_CATEGORY_TYPE) in Oracle APPS

SELECT lookup_code

      ,meaning

      ,description

  FROM fnd_lookup_values 

WHERE lookup_type = 'REVERSAL_CATEGORY_TYPE'

    AND LANGUAGE = USERENV('LANG')

    AND lookup_code = 'REV'

Script to Update Liability Account, Prepay Account, Invoice Withholding Tax Group and Tax Classification Code at Supplier Site Level in Oracle APPS

Table Script:

DROP TABLE XXSCHEMA.XX_VENDOR_MASTER_DATA CASCADE CONSTRAINTS;

CREATE TABLE XXSCHEMA.XX_VENDOR_MASTER_DATA

(

  VENDOR_NAME                    VARCHAR2(250 BYTE),

  VENDOR_ID                      NUMBER,

  VENDOR_SITE_CODE               VARCHAR2(15 BYTE),

  ORG_ID                         NUMBER,

  LIABILITY_ACCOUNT              VARCHAR2(207 BYTE),

  NEW_LIABILITY_ACCOUNT          VARCHAR2(207 BYTE),

  PRE_PAYMENT_ACCOUNT            VARCHAR2(207 BYTE),

  NEW_PRE_PAYMENT_ACCOUNT        VARCHAR2(207 BYTE),

  TAX_CLASSIFICATION_CODE        VARCHAR2(207 BYTE),

  NEW_TAX_CLASSIFICATION_CODE    VARCHAR2(30 BYTE),

  INVOICE_WITHHOLDING_TAX_GROUP  VARCHAR2(25 BYTE),

  NEW_INVOICE_WHT_TAX_GROUP      VARCHAR2(25 BYTE),

  SUPPLIER_TYPE                  VARCHAR2(80 BYTE),

  NEW_SUPPLIER_TYPE              VARCHAR2(80 BYTE),

  TAX_APPLICABILITY              VARCHAR2(80 BYTE),

  SUPP_STATUS_FLAG               VARCHAR2(1 BYTE),

  SUPP_STATUS_MSG                VARCHAR2(2000 BYTE),

  SUPP_SITE_STATUS_FLAG          VARCHAR2(1 BYTE),

  SUPP_SITE_STATUS_MSG           VARCHAR2(2000 BYTE)

);

DROP SYNONYM APPS.XX_VENDOR_MASTER_DATA;

CREATE OR REPLACE SYNONYM APPS.XX_VENDOR_MASTER_DATA FOR XXSCHEMA.XX_VENDOR_MASTER_DATA;

API Script:

-----------------------------------------------------------------------------------------------

DECLARE

    v_api_version              NUMBER;

    v_init_msg_list            VARCHAR2(200);

    v_commit                    VARCHAR2(200);

    v_validation_level          NUMBER;

    x_return_status            VARCHAR2(200);

    x_msg_count                NUMBER;

    v_vendor                    NUMBER;

    x_msg_data                  VARCHAR2(200);

    l_vendor_site_rec          apps.ap_vendor_pub_pkg.r_vendor_site_rec_type;

    l_existing_vendor_site_rec ap_supplier_sites_all%rowtype;

    l_vendor_site_id            NUMBER;

l_liability_ccid gl_code_combinations_kfv.code_combination_id%TYPE;

l_prepay_ccid gl_code_combinations_kfv.code_combination_id%TYPE;

l_ap_awt_group_id ap_awt_groups.group_id%TYPE;

l_allow_awt_flag ap_suppliers.allow_awt_flag%TYPE;

    v_calling_prog              VARCHAR2(200);

    

    l_msg                      VARCHAR2(200);

    l_status_flag         VARCHAR(1):='N';

    l_status_msg     VARCHAR2(2000) := NULL;

        

    CURSOR c 

IS

SELECT DISTINCT 

            vendor_id

               ,vendor_site_code

   ,new_tax_classification_code

                   ,new_invoice_wht_tax_group

                   ,new_liability_account

                   ,new_pre_payment_account

          FROM xx_vendor_master_data

         WHERE NVL(supp_status_flag, 'N') = 'S'

   AND NVL(supp_site_status_flag, 'N') IN ('N', 'E')

   --AND vendor_id = 7216

   --AND vendor_id IN (5041)--5059)

   ;

BEGIN

    FOR i IN c 

LOOP

l_status_flag     := 'N';

l_status_msg      := NULL;

l_liability_ccid  := NULL;

l_prepay_ccid   := NULL;

l_ap_awt_group_id := NULL;

l_allow_awt_flag  := 'N';

BEGIN

SELECT vendor_site_id 

  INTO l_vendor_site_id

  FROM ap_supplier_sites_all

WHERE vendor_id = i.vendor_id

   AND vendor_site_code = i.vendor_site_code

   AND org_id = 101

   ;

EXCEPTION

WHEN NO_DATA_FOUND THEN

l_vendor_site_id := null;

l_status_flag := 'E';

l_status_msg := 'Unable to find vendor_site_code. '; 

WHEN OTHERS THEN

l_vendor_site_id := NULL;

l_status_flag := 'E';

l_status_msg := 'Error while validating vendor_site_code. error message: ' || SQLERRM;  

END;

BEGIN

SELECT code_combination_id 

  INTO l_liability_ccid

  FROM gl_code_combinations_kfv

WHERE concatenated_segments = TRIM(i.new_liability_account)

   ;

EXCEPTION

WHEN NO_DATA_FOUND THEN

l_liability_ccid := NULL;

l_status_flag := 'E';

l_status_msg := l_status_msg||'-Unable to find new_liability_account. '; 

WHEN OTHERS THEN

l_liability_ccid := NULL;

l_status_flag := 'E';

l_status_msg := l_status_msg||'-Error while validating new_liability_account. error message: ' || SQLERRM;  

END;

BEGIN

SELECT code_combination_id 

  INTO l_prepay_ccid

  FROM gl_code_combinations_kfv

WHERE concatenated_segments = TRIM(i.new_pre_payment_account)

   ;

EXCEPTION

WHEN NO_DATA_FOUND THEN

l_prepay_ccid := NULL;

l_status_flag := 'E';

l_status_msg := l_status_msg||'-Unable to find new_pre_payment_account. '; 

WHEN OTHERS THEN

l_prepay_ccid := NULL;

l_status_flag := 'E';

l_status_msg := l_status_msg||'-Error while validating new_pre_payment_account. error message: ' || SQLERRM;  

END;

IF TRIM(i.new_invoice_wht_tax_group) IS NOT NULL THEN

BEGIN

SELECT group_id 

  INTO l_ap_awt_group_id

  FROM ap_awt_groups

WHERE name = TRIM(i.new_invoice_wht_tax_group)

   ;

l_allow_awt_flag := 'Y';

EXCEPTION

WHEN NO_DATA_FOUND THEN

l_ap_awt_group_id := NULL;

l_status_flag := 'E';

l_status_msg := l_status_msg||'-Unable to find new_invoice_wht_tax_group. '; 

WHEN OTHERS THEN

l_ap_awt_group_id := NULL;

l_status_flag := 'E';

l_status_msg := l_status_msg||'-Error while validating new_invoice_wht_tax_group. error message: ' || SQLERRM;  

END;

END IF;

dbms_output.put_line('l_status_flag = ' || l_status_flag);

dbms_output.put_line('l_status_msg = ' || l_status_msg);

        IF l_status_flag <> 'E' THEN

fnd_global.apps_initialize(0, 50240, 200);

mo_global.init('SQLAP');

mo_global.set_policy_context('S', 101);

v_api_version := 1.0;

v_init_msg_list := fnd_api.g_true;

v_commit := fnd_api.g_true;

v_validation_level := fnd_api.g_valid_level_full;

--l_vendor_site_id := j.vendor_site_id; -- to be end dated

v_calling_prog := 'Supplier Tax code update';

l_vendor_site_rec.vendor_site_id := l_existing_vendor_site_rec.vendor_site_id;

l_vendor_site_rec.last_update_date := sysdate;

--l_vendor_site_rec.last_updated_by := 6147023;

l_vendor_site_rec.vendor_id := l_existing_vendor_site_rec.vendor_id;

l_vendor_site_rec.org_id := l_existing_vendor_site_rec.org_id;

l_vendor_site_rec.accts_pay_code_combination_id := l_liability_ccid;

l_vendor_site_rec.prepay_code_combination_id := l_prepay_ccid;

l_vendor_site_rec.vat_code := i.new_tax_classification_code;

l_vendor_site_rec.awt_group_id := l_ap_awt_group_id;

l_vendor_site_rec.allow_awt_flag := l_allow_awt_flag;

--l_vendor_site_rec.auto_tax_calc_flag := 'y';

--l_vendor_site_rec.vat_registration_num := i.tax_registration_no;

ap_vendor_pub_pkg.update_vendor_site_public(p_api_version => v_api_version

                                           ,p_init_msg_list => v_init_msg_list

       ,p_commit => v_commit

                                           ,p_validation_level  => v_validation_level

       ,x_return_status => x_return_status

       ,x_msg_count => x_msg_count

       ,x_msg_data     => x_msg_data

       ,p_vendor_site_rec   => l_vendor_site_rec

       ,p_vendor_site_id    => l_vendor_site_id

       ,p_calling_prog      => v_calling_prog

       );

dbms_output.put_line('x_return_status = ' || x_return_status);

dbms_output.put_line('x_msg_count = ' || x_msg_count);

dbms_output.put_line('x_msg_data = ' || x_msg_data);

IF (x_return_status <> fnd_api.g_ret_sts_success) 

THEN

FOR i1 IN 1 .. fnd_msg_pub.count_msg 

LOOP

l_msg := fnd_msg_pub.get(p_msg_index => i1,

  p_encoded   => fnd_api.g_false);

DBMS_OUTPUT.put_line('The API call failed with error ' || l_msg);

UPDATE xx_vendor_master_data 

   SET supp_site_status_flag = 'E'

      ,supp_site_status_msg = l_msg 

     WHERE vendor_id = i.vendor_id

   AND vendor_site_code = i.vendor_site_code;

END LOOP;

ELSE

   DBMS_OUTPUT.put_line('The API call ended with SUCESSS status');

   UPDATE xx_vendor_master_data 

  SET supp_site_status_flag = 'S'

,supp_site_status_msg = 'Update Successful' 

WHERE vendor_id = i.vendor_id

  AND vendor_site_code = i.vendor_site_code

  ;

END IF;

ELSE

UPDATE xx_vendor_master_data 

   SET supp_site_status_flag = 'E'

      ,supp_site_status_msg = l_status_msg 

WHERE vendor_id = i.vendor_id

   AND vendor_site_code = i.vendor_site_code

   ;

END IF;

COMMIT;

    END LOOP;

END;

Script to Update Supplier Vendor Type and Invoice Withholding Tax Group at Supplier Level in Oracle APPS

Table Script:

DROP TABLE XXSCHEMA.XX_VENDOR_MASTER_DATA CASCADE CONSTRAINTS;

CREATE TABLE XXSCHEMA.XX_VENDOR_MASTER_DATA

(

  VENDOR_NAME                    VARCHAR2(250 BYTE),

  VENDOR_ID                      NUMBER,

  VENDOR_SITE_CODE               VARCHAR2(15 BYTE),

  ORG_ID                         NUMBER,

  LIABILITY_ACCOUNT              VARCHAR2(207 BYTE),

  NEW_LIABILITY_ACCOUNT          VARCHAR2(207 BYTE),

  PRE_PAYMENT_ACCOUNT            VARCHAR2(207 BYTE),

  NEW_PRE_PAYMENT_ACCOUNT        VARCHAR2(207 BYTE),

  TAX_CLASSIFICATION_CODE        VARCHAR2(207 BYTE),

  NEW_TAX_CLASSIFICATION_CODE    VARCHAR2(30 BYTE),

  INVOICE_WITHHOLDING_TAX_GROUP  VARCHAR2(25 BYTE),

  NEW_INVOICE_WHT_TAX_GROUP      VARCHAR2(25 BYTE),

  SUPPLIER_TYPE                  VARCHAR2(80 BYTE),

  NEW_SUPPLIER_TYPE              VARCHAR2(80 BYTE),

  TAX_APPLICABILITY              VARCHAR2(80 BYTE),

  SUPP_STATUS_FLAG               VARCHAR2(1 BYTE),

  SUPP_STATUS_MSG                VARCHAR2(2000 BYTE),

  SUPP_SITE_STATUS_FLAG          VARCHAR2(1 BYTE),

  SUPP_SITE_STATUS_MSG           VARCHAR2(2000 BYTE)

);

DROP SYNONYM APPS.XX_VENDOR_MASTER_DATA;

CREATE OR REPLACE SYNONYM APPS.XX_VENDOR_MASTER_DATA FOR XXSCHEMA.XX_VENDOR_MASTER_DATA;

API Script:

-----------------------------------------------------------------------------------------------

--SET serveroutput on;

DECLARE

p_api_version          NUMBER;

p_init_msg_list        VARCHAR2(200);

p_commit                VARCHAR2(200);

p_validation_level      NUMBER;

x_return_status        VARCHAR2(200);

x_msg_count            NUMBER;

x_msg_data              VARCHAR2(200);

lr_vendor_rec          apps.ap_vendor_pub_pkg.r_vendor_rec_type;

lr_existing_vendor_rec ap_suppliers%ROWTYPE;

l_msg                  VARCHAR2(200);

p_vendor_id            NUMBER;

l_new_supplier_type fnd_lookup_values.lookup_code%type;

l_allow_awt_flag ap_suppliers.allow_awt_flag%TYPE;

l_ap_awt_group_id     ap_awt_groups.group_id%TYPE;

l_status_flag VARCHAR(1):='N';

l_status_msg VARCHAR2(2000) := NULL;

CURSOR c_vendor_type IS

SELECT DISTINCT vendor_id

               ,supplier_type

   ,new_supplier_type

                       ,new_invoice_wht_tax_group    

  FROM xx_vendor_master_data

WHERE NVL(supp_status_flag, 'N') IN ('N', 'E')

   --AND vendor_id = 7216

   AND vendor_id IN (5041)--5059)

   ;

    BEGIN

-- Initialize apps session

fnd_global.apps_initialize(0, 50240, 200); --user_id, 

mo_global.init('SQLAP');

fnd_client_info.set_org_context(101);

-- Assign Basic Values

p_api_version      := 1.0;

p_init_msg_list    := fnd_api.g_true;

p_commit           := fnd_api.g_true;

p_validation_level := fnd_api.g_valid_level_full;

     

FOR j in c_vendor_type 

        LOOP

            p_vendor_id        := j.vendor_id;

l_status_flag     := 'N';

l_status_msg      := NULL;

l_ap_awt_group_id := NULL;

l_allow_awt_flag  := 'N';

    

            -- gather vendor details

            BEGIN

                SELECT *

                  INTO lr_existing_vendor_rec

                  FROM ap_suppliers asa

                 WHERE asa.vendor_id = p_vendor_id;

            EXCEPTION

    WHEN OTHERS THEN

DBMS_OUTPUT.put_line('Unable to derive the supplier  information for vendor id:' ||

                                      p_vendor_id);

END;

            

IF j.supplier_type <> j.new_supplier_type THEN

BEGIN

SELECT lookup_code

  INTO l_new_supplier_type

  FROM fnd_lookup_values

WHERE meaning = j.new_supplier_type

   AND lookup_type = 'VENDOR TYPE'

   AND enabled_flag = 'Y'

   AND language = userenv('LANG');

EXCEPTION

WHEN NO_DATA_FOUND THEN

l_new_supplier_type := null;

l_status_flag := 'E';

l_status_msg := 'Supplier Type does not exists in VENDOR TYPE Lookup: ' || SQLERRM; 

WHEN OTHERS THEN

l_new_supplier_type := null;

l_status_flag := 'E';

l_status_msg := 'Error while validating new supplier type. error message: ' || SQLERRM;  

END;

ELSE

NULL;

END IF;

IF TRIM(j.new_invoice_wht_tax_group) IS NOT NULL THEN

BEGIN

SELECT group_id 

  INTO l_ap_awt_group_id

  FROM ap_awt_groups

WHERE name = TRIM(j.new_invoice_wht_tax_group)

   ;

l_allow_awt_flag := 'Y';

EXCEPTION

WHEN OTHERS THEN

l_ap_awt_group_id := NULL;

l_status_flag := 'E';

l_status_msg := l_status_msg||'-Error while validating new_invoice_wht_tax_group. error message: ' || SQLERRM;  

END;

END IF;

dbms_output.put_line('l_status_flag = ' || l_status_flag);

dbms_output.put_line('l_status_msg = ' || l_status_msg);

    

             lr_vendor_rec.vendor_id       := lr_existing_vendor_rec.vendor_id;

-----------------------------------------------

--Deactivate Vendor

             -- lr_vendor_rec.end_date_active := SYSDATE;

             -- lr_vendor_rec.enabled_flag    := 'N';

-----------------------------------------------

             lr_vendor_rec.vendor_type_lookup_code := l_new_supplier_type;

lr_vendor_rec.allow_awt_flag := l_allow_awt_flag;

lr_vendor_rec.awt_group_id := l_ap_awt_group_id;

            IF l_status_flag != 'E'

THEN

ap_vendor_pub_pkg.update_vendor(p_api_version      => p_api_version

   ,p_init_msg_list    => p_init_msg_list

   ,p_commit           => p_commit

   ,p_validation_level => p_validation_level

   ,x_return_status    => x_return_status

   ,x_msg_count        => x_msg_count

   ,x_msg_data         => x_msg_data

   ,p_vendor_rec       => lr_vendor_rec

   ,p_vendor_id        => p_vendor_id

   );

DBMS_OUTPUT.put_line('X_RETURN_STATUS = ' || x_return_status);

DBMS_OUTPUT.put_line('X_MSG_COUNT = ' || x_msg_count);

                DBMS_OUTPUT.put_line('X_MSG_DATA = ' || x_msg_data);

    

IF (x_return_status <> fnd_api.g_ret_sts_success) THEN

FOR i IN 1 .. fnd_msg_pub.count_msg 

LOOP

l_msg := fnd_msg_pub.get(p_msg_index => i

                        ,p_encoded   => fnd_api.g_false

);

DBMS_OUTPUT.put_line('The API call failed with error ' || l_msg);

UPDATE xx_vendor_master_data 

                           SET supp_status_flag = 'E'

      ,supp_status_msg = l_msg 

     WHERE vendor_id = j.vendor_id;

                    END LOOP;

                ELSE

DBMS_OUTPUT.put_line('The API call ended with SUCESSS status');

    UPDATE xx_vendor_master_data 

   SET supp_status_flag = 'S'

  ,supp_status_msg = 'Update Successful' 

WHERE vendor_id = j.vendor_id;

END IF;

ELSE

UPDATE xx_vendor_master_data 

   SET supp_status_flag = 'E'

      ,supp_status_msg = l_status_msg 

WHERE vendor_id = j.vendor_id;

            END IF;

        END LOOP;

    END;

/

AP_SUPPLIER_SITES_ALL.AUTO_TAX_CALC_FLAG in Oracle APPS(AP_TAX_CALCULATION_METHOD)

SELECT *

  FROM fnd_lookup_values

 WHERE lookup_type = 'AP_TAX_CALCULATION_METHOD'

 AND language = USERENV('LANG')

Here AP_SUPPLIER_SITES_ALL.AUTO_TAX_CALC_FLAG will be fnd_lookup_values.lookup_code

API call failed with error ORA-01403: no data found in Package AP_VENDOR_PUB_PKG Procedure Validate_Vendor_Site

We had a requirement to update Tax Classification Code, Invoice Withholding Tax Group at supplier level. While using ap_vendor_pub_pkg.update_vendor_site API we got below error message:

The API call failed with error ORA-01403: no data found in Package AP_VENDOR_PUB_PKG Procedure Validate_Vendor_Site

But when used ap_vendor_pub_pkg.update_vendor_site_public the update was successful.

CE_PAYMENT_TRANSACTIONS.SETTLE_BY_SYSTEM_FLAG in Oracle Cash Management

CE_PAYMENT_TRANSACTIONS.SETTLE_BY_SYSTEM_FLAG Determines whether the settlement is required through oracle Payments.

AP_CHECKS_ALL.PAYMENT_METHOD_LOOKUP_CODE and AP_CHECKS_ALL.PAYMENT_METHOD_CODE in Oracle APPS

Below is from Oracle Metalink ID 1919051.1

PAYMENT_METHOD_LOOKUP_CODE is obsolete in R12 hence it should not be referred in R12. If you want to refer payment method code from Invoice header then PAYMENT_METHOD_CODE should be used. During upgrade to R12 we populate PAYMENT_METNHOD_CODE with PAYMENT_METHOD_LOOKUP_CODE for migrated invoices.

SELECT payment_method_code, payment_method_name, description

  FROM iby_payment_methods_tl

 WHERE payment_method_code IN

          (SELECT DISTINCT PAYMENT_METHOD_CODE

              FROM AP_CHECKS_ALL

              )

AND language = USERENV('LANG')

Query to get Asset Categories with GL Codes in Oracle APPS

SELECT fcb.book_type_code

       ,fct.segment1||'.'||fct.segment2 category

       ,fct.enabled_flag enabled

       ,fct.description

       ,fct.capitalize_flag  capitalize

       ,flt.meaning category_type

       ,fct.inventorial physical_inventory

       ,flt1.meaning ownership 

       ,fct.property_type_code property_type

       ,gcck.concatenated_segments asset_cost

       ,gcck1.concatenated_segments asset_clearing

       ,gcck2.concatenated_segments depreciation_expense

       ,gcck3.concatenated_segments accumulated_depreciation

       ,gcck4.concatenated_segments bonus_expense

       ,gcck5.concatenated_segments bonus_reserve

       ,gcck6.concatenated_segments revaluation_reserve

       ,gcck7.concatenated_segments revaluation_amortization

       ,gcck8.concatenated_segments cip_cost

       ,gcck9.concatenated_segments cip_clearing

       ,gcck10.concatenated_segments impairment_expense

       ,gcck11.concatenated_segments accumulated_impairment

       ,gcck12.concatenated_segments unplanned_depreciatn_exp

       ,gcck13.concatenated_segments alternate_asset_cost

       ,gcck14.concatenated_segments write_off_expense

       ,fcbd.start_dpis placed_in_service_from

       ,fcbd.end_dpis placed_in_service_to

       ,fcbd.depreciate_flag depreciate

       ,fcbd.deprn_method 

       ,fcbd.life_in_months

       ,FLOOR(fcbd.life_in_months/12) life_in_years

       ,fcbd.bonus_rule

       ,fcbd.prorate_convention_code

       ,fcbd.retirement_prorate_convention

       ,fcbd.percent_salvage_value

       ,fcbd.ceiling_name

       ,fcbd.price_index_name

       ,fcbd.subcomponent_life_rule

       ,fcbd.minimum_life_in_months

       ,FLOOR(fcbd.minimum_life_in_months/12) minimum_life_in_years

       ,fcbd.use_stl_retirements_flag

       ,fcbd.stl_method_code 

       ,FLOOR(fcbd.stl_life_in_months/12) slr_life_years

       ,fcbd.use_deprn_limits_flag

       ,fcbd.allowed_deprn_limit

       ,fcbd.special_deprn_limit_amount

       ,FLOOR(fcbd.capital_gain_threshold/12) cgt_in_years

       ,MOD(fcbd.capital_gain_threshold,12) cgt_in_months

       ,fcbd.itc_eligible_flag       

       ,fcbd.use_itc_ceilings_flag

       ,fcbd.mass_property_flag

       ,fcbd.group_asset_id group_asset

       ,fcbd.recognize_gain_loss

       ,fcbd.terminal_gain_loss

       ,fcbd.recapture_reserve_flag 

       ,fcbd.limit_proceeds_flag

       ,fcbd.tracking_method

       ,fcbd.allocate_to_fully_rsv_flag

       ,fcbd.excess_allocation_option distribute_or_reduce_excess

   FROM apps.fa_categories_vl fct

       ,apps.fa_lookups_tl flt

       ,apps.fa_lookups_tl flt1

       ,apps.fa_category_books fcb

       ,apps.gl_code_combinations_kfv gcck

       ,apps.gl_code_combinations_kfv gcck1

       ,apps.gl_code_combinations_kfv gcck2

       ,apps.gl_code_combinations_kfv gcck3

       ,apps.gl_code_combinations_kfv gcck4

       ,apps.gl_code_combinations_kfv gcck5

       ,apps.gl_code_combinations_kfv gcck6

       ,apps.gl_code_combinations_kfv gcck7

       ,apps.gl_code_combinations_kfv gcck8

       ,apps.gl_code_combinations_kfv gcck9

       ,apps.gl_code_combinations_kfv gcck10

       ,apps.gl_code_combinations_kfv gcck11

       ,apps.gl_code_combinations_kfv gcck12

       ,apps.gl_code_combinations_kfv gcck13

       ,apps.gl_code_combinations_kfv gcck14

       ,apps.fa_category_book_defaults fcbd

  WHERE 1=1

    AND fct.category_type = flt.lookup_code(+)

    AND flt.lookup_type(+) = 'CATEGORY TYPE'

    AND flt1.lookup_code(+) = fct.owned_leased

    AND flt1.lookup_type(+) ='OWNLEASE'

    AND fct.category_id = fcb.category_id

    AND gcck.code_combination_id(+) = fcb.asset_cost_account_ccid

    AND gcck1.code_combination_id(+) = fcb.asset_clearing_account_ccid

    AND gcck2.code_combination_id(+) = fcb.deprn_expense_account_ccid

    AND gcck3.code_combination_id(+) = fcb.reserve_account_ccid

    AND gcck4.code_combination_id(+) = fcb.bonus_expense_account_ccid

    AND gcck5.code_combination_id(+) = fcb.bonus_reserve_acct_ccid

    AND gcck6.code_combination_id(+) = fcb.reval_reserve_account_ccid

    AND gcck7.code_combination_id(+) = fcb.reval_amort_account_ccid

    AND gcck8.code_combination_id(+) = fcb.wip_cost_account_ccid

    AND gcck9.code_combination_id(+) = fcb.wip_clearing_account_ccid

    AND gcck10.code_combination_id(+) = fcb.impair_expense_account_ccid

    AND gcck11.code_combination_id(+) = fcb.impair_reserve_account_ccid

    AND gcck12.code_combination_id(+) = fcb.unplan_expense_account_ccid

    AND gcck13.code_combination_id(+) = fcb.alt_cost_account_ccid

    AND gcck14.code_combination_id(+) = fcb.write_off_account_ccid

    AND fcb.category_id = fcbd.category_id

    AND fct.category_id = fcb.category_id

    AND fcb.book_type_code = fcbd.book_type_code

    AND fcb.book_type_code = :p_book_type_code

    

Query to get Open FYI notifications in Oracle Workflow

SELECT wfn.recipient_role

  ,wfn.notification_id

  ,wfn.status

  ,wfn.mail_status

  ,wfn.subject

  FROM wf_item_activity_statuses wias

      ,wf_notifications wfn

 WHERE wias.notification_id=wfn.notification_id

   AND wfn.status='OPEN'

   AND wias.activity_status='COMPLETE'

   AND wfn.end_date is null

   AND wfn.message_type = 'REQAPPRV'

ORDER BY wfn.recipient_role;

Query to get Date Difference in Seconds in Oracle

DECLARE

    l_start_time   date;

l_end_time     date;

        l_date_difference    NUMBER;

BEGIN

    SELECT SYSDATE 

  INTO l_start_time 

  FROM DUAL;

fnd_file.put_line(fnd_file.log,'Program Start Time  :'||  TO_CHAR(SYSDATE,'HH24:MI:SS'));

    dbms_output.put_line('Program Start Time  :'||  TO_CHAR(SYSDATE,'HH24:MI:SS'));

   

WHILE l_Start_time IS NOT NULL

LOOP

SELECT SYSDATE 

  INTO l_end_time 

  FROM DUAL;

                l_date_difference := l_end_time - l_start_time;

    EXIT WHEN (l_date_difference)*24*60*60 = 180;

END LOOP;

fnd_file.put_line(fnd_file.log,'Program End Time     :'||  TO_CHAR(SYSDATE,'HH24:MI:SS'));

dbms_output.put_line('Program End Time  :'||  TO_CHAR(SYSDATE,'HH24:MI:SS'));

END;

Here control will be released after 180 seconds.

How to remove spaces in RTF Based Excel Output in Oracle APPS(XML Publisher Report)

Standard Trial Balance report output is Text. So client wanted to convert this report output to Excel. After converting standard Trial Balance report to excel we found issue like amount columns having leading and trailing spaces.

With this user unable to do SUM and other mathematical calculations. 

To remove spaces use below xdo function.

<?xdoxslt:trim(DISP_BEGIN_BALANCE)?>

This will remove leading and trailing spaces in Excel Output File.

Query to get GL Account Description in Oracle APPS using GL_FLEXFIELDS _PKG

SELECT gcc.code_combination_id

  ,gcc.segment1

  ,apps.gl_flexfields_pkg.get_description_sql( gcc.chart_of_accounts_id,1,gcc.segment1) SEGMENT1_DESC

  ,gcc.segment2

  ,apps.gl_flexfields_pkg.get_description_sql( gcc.chart_of_accounts_id,2,gcc.segment2) SEGMENT2_DESC

  ,gcc.segment3

  ,apps.gl_flexfields_pkg.get_description_sql( gcc.chart_of_accounts_id,3,gcc.segment3) SEGMENT3_DESC

  ,gcc.segment4

  ,apps.gl_flexfields_pkg.get_description_sql( gcc.chart_of_accounts_id,4,gcc.segment4) SEGMENT4_DESC

  ,gcc.segment5

  ,apps.gl_flexfields_pkg.get_description_sql( gcc.chart_of_accounts_id,5,gcc.segment5) SEGMENT5_DESC

  ,gcc.segment6

  ,apps.gl_flexfields_pkg.get_description_sql( gcc.chart_of_accounts_id,6,gcc.segment6) SEGMENT6_DESC

FROM gl_code_combinations gcc

WHERE gcc.code_combination_id = 100000

Here gl_flexfields_pkg.get_description_sql has below parameters:

1. Chart of Account ID
2. Number of the Segment
3. Segment value for which we need Description

Dependent Values in DFF Enabled Fields in Oracle APPS

 We can use :$FLEX$.Previous_Value_Set_Name to get dependent Values in DFF Enabled Fields in Oracle APPS.