IF bord_det.ordd_prod_part <> ""
    THEN DO:
        FIND FIRST pt_mstr WHERE pt_mstr.pt_domain  = GLOBAL_DOMAIN
                             AND pt_mstr.pt_part    = bord_det.ordd_prod_part
                             NO-LOCK NO-ERROR.
            IF NOT AVAILABLE pt_mstr
            THEN DO:
                MESSAGE "Indeks " + bord_det.ordd_prod_part + " nie istnieje.".
                RUN putLog("Indeks " + bord_det.ordd_prod_part + " nie istnieje.").
                RUN putLog("").
                RUN putLog("-----------------------------------------------").
                RUN putLog("").
                IF execMode <> "" THEN PAUSE 0.
                UNDO.
            END. /* IF NOT AVAILABLE pt_mstr */
    END. /* IF bord_det.ordd_prod_part <> "" */

    /* Indeks skladowy dla indeksu wynikowego */
    IF bord_det.ordd_prod_part <> "" AND bord_det.ordd_prod_part <> bord_det.ordd_part
    THEN DO:
        IF NOT (bord_det.ordd_site = "ZZP" AND bord_det.ordd_loc = "MZP")
        THEN DO:
            MESSAGE "Indeks skladowy, musi byc na magazyn ZZP MZP.".
            RUN putLog("Indeks skladowy, musi byc na magazyn ZZP MZP.").
            RUN putLog("").
            RUN putLog("-----------------------------------------------").
            RUN putLog("").
            IF execMode <> "" THEN PAUSE 0.
            UNDO.
        END. /* IF NOT (bord_det.ordd_site = "ZZP" AND bord_det.ordd_loc = "MZP") */
    END. /* IF bord_det.ordd_prod_part <> "" AND bord_det.ordd_prod_part <> bord_det.ordd_part */