任务流程报错,请教。

pc牧童

错误提示是：
'不能将YWYSZ.TYWYSZ转换成为Business.Model.TBizTableDef'
求解。
下有截图

pc牧童

截图2

shangxy

功能上使用了文档关联了么？
如果使用把这个功能的文档关联定义贴出图来看看

pc牧童

关联截图

atiger

YWYSZ.TYWYSZ 是啥？跟这个功能和定义里面用到了吗?
如果有，你直接打开看看是否ok

atiger

另外，你取消这个关联定义是否就ok了呢。

下面还有是否有定义，你4楼的图没有贴全，把右侧的滚动的条搞到最下面，

pc牧童

4楼的截图补充。
下面没有定义内容了。

还有‘YWYSZ.TYWYSZ ’我现在也不知道是什么，正在排查。

报错这段代码在，任务窗体的主窗体上。

pc牧童

报错代码位置事件：

function TMAINFORM.RefreshDocRelevancyBar(Sender: TObject): TDocRelevancyArray;
var
  I, J, lArrLen: Integer;
  lBizDatas: TTaskBizDataList;
  lBizFields, lValues: array of string;
  lRelevancyDoc: TDocRelevancyArray;
begin
  Result := [];
  lBizFields := [];
  lValues := [];
  if (DocRelevancyNavBar = nil) or (MyTaskDoc.InfoTask.Task = nil) or
    (MyTaskDoc.InfoTask.Task.FuncURL = '') then
    Exit;

  //加载任务关联的业务所关联的文档，与任务自身累加
  lBizDatas := MyTaskDoc.InfoTask.Task.BizDatas;
  for I := 0 to lBizDatas.Count - 1 do
  begin
    SetLength(lBizFields, lBizDatas[I].BizDataKey.Length);
    SetLength(lValues, lBizFields.Length);
    for J := Low(lBizDatas[I].BizDataKey) to High(lBizDatas[I].BizDataKey) do
    begin
      if lBizDatas[I].BizDataKey[J].BizField <> '' then
      begin
        lBizFields[J] := lBizDatas[I].BizDataKey[J].BizField;
        lValues[J] := lBizDatas[I].BizDataKey[J].Value.ToString;
      end;
    end;
    lRelevancyDoc := DocRelevancyNavBar.LoadRelevancyBizDoc(DocRelevancyNavBar.OwnerContext, MyTaskDoc.InfoTask.Task.FuncURL,
      lBizFields, lValues);
    if Length(lRelevancyDoc) > 0 then
    begin
      lArrLen := Length(Result);
      SetLength(Result, Length(Result) + Length(lRelevancyDoc));
      System.Array.Copy(lRelevancyDoc, 0, Result, lArrLen, Length(lRelevancyDoc));
    end;
  end;
end;

atiger

你用“YWYSZ “这个在业务模型上搜索看看，见附件

atiger

对了，你关联的数据集的URL 这个数据集 是从  关联主键定义 定义的那个字段所在的表吧，且取了这个关联字段？