procedure TTZ_CPWDGL.DataSetBroker1AfterScroll(DataSet: TDataSet);
begin
(DocView3.Doc as TRelevancyDoc).FuncURL :='Biz:\TZERP\TZOA\TZ_CPWDXXGL.Func';
(DocView3.Doc as TRelevancyDoc).Load('',
['Biz:\TZERP\TZOA\TZOADB.DATABASE\OA__ProductDocumentManagement.Table\ID.Field'],
[DataSet.FieldByName('ID').AsString],True, TDocAccessKind.akAll);