【结贴】[请求]供应链采购合同**

Crazy_wen2006

打开采购合同时提示
DocView打开文档失败，错误原因：sdsMaster: Field 'ItemUse' not found

代码停在
procedure TBIZDOCBASEINFO.OnSCMAddRef(ADataSetContainer: TSCMObjectDataSetContainer;
  const Lines: array of TLineRef);
var
  //lDataset: TDataset;
  lUpdWHSInvntKind: TUpdWHSInvntKind;
  lDueDepotUpdWhsInv, lSourceDepotUpdWhsInv: Boolean;
  //lLineNum: Integer;
  //lItemRecords: array of TItemRecord;
begin
  AssignDetail1SumToMaster;

  //lDataset := ADataSetContainer.Master;
  lUpdWHSInvntKind := TSCMObjType.GetUpdWHSInvnt(Context, SCMObject.ObjType);
  lDueDepotUpdWhsInv := lUpdWHSInvntKind in [TUpdWHSInvntKind.uiSourceDue, TUpdWHSInvntKind.uiDue];
  lSourceDepotUpdWhsInv := lUpdWHSInvntKind in [TUpdWHSInvntKind.uiSourceDue, TUpdWHSInvntKind.uiSource];
  if lDueDepotUpdWhsInv and TSCMBizClassLib.CategoryHasChildren(Context,
    sdsMaster.FieldByName('DOCDUEDepot').AsString) then
  begin
    sdsMaster.Edit;
    sdsMaster.FieldByName('DOCDUEDepot').AsString := '';
  end;
  if lSourceDepotUpdWhsInv and TSCMBizClassLib.CategoryHasChildren(Context,
    sdsMaster.FieldByName('SourceDepot').AsString) then
  begin
    sdsMaster.Edit;
    sdsMaster.FieldByName('SourceDepot').AsString := '';
  end;
  if Assigned(FSCMObjAddRefEvent) then
    FSCMObjAddRefEvent(ADataSetContainer, Lines);
  if sdsDetail1.RecordCount > 0 then
  begin
    AutoCalculateDetail1Field;
    sdsDetail1.Edit;
    SetMaxPackageQtyAndBulk(sdsDetail1);
  end;
  //modify by ck at 0805 传递物资用途
  sdsMaster.FieldByName('ItemUse').AsString :=
    ADataSetContainer.Master.FieldbyName('ItemUse').AsString;end;

Crazy_wen2006

还有一个问题，我在查看采购合同主表的时候没发现有ItemUse字段，但是在预览表中有ItemUse字段，不知道怎么回事

zfang

检查一下这个数据集，是否没有选上ItemUse这个字段，或者预览一下这个数据集，看是否有这个字段

Crazy_wen2006

选中了，有这个字段，但在另外一张采购合同表中没有此字段，但预览的时候有此字段

zfang

楼主，你看sdsMaster这个数据集中是否有这个字段。

Crazy_wen2006

sdsMaster 有此字段。预览时也有

zfang

那你调试运行后，1楼代码处报1楼的错误？
我这里没有楼主的环境，所以只能请楼主再仔细检查一下吧。

Crazy_wen2006

对，我再看看吧，谢谢

zfang

无论结果怎样，都请反馈下。

Crazy_wen2006

暂时还没来的及看，有结果一定反馈