BEGIN
        -- ЕСТЬ ЛИ ТОВАР С ПОДОБНЫМ АРТИКУЛОМ И НОМЕНКЛАТУРНЫМ НОМЕРОМ
        SELECT COUNT(*)
          FROM G_PRODUCT G
         WHERE UPPER(G.ARTICUL) = UPPER(TRIM(:ARTICUL_))
          INTO :CNT_;

        IF (CNT_ > 0) THEN BEGIN
          ERR_MSG  = 'Товар с артикулом '||ARTICUL_||' уже есть в базе';
          EXCEPTION MY_EXCEPTION;
        END
        .
        .
        .
        .

        WHEN EXCEPTION MY_EXCEPTION DO BEGIN
            log_ = log_||'Товар '||NAME_||'. Ошибка: '||ERR_MSG||'. '||CRLF;
            pr_err = 1;
        END ANY DO BEGIN
            log_ = log_||'Товар '||NAME_||'. Ошибка: '||SUBSTRING(SQLCODE FROM 1 FOR 100)||'. Код ошибки '||SQLCODE||' '||CRLF;
            pr_err = 1;
        END
    END