防止AR模块客户录入重复的一个比较实用的办法

最新推荐文章于 2020-11-12 20:32:40 发布

qq642892779

最新推荐文章于 2020-11-12 20:32:40 发布

阅读量300

点赞数

分类专栏： Oracle EBS R12

Oracle EBS R12 专栏收录该内容

17 篇文章

订阅专栏

本文介绍了一个SQL触发器的设计方案，该触发器用于在插入或更新hz_parties表时防止同名客户的重复创建，特别是在处理与ap供应商可能存在同名的情况。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在hz_parties表上增加一个触发器，因为和ap供应商可能同名，所以要额外排除一下来源应用

CREATE OR REPLACE TRIGGER hz_parties_trg
  BEFORE INSERT OR UPDATE ON hz_parties
  FOR EACH ROW
DECLARE
  n_exists NUMBER;
  exp_mul_cust EXCEPTION;
  PRAGMA AUTONOMOUS_TRANSACTION;
BEGIN
  IF (inserting OR (updating AND nvl(:old.party_name, '-99') <>
     nvl(:new.party_name, '-99'))) AND :new.application_id <> 200 THEN
    SELECT COUNT(1)
      INTO n_exists
      FROM hz_parties hp
     WHERE 1 = 1
       AND hp.party_name = nvl(:new.party_name, '-99')
       AND EXISTS (SELECT 1
              FROM hz_cust_accounts hca
             WHERE hca.party_id = hp.party_id);
    IF n_exists > 0 THEN
      RAISE exp_mul_cust;
    END IF;
  END IF;
EXCEPTION
  WHEN exp_mul_cust THEN
    raise_application_error('-20001',
                            '名称为"' || :new.party_name ||
                            '"的客户在系统中已经存在，不能重复创建相同名称的客户！');
END;