易飞ERP和钉钉工作流集成

技术支持QQ：395068518（加我请注明来意）

一、设置公用参数——启用系统——勾选电子签核；

二、设置电子签核的单据配置；

三、设置“钉钉”的Appkey和AppSecret，再设置相对应的工作工作流模块

procedure TfrmMain.FormCreate(Sender: TObject);
var
  Info: TAppinfo;
  DingTalk: TDingTalk;
begin
  SetupLog;
  Info := TAppinfo.create;
  DingTalk := TDingTalk.Create;
  try
    Self.Caption := APP_DISPLAY_NAME + Info.AppCaption;
    Log.Debug(DingTalk.CommonToken, 'debug');
    //log.Debug(DingTalk.DepartmentList,'debug');   //获取部门LIST
    //log.Debug(DingTalk.DeptMember,'debug');      //获取部门NUM
    //log.Debug(DingTalk.UserListbypage,'debug');   //获取用户信息
     log.Debug(DingTalk.PostApprove, 'debug');    //推送工作流
  finally
    Info.Free;
    DingTalk.Free;
  end;
end;

四、效果如图：