572: V_OTHER_CLOSING_BALANCE NUMBER;
573: V_COUNT NUMBER;
574: v_commit_count number:=0;
575: --Variable Declarations Ends here..........
576: --For UTL File..
577: v_myfilehandle UTL_FILE.FILE_TYPE; -- This is for File handling
578: v_utl_location VARCHAR2(512);
579: v_debug_flag VARCHAR2(1); -- := 'N' File.Sql.35 by Brathod
580: lv_name VARCHAR2(30); --rchandan for bug#4428980
573: V_COUNT NUMBER;
574: v_commit_count number:=0;
575: --Variable Declarations Ends here..........
576: --For UTL File..
577: v_myfilehandle UTL_FILE.FILE_TYPE; -- This is for File handling
578: v_utl_location VARCHAR2(512);
579: v_debug_flag VARCHAR2(1); -- := 'N' File.Sql.35 by Brathod
580: lv_name VARCHAR2(30); --rchandan for bug#4428980
581: --Ends here......
597: v_debug_flag := 'N';
598:
599: IF v_debug_flag ='Y' THEN
600: BEGIN
601: lv_name := 'utl_file_dir';--rchandan for bug#4428980
602: SELECT DECODE(SUBSTR (value,1,INSTR(value,',') -1),NULL,
603: Value,SUBSTR (value,1,INSTR(value,',') -1))
604: INTO v_utl_location
605: FROM v$parameter
608: WHEN OTHERS THEN
609: v_debug_flag:='N';
610: END;
611:
612: v_myfilehandle := UTL_FILE.FOPEN(v_utl_location,'componentbalances.log','A');
613:
614: UTL_FILE.PUT_LINE(v_myfilehandle,'************************Start************************************');
615: UTL_FILE.PUT_LINE(v_myfilehandle,'The Time Stamp this Entry is Created is ' ||TO_CHAR(SYSDATE,'DD/MM/RRRR HH24:MI:SS'));
616: END IF;
610: END;
611:
612: v_myfilehandle := UTL_FILE.FOPEN(v_utl_location,'componentbalances.log','A');
613:
614: UTL_FILE.PUT_LINE(v_myfilehandle,'************************Start************************************');
615: UTL_FILE.PUT_LINE(v_myfilehandle,'The Time Stamp this Entry is Created is ' ||TO_CHAR(SYSDATE,'DD/MM/RRRR HH24:MI:SS'));
616: END IF;
617:
618: FOR CUR_REC IN FETCH_REGISTER_DETAILS
611:
612: v_myfilehandle := UTL_FILE.FOPEN(v_utl_location,'componentbalances.log','A');
613:
614: UTL_FILE.PUT_LINE(v_myfilehandle,'************************Start************************************');
615: UTL_FILE.PUT_LINE(v_myfilehandle,'The Time Stamp this Entry is Created is ' ||TO_CHAR(SYSDATE,'DD/MM/RRRR HH24:MI:SS'));
616: END IF;
617:
618: FOR CUR_REC IN FETCH_REGISTER_DETAILS
619: LOOP --L1
617:
618: FOR CUR_REC IN FETCH_REGISTER_DETAILS
619: LOOP --L1
620: IF V_DEBUG_FLAG='Y' THEN
621: UTL_FILE.PUT_LINE(v_myfilehandle,'After Loop starts' ||'The Organization id is ' || CUR_REC.ORGANIZATION_ID);
622: UTL_FILE.PUT_LINE(v_myfilehandle,'After Loop starts' ||'The Location id is ' || CUR_REC.LOCATION_ID);
623: UTL_FILE.PUT_LINE(v_myfilehandle,'After Loop starts' ||'The Register id is ' || CUR_REC.REGISTER_ID);
624: END IF;
625:
618: FOR CUR_REC IN FETCH_REGISTER_DETAILS
619: LOOP --L1
620: IF V_DEBUG_FLAG='Y' THEN
621: UTL_FILE.PUT_LINE(v_myfilehandle,'After Loop starts' ||'The Organization id is ' || CUR_REC.ORGANIZATION_ID);
622: UTL_FILE.PUT_LINE(v_myfilehandle,'After Loop starts' ||'The Location id is ' || CUR_REC.LOCATION_ID);
623: UTL_FILE.PUT_LINE(v_myfilehandle,'After Loop starts' ||'The Register id is ' || CUR_REC.REGISTER_ID);
624: END IF;
625:
626: BEGIN
619: LOOP --L1
620: IF V_DEBUG_FLAG='Y' THEN
621: UTL_FILE.PUT_LINE(v_myfilehandle,'After Loop starts' ||'The Organization id is ' || CUR_REC.ORGANIZATION_ID);
622: UTL_FILE.PUT_LINE(v_myfilehandle,'After Loop starts' ||'The Location id is ' || CUR_REC.LOCATION_ID);
623: UTL_FILE.PUT_LINE(v_myfilehandle,'After Loop starts' ||'The Register id is ' || CUR_REC.REGISTER_ID);
624: END IF;
625:
626: BEGIN
627: SELECT NVL(BASIC_RG23A_BALANCE,0),
648: V_ADDITIONAL_OPENING_BALANCE_C := 0;
649: V_OTHER_OPENING_BALANCE_C := 0;
650:
651: IF V_DEBUG_FLAG='Y' THEN
652: UTL_FILE.PUT_LINE(v_myfilehandle,'Inside NDF' ||'The Organization id is ' || CUR_REC.ORGANIZATION_ID);
653: UTL_FILE.PUT_LINE(v_myfilehandle,'Inside NDF' ||'The Location id is ' || CUR_REC.LOCATION_ID);
654: END IF;
655: --DBMS_OUTPUT.PUT_LINE('Before Insert');
656: --If the combination of Organization and Location do not exist then
649: V_OTHER_OPENING_BALANCE_C := 0;
650:
651: IF V_DEBUG_FLAG='Y' THEN
652: UTL_FILE.PUT_LINE(v_myfilehandle,'Inside NDF' ||'The Organization id is ' || CUR_REC.ORGANIZATION_ID);
653: UTL_FILE.PUT_LINE(v_myfilehandle,'Inside NDF' ||'The Location id is ' || CUR_REC.LOCATION_ID);
654: END IF;
655: --DBMS_OUTPUT.PUT_LINE('Before Insert');
656: --If the combination of Organization and Location do not exist then
657: INSERT INTO JAI_CMN_RG_COMP_BALS
711: V_OTHER_CLOSING_BALANCE := V_OTHER_OPENING_BALANCE + NVL(CUR_REC.CR_OTHER_ED,0) - NVL(CUR_REC.DR_OTHER_ED,0);
712: END;
713:
714: IF V_DEBUG_FLAG='Y' THEN
715: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The Organization id is ' || CUR_REC.ORGANIZATION_ID);
716: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The Location id is ' || CUR_REC.LOCATION_ID);
717: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The Register id is ' || CUR_REC.REGISTER_ID);
718: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The V_BASIC_OPENING_BALANCE is ' || V_BASIC_OPENING_BALANCE);
719: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The V_BASIC_CLOSING_BALANCE is ' || V_BASIC_CLOSING_BALANCE);
712: END;
713:
714: IF V_DEBUG_FLAG='Y' THEN
715: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The Organization id is ' || CUR_REC.ORGANIZATION_ID);
716: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The Location id is ' || CUR_REC.LOCATION_ID);
717: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The Register id is ' || CUR_REC.REGISTER_ID);
718: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The V_BASIC_OPENING_BALANCE is ' || V_BASIC_OPENING_BALANCE);
719: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The V_BASIC_CLOSING_BALANCE is ' || V_BASIC_CLOSING_BALANCE);
720: END IF;
713:
714: IF V_DEBUG_FLAG='Y' THEN
715: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The Organization id is ' || CUR_REC.ORGANIZATION_ID);
716: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The Location id is ' || CUR_REC.LOCATION_ID);
717: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The Register id is ' || CUR_REC.REGISTER_ID);
718: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The V_BASIC_OPENING_BALANCE is ' || V_BASIC_OPENING_BALANCE);
719: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The V_BASIC_CLOSING_BALANCE is ' || V_BASIC_CLOSING_BALANCE);
720: END IF;
721:
714: IF V_DEBUG_FLAG='Y' THEN
715: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The Organization id is ' || CUR_REC.ORGANIZATION_ID);
716: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The Location id is ' || CUR_REC.LOCATION_ID);
717: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The Register id is ' || CUR_REC.REGISTER_ID);
718: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The V_BASIC_OPENING_BALANCE is ' || V_BASIC_OPENING_BALANCE);
719: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The V_BASIC_CLOSING_BALANCE is ' || V_BASIC_CLOSING_BALANCE);
720: END IF;
721:
722: INSERT INTO JAI_CMN_RG_COMP_DTLS
715: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The Organization id is ' || CUR_REC.ORGANIZATION_ID);
716: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The Location id is ' || CUR_REC.LOCATION_ID);
717: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The Register id is ' || CUR_REC.REGISTER_ID);
718: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The V_BASIC_OPENING_BALANCE is ' || V_BASIC_OPENING_BALANCE);
719: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The V_BASIC_CLOSING_BALANCE is ' || V_BASIC_CLOSING_BALANCE);
720: END IF;
721:
722: INSERT INTO JAI_CMN_RG_COMP_DTLS
723: (EXCISE_COMP_DTL_ID,
799: END IF;
800: --Updation Ends here.....................................
801: --COMMIT;
802: IF V_DEBUG_FLAG='Y' THEN
803: UTL_FILE.PUT_LINE(v_myfilehandle,'Before Insert into Details table' ||'The Location id is ' || CUR_REC.LOCATION_ID);
804: END IF;
805: if v_commit_count = 100 then
806: commit;
807: v_commit_count := 0;
810: end if;
811: END LOOP; --L1
812: commit;
813: IF V_DEBUG_FLAG='Y' THEN
814: UTL_FILE.FCLOSE(v_myfilehandle);
815: END IF;
816: EXCEPTION --Ex1
817: WHEN OTHERS THEN
818: rollback;