Не могу понять

[Predatore]

Доброго всем времени суток!
Не могу понять одного момента. Есть такой кодеюнит 5763 Whse.-Post Shipment, есть в нём такая функция PostSourceDocument, а в ней несколько раз встречается вот такая конструкция:

CASE WhseSetup."Shipment Posting Policy" OF
  WhseSetup."Shipment Posting Policy"::"Posting errors are not processed":
    BEGIN
      SalesPost.RUN(SalesHeader);
      CounterSourceDocOK := CounterSourceDocOK + 1;
    END;
  WhseSetup."Shipment Posting Policy"::"Stop and show the first posting error":
    BEGIN
      SalesPost.RUN(SalesHeader);
      CounterSourceDocOK := CounterSourceDocOK + 1;
    END;
END;

Вот объясните мне смысл этой конструкции, делается CASE и вне зависимости от этого CASE выполняется один и тот же код, в чём смысл?