"localhost:/firebird/data/ILICHEVSK2.FDB". Процедуры

GETSILAGESFROMROUTE

Входные параметры

Выходные параметры

Описание

(Нет описания для процедуры GETSILAGESFROMROUTE)

Определение

CREATE PROCEDURE GETSILAGESFROMROUTE(
    AROUTECHEMAID INTEGER)
RETURNS (
    RESULT VARCHAR(255))
AS
DECLARE VARIABLE SILAGES VARCHAR(255) CHARACTER SET WIN1251;
begin
  RESULT = '';
  for
    select silage.name from routesilagechema, silage
    where routesilagechema.ROUTECHEMAID = :AROUTECHEMAID
    and routesilagechema.silageid = silage.silageid
    into :Silages
  do
    if (RESULT = '') then RESULT = :Silages;
    else RESULT = RESULT || ',' || :Silages;
  suspend;
END