Procedura-AssetTableIDForAssetCard

Popis:

Procedura vrati název tabulky pro předaný typ karty majetku

Parametry:

Název	Popis	Datový typ
AnAssetCardType		Integer

Návratové hodnoty:

Název	Popis	Datový typ
ATableID		Integer

Tělo:

BEGIN
  /* Procedura vrati ID tabulky pro předaný typ karty majetku*/
  if ((AnAssetCardType = 0) or (AnAssetCardType = 1)) then
    begin
      if (AnAssetCardType = 0) then
        begin
          ATableID = 10101;
        end
      else
        begin
          ATableID = 10102;
        end
     end
   else
     begin
       exception ErrAssetCardTypeNotSupport;
     end
  suspend;
END;

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