rec_ShipBlHeader.import_folder_no,

                x_vch_message);

            IF x_num_error_code

                IN (GMY_GA000_PKG.gn#NG, GMY_GA000_PKG.INVALID_BL_NO) THEN

                x_vch_message :=

                        p_i_job_id

                       || '''' WARNING: Function CheckValidMasterBlNo @''''

                       || '''' Import folder ''''

                       || rec_ShipBlHeader.import_folder_no

                       || '''' - Invalid BL No.'''';

                COM_LOG.PUTLINE (p_i_job_id, x_vch_message);

                GOTO NEXT_RECORD;

            END IF;

            x_num_error_code := CheckExistsOfAccDate (

                p_i_job_id,

                p_i_as_of_date_id,

                rec_ShipBlHeader.import_folder_no);

            IF x_num_error_code = GMY_GA000_PKG.gn#NG THEN

                GOTO NEXT_RECORD;

            END IF;

            COMMIT;

            <<NEXT_RECORD>>

            FETCH cur_ShipBlHeader INTO rec_ShipBlHeader;

        END LOOP

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9]  下一页