存储过程学习五

最新推荐文章于 2021-01-08 17:41:17 发布
最新推荐文章于 2021-01-08 17:41:17 发布
阅读量971 收藏
点赞数
分类专栏： oracle 文章标签： 存储 timer insert service 产品 date
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/tczxg/article/details/5865456
版权

包定义头

CREATE OR REPLACE PACKAGE PK_VSOP_ISMP_TIMER_SYN IS
  TYPE COMMCUR IS REF CURSOR; -- 定义公游标
/**
   *  模块名称: VSOP增值业务交付平台 - ISMP_TIMER_SYN
   *  功   能:  ISMP_TIMER_SYN数据同步
   *  设 计人:  赵兴国(VSOP增值业务交付平台V1.0)
   *  时  间:   2010-09-02
  **/
 
  --合作伙伴同步
  PROCEDURE P_VSOP_ISMP_TIMER_SPCP_SYN;
  --产品同步
  PROCEDURE P_VSOP_ISMP_TIMER_PRODUCT_SYN;
  --订购关系同步
  PROCEDURE P_VSOP_ISMP_TIMER_ORDER_REL;

END PK_VSOP_ISMP_TIMER_SYN;

下面是包体

CREATE OR REPLACE PACKAGE BODY PK_VSOP_ISMP_TIMER_SYN IS
/**
   *  模块名称: VSOP增值业务交付平台 - ISMP_TIMER_SYN
   *  功   能:  ISMP_TIMER_SYN数据同步
   *  设 计人:  赵兴国(VSOP增值业务交付平台V1.0)
   *  时  间:   2010-09-02
  **/
  --获取序列
  FUNCTION getSeq(seqName varchar2) return number is
    seqId number;
  BEGIN
    EXECUTE IMMEDIATE 'select ' || seqName || '.Nextval from dual'
      INTO seqId;
    RETURN seqId;
  END getSeq;


/**
   *  模块名称: VSOP增值业务交付平台 - ISMP_TIMER_SYN
   *  功   能:  ISMP合作伙伴信息同步入库
   *  设 计人:  赵兴国(VSOP增值业务交付平台V1.0)
   *  时  间:   2010-09-02
  **/
  PROCEDURE P_VSOP_ISMP_TIMER_SPCP_SYN
  IS
    V_PARTNER_CUR         COMMCUR;
    partnerTemp           PARTNER_TEMP%ROWTYPE;
    V_COUNT               NUMBER;
    V_PARTNER_ID          NUMBER;
  BEGIN

  OPEN V_PARTNER_CUR FOR 'SELECT T.SPID,
         T.TYPE,
         T.NAMECN,
         T.NAMEEN,
         T.DESCRIPTIONCN,
         T.DESCRIPTIONEN,
         T.CUSTOMERCARE,
         T.WEBSITEURL,
         T.PROVINCEID,
         T.ROAMPROPERTY,
         T.COMPANYADDRESS,
         T.LEGALREPRESENTATIVE,
         T.PRINCIPAL,
         T.PRINCIPALTEL,
         T.PRINCIPALEMAIL,
         T.LICENSE,
         T.CONTRACTEXPIREDATE,
         T.ACCESSNO,
         T.SETTLEMENTCYCLE,
         T.SETTLEMENTPAYTYPE,
         T.SETTLEMENTPERCENT,
         T.CSWEBSITE,
         DECODE(T.STATUS, ''00'', ''G01'', ''02'', ''G05'', ''G05'')
    FROM PARTNER_TEMP T';
         LOOP
               FETCH V_PARTNER_CUR INTO partnerTemp.Spid,partnerTemp.Type,partnerTemp.Namecn,partnerTemp.Nameen,partnerTemp.Descriptioncn,
               partnerTemp.Descriptionen,partnerTemp.Customercare,partnerTemp.Websiteurl,partnerTemp.Provinceid,partnerTemp.Roamproperty,
               partnerTemp.Companyaddress,partnerTemp.Legalrepresentative,partnerTemp.Principal,partnerTemp.Principaltel,partnerTemp.Principalemail,
               partnerTemp.License,partnerTemp.Contractexpiredate,partnerTemp.Accessno,partnerTemp.Settlementcycle,partnerTemp.Settlementpaytype,
               partnerTemp.Settlementpercent,partnerTemp.Cswebsite,partnerTemp.Status;
        
         EXIT WHEN V_PARTNER_CUR%NOTFOUND;
        
         EXECUTE IMMEDIATE'SELECT COUNT(1) FROM PARTNER T WHERE T.PARTNER_CODE = :1'
         INTO V_COUNT
         USING partnerTemp.Spid;

         IF V_COUNT = 1 THEN
         --UPDATE 合作伙伴表
         EXECUTE IMMEDIATE'UPDATE PARTNER T
         SET T.STATE                = :1,
             T.PARTNER_CODE         = :2,
             T.PARTNER_TYPE         = :3,
             T.PARTNER_NAME         = :4,
             T.PARTNER_ENG_NAME     = :5,
             T.PARTNER_DESC         = :6,
             T.PARTNER_ENG_DESC     = :7,
             T.CUST_SERVICE_PHONE   = :8,
             T.PARTNER_URL          = :9,
             T.PARTNER_AREA_CODE    = :10,
             T.IF_ROAM              = :11,
             T.COMPANY_ADDRESS      = :12,
             T.ARTIFICIAL_PERSON    = :13,
             T.PRIMARY_PERSON_NAME  = :14,
             T.PRIMARY_PERSON_PHONE = :15,
             T.PRIMARY_PERSON_EMAIL = :16,
             T.BUSINESS_LICENSE     = :17,
             T.CONTRACT_EXP_DATE    = :18,
             T.PARTNER_NUMBER       = :19,
             T.SETTLE_CYCLE         = :20,
             T.SETTLE_PAY_METHOD    = :21,
             T.SETTLE_RATE          = :22,
             T.CUST_SERVICE_URL     = :23,
             T.STATE_DATE           = SYSDATE
             WHERE T.PARTNER_CODE   = :24'
             USING partnerTemp.Status,partnerTemp.Spid,partnerTemp.Type,partnerTemp.Namecn,partnerTemp.Nameen,partnerTemp.Descriptioncn,
               partnerTemp.Descriptionen,partnerTemp.Customercare,partnerTemp.Websiteurl,partnerTemp.Provinceid,partnerTemp.Roamproperty,
               partnerTemp.Companyaddress,partnerTemp.Legalrepresentative,partnerTemp.Principal,partnerTemp.Principaltel,partnerTemp.Principalemail,
               partnerTemp.License,partnerTemp.Contractexpiredate,partnerTemp.Accessno,partnerTemp.Settlementcycle,partnerTemp.Settlementpaytype,
               partnerTemp.Settlementpercent,partnerTemp.Cswebsite,partnerTemp.Spid;

         ELSIF V_COUNT = 0 THEN
         --INSERT合作伙伴表
         V_PARTNER_ID := getSeq('SEQ_VSOP_PARTNER_ID');
         EXECUTE IMMEDIATE 'INSERT INTO PARTNER
              (PARTNER_ID,
               PARTNER_CODE,
               PARTNER_TYPE,
               PARTNER_NAME,
               PARTNER_ENG_NAME,
               PARTNER_DESC,
               PARTNER_ENG_DESC,
               CUST_SERVICE_PHONE,
               PARTNER_URL,
               PARTNER_AREA_CODE,
               IF_ROAM,
               COMPANY_ADDRESS,
               ARTIFICIAL_PERSON,
               PRIMARY_PERSON_NAME,
               PRIMARY_PERSON_PHONE,
               PRIMARY_PERSON_EMAIL,
               BUSINESS_LICENSE,
               CONTRACT_EXP_DATE,
               PARTNER_NUMBER,
               SETTLE_CYCLE,
               SETTLE_PAY_METHOD,
               SETTLE_RATE,
               CUST_SERVICE_URL,
               STATE)
               VALUES
               (:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11,:12,:13,:14,:15,:16,:17,:18,:19,:20,:21,:22,:23,:24)'
               USING V_PARTNER_ID,partnerTemp.Spid,partnerTemp.Type,partnerTemp.Namecn,partnerTemp.Nameen,partnerTemp.Descriptioncn,
               partnerTemp.Descriptionen,partnerTemp.Customercare,partnerTemp.Websiteurl,partnerTemp.Provinceid,partnerTemp.Roamproperty,
               partnerTemp.Companyaddress,partnerTemp.Legalrepresentative,partnerTemp.Principal,partnerTemp.Principaltel,partnerTemp.Principalemail,
               partnerTemp.License,partnerTemp.Contractexpiredate,partnerTemp.Accessno,partnerTemp.Settlementcycle,partnerTemp.Settlementpaytype,
               partnerTemp.Settlementpercent,partnerTemp.Cswebsite,partnerTemp.Status; 
        
/*         EXECUTE IMMEDIATE'INSERT INTO PARTNER_SYSTEM_INFO
              (PARTNER_SYSTEM_INFO_ID,
               SYSTEM_CODE,
               PARTNER_ID,
               CREATE_DATE,
               STATE,
               STATE_DATE)
            VALUES
              (SEQ_VSOP_PART_SYS_ID.nextval, ''204'', :1, SYSDATE, :2, SYSDATE)'
              USING V_PARTNER_ID,partnerTemp.Status;*/
              
         ELSE
         --数据有问题，存在重复合作伙伴编码
         --RETURN;
         EXECUTE IMMEDIATE 'INSERT INTO ISMP_SYN_ERROR(ISMP_SYN_ERROR_ID,OBJ_ID,OBJ_DESC,MARK,ERROR_DESC,ADD_TIME)
         VALUES
         (SEQ_VSOP_PARTNER_ID.NEXTVAL,:1,''合作伙伴编码'',''同步合作伙伴错误'',''存在重复的合作伙伴编码'',SYSDATE)'
         USING partnerTemp.Spid;
         END IF;
         COMMIT;
        
         END LOOP;
         CLOSE V_PARTNER_CUR;
  --EXECUTE IMMEDIATE 'truncate table PARTNER_TEMP';
  EXCEPTION
    WHEN OTHERS THEN
      ROLLBACK;
  END P_VSOP_ISMP_TIMER_SPCP_SYN;
 
 
/**
   *  模块名称: VSOP增值业务交付平台 - ISMP_TIMER_SYN
   *  功   能:  ISMP产品信息同步入库
   *  设 计人:  赵兴国(VSOP增值业务交付平台V1.0)
   *  时  间:   2010-09-02
  **/
  PROCEDURE P_VSOP_ISMP_TIMER_PRODUCT_SYN
  IS
    V_PRODUCT_CUR         COMMCUR;
    V_ABILITY_CUR         COMMCUR;
    productTemp           PRODUCT_TEMP%ROWTYPE;
    V_COUNT               NUMBER;
    V_PRODUCT_ID          NUMBER;
    V_PARTNER_ID          NUMBER;
    V_PARTNER_SYS_INFO_ID NUMBER;
    V_ABILITY_REL_ID      NUMBER;
    V_PROD_OFFER_ID       NUMBER;
    V_OFFER_ROLE_ID       NUMBER;
    V_ABILITY_ID          VARCHAR2(20);
    V_LATAIN_ID           VARCHAR2(20);
  BEGIN

  OPEN V_PRODUCT_CUR FOR 'SELECT PRODUCTID,
           PNAMECN,
           PDESCRIPTIONCN,
           DECODE(SCOPE, ''13'', ''03'', ''02''),
           PARTNER_ID,
           DECODE(STATUS,
                  ''01'',
                  ''G01'',
                  ''00'',
                  ''G02'',
                  ''02'',
                  ''G04'',
                  ''G05''),
           DECODE(PRODUCTHOST, NULL, ''200''),
           ''888'',
           SERVICEID
      FROM PRODUCT_TEMP T1, PARTNER T2
     WHERE T1.SPID = T2.PARTNER_CODE';
   
         LOOP
               FETCH V_PRODUCT_CUR INTO productTemp.Productid,productTemp.Pnamecn,productTemp.Pdescriptioncn,productTemp.Scope,
               V_PARTNER_ID,productTemp.Status,productTemp.Producthost,V_LATAIN_ID,productTemp.Serviceid;
        
         EXIT WHEN V_PRODUCT_CUR%NOTFOUND;
        
         EXECUTE IMMEDIATE'SELECT COUNT(1) FROM PRODUCT T WHERE T.PRODUCT_NBR = :1'
         INTO V_COUNT
         USING productTemp.Productid;
        
         IF V_COUNT = 0 THEN
         --INSERT产品表，产品接入平台表，产品关系表，业务能力表，并分三步生成基础销售品
         --插入产品表
         V_PRODUCT_ID := getSeq('SEQ_VSOP_PRD_ID');
         EXECUTE IMMEDIATE'INSERT INTO PRODUCT
            (PRODUCT_ID,
             PRODUCT_NBR,
             PRODUCT_NAME,
             PRODUCT_DESC,
             MANAGE_GRADE,
             PRODUCT_PROVIDER_ID,
             PRODUCT_STATE_CD,
             PROD_FUNC_TYPE,
             PROD_BUNDLE_TYPE,
             ORDER_HOST,
             LATN_ID,
             SERVICE_ID)
             VALUES
             (:1,:2,:3,:4,:5,:6,:7,''03'',''01'',:8,:9,:10)'
             USING V_PRODUCT_ID,productTemp.Productid,productTemp.Pnamecn,productTemp.Pdescriptioncn,productTemp.Scope,
               V_PARTNER_ID,productTemp.Status,productTemp.Producthost,V_LATAIN_ID,productTemp.Serviceid;
         --插入产品关系   
         EXECUTE IMMEDIATE 'INSERT INTO PRODUCT_RELATION
            (PRODUCT_REL_ID,
             RELATION_TYPE_CD,
             PRODUCT_ID,
             PRO_PRODUCT_ID,
             STATE_CD,
             STATE_DATE,
             CREATE_DATE)
            SELECT SEQ_VSOP_OFFER_ROLE_ID.NEXTVAL,
                   ''0'',
                   :2,
                   T.PRODUCT_ID,
                   :3,
                   SYSDATE,
                   SYSDATE
              FROM PRODUCT T
             WHERE T.SERVICE_ID = :1'
             USING productTemp.Serviceid,V_PRODUCT_ID,productTemp.Status;

         --插入产品接入平台表
         V_PARTNER_SYS_INFO_ID := getSeq('SEQ_VSOP_PRD_SYS_INFO_ID');
         EXECUTE IMMEDIATE'INSERT INTO PRODUCT_SYSTEM_INFO
            (PARTNER_SYS_INFO_ID,
             PRODUCT_ID,
             SYSTEM_CODE,
             CREATE_DATE,
             STATE,
             STATE_DATE)
             VALUES
             (:1,:2,''204'',SYSDATE,:3,SYSDATE)'
             USING V_PARTNER_SYS_INFO_ID,V_PRODUCT_ID,productTemp.Status;
        
         --插入业务能力表
         OPEN V_ABILITY_CUR FOR'SELECT T.SERVICECAPABILITYID FROM PROD_SERVICE_ABILITY_REL_TEMP T WHERE T.PRODUCTID = :1'
              USING productTemp.Productid; 
         LOOP
              FETCH V_ABILITY_CUR INTO V_ABILITY_ID;
          
           EXIT WHEN V_ABILITY_CUR%NOTFOUND;
        
           V_ABILITY_ID := '1'+V_ABILITY_ID;   
           V_ABILITY_REL_ID := getSeq('SEQ_VSOP_PRD_SERV_ABILI_ID');
           EXECUTE IMMEDIATE'INSERT INTO PRODUCT_SERVICE_ABILITY_REL(PRD_SERV_ABILITY_REL_ID,PRODUCT_ID,SERVICE_CODE,REL_TYPE)
           VALUES
           (:1,:2,:3,''02'')'
           USING V_ABILITY_REL_ID,V_PRODUCT_ID,V_ABILITY_ID;
        
         END LOOP;
         CLOSE V_ABILITY_CUR;
        
         --分三步生成基础销售品
         --1。插入销售品
         V_PROD_OFFER_ID := getSeq('SEQ_VSOP_OFR_ID');
         EXECUTE IMMEDIATE'INSERT INTO PROD_OFFER
          (PROD_OFFER_ID,
           FEE_SET_FLAG,
           PROD_OFFER_SUB_TYPE,
           OFFER_DESC,
           PRICING_DESC,
           PROD_OFFER_NAME,
           STATE,
           STATE_DATE,
           MANAGE_GRADE,
           OFFER_NBR)
           VALUES
           (:1,''1'',''0'',:2,:3,:4,:5,SYSDATE,:6,:7)'
           USING V_PROD_OFFER_ID,productTemp.Pdescriptioncn,productTemp.Chargingpolicycn,productTemp.Pnamecn,productTemp.Status,
           productTemp.Scope,productTemp.Productid;
          
         --2。插入角色表
         V_OFFER_ROLE_ID := getSeq('SEQ_VSOP_OFFER_ROLE_ID');
         EXECUTE IMMEDIATE'INSERT INTO PROD_OFFER_DETAIL_ROLE(PROD_OFFER_ROLE_CD,STATE,PROD_OFFER_ID)
         VALUES
         (:1,:2,:3)'
         USING V_OFFER_ROLE_ID,productTemp.Status,V_PROD_OFFER_ID;
        
         --3。插入角色成员关系表
         EXECUTE IMMEDIATE'INSERT INTO ROLE_PROD_RELA(PROD_OFFER_ROLE_CD,PRODUCT_ID)
         VALUES
         (:1,:2)'
         USING V_OFFER_ROLE_ID,V_PRODUCT_ID;

         ELSIF V_COUNT = 1 THEN
         --开始更新操作
         --UPDATE产品表，产品接入平台表，产品关系表，业务能力表，并分三步生成基础销售品
         --update产品表
         EXECUTE IMMEDIATE 'UPDATE PRODUCT T
           SET T.PRODUCT_NAME        = :1,
               T.PRODUCT_DESC        = :2,
               T.MANAGE_GRADE        = :3,
               T.PRODUCT_PROVIDER_ID = :4,
               T.PRODUCT_STATE_CD    = :5,
               T.PROD_FUNC_TYPE      = ''03'',
               T.PROD_BUNDLE_TYPE    = ''01'',
               T.ORDER_HOST          = :6,
               T.LATN_ID             = :7,
               T.SERVICE_ID          = :8
               WHERE T.PRODUCT_NBR   = :9'
               USING productTemp.Pnamecn,productTemp.Pdescriptioncn,productTemp.Scope,
               V_PARTNER_ID,productTemp.Status,productTemp.Producthost,V_LATAIN_ID,productTemp.Serviceid,productTemp.Productid;
         --更新产品关系
         --删除产品关系
         EXECUTE IMMEDIATE 'SELECT T.PRODUCT_ID FROM PRODUCT T WHERE T.PRODUCT_NBR = :1'
         INTO V_PRODUCT_ID
         USING productTemp.Productid;
         EXECUTE IMMEDIATE 'DELETE FROM PRODUCT_RELATION T WHERE T.PRODUCT_ID = :1'
         USING productTemp.Productid;
         --插入产品关系   
         EXECUTE IMMEDIATE 'INSERT INTO PRODUCT_RELATION
            (PRODUCT_REL_ID,
             RELATION_TYPE_CD,
             PRODUCT_ID,
             PRO_PRODUCT_ID,
             STATE_CD,
             STATE_DATE,
             CREATE_DATE)
            SELECT SEQ_VSOP_OFFER_ROLE_ID.NEXTVAL,
                   ''0'',
                   :2,
                   T.PRODUCT_ID,
                   :3,
                   SYSDATE,
                   SYSDATE
              FROM PRODUCT T
             WHERE T.SERVICE_ID = :1'
             USING productTemp.Serviceid,V_PRODUCT_ID,productTemp.Status;
            
         --update业务能力表
         --插入业务能力表
         OPEN V_ABILITY_CUR FOR'SELECT T.SERVICECAPABILITYID FROM PROD_SERVICE_ABILITY_REL_TEMP T WHERE T.PRODUCTID = :1'
              USING productTemp.Productid; 
         LOOP
              FETCH V_ABILITY_CUR INTO V_ABILITY_ID;
          
           EXIT WHEN V_ABILITY_CUR%NOTFOUND;
          
           IF V_ABILITY_ID IS NOT NULL AND length(V_ABILITY_ID)>0 THEN
             V_ABILITY_ID := '1'+V_ABILITY_ID;
             EXECUTE IMMEDIATE 'DELETE FROM PRODUCT_SERVICE_ABILITY_REL WHERE PRODUCT_ID = :1'
             USING V_PRODUCT_ID;  
             V_ABILITY_REL_ID := getSeq('SEQ_VSOP_PRD_SERV_ABILI_ID');
             EXECUTE IMMEDIATE'INSERT INTO PRODUCT_SERVICE_ABILITY_REL(PRD_SERV_ABILITY_REL_ID,PRODUCT_ID,SERVICE_CODE,REL_TYPE)
             VALUES
             (:1,:2,:3.''02'')'
             USING V_ABILITY_REL_ID,V_PRODUCT_ID,V_ABILITY_ID;
           END IF;
        
         END LOOP;
         CLOSE V_ABILITY_CUR;
        
         --UPDATE销售品表
         EXECUTE IMMEDIATE 'UPDATE PROD_OFFER T
           SET T.MANAGE_GRADE        = :1,
               T.FEE_SET_FLAG        = ''1'',
               T.PROD_OFFER_SUB_TYPE = ''0'',
               T.OFFER_DESC          = :2,
               T.PRICING_DESC        = :3,
               T.PROD_OFFER_NAME     = :4,
               T.STATE               = :5,
               T.STATE_DATE          = SYSDATE
               WHERE T.OFFER_NBR     = :6'
               USING productTemp.Scope, productTemp.Pdescriptioncn,productTemp.Chargingpolicycn,productTemp.Pnamecn,
               productTemp.Status,productTemp.Productid;

         ELSE
         --数据错误
         --RETURN;
        
         EXECUTE IMMEDIATE 'INSERT INTO ISMP_SYN_ERROR(ISMP_SYN_ERROR_ID,OBJ_ID,OBJ_DESC,MARK,ERROR_DESC,ADD_TIME)
         VALUES
         (SEQ_VSOP_PARTNER_ID.NEXTVAL,:1,''产品编码'',''同步产品错误'',''存在重复的产品编码'',SYSDATE)'
         USING productTemp.Productid;
        
         END IF;
         --循环一次就提交
         COMMIT;
        
         END LOOP;
         CLOSE V_PRODUCT_CUR;
  COMMIT;
 
  --EXECUTE IMMEDIATE 'truncate table PRODUCT_TEMP';
  --EXECUTE IMMEDIATE 'truncate table PROD_SERVICE_ABILITY_REL_TEMP';
  EXCEPTION
    WHEN OTHERS THEN
      ROLLBACK;
  END P_VSOP_ISMP_TIMER_PRODUCT_SYN;
 
 
/**
   *  模块名称: VSOP增值业务交付平台 - ISMP_TIMER_SYN
   *  功   能:  ISMP订购关系信息同步入库
   *  设 计人:  赵兴国(VSOP增值业务交付平台V1.0)
   *  时  间:   2010-09-02
  **/
  PROCEDURE P_VSOP_ISMP_TIMER_ORDER_REL
  IS
    V_RELATION_CUR        COMMCUR;
    V_PRODUCT_ID          NUMBER;
    V_OFFER_ID            NUMBER;
    V_PROD_INST_ID        NUMBER;
    V_STATE               VARCHAR2(20);
    V_ACC_NBR             VARCHAR2(20);
    V_PRODUCT_NBR         VARCHAR2(60);
  BEGIN 
  OPEN V_RELATION_CUR FOR 'SELECT T.USERID,T.PRODUCTID,T.STATE FROM ORDER_RELATION_TEMP T';
 
  LOOP         
       FETCH V_RELATION_CUR INTO V_ACC_NBR,V_PRODUCT_NBR,V_STATE;   
       EXIT WHEN V_RELATION_CUR%NOTFOUND;
  CASE
    --正常
    WHEN V_STATE='00' THEN
    V_STATE := '1001';
    --待生效
    WHEN V_STATE='01' THEN
    V_STATE := '3001';
    --暂停＋待生效
    WHEN V_STATE='02' THEN
    V_STATE := '3001';
    --暂停
    WHEN V_STATE='03' THEN
    V_STATE := '1001';
    --待失效
    WHEN V_STATE='04' THEN
    V_STATE := '1001';
    --暂停＋待失效
    WHEN V_STATE='05' THEN
    V_STATE := '1001';
    --注销
    WHEN V_STATE='06' THEN
    V_STATE := '1101';
    --自体验
    WHEN V_STATE='07' THEN
    V_STATE := '1001';
    --批量导入免费体验
    WHEN V_STATE='08' THEN
    V_STATE := '1001';
    --沉默状态
    WHEN V_STATE='09' THEN
    V_STATE := '1001';
    --免费体验
    WHEN V_STATE='10' THEN
    V_STATE := '1001';
    ELSE
    V_STATE := '1101';
    END CASE;
      
  EXECUTE IMMEDIATE'SELECT T.PROD_INST_ID FROM PROD_INST T WHERE T.ACC_NBR = :1'
  INTO V_PROD_INST_ID
  USING V_ACC_NBR;

  IF V_PROD_INST_ID IS NOT NULL AND length(V_PROD_INST_ID)>0 THEN
 
  EXECUTE IMMEDIATE 'SELECT A.PRODUCT_ID, D.PROD_OFFER_ID
      FROM PRODUCT A, ROLE_PROD_RELA B, PROD_OFFER_DETAIL_ROLE C, PROD_OFFER D
     WHERE A.PRODUCT_ID = B.PRODUCT_ID
       AND B.PROD_OFFER_ROLE_CD = C.PROD_OFFER_ROLE_CD
       AND C.PROD_OFFER_ID = D.PROD_OFFER_ID AND A.PRODUCT_NBR = :1'
  INTO V_PRODUCT_ID,V_OFFER_ID
  USING V_PRODUCT_NBR;
 
  IF V_PRODUCT_ID IS NOT NULL AND length(V_PRODUCT_ID)>0 THEN
  EXECUTE IMMEDIATE 'INSERT INTO ORDER_RELATION
  (ORDER_RELATION_ID,PROD_INST_ID,PRODUCT_ID,PROD_OFFER_ID,STATE,SUBSCRIBE_TIME,MODIFY_TIME)
  VALUES
  (SEQ_VSOP_ORDER_REL_ID.NEXTVAL,:1,:2,:3,:4,SYSDATE,SYSDATE)'
  USING V_PROD_INST_ID,V_PRODUCT_ID,V_OFFER_ID,V_STATE;
  ELSE
  --数据错误
  EXECUTE IMMEDIATE 'INSERT INTO ISMP_SYN_ERROR(ISMP_SYN_ERROR_ID,OBJ_ID,OBJ_DESC,MARK,ERROR_DESC,ADD_TIME)
     VALUES
     (SEQ_VSOP_PARTNER_ID.NEXTVAL,:1,''产品编码'',''同步订购关系错误'',''产品编码不存在'',SYSDATE)'
     USING V_PRODUCT_NBR;
  END IF;

  ELSE
  --数据错误
  EXECUTE IMMEDIATE 'INSERT INTO ISMP_SYN_ERROR(ISMP_SYN_ERROR_ID,OBJ_ID,OBJ_DESC,MARK,ERROR_DESC,ADD_TIME)
     VALUES
     (SEQ_VSOP_PARTNER_ID.NEXTVAL,:1,''客户手机号码'',''同步订购关系错误'',''此号码不存在'',SYSDATE)'
     USING V_ACC_NBR;
 
  END IF; 
  COMMIT;
  END LOOP;
  CLOSE V_RELATION_CUR;
 
  --EXECUTE IMMEDIATE 'truncate table ORDER_RELATION_TEMP';
  EXCEPTION
    WHEN OTHERS THEN
      ROLLBACK;
  END P_VSOP_ISMP_TIMER_ORDER_REL;


END PK_VSOP_ISMP_TIMER_SYN;

tczxg
关注
专栏目录
mysql面试必会基础（四）
一对儿程序猿
04-10 1万+
1.视图 1.       视图的定义 视图就是从一个或多个表中，导出来的表，是一个虚拟存在的表。视图就像一个窗口（数据展示的窗口），通过这个窗口，可以看到系统专门提供的数据（也可以查看到数据表的全部数据），使用视图就可以不用看到数据表中的所有数据，而是只想得到所需的数据。 在数据库中，只存放了视图的定义，并没有存放视图的数据，数据还是存储在原来的表里，视图的数据是依赖原
（微信开发）PHP curl模拟登陆教务系统查询成绩查询课表实现微信查成绩差课表功能
热门推荐
xiaoxiaobai2015的专栏
02-07 81万+
最近微信开发特别火，刚学会helloword的我也去玩了一下。做了一个微信端查成绩、查课表、查考试安排，图书借阅情况，一键续借的微信公众账号。做了几天，从只会echo到这个公众账号完成，遇到了不少问题，也学到了不少东西。现在写出来算是总结吧。也给需要的同学一个参考的例子。下面以中南民族大学教务系统为例。      一.原理        模拟登陆的原理是这样的，当我们登陆教务系统的时候，我们把学号
在Entity Framework中使用存储过程（五）：如何通过存储过程维护多对多关系？
weixin_34037977的博客
03-16 88
对于数据库设计来说，多对多（或者一对多）是一种常见的数据关系，比如联系人和地址之间的关系。我们通常采用建立关系表的方式来表示这种关系，比如我们创建一张Contact—_Address（ContactID, AddressID）来存储联系人和地址之间的关系。如果我们最终需要通过存储过程的方式来维护他们之间的关系，该如何做呢？本篇文章给你一个具体的例子来演示如果采用存储过程来建立和删除实体之间的关系。...
mysql数据库的存储过程(五)
JUSTIN的博客
02-14 418
/* 摘抄至:http://www.cnblogs.com/mark-chan/p/5384139.html 定义: SQL语句需要先编译然后执行，而存储过程（Stored Procedure）是一组为了完成特定功能的SQL语句集， 经编译后存储在数据库中，用户通过指定存储过程的名字并给定参数（如果该存储过程带有参数）来调用执行它。 存储过程是可编程的函数，在数据库中创建并保存，可...
MySQL用法(五) 存储过程详解
babyZeng
08-12 499
1.      存储过程简介   我们常用的操作数据库语言SQL语句在执行的时候需要要先编译，然后执行，而存储过程（Stored Procedure）是一组为了完成特定功能的SQL语句集，经编译后存储在数据库中，用户通过指定存储过程的名字并给定参数（如果该存储过程带有参数）来调用执行它。 一个存储过程是一个可编程的函数，它在数据库中创建并保存。它可以有SQL语句和一些特殊的控
MTK note
陈云峰技术博客
06-09 2468
<br />LCD移植<br />static const s_lcd_probe gLcdProbe[] = {<br />...<br />    {"ILI9328", LCD_IsILI9328, &LCD_func_ILI9328},  <br />    {"LP4948", NULL, &LCD_func_LP4948},<br />}<br /> <br />原来{"LP4948", NULL, &LCD_func_LP4948}, 放在{"ILI9328", LC
扩展：数据库笔试题集合-2
xiaoleinb的博客
01-08 6918
第1章 数据库章节 1.1 选择 1.1.1 Having 子句的作用是©。 A.查询结果的分组条件 B.组的筛选条件 C.限定返回的行的判断条件 D.对结果集进行排序 1.1.2 最常用的一种基本数据模型是关系数据模型，它的表示采用（D） A.树 B.网络 C.图 D.二维表 1.1.3 数据库系统的核心是（B） A.数据模型 B.数据库管理系統 C.数据库 D.数据库管理员 1.1.4 关系表中每一横行称为（A） A.元组 B.字段 C.属性 D.码 1.1.5 数据库管理系统维护中，最重要的是（数据维
存储过程学习
12-12
存储过程 结合 触发器流水 账号 实例 存储过程 结合 触发器流水 账号 实例
SYBASE IQ存储过程学习笔记
最新发布
09-08
【SYBASE IQ存储过程学习笔记】 在SYBASE IQ数据库中，存储过程是一种强大的工具，它允许用户编写并存储过程化的SQL语句，以便日后重复使用。存储过程不仅可以包含基本的SQL查询，还能够集成诸如LOOP循环、IF和CASE...
oracle存储过程学习资料
06-08
在本学习资料中，你将深入理解Oracle存储过程的创建、调用、调试以及优化等多个方面。 1. **存储过程的创建**： Oracle存储过程通过`CREATE PROCEDURE`语句来定义。你可以指定输入参数、输出参数、输入输出参数，...
存储过程学习（二）
szyzxcv5689的专栏
04-09 827
AspNetPager高效分页 如下是首页添加了aspnetpager的代码：<webdiyer:AspNetPager ID="PagerUserService" runat="server" AlwaysShow="True" CustomInfoHTML="共[%RecordCount%]条，[%CurrentPageIndex%]
实例学习mssql存储过程分析
12-15
例１：通过存储过程查询数据库中的student表 我们知道在sql中,我们查询一个表,可以通过 select * from student 进行查询,那在存储过程中该怎么写呢？ 解： 首先我们打开查询分析器,（以下举的例子中的存储过程...
SAP方丈-SAP常见问题与解决办法（转）
少年休闲海
11-12 2万+
1.A:在公司代码分配折旧表时报错?     在公司代码分配折旧表时报错，提示是“3000 的公司代码分录不完全－参见长文本”  希望各位大侠帮我看看。 3000 的公司代码分录不完全－参见长文本  R: a.你把零进项税的代码分配给这个公司代码就可以了 .没有指定非税代码,OBCL       b.据此可能company code 设置有问题,检查一下OBY6  2.a,维护客户科目
存储过程
liyu121的博客
10-11 398
USE [HMFG] GO /****** Object: StoredProcedure [dbo].[rp_me_rme26aa_query] Script Date: 10/11/2019 17:15:59 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO -- 存储过程的基本信息 -- ===============...
sap] [转帖]SAP方丈-SAP常见问题与解决办法（汇总帖）
congxie1979的博客
04-02 841
1.A:在公司代码分配折旧表时报错? 在公司代码分配折旧表时报错，提示是“3000 的公司代码分录不完全－参见长文本” 希望各位大侠帮我看看。3000 的公司代码分录不完全－参见长文本R: a.你把零进项税的代码分配给...
存储过程学习二
tczxg的专栏
07-12 378
<br />主要学习了<br />1.数据类型<br />2.变量定义<br />3.程序判断分支<br />4.循环<br />5.游标<br />6.块结构以及存储过程 代码结构<br />create or replace procedure pl_test_loop is<br />   v_name mytest.name%type;<br />   v_password mytest.password%type;<br />   cursor cur_mytest is <br />  
Mysql存储过程学习笔记–建立简单的存储过程
12-15
MySQL存储过程是数据库管理系统中的一种重要特性，它允许开发者预定义一组SQL语句，以便后续在需要时调用。这不仅简化了代码复用，提高了性能，还减少了网络流量，增强了安全性。以下是对存储过程的详细说明： **一...
5分钟使用存储过程，构建百万测试数据！
软件测试前沿技术分享
10-08 666
01 怎么创建测试数据 如果你会编程语言，那么你可以使用java、python、php等等语言通过对应的工具包操作数据库来完成测试数据的构建。 如果你不会这些语言，恰好你又会一些sql语句，使用存储过程完成测试数据构造是再好不过了。 并且存储过程就是sql脚本，存储、执行、查看结果都在一个工具类就可完成非常方便。（本例采用mysql数据库） 02 什么是存储过程...
oracle存储空间已满，不能启动
tczxg的专栏
03-22 1046
<br />df -h 查看磁盘空间，发现/dev/sda11 /app 100%<br /><br /><br /> 文件系统              容量  已用 可用 已用% 挂载点<br /> /dev/sda9             9.5G  539M  8.5G   6% /<br /> /dev/sda11             99G   94G  766M 100% /app<br /> /dev/sda8             9.5G  151M  8.9G   2%
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值