procedure TMainForm.DocViewBarBeforeAction(Sender: TObject; var Accept: Boolean);
begin
if TBizDocAction(Sender).ID = BizActnConsts.ActionPrintPreview then
begin
TSQLDataSet(DataSetBroker1.DataSet).BizFieldByName('GJZ').DisplayName := 'dddd';
end;
end;