光标名称代替额外变量

Question

这是我的程序。其中我使用了名为“CUR_TO_COLLECT_DATA”的游标。 另外我也使用了名为“VAR_CUR_TO_COLLECT_DATA”的“TBL_TRIAL_BALANCE_REPORT”表格类型的变量。

现在我不想使用“VAR_CUR_TO_COLLECT_DATA”变量，并且希望使用游标的名称I.e“CUR_TO_COLLECT_DATA”来代替“VAR_CUR_TO_COLLECT_DATA”变量。

正在做这个任务吗？如果是，那么请帮助如何？

PROCEDURE PR_TRIAL_BALANCEWITHOUTFOR IS 

    CURSOR CUR_TO_COLLECT_DATA IS(
     SELECT NAME, SUM(CREDIT) AS CREDIT, SUM(DEBIT) AS DEBIT 
     FROM (

       SELECT (SELECT GL_NAME 
         FROM QM_GL 
         WHERE QM_GL.GL_ID = QT_ACCOUNTING.GL_ID) AS NAME, 
         DECODE(QT_ACCOUNTING.TRANS_TYPE, 
          'CR', 
          (QT_ACCOUNTING.TRANS_AMOUNT), 
          0.00) AS CREDIT, 
         DECODE(QT_ACCOUNTING.TRANS_TYPE, 
          'DR', 
          (QT_ACCOUNTING.TRANS_AMOUNT), 
          0.00) AS DEBIT 

       FROM QT_ACCOUNTING, QM_ACCOUNTING_PERIOD 

       WHERE QT_ACCOUNTING.VALUE_DATE BETWEEN 
        QM_ACCOUNTING_PERIOD.PERIODFROM AND 
        QM_ACCOUNTING_PERIOD.PERIODTO 
       AND QM_ACCOUNTING_PERIOD.STATUS = 'O' 

      ) 
     GROUP BY NAME); 

    VAR_CUR_TO_COLLECT_DATA TBL_TRIAL_BALANCE_REPORT%ROWTYPE; 

    BEGIN 

    OPEN CUR_TO_COLLECT_DATA; 

    LOOP 

     FETCH CUR_TO_COLLECT_DATA 
     INTO VAR_CUR_TO_COLLECT_DATA; 

     IF (VAR_CUR_TO_COLLECT_DATA.CREDIT - VAR_CUR_TO_COLLECT_DATA.DEBIT) > 0 THEN 
     INSERT INTO TBL_TRIAL_BALANCE_REPORT 
     VALUES 
      (VAR_CUR_TO_COLLECT_DATA.NAME, 
      (VAR_CUR_TO_COLLECT_DATA.CREDIT - VAR_CUR_TO_COLLECT_DATA.DEBIT), 
      0); 
     END IF; 
     IF (VAR_CUR_TO_COLLECT_DATA.DEBIT - VAR_CUR_TO_COLLECT_DATA.CREDIT) > 0 THEN 
     INSERT INTO TBL_TRIAL_BALANCE_REPORT 
     VALUES 
      (VAR_CUR_TO_COLLECT_DATA.NAME, 
      0, 
      (VAR_CUR_TO_COLLECT_DATA.DEBIT - VAR_CUR_TO_COLLECT_DATA.CREDIT)); 
     END IF; 

     EXIT WHEN CUR_TO_COLLECT_DATA%NOTFOUND; 

    END LOOP; 

    CLOSE CUR_TO_COLLECT_DATA; 

    EXCEPTION 
    WHEN OTHERS THEN 
     DBMS_OUTPUT.PUT_LINE(SQLERRM); 
     BEGIN 
     CLOSE CUR_TO_COLLECT_DATA; 
     EXCEPTION 
     WHEN OTHERS THEN 
      NULL; 
     END; 
    END; 

Answer 1

你可以尝试做这样的事情：

PROCEDURE PR_TRIAL_BALANCEWITHOUTFOR IS 

    CURSOR CUR_TO_COLLECT_DATA IS(
     SELECT NAME, SUM(CREDIT) AS CREDIT, SUM(DEBIT) AS DEBIT 
     FROM (

       SELECT (SELECT GL_NAME 
         FROM QM_GL 
         WHERE QM_GL.GL_ID = QT_ACCOUNTING.GL_ID) AS NAME, 
         DECODE(QT_ACCOUNTING.TRANS_TYPE, 
          'CR', 
          (QT_ACCOUNTING.TRANS_AMOUNT), 
          0.00) AS CREDIT, 
         DECODE(QT_ACCOUNTING.TRANS_TYPE, 
          'DR', 
          (QT_ACCOUNTING.TRANS_AMOUNT), 
          0.00) AS DEBIT 

       FROM QT_ACCOUNTING, QM_ACCOUNTING_PERIOD 

       WHERE QT_ACCOUNTING.VALUE_DATE BETWEEN 
        QM_ACCOUNTING_PERIOD.PERIODFROM AND 
        QM_ACCOUNTING_PERIOD.PERIODTO 
       AND QM_ACCOUNTING_PERIOD.STATUS = 'O' 

      ) 
     GROUP BY NAME); 

    -- VAR_CUR_TO_COLLECT_DATA TBL_TRIAL_BALANCE_REPORT%ROWTYPE; 

    BEGIN 

    FOR REC_TO_COLLECT_DATA IN CUR_TO_COLLECT_DATA LOOP 

     IF (REC_TO_COLLECT_DATA.CREDIT - REC_TO_COLLECT_DATA.DEBIT) > 0 THEN 
     INSERT INTO TBL_TRIAL_BALANCE_REPORT 
     VALUES 
      (REC_TO_COLLECT_DATA.NAME, 
      (REC_TO_COLLECT_DATA.CREDIT - REC_TO_COLLECT_DATA.DEBIT), 
      0); 
     END IF; 
     IF (REC_TO_COLLECT_DATA.DEBIT - REC_TO_COLLECT_DATA.CREDIT) > 0 THEN 
     INSERT INTO TBL_TRIAL_BALANCE_REPORT 
     VALUES 
      (REC_TO_COLLECT_DATA.NAME, 
      0, 
      (REC_TO_COLLECT_DATA.DEBIT - REC_TO_COLLECT_DATA.CREDIT)); 
     END IF; 

    END LOOP; 

    EXCEPTION 
    WHEN OTHERS THEN 
     DBMS_OUTPUT.PUT_LINE(SQLERRM); 
    END; 

BTW，我不喜欢

 EXCEPTION 
     WHEN OTHERS THEN 
      NULL; 
     END; 

兼职如果你不应该沉默是个例外...