Procedura-UsedStoreCards

Popis:

Funkce již není systémem využívána. Ponecháno pouze z důvodu zpětné kompatibility (#deprecated). Vrací ID skladových karet, umožňuje omezit za sklad a za karty, které jsou na skladě.

Parametry:

Název	Popis	Datový typ
AStore_ID		Char(10)
AAvailableOnly		Char(1)

Návratové hodnoty:

Název	Popis	Datový typ
ID		Char(10)

Tělo:

begin
  if (AStore_ID = '__________') then begin
    if (AAvailableOnly = 'N') then begin
      for select A.ID from
        StoreCards A, StoreSubCards B
      where
        B.StoreCard_ID = A.ID and A.Hidden = 'N'
      into :ID
      do suspend;
    end
    else begin
      for select A.ID from
        StoreCards A, StoreSubCards B
      where
        B.StoreCard_ID = A.ID and A.Hidden = 'N'
      group by
        A.ID
      having
        sum(B.Quantity) > 0
      into :ID
      do suspend;
    end
  end /* of: if ID = '___ .... */
  else begin
    if (AAvailableOnly = 'N') then begin
      for select A.ID from
        StoreCards A, StoreSubCards B
      where
        B.StoreCard_ID = A.ID and A.Hidden = 'N' and B.Store_ID = :AStore_ID
      into :ID
      do suspend;
    end
    else begin
      for select A.ID from
        StoreCards A, StoreSubCards B
      where
        B.StoreCard_ID = A.ID and A.Hidden = 'N' and B.Quantity > 0 and B.Store_ID = :AStore_ID
      into :ID
      do suspend;
    end
  end
end;

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