Procedura-InsertIntoSupportBook

Parametry:

NázevPopisDatový typ
AShortDescriptionVarChar(200)
AProblemDescriptionTextBlob(0)
AProblemDataTextBlob(0)
AImplementationDataTextBlob(0)
ASite
Site

Tělo:

begin
  select AOID from GenerateOID('05AXCRARHBEL3C5V00CA141B44', '01') into mOID;
  mToday = current_date - cast('31.12.1899' as date) + 1;
  mKind = 1;
  mEntryNumber = 0;
  select 
    coalesce(Max(EntryNumber), 0) 
  from 
    SystemSupportBook
  where 
    (Firm_ID is null) and (EntrySite = '01') and (Kind = :mKind) into :mEntryNumber;
  mEntryNumber = mEntryNumber + 1; 
  INSERT INTO SystemSupportBook (ID,
    Kind,
    EntryDate$DATE,
    CreatedBy_ID,
    NotifyOnStart,
    NotifyOnSite,
    EntrySite,
    EntryNumber,
    ShortDescription,
    ProblemDescription,
    ProblemData,
    ImplementationData) VALUES 
    (:mOID,
      :mKind,
      :mToday,
      'SUPER00000',
      'A',
      '01',
      '01',
      :mEntryNumber,
      :AShortDescription,
      :AProblemDescription,
      :AProblemData,
      :AImplementationData
   );    
end;

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