BlogJava-gdufo-随笔分类-OA(Moss+Infopath)

通达OA中，“数据选择控件”中增加第三方的数据来源

gdufo — Wed, 30 Oct 2013 03:03:00 GMT

在通达OA2009中，“数据选择控件”目前只有自带的三种类型数据。

现增加第三方的数据来源，以增强其功能。

一、MYOA\webroot\general\system\workflow\flow_form\cool_form\data\config.php
在Config.php 增加
'TX_USERS' => array("NAME" => "同享系统用户" , "CONTENT" => array("EMP_NAME" => "工号姓名",
"DEPT_NAME" => "部门","ZHIWEI" => "职位","ZHIWU" => "职务","ZHIJI" => "职级"))
二、MYOA\webroot\general\workflow\list\input_form

增加连接MSSQL-SERVER的输出
if ($dataSrc == 'TX_USERS') {
if($act=="count")
$query = "select count(*) from OA_Employee_View where 1=1";
else
$query = "select top 10 $dataField from OA_Employee_View where 1=1";

if(strstr($dataQuery,"1,"))
{
$array1 = explode(",",$dataQuery);
$array2 = explode(",",$dataField);
$array3 = explode(",",$dataFieldName);

foreach($array1 as $k => $v)
{
if($v==1)
{
  $name = $array2[$k];
  $value = $$name;
  if($value!="")
     $query .= " and $name like '%$value%'";
}
}
}
$txconn=mssql_connect($MSSQL_TX_SERVER,$MSSQL_TX_USER,$MSSQL_TX_PASS);
mssql_select_db($MSSQL_TX_DB,$txconn);
if($act=="count")
{
$cursor = mssql_query($query);
if($ROW=mssql_fetch_array($cursor))
    $COUNT=$ROW[0];
echo $COUNT;
exit;
}

$cursor = mssql_query($query);
$COUNT=0;
$dataField_arr = explode(",",$dataField);
$dataFieldName_arr = explode(",",$dataFieldName);
while($ROW=mssql_fetch_array($cursor))
{
$COUNT++;
   if($COUNT%2==1)
      $TableLine="TableLine1";
   else
      $TableLine="TableLine2";
   foreach($dataField_arr as $k=> $v)
   {
   if($v=="") continue;
   if($COUNT==1)
   {
   if($k==0)
          $thead.='

';
       $thead.='';
   }
     if($k==0)
       $tbody.='';
     $tbody.='';
   }

   if($COUNT==1) $thead.='';
   $tbody.='';
}
$tbody.="

'.$dataFieldName_arr[$k].'
'.$ROW[$v].'	操作
添加

";
echo $thead.$tbody;

gdufo 2013-10-30 11:03 发表评论

通达OA 自动选择人中增加根据表单字段的直属上司

gdufo — Wed, 30 Oct 2013 02:53:00 GMT

一、增加流程定义时可以选择项目

MYOA\webroot\general\system\workflow\flow_type\flow_design\view_list\edit.php

794行

\\10.110.2.210\d$\MYOA\webroot\general\workflow\list\turn\condition.php
765行处增加
}elseif($AUTO_TYPE==11) //根据表单字段的主属上司来处理
{
if(is_numeric($AUTO_USER))
{
   $query3 = "SELECT ITEM_DATA from FLOW_RUN_DATA where RUN_ID='$RUN_ID' AND ITEM_ID='$AUTO_USER'";
      $cursor3= exequery($connection,$query3);
      if($ROW=mysql_fetch_array($cursor3))
         $ITEM_DATA = $ROW["ITEM_DATA"];
      $APPLY_USER_ID = substr($ITEM_DATA,strpos($ITEM_DATA,"_")-1);

       //根据前一节点的直属上司
      $query = "select EMP_MANAGECODE from user where user_id ='$APPLY_USER_ID'";
      $cursor= exequery($connection,$query);
      if($ROW=mysql_fetch_array($cursor))
      {
         $USER_ID=$ROW["EMP_MANAGECODE"];

         $query1 = "SELECT * from USER where USER_ID='$USER_ID'";
         $cursor1= exequery($connection,$query1);
         if($ROW=mysql_fetch_array($cursor1))
         {
            $PRCS_NEW_USER_ID=$USER_ID;
            $PRCS_NEW_USER_NAME=$ROW["USER_NAME"];
            $PRCS_NEW_DEPT_ID=$ROW["DEPT_ID"];
            $PRCS_NEW_USER_PRIV=$ROW["USER_PRIV"];
            $PRCS_NEW_USER_PRIV_OTHER=$ROW["USER_PRIV_OTHER"];
         }
      }
      $PRCS_OP_USER=$PRCS_NEW_USER_ID;
      $PRCS_OP_USER_NAME=$PRCS_NEW_USER_NAME;
      $PRCS_USER_AUTO=$PRCS_NEW_USER_ID.",";
      $PRCS_USER_NAME=$PRCS_NEW_USER_NAME.",";

      /*//检查该发起人是否有经办权限
      if($PRCS_DEPT=="ALL_DEPT"||find_id($PRCS_USER,$PRCS_NEW_USER_ID)||find_id($PRCS_DEPT,$PRCS_NEW_DEPT_ID)||find_id($PRCS_PRIV,$PRCS_NEW_USER_PRIV)||priv_other($PRCS_PRIV,$PRCS_NEW_USER_PRIV_OTHER))
      {
         $PRCS_OP_USER=$PRCS_NEW_USER_ID;
         $PRCS_OP_USER_NAME=$PRCS_NEW_USER_NAME;
         $PRCS_USER_AUTO=$PRCS_NEW_USER_ID.",";
         $PRCS_USER_NAME=$PRCS_NEW_USER_NAME.",";
      }*/

}
}
3.在流程定义处保存的地方也要修改
MYOA\webroot\general\system\workflow\flow_type\flow_design\view_list\update.php
的66修改成：
if($AUTO_TYPE==7 || $AUTO_TYPE==11)

gdufo 2013-10-30 10:53 发表评论

通达OA 连接SQL-Server2005

gdufo — Wed, 06 Mar 2013 03:04:00 GMT

参考:http://www.cnblogs.com/xiaochaohuashengmi/archive/2011/07/29/2121347.html

http://www.soitway.com/woaibiancheng/19.html

记得重启一下office_anywhere

另:mssql.secure_connection = Off 要设置为 off

在td_config.php(webroot\inc目录下)增加变量。

//-- OT 数据库配置

$MSSQL_OT_SERVER="192.168.1.1";

$MSSQL_OT_USER="sa";

$MSSQL_OT_DB="DBName";

$MSSQL_OT_PASS="XXXX";

function OpenOTConnection()

{

global $otconnection,$MSSQL_OT_SERVER,$MSSQL_OT_USER,$MSSQL_OT_DB,$MSSQL_OT_PASS;

if(!$otconnection)

{

if(!function_exists("mssql_pconnect"))

{

echo "PHP配置有误，不能调用Mssql函数库，请检查有关配置";

exit;

}

$C=@mssql_pconnect($MSSQL_OT_SERVER,$MSSQL_OT_USER,$MSSQL_OT_PASS);

//$C=@mssql_connect($MSSQL_OT_SERVER,$MSSQL_OT_USER,$MSSQL_OT_PASS);

}

else

$C=$otconnection;

$result=mssql_select_db($MSSQL_OT_DB,$C);

if(!$result)

{

PrintError("数据库 ".$MSSQL_OT_DB."不存在");

//exit;

}

return $C;

}

function exemsqlquery($C,$Q)

{

$cursor = mssql_query($Q,$C);

if(!$cursor)

{

PrintError("SQL语句: ".$Q);

//exit;

}

return $cursor;

}

gdufo 2013-03-06 11:04 发表评论

通达OA 增加外发邮件功能

gdufo — Wed, 06 Mar 2013 02:53:00 GMT

在utility_all.php的690行增加

function send_webmail_ext($USER_STR, $CC_STR,$SUBJECT,$CONTENT)

{

global $connection,$LOGIN_USER_ID,$LOGIN_USER_NAME,$RUN_ID;

$query = "SELECT * from WEBMAIL where USER_ID='admin'";

$cursor= exequery($connection,$query);

if($ROW=mysql_fetch_array($cursor))

{

$EMAIL=$ROW["EMAIL"];

$SMTP_SERVER=$ROW["SMTP_SERVER"];

$LOGIN_TYPE=$ROW["LOGIN_TYPE"];

$SMTP_PASS=$ROW["SMTP_PASS"];

$SMTP_PORT=$ROW["SMTP_PORT"];

$SMTP_SSL=$ROW["SMTP_SSL"]=="1" ? "ssl":"";

$EMAIL_PASS=$ROW["EMAIL_PASS"];

$EMAIL_PASS=decrypt_str($EMAIL_PASS,"webmail");

if($LOGIN_TYPE=="1")

$SMTP_USER = substr($EMAIL,0,strpos($EMAIL,"@")); // SMTP username

else

$SMTP_USER =$EMAIL;

if($SMTP_PASS=="yes")

$SMTP_PASS = $EMAIL_PASS; // SMTP password

else

$SMTP_PASS = "";

$USER_ARRAY=explode(",",$USER_STR);

//接收人

$query = "select USER_ID,EMAIL from USER WHERE find_in_set(USER_ID,'$USER_STR')";

echo $query;

$cursor = exequery($connection,$query);

while($ROW=mysql_fetch_array($cursor))

{

$USER_ID=$ROW["USER_ID"];

/*if($USER_ID==$LOGIN_USER_ID)

continue;*/

$TO_EMAIL=$ROW["EMAIL"];

/*if($TO_EMAIL=="")

{

$query1 = "select EMAIL from WEBMAIL WHERE USER_ID='$USER_ID' limit 1";

$cursor1 = exequery($connection,$query1);

if($ROW1=mysql_fetch_array($cursor))

$TO_EMAIL=$ROW["EMAIL"];

}

if($TO_EMAIL != "") */

$TO_WEBMAIL.=$TO_EMAIL.",";

}

//抄送

$query = "select USER_ID,EMAIL from USER WHERE (EMAIL IS NOT NULL AND EMAIL<>'') AND find_in_set(USER_ID,'$CC_STR')";

$cursor = exequery($connection,$query);

while($ROW=mysql_fetch_array($cursor))

{

$USER_ID=$ROW["USER_ID"];

/*if($USER_ID==$LOGIN_USER_ID)//本人

continue;*/

$CC_EMAIL=$ROW["EMAIL"];

/*if($TO_EMAIL=="")

{

$query1 = "select EMAIL from WEBMAIL WHERE USER_ID='$USER_ID' limit 1";

$cursor1 = exequery($connection,$query1);

if($ROW1=mysql_fetch_array($cursor))

$TO_EMAIL=$ROW["EMAIL"];

}*/

$CC_WEBMAIL.=$CC_EMAIL.",";

}

$result=send_mail($EMAIL,$TO_WEBMAIL,$SUBJECT,$CONTENT,$SMTP_SERVER,$SMTP_USER,$SMTP_PASS,true,$LOGIN_USER_NAME,'',$CC_WEBMAIL,'','',true,$SMTP_PORT,$SMTP_SSL);

if($result===true)

{

Message("提示","外部邮件发送成功");

}

else

{

Message("外部邮件发送失败",$result);

}

gdufo 2013-03-06 10:53 发表评论

通达OA 修改查找员工控件的返回值的内容

gdufo — Wed, 06 Mar 2013 02:48:00 GMT

--工作流中表单控件中返回“工号_姓名”格式，目前只返回“姓名”。

1.在 selected.php中(webroot\module\user_select目录下)的12行"USERNAME"修改为

concat(USER_ID,'_',USER_NAME)USER_NAME

2.在 query.php中(webroot\module\user_select目录下)41行，修改同上

3.同理，将这个目录下所有查询 from USER中字段的 USERNAME修改同上。

4.修改这里会造成以下问题：

如果流程走向是根据表单内容来选择的，比哪"A1974_徐进海"，就不会自动匹配人员

要修改 condition.php 的657行加入以下(webroot\general\workflow\list\turn 目录下)

$ITEM_DATA = preg_replace('/([x80-xff])/',"",$ITEM_DATA);//将非中文去掉 GBK模式下

$ITEM_DATA = str_replace("_","",$ITEM_DATA);

gdufo 2013-03-06 10:48 发表评论

通达OA 增加超时邮件自动提醒功能

gdufo — Wed, 06 Mar 2013 02:46:00 GMT

--增加超时邮件自动提醒功能

要求：定时启动任务当发生超时将邮件发给任务启动者，任务主办者,主办者直属上司(部门负责人),HR相关人员

1.在user表中增加 EMP_MANAGECODE varchar(20)

2.修改user_edit.php(webroot\general\system\user目录下)，用以填写直属上司工号。

修改update.php(webroot\general\system\user目录下)，用以保存直属上司工号。

3.增加workflow_timeout_remind.php(webroot\task\目录下)

4.以管理员进入“系统管理”，增加定时任务调度。

gdufo 2013-03-06 10:46 发表评论

VSTO outlook视频教程

gdufo — Fri, 04 May 2012 08:43:00 GMT

VSTO实战开发-Outlook add-ins开发(5)

下载课程 WMV MP4 MP3 PDF

VSTO实战开发-Outlook add-ins开发(4)
下载课程 WMV MP4 MP3 代码 PDF

VSTO实战开发-Outlook add-ins开发(3)
下载课程 WMV MP4 MP3 代码 PDF Q&A

VSTO实战开发-Outlook add-ins开发(2)
下载课程 WMV MP4 MP3 代码 PDF Q&A

VSTO实战开发-Outlook add-ins开发(1)
下载课程 WMV MP4 MP3 代码 PDF Q&A

参考资料:

http://technet.microsoft.com/zh-cn/ms269110.aspx

http://www.c-sharpcorner.com/uploadfile/satisharveti/outlook-add-in-to-read-a-mail/

http://msdn.microsoft.com/zh-cn/library/bb386094.aspx (MSDN)

gdufo 2012-05-04 16:43 发表评论

InfoPath 与数据库的通讯

gdufo — Sat, 07 Nov 2009 04:38:00 GMT

摘要: http://www.cnblogs.com/sumh/archive/2008/03/27/1123903.html 一、在vs中创建表单模板把数据存到数据库中。新建infopath表单模板：打开vs2008，新建Project，在Project Types 区中选择 Visual C#àOffice-à2007--àInfoPathFormTempl... 阅读全文

gdufo 2009-11-07 12:38 发表评论

BlogJava-gdufo-随笔分类-OA(Moss+Infopath)

通达OA中，“数据选择控件”中增加第三方的数据来源

通达OA 自动选择人中 增加 根据表单字段的直属上司

通达OA 连接SQL-Server2005

通达OA 增加外发邮件功能

通达OA 修改查找员工控件的返回值的内容

通达OA 增加超时邮件自动提醒功能

VSTO outlook视频教程

InfoPath 与 数据库的通讯

通达OA 自动选择人中增加根据表单字段的直属上司

InfoPath 与数据库的通讯