Procedura-BANKACCOUNT_PARTS

Parametry:

Název	Popis	Datový typ
BANKACCOUNT		VarChar(42)

Návratové hodnoty:

Název	Popis	Datový typ
NUMBER		VarChar(37)
BANKCODE		VarChar(4)

Závislosti:

Název	Popis	Třída
ib_String_Left	Vrací prvních n znaků.	Procedures
ib_String_Right	Předchozí název - String_Right	Procedures

Tělo:

BEGIN
  SLASH_POS = IB_FIND_TOKEN (:BANKACCOUNT, '/');
  IF (:SLASH_POS > 0) THEN
  BEGIN
    NUMBER = IB_STRING_LEFT (:BANKACCOUNT, SLASH_POS - 1);
    BANKCODE = IB_STRING_RIGHT (:BANKACCOUNT, IB_STRING_LENGTH(:BANKACCOUNT) - SLASH_POS);
  END ELSE
  BEGIN
    NUMBER = :BANKACCOUNT;
    BANKCODE = '';
  END
  SUSPEND;
END

Generated by ABRA Software a.s. 27.10.2021 16:35:06