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
             ('', --
              '', --
              '', --
              '', --
              '', --
              '', --
              '',
              '');
 
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;