设为首页 收藏本站
查看: 1224|回复: 0

[经验分享] 智遥工作流为Sap报工时(实例)

[复制链接]
累计签到:1 天
连续签到:1 天
发表于 2015-9-20 08:40:19 | 显示全部楼层 |阅读模式
  报工时程序,是很常见的系统,几乎每个工厂都会使用到。由于SAP账号昂贵,一般企业不会给每个人都开通一个账号进去报工时,而是使用一个公共账号进去报工时;但是这样做往往有不好做权限管控,及时大家都用一个账号,也还是得占用一个账号,成本较高。而且SAP开发类似程序比较麻烦。
  最近有一客户就直接使用智遥工作流,进行扩展,做了一个SAP报工时程序。操作方便,简洁,效果不错。
  程序要求及开发关键代码:
  1.先点击查询,将需要报工时的项目从SAP系统中查找出来



string[] param = { "WERKS_FROM|"+WERKS_FROM,
"PRCTR_FROM|"+PRCTR_FROM,
"GSTRP_FROM|"+GSTRP_FROM,
"AUFNR_FROM|"+AUFNR_FROM,
"MATNR_FROM|"+MATNR_FROM,
"WERKS_TO|"+WERKS_TO,
"PRCTR_TO|"+PRCTR_TO,
"GSTRP_TO|"+GSTRP_TO,
"AUFNR_TO|"+AUFNR_TO,
"MATNR_TO|"+MATNR_TO
};
DataTable dt_AFPO = r.GetSapTable(param, "BAPI_PDO_LIST", "I_AFPO" );//获取查询项目信息
DataTable dt_AFVC = r.GetSapTable(param, "BAPI_PDO_LIST", "I_AFVC");//获取工艺明细信息
//遍历 table 将数据写入本地数据库中
.....................

  2.点击项目,显示出项目的工序信息
  3.然后为每个工序报工时,每个工序,可以报多条记录
  先将填报的工时数据,存入本地的数据库中。
  4.所有报工时项目,填报完成后,点击“保存至SAP”,将数据一次性导入到SAP。
  查询数据库,将报的工时数据查出来,调用SAP RFC,将数据导入SAP;
  传入SAP的table 结构和列名,要和SAP 中相对应的内表完全一致,否则会出错。



protected void BUpload_Click(object sender, DirectEventArgs e)
{
StringBuilder sqlstr = new StringBuilder();
sqlstr.Append("Select  H.AUFNR,H.VORNR,H.WORK_CENTER AS ARBPL");
sqlstr.Append(",ISNULL(D.YIELD,0) AS YIELD,ISNULL(D.SCRAP,0) AS SCRAP,ISNULL(D.REWORK,0) AS REWORK,ISNULL(D.VORME_Q,0) AS VORME_Q,ISNULL(D.SETUP,0) AS SETUP,ISNULL(D.MACHINE,0) AS MACHINE,ISNULL(D.LABOR,0) AS LABOR,ISNULL(D.BREAK_TIME,0) AS BREAK_TIME,ISNULL(D.VORME_T,0) AS VORME_T,ISNULL(D.REASON,'') AS REASON,CONVERT(VARCHAR(8),D.PDATE,112) AS PDATE,'" + u.GetLoginID() + "'+'|'+isnull(D.LB,'')+'|'+isnull(D.BC,'')+'|'+ ISNULL(D.[TEXT],'') AS [TEXT] ");
sqlstr.Append(",D.GSID AS ID ,'" + u.GetLoginID() + "' AS ERNAM ");
sqlstr.Append(" From SAP_ZPDO_AFVC H ");
sqlstr.Append(" INNER JOIN SAP_ZPDO_GS D ON H.ID=D.ID ");
sqlstr.Append(" Where H.CREATOR='" + u.GetLoginID() + "'");
sqlstr.Append(" ");
SapRFC_DEV SR = new SapRFC_DEV();            
DataTable dt = SI.QuerySql(sqlstr.ToString());//查出报的工时数据
if (dt.Rows.Count > 0)
{
         //将数据传入SAP,并获取返回信息(如果有不成功的记录,会被返回)
DataTable dtr = SR.ExecuteRfc_InputITtable(dt, "BAPI_CO11N", "I_AFRU", "BAPI_CO11N", "I_AFRU");
string xx = "";
string idStr = "";
int id = 0;               
for (int i = 0; i < dtr.Rows.Count; i++)
{
xx = xx+dtr.rows[0].ToString()+"<br />";
}
BindStore3();
if (xx.Trim() == "")
{
xx = "上传成功!";
}
X.Msg.Alert("提示:", xx).Show();
}
}
  有图有真相:
DSC0000.jpg
  

运维网声明 1、欢迎大家加入本站运维交流群:群②:261659950 群⑤:202807635 群⑦870801961 群⑧679858003
2、本站所有主题由该帖子作者发表,该帖子作者与运维网享有帖子相关版权
3、所有作品的著作权均归原作者享有,请您和我们一样尊重他人的著作权等合法权益。如果您对作品感到满意,请购买正版
4、禁止制作、复制、发布和传播具有反动、淫秽、色情、暴力、凶杀等内容的信息,一经发现立即删除。若您因此触犯法律,一切后果自负,我们对此不承担任何责任
5、所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其内容的准确性、可靠性、正当性、安全性、合法性等负责,亦不承担任何法律责任
6、所有作品仅供您个人学习、研究或欣赏,不得用于商业或者其他用途,否则,一切后果均由您自己承担,我们对此不承担任何法律责任
7、如涉及侵犯版权等问题,请您及时通知我们,我们将立即采取措施予以解决
8、联系人Email:admin@iyunv.com 网址:www.yunweiku.com

所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其承担任何法律责任,如涉及侵犯版权等问题,请您及时通知我们,我们将立即处理,联系人Email:kefu@iyunv.com,QQ:1061981298 本贴地址:https://www.yunweiku.com/thread-116043-1-1.html 上篇帖子: 许多人推荐的sap关于ALV的教程样例(BCALV_EDIT_08)(转) 下篇帖子: SAP物料管理(MM)名词解释
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

扫码加入运维网微信交流群X

扫码加入运维网微信交流群

扫描二维码加入运维网微信交流群,最新一手资源尽在官方微信交流群!快快加入我们吧...

扫描微信二维码查看详情

客服E-mail:kefu@iyunv.com 客服QQ:1061981298


QQ群⑦:运维网交流群⑦ QQ群⑧:运维网交流群⑧ k8s群:运维网kubernetes交流群


提醒:禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.


本站大部分资源是网友从网上搜集分享而来,其版权均归原作者及其网站所有,我们尊重他人的合法权益,如有内容侵犯您的合法权益,请及时与我们联系进行核实删除!



合作伙伴: 青云cloud

快速回复 返回顶部 返回列表