TECH.RegisteredObject 1 0 { do Log2.DetailAsStream.CopyFrom(Log1.DetailAsStream) set Log2.Detail = Log1.DetailAsStream.Read(15000) } else { do Log2.DetailAsStream.Write(Log1.Detail) set Log2.Detail = $extract(Log1.Detail,1,15000) } set Log2.JobID = Log1.JobID set Log2.RemoteIP = Log1.RemoteIP set Log2.Gebruiker = Log1.Gebruiker set Log2.GebruikerID = Log1.GebruikerID set Log2.SessionID = Log1.SessionID set Log2.ClientAdres = Log1.ClientAdres set Log2.Applicatie = Log1.Applicatie set Log2.ProgLabel = Log1.ProgLabel set Log2.TeBehandelen = Log1.TeBehandelen do Log2.GekendeExceptieSetObjectId(Log1.GekendeExceptieGetObjectId()) write Log2.%Save() } ]]> 1