create or alter procedure DL_GOODS_GETONBARCODE (
  SEARCHSTR type of column CL_DIRECTORY.NAME,
  CASHREGISTER integer,
  IS_REMAINS_ONLINE integer = 0)
returns (
  ID integer,
  FLAGS integer,
  ABBR varchar(10),
  NAME type of column GOODS.MENUNAME,
  PRICE MONEY,
  BCCOUNTS COUNTS,
  REMAINS COUNTS)
AS
  declare GS_CLASS INTEGER;
  declare R_SHOUSE REFERENCE;
begin
  if (not exists(select first 1 ID from TMP_GOODS_FOR_CASH))
    then execute procedure DL_GOODS_FILL_CASH(:CASHREGISTER);

  --
  select O_DT_REFERENCE
  from DL_CASHREGISTER_GETMACRO(:CASHREGISTER, 'Разное\Расчет остатков по складу')
  into :R_SHOUSE;

  SEARCHSTR = Upper(:SEARCHSTR);
  for select GS.ID, 1, GS.CLASS_ID, GS.ABBR, GS.NAME, T.PRICE, GS.BARCODECOUNTS
      from GOODS GS
        join TMP_GOODS_FOR_CASH T on GS.ID = T.ID
        join BARCODES BC on GS.ID = BC.PARENT_ID
      where GS.STATUS > 0 and BIN_AND(GS.FLAGS, 32) = 0
            and BC.NAME = :SEARCHSTR
     -- order by NAME
      into :ID, :FLAGS, :GS_CLASS, :ABBR, :NAME, :PRICE, :BCCOUNTS
  do begin
    REMAINS = 0;
    if ((IS_REMAINS_ONLINE > 0) and (GS_CLASS = 3000 /* PRODUCE */)) then begin
      execute procedure REMAINS_ONLINE (:ID, :R_SHOUSE)
      returning_values :REMAINS;
    end
    suspend;
  end
end

execute block  (
  SEARCHSTR varchar(300) = :SEARCHSTR,
  CASHREGISTER integer = :CASHREGISTER,
  IS_REMAINS_ONLINE integer = :IS_REMAINS_ONLINE)
returns (
  ID integer,
  FLAGS integer,
  ABBR varchar(10),
  NAME type of column GOODS.MENUNAME,
  PRICE MONEY,
  BCCOUNTS COUNTS,
  REMAINS COUNTS)
AS
  declare GS_CLASS INTEGER;
  declare R_SHOUSE REFERENCE;
begin
  if (not exists(select first 1 ID from TMP_GOODS_FOR_CASH))
    then execute procedure DL_GOODS_FILL_CASH(:CASHREGISTER);

  --
  select O_DT_REFERENCE
  from DL_CASHREGISTER_GETMACRO(:CASHREGISTER, 'Разное\Расчет остатков по складу')
  into :R_SHOUSE;

  SEARCHSTR = Upper(:SEARCHSTR);
  for select GS.ID, 1, GS.CLASS_ID, GS.ABBR, GS.NAME, T.PRICE, GS.BARCODECOUNTS
      from GOODS GS
        join TMP_GOODS_FOR_CASH T on GS.ID = T.ID
        join BARCODES BC on GS.ID = BC.PARENT_ID
      where GS.STATUS > 0 and BIN_AND(GS.FLAGS, 32) = 0
            and BC.NAME = :SEARCHSTR
     -- order by NAME
      into :ID, :FLAGS, :GS_CLASS, :ABBR, :NAME, :PRICE, :BCCOUNTS
  do begin
    REMAINS = 0;
    if ((IS_REMAINS_ONLINE > 0) and (GS_CLASS = 3000 /* PRODUCE */)) then begin
      execute procedure REMAINS_ONLINE (:ID, :R_SHOUSE)
      returning_values :REMAINS;
    end
    suspend;
  end
end