У друкованих формах, на наклейках профілів, з додаванням відображення заміток, додаткових елементів

Для відображення приміток з "Установка (монтаж) і додаткові елементи" в профільних наклейках в друкарських формах необхідно додати елемент напису з "значенням мітки" у вигляді наступного скрипту

$(
uses SysUtils, Shared; 

function GetRPRDetDopElemPrim: string;
var
  reil  : TId32L;
  rpr1  : TCycleRPRItem;
  rdiout: TRaskrDetalItem;
  order : TZakaz;
  izd1  : TIzdTyp;
  mt    : TMemTyp;
  idk   : TId32Kol;
begin
  result := ; 
  if not PrintData.RPRDet.ResultPresent then exit;
  rpr1 := PrintData.RPRDet.Items.GetByNum(PrintData.RPRDet.ItemPos);
  if rpr1.DetMode = crpridmDetail then
  begin       
    reil   := rpr1.rei.GetElm(rpr1.detnumx);
    rdiout := gd.RaskrProf.InDetales.GetById(reil.Id);
    if not assigned(rdiout)then exit;
    order  := gd.GetZakazById(rdiout.IdZakaz);
    if not assigned(order)then exit;
    izd1   := order.Izd.Items.GetById(rdiout.IdIzdelie);
    if not assigned(izd1)then exit;
    mt     := izd1.IzdObjItems.Mat.Items.GetById(rdiout.IdMemTyp);
    if not assigned(mt)then exit;    
    if mt.OneDopSource <> odlDopElem then exit;
    idk := GetItem(izd1.DopListAr, mt.OneDopSourceId);
    result := idk.Prim;
  end;  
end;

Також у версіях 10.27 і вище доступна більш компактна версія скрипта.

Примітка: Функція ПД. GetRPRDetDopElemData повертає структуру (запис) типу TId32Kol.

$(
починатися
  результат := ПД. GetRPRDetDopElemData.Prim;
кінець;
)

або

$(ПД. GetRPRDetDopElemData.Prim)