|
发表于 2008-4-15 11:56:43
|
显示全部楼层
1、清除“协同系统\协同数据库\事务\通讯簿(组)”表中组织、客户的分组数据
2、注释掉地址簿procedure TADDRESSLISTNEWFORM.Init;中的代码
if not DataSetAddressListGroup.Locate('FCLIENTACCOUNT;FGROUPID',
Variants.VarArrayOf([BizSys.BizSystem.ClientAccount, cComPanyInnerAddressID]),[]) then
begin
DataSetAddressListGroup.Append;
DataSetAddressListGroup.FieldByName('FCLIENTACCOUNT').AsString := BizSys.BizSystem.ClientAccount;
DataSetAddressListGroup.FieldByName('FGROUPID').AsString := cComPanyInnerAddressID;
DataSetAddressListGroup.FieldByName('FOWNERID').AsString := csAddressGroupBaseGUID;
DataSetAddressListGroup.FieldByName('FGROUPDISPLAYNAME').AsString := cComPanyInnerAddressName;
DataSetAddressListGroup.FieldByName('FPARENTGUID').AsString := csAddressGroupBaseGUID;
DataSetAddressListGroup.FieldByName('FORDER').AsInteger := SysUtils.StrToInt(TJUSTEPCOMMONUNIT.GetAutoIncreaseID(Context,'AddressGroup','通讯簿组递增序号'));
DataSetAddressListGroup.Post;
end;
if not DataSetAddressListGroup.Locate('FCLIENTACCOUNT;FGROUPID',
Variants.VarArrayOf([BizSys.BizSystem.ClientAccount, cClientLinkManAddressID]),[]) then
begin
DataSetAddressListGroup.Append;
DataSetAddressListGroup.FieldByName('FCLIENTACCOUNT').AsString := BizSys.BizSystem.ClientAccount;
DataSetAddressListGroup.FieldByName('FGROUPID').AsString := cClientLinkManAddressID;
DataSetAddressListGroup.FieldByName('FOWNERID').AsString := csAddressGroupBaseGUID;
DataSetAddressListGroup.FieldByName('FGROUPDISPLAYNAME').AsString := cClientLinkManAddressName;
DataSetAddressListGroup.FieldByName('FPARENTGUID').AsString := csAddressGroupBaseGUID;
DataSetAddressListGroup.FieldByName('FORDER').AsInteger := SysUtils.StrToInt(TJUSTEPCOMMONUNIT.GetAutoIncreaseID(Context,'AddressGroup','通讯簿组递增序号'));
DataSetAddressListGroup.Post
end;
if DataSetAddressListGroup.UpdatesPending then
DataSetAddressListGroup.ApplyUpdates; |
|