Procedura-GetCategoryItemByGroup

Návratové hodnoty:

Název	Popis	Datový typ
CategoryItem_ID		ID_Null
CategoryItemGroup_ID		ID_Null

Tělo:

begin
  for
    select
      CG.id
    from
      categoryitemgroups CG
    order by
      cg.name
    into
      :mid
  do begin
    categoryitemgroup_ID = mID;
    CategoryItem_ID = null;
    suspend;
    for
      select
        CI.id, CI.categoryitemgroup_id
      from
        categoryitems CI
      where
        CI.categoryitemgroup_id=:mid
      into
        :CategoryItem_ID,
        :categoryitemgroup_ID
    do begin
      suspend;
    end
  end
  for
    select
      CI.id, CI.categoryitemgroup_id
    from
      categoryitems CI
    where
      CI.categoryitemgroup_id is null
    into
      :CategoryItem_ID,
      :categoryitemgroup_ID
  do begin
    suspend;
  end
end

Generated by ABRA Software a.s. 27.10.2021 16:34:14