【结贴】[问题] 关于“公共地址簿”的几个问题**

roice

现在邮件中的公共地址簿下默认有两个：“公司内部通讯簿”和“客户联系人通讯簿”，
1. 公司内部通讯簿 与 组织机构不完全吻合，这个通讯簿与组织机构有什么区别？
2. 这两个通讯簿谁有权限维护，在具体应用中是如何使用的？
3. 如何隐藏这两个默认的通讯簿，只保留客户自己建立的通讯簿？

jiahaiming

1.公司内部通讯簿是从组织机构同步过去的，目前还有些问题，还会继续做些修改
  客户联系人是从客户中心同步的

2.这两个都是系统自动同步产生的，不用维护

3。目前如果要隐藏需要写代码，以后会提供配置功能

roice

现在需要隐藏“公共地址簿”，只保留“个人地址簿”，请问如何用代码实现？

jiahaiming

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;

roice

按照楼上方法操作后，虽然“公共地址簿”中没有数据了，但是其他人还是能够往里面添加人员的，如何完全从联系人组里将“公共地址簿”屏蔽？

lixy

修改地址簿代码
procedure TADDRESSLISTNEWFORM.actAddGroupUpdate(Sender: TObject);
begin

  //TAction(Sender).Enabled := (FAddressDMForm.CanNewAddress(tvGroup.Selected));  原有的
  TAction(Sender).Enabled := (FAddressDMForm.CanNewAddress(tvGroup.Selected)) and (tvGroup.Selected.AbsoluteIndex<>0);
end;
//屏蔽的代码

roice

谢谢，结贴！