1. 程式人生 > >Oracle EBS AR 更新客戶

Oracle EBS AR 更新客戶

DECLARE

   l_return_status VARCHAR2(300);
   l_msg_count     NUMBER;
   l_msg_data      VARCHAR2(300);
   l_rec_type      hz_cust_account_v2pub.cust_account_rec_type;

   
CURSOR cur IS       SELECT party.party_name,              cust.account_number,              cust.creation_date,              party.tax_reference,              cust.cust_account_id         
FROM hz_cust_accounts cust, hz_parties party        WHERE cust.party_id = party.party_id          AND cust.account_number NOT IN              (
'10005693'--               '10005184'--               '10005084'--               '10005049'--               '10005330'--               '10005259'--               '10005617',               '10005157'); BEGIN    FOR rec IN cur LOOP           l_rec_type.cust_account_id := rec.cust_account_id;       l_rec_type.account_name    := rec.party_name || '(作廢)';       -- l_rec_type.cust_account_id := rec.CUST_ACCOUNT_ID;       hz_cust_account_v2pub.update_cust_account(p_init_msg_list         => fnd_api.g_false,                                                 p_cust_account_rec      => l_rec_type,                                                 p_object_version_number => 2.0,                                                 x_return_status         => l_return_status,                                                 x_msg_count             => l_msg_count,                                                 x_msg_data              => l_msg_data);           IF l_return_status <> 'S' THEN          dbms_output.put_line('E:' || cux_util.dump_error_stack);          RAISE;       END IF;        END LOOP; END;