发送消息提醒

  procedure SendSignMsgToOP;
     var aloginUser:TLoginUser;
         s,ARecRang, ANoticeType, ATitle, AContent, AParams: WideString;
         AmblNos:String;
  begin
     aLoginUser:=GetLoginuser;
     AmblNos:=dsrbill.dataSet.FieldbyName('SRCMBLNOS').AsString;

     
     ANoticeType:='INVOICE';
      ATitle:='发票已开通知:';
      AContent:=aLoginUser.UserName +'已针对您提交的'+AmblNos+'的业务开票。'
                +#13#10+'请知晓 ！';

      ARecRang:=dsrbill.DataSet.FieldbyName('UserName').AsString;
      if ARecRang='' then Exit;
     //CmdLn=TASKLIST/BILL;[SysID];[ProcID];[ActID];[TaskStatus];[EntityID]
     AParams:='CmdLn=TASKLIST;'+IntToStr(FSysid)
            +';2;3;2;0';  //+IntToStr(FSrcEntityid)

      slCreateReminderNotice(FSysID, 0, 0, 0, rrkUsers, rrmObjName, ARecRang
                            ,ANoticeType, ATitle, AContent, AParams, s);

      if s<>'' then
       else ShowMessage('消息发送成功！');
  end;