• Storage

Popis

declare function GetStrPropertyFromDB dll "ActualDocument" (string): string
declare function PropertyFromDBConnect dll "ActualDocument" (string): boolean
declare procedure PropertyFromDBDisconnect dll "ActualDocument" ()

script TEST_PropertyFromDB (): Boolean
var
  iRes: Integer
  sRes: String
  bConn: boolean
begin
  bConn := PropertyFromDBConnect("")
  if bConn then
    sRes := GetStrPropertyFromDB("nazev_promenne2")
    sRes += GetStrPropertyFromDB("nazev_promenne1")
    write(sRes)
    PropertyFromDBDisconnect()
  else
    write("Připojení k DB nebylo úspěšné.")
  end
end