Create_cash

Question

Hey guys,
I'm trying to create receipt using receipt API. After running my code, I don't see the record in the table AR_CASH_RECEIPTS_ALL. I don't know what I'm doing wrong, here is how I call the API.
set serveroutput on size 100000
DECLARE
l_cash_receipt_id NUMBER(15);
l_msg_count NUMBER(10);
l_return_status VARCHAR2(200);
l_msg_data VARCHAR2(4000);
l_remittance_bank_account_id NUMBER(15) := 10053;
TYPE Msg_rec IS RECORD(Message VARCHAR2(25));
TYPE Mesg_tbl_type IS TABLE OF Msg_rec INDEX BY BINARY_INTEGER;
Mesg_tbl Mesg_tbl_type;
l_msg_data_out VARCHAR2(2000);
stack_count NUMBER;
l_mesg VARCHAR2(100);
l_attribute_rec AR_RECEIPT_API_PUB.ATTRIBUTE_REC_TYPE;
l_global_attribute_rec AR_RECEIPT_API_PUB.GLOBAL_ATTRIBUTE_REC_TYPE;
BEGIN
AR_RECEIPT_API_PUB.CREATE_CASH(
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,
p_currency_code => 'USD',
p_amount => 50.00,
p_receipt_number => 'R-101',
p_receipt_date => SYSDATE,
p_gl_date => SYSDATE,
p_customer_id => 81795,
--p_customer_number => l_customer_number,
p_deposit_date => SYSDATE,
p_receipt_method_id => 4006,
p_cr_id => l_cash_receipt_id,
p_remittance_bank_account_id => l_remittance_bank_account_id,
p_attribute_rec => l_attribute_rec,
p_global_attribute_rec => l_global_attribute_rec,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data);
-- Catch the error if there is one
IF l_msg_count = 1 THEN
l_msg_data_out := l_msg_data;
ELSIF l_msg_count > 1 THEN
LOOP
stack_count := stack_count + 1;
l_mesg := FND_MSG_PUB.GET();
IF l_mesg IS NULL THEN
EXIT;
ELSE
Mesg_tbl(stack_count).message := l_mesg;
DBMS_OUTPUT.PUT_LINE(l_mesg);
END IF;
END LOOP;
END IF;
END;
/

Answer 1

try this ...same code have been modified
SET SERVEROUTPUT ON
SPOOL Create_Cash
DECLARE
     p_api_version      NUMBER;
     p_init_msg_list               VARCHAR2(240);
     p_commit               VARCHAR2(240);
     p_validation_level          NUMBER;
     p_usr_currency_code      VARCHAR2(240);
p_usr_exchange_rate_type      VARCHAR2(240);
p_exchange_rate_type      VARCHAR2(240);
p_exchange_rate      NUMBER;
p_exchange_rate_date      DATE;
p_factor_discount_amount      NUMBER;
p_receipt_date      DATE;
p_postmark_date      DATE;
p_customer_number      VARCHAR2(240);
p_customer_bank_account_id      NUMBER;
p_customer_bank_account_num VARCHAR2(240);
p_customer_bank_account_name VARCHAR2(240);
p_location      VARCHAR2(240);
p_customer_receipt_reference      VARCHAR2(240);
p_remittance_bank_account_num VARCHAR2(240);
p_remittance_bank_account_name VARCHAR2(240);
p_receipt_method_name      VARCHAR2(240);
p_doc_sequence_value      NUMBER;
p_ussgl_transaction_code      VARCHAR2(240);
p_anticipated_clearing_date      DATE;
p_called_from      VARCHAR2(240);
     p_comments               VARCHAR2(240);
     p_issuer_name VARCHAR2(240);
p_issue_date DATE;
p_issuer_bank_branch_id NUMBER;
     p_amount               NUMBER;
     p_receipt_number          VARCHAR2(240);
     p_receipt_method_id          NUMBER;
     p_customer_name           VARCHAR2(240);
     p_customer_id               NUMBER;
     p_currency_code           VARCHAR2(10);
     p_gl_date               DATE;
     p_deposit_date           DATE;
     p_customer_site_use_id           NUMBER;
     p_override_remit_account_flag      VARCHAR2(1);
     p_remittance_bank_account_id      NUMBER;
     p_maturity_date               DATE;
     x_return_status               VARCHAR2(1);
     x_msg_count               NUMBER;
     x_msg_data               VARCHAR2(240);
     p_cr_id                NUMBER;
     p_global_attribute_rec      AR_RECEIPT_API_PUB.global_attribute_rec_type;
     p_attribute_rec           AR_RECEIPT_API_PUB.attribute_rec_type;
BEGIN
     p_amount                := 50; --- same as yours
     p_receipt_number          := 'R-101' --- same as your
     p_receipt_method_id           := 4006 --- same as your
     p_customer_id               := 81795 --- same as your
     p_currency_code           := 'USD'; --- same as your
     p_receipt_date           := SYSDATE;
     p_gl_date               := SYSDATE;
     p_deposit_date           := SYSDATE;
     p_customer_site_use_id           := 1017; ---change this
     p_override_remit_account_flag      := 'Y';
     p_remittance_bank_account_id      := '10001'; --- change this
     p_maturity_date               := SYSDATE+100;
AR_RECEIPT_API_PUB.Create_cash (
     p_api_version      => 1.0                    
     ,p_init_msg_list      => FND_API.G_FALSE
     ,p_commit      => FND_API.G_FALSE
          ,p_validation_level          => FND_API.G_VALID_LEVEL_FULL
          ,p_usr_currency_code          => p_usr_currency_code
          ,p_currency_code           => p_currency_code
,p_usr_exchange_rate_type      => p_usr_exchange_rate_type
,p_exchange_rate_type      => p_exchange_rate_type
,p_exchange_rate           => p_exchange_rate
,p_exchange_rate_date      => p_exchange_rate_date
,p_amount      => p_amount
,p_factor_discount_amount      => p_factor_discount_amount
,p_receipt_number      => p_receipt_number
,p_receipt_date      => p_receipt_date
,p_gl_date      => p_gl_date
,p_maturity_date      => p_maturity_date
,p_postmark_date      => p_postmark_date
,p_customer_id      => p_customer_id
,p_customer_name      => p_customer_name
,p_customer_number      => p_customer_number
,p_customer_bank_account_id      => p_customer_bank_account_id
,p_customer_bank_account_num      => p_customer_bank_account_num
,p_customer_bank_account_name      => p_customer_bank_account_name
,p_location      => p_location
,p_customer_site_use_id      => p_customer_site_use_id
          ,p_customer_receipt_reference      => p_customer_receipt_reference
,p_override_remit_account_flag     => p_override_remit_account_flag
,p_remittance_bank_account_id      => p_remittance_bank_account_id
,p_remittance_bank_account_num     => p_remittance_bank_account_num
,p_remittance_bank_account_name => p_remittance_bank_account_name
,p_deposit_date      => p_deposit_date
,p_receipt_method_id      => p_receipt_method_id
,p_receipt_method_name      => p_receipt_method_name
,p_doc_sequence_value      => p_doc_sequence_value
,p_ussgl_transaction_code      => p_ussgl_transaction_code
,p_anticipated_clearing_date      => p_anticipated_clearing_date
,p_called_from      => p_called_from
          ,p_global_attribute_rec      => p_global_attribute_rec
          ,p_attribute_rec          => p_attribute_rec
          ,p_comments               => p_comments
          ,p_issuer_name      => p_issuer_name
,p_issue_date      => p_issue_date
,p_issuer_bank_branch_id      => p_issuer_bank_branch_id
     ,x_return_status      => x_return_status
     ,x_msg_count      => x_msg_count
     ,x_msg_data      => x_msg_data
          ,p_cr_id               => p_cr_id                                                  
IF (x_return_status = 'S') THEN
COMMIT;
     dbms_output.put_line('SUCCESS');
     dbms_output.put_line('Return Status          = '|| SUBSTR (x_return_status,1,255));
     dbms_output.put_line('Message Count           = '||x_msg_count);
     dbms_output.put_line('Message Data          = '||x_msg_data);
     dbms_output.put_line('p_cr_id                = '||p_cr_id);
ELSE
ROLLBACK;
dbms_output.put_line('Return Status     = '|| SUBSTR (x_return_status,1,255));
dbms_output.put_line('Message Count      = '|| TO_CHAR(x_msg_count ));
dbms_output.put_line('Message Data     = '|| SUBSTR (x_msg_data,1,255));
dbms_output.put_line(APPS.FND_MSG_PUB.Get ( p_msg_index => APPS.FND_MSG_PUB.G_LAST,
p_encoded => APPS.FND_API.G_FALSE));
IF x_msg_count >=0 THEN
     FOR I IN 1..10 LOOP
          dbms_output.put_line(I||'. '|| SUBSTR (FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255));
     END LOOP;
END IF;
END IF;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('Exception :'||sqlerrm);
END;
COMMIT;
SPOOL off;