Join the OracleApps88 Telegram group @OracleApps88to get more information on Oracle EBS R12/Oracle Fusion applications.

If you are facing any issues while copying the Code/Script or any issues with Posts, Please send a mail to OracleApp88@Yahoo.com or message me at @apps88 or +91 905 957 4321 in telegram.

Monday, February 15, 2016

API to Delete Receivables invoice from Backend

There is an API used in Receivables form to delete AR invoice considering all validations, take care that if the AR invoice has any transaction it will not be able to be deleted

BEGIN
FOR AR_INV_DATA in (select cux.customer_trx_id , cux.trx_number
                    from ra_customer_trx_all cux
                    where cux.batch_source_id = ‘REEM’ And cux.trx_date <= to_date(01/05/2007,’dd/mm/yyyy’)
                 )
loop
-- Set a proper where condition as your case
AR_TRANSACTION_PUB.DELETE_TRANSACTION
       (p_api_name       => 'Maintain_Transaction',
         p_api_version      => 1.0  ,
         p_init_msg_list    => Fnd_Api.G_TRUE ,
         p_commit           => Fnd_Api.G_FALSE,
         p_validation_level => FND_API.G_VALID_LEVEL_NONE ,
         p_customer_trx_id => AR_inv_data.Customer_Trx_Id ,
         p_return_status    => return_v ,
         p_msg_count     => msg_count_v ,
         p_msg_data      => msg_data_v ,
         p_errors           => l_errors
       );

    Fnd_File.put_line(Fnd_File.OUTPUT,'Trying to Delete Receivables Invoice Number : '||AR_INV_DATA.TRX_NUMBER  );

    IF RETURN_V LIKE 'E%'
    THEN
       FND_MESSAGE.Set_Name('Receivables', l_errors(1).message_name );
       Fnd_File.put_line(Fnd_File.OUTPUT,FND_message.GET);
       Fnd_File.put_line(Fnd_File.OUTPUT,'Unable to delete Receivables Invoice Number : '||AR_INV_DATA.TRX_NUMBER);
      
       APP_EXCEPTION.Raise_Exception;
   
    END IF;

    l_match_count := l_match_count + 1;
    Fnd_File.put_line(Fnd_File.OUTPUT,'Receivables Invoice Number : '||AR_INV_DATA.TRX_NUMBER ||  '  is deleted ' );

END LOOP;

EXCEPTION
WHEN OTHERS THEN
    Fnd_File.put_line(Fnd_File.OUTPUT,'Unable to Delete AR Invoices due to Internal Error: '||sqlcode||'-'||sqlerrm);
    APP_EXCEPTION.Raise_Exception;
END;


No comments:

Post a Comment

If you are facing any issues while copying the Code/Script or any issues with Posts, Please send a mail to OracleApp88@Yahoo.com or message me at @apps88 or +91 905 957 4321 in telegram.
Best Blogger TipsGet Flower Effect