<![CDATA[春暖花开]]> http://love-spring.cn/ zh-cn PBlog2 v2.4 春暖花开 http://love-spring.cn/images/logos.gif http://love-spring.cn/ 春暖花开 http://love-spring.cn/article.asp?id=65 <![CDATA[裙子OR中裤？]]> hobo_momo@163.com(春暖花开) Fri,02 Jul 2010 20:52:20 +0800 http://love-spring.cn/default.asp?id=65 今天收到宝宝4姨寄过来的衣服，恩不错，很时尚、很潮。。。。。

--------------------------------Fashion show------------------------------------



]]> http://love-spring.cn/article.asp?id=64 <![CDATA[一波三折的SAP 上线]]> hobo_momo@163.com(春暖花开) Mon,28 Jun 2010 09:53:42 +0800 http://love-spring.cn/default.asp?id=64     过几天就正式上线了，到现在还有很多东西没有落实-_-||。

    这里涉及到几个方面的问题：

    首先：公司内部人员不配合，原因：公司的考核制度只有负面的，再者这些关键人员都是本岗位的指挥棒，要他们全心全意的为SAP服务，又要100%的完成原岗位的工作，除非是超人。

    其次：SAP顾问团维持这个行业的一贯作风，能简则减，很多东西都想推到2期、甚至3期，但是实际发现，如果在一起不完成这些提案的话，对这个系统上线会产生很大影响。暂时的通过其他方式实现、或直接删减掉，对上线之后的再次修改会增加成倍的工作量；再者，过多的经验主义导致一些思想禁锢，对某些特殊问题特殊解决的业务没有实施100%的努力去解决，只是采取以前类似情况的解决方案；还有，对相关人员的赶走情况没有很好的监管，导致最后集成测试、上线前期出现了一些问题。

    再次：服务器经常遭遇断点事件，导致服务器当掉，影响大概半天的工作时间。

    最严重的：公司内部各部门的协调合作问题过于严重，各子公司、部门过于强调本公司、部门的业务便利性，而影响这个集团的业务路程简单化、合理化，更增加了一些无谓的系统开发，从而增加了相关负责人员的测试工作量。很多业务从计划上线到即将上线都没有得到一个很里的解决方案，可谓相当地失败。

    我承认，双方的确都开过很多解决方案的会议，但是这些会议其实都是在浪费双方的时间而已，因为，自我为中心的思想一直没有离开，导致高分贝、破坏公物、口水、‘下次再谈’成了永久不变的旋律。

    好吧，即将从一个黑暗走进另一个更加黑暗的时刻来临了，2012么？我想应该差不多吧。

--------------写在离全公司停线2天、全面上线7天的‘黎明’--------------

]]> http://love-spring.cn/article.asp?id=63 <![CDATA[baby 6月份新照～～]]> hobo_momo@163.com(春暖花开) Sun,27 Jun 2010 09:51:33 +0800 http://love-spring.cn/default.asp?id=63 好吧，我承认。陈子涵，你满4个月了，你长大了，你淘气了，你是个嘻嘻佛-_-||

只要醒了，每一刻消停，不是踢腿，就是翻身，不然就啃手。。。。。当然，做的最多的就是哈哈大笑。

看着爸爸大笑，看着妈妈大笑，看着爷爷奶奶大笑，看着电视大笑，看着天花板大笑，人家都给你起外号了，名曰“嘻嘻佛”。

醒来第一件事就是-----翻身，然后抓到什么就啃什么，啃被子也就算了，连凉席也不放过。。。

好了，爸爸做饭去了，宝宝安心吃奶吧，多吃点，不然不够你一天拉5、6次肚子的-_-||

----------------------------------给叔叔阿姨们问好吧----------------------------

2010-06-13


2010-06-15




2010-06-16


2010-06-27





]]> http://love-spring.cn/article.asp?id=62 <![CDATA[BABY 100TH DAY PHOTO]]> hobo_momo@163.com(春暖花开) Sun,16 May 2010 20:30:31 +0800 http://love-spring.cn/default.asp?id=62

100TH DAY


 

100TH DAY WITH DADY


 

100TH DAY WITH MAMA


 

100TH DAY WITH GRANDMA


 

100TH DAY


 

]]> http://love-spring.cn/article.asp?id=61 <![CDATA[BABY 3TH MONTH---VIDEO-PLAYING]]> hobo_momo@163.com(春暖花开) Wed,05 May 2010 22:09:23 +0800 http://love-spring.cn/default.asp?id=61  

lovely baby

3TH MONTH-CHEN ZI HAN

]]> http://love-spring.cn/article.asp?id=60 <![CDATA[BABY 3TH MONTH---VIDEO-LAUGHING]]> hobo_momo@163.com(春暖花开) Wed,05 May 2010 21:36:46 +0800 http://love-spring.cn/default.asp?id=60  

lovely baby

3TH MONTH-CHEN ZI HAN

]]> http://love-spring.cn/article.asp?id=59 <![CDATA[BABY 3TH MONTH]]> hobo_momo@163.com(春暖花开) Wed,05 May 2010 21:26:09 +0800 http://love-spring.cn/default.asp?id=59

3TH M

]]> http://love-spring.cn/article.asp?id=58 <![CDATA[ABAP 权限检查]]> hobo_momo@163.com(春暖花开) Thu,29 Apr 2010 15:32:24 +0800 http://love-spring.cn/default.asp?id=58 AUTHORITY-CHECK OBJECT 'Q_QMEL'"权限检查

         ID 'WERKS' FIELD L_WERKS.

    IF SY-SUBRC = 0.
    ENDIF.

 

]]> http://love-spring.cn/article.asp?id=57 <![CDATA[备忘录：ABAP 查找出口]]> hobo_momo@163.com(春暖花开) Tue,27 Apr 2010 20:07:37 +0800 http://love-spring.cn/default.asp?id=57 [color=Purple]TABLES:tstc,
       tadir,
       modsapt,
       modact,
       trdir,
       tfdir,
       enlfdir,
       tstct.

DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
DATA : field1(30).
DATA : v_devclass LIKE tadir-devclass.

SelectION-SCREEN BEGIN OF BLOCK a01 WITH FRAME TITLE text-001.
SelectION-SCREEN SKIP.
PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.
SelectION-SCREEN SKIP.
SelectION-SCREEN END OF BLOCK a01.


START-OF-SelectION.
Select SINGLE * FROM tstc Where tcode EQ p_tcode.
IF sy-subrc EQ 0.
Select SINGLE * FROM tadir
Where pgmid = 'R3TR'
AND object = 'PROG'
AND obj_name = tstc-pgmna.

MOVE : tadir-devclass TO v_devclass.
IF sy-subrc NE 0.
Select SINGLE * FROM trdir
Where name = tstc-pgmna.
IF trdir-subc EQ 'F'.
Select SINGLE * FROM tfdir
Where pname = tstc-pgmna.
Select SINGLE * FROM enlfdir
Where funcname = tfdir-funcname.
Select SINGLE * FROM tadir
Where pgmid = 'R3TR'
AND object = 'FUGR'
AND obj_name = enlfdir-area.
MOVE : tadir-devclass TO v_devclass.
ENDIF.
ENDIF.

Select * FROM tadir
INTO TABLE jtab
Where pgmid = 'R3TR'
AND object = 'SMOD'
AND devclass = v_devclass.
Select SINGLE * FROM tstct
Where sprsl EQ sy-langu
AND tcode EQ p_tcode.

FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
WRITE:/(12) '事务代码 - ',
13(20) p_tcode,
34(10) '功能 - ' ,
45(50) tstct-ttext.
SKIP.
IF NOT jtab[] IS INITIAL.
WRITE:/(95) sy-uline.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE:/1 sy-vline,
2 'Exit Name',
21 sy-vline ,
22 'Description',
95 sy-vline.
WRITE:/(95) sy-uline.

LOOP AT jtab.
Select SINGLE * FROM modsapt
Where sprsl = sy-langu AND
name = jtab-obj_name.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
WRITE:/1 sy-vline,
2 jtab-obj_name HOTSPOT ON,
21 sy-vline ,
22 modsapt-modtext,
95 sy-vline.
ENDLOOP.

WRITE:/(95) sy-uline.
DESCRIBE TABLE jtab.
SKIP.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:/ '用户出口数量:' , sy-tfill.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(95) '此TCode没有用户出口！'.
ENDIF.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(95) '事务代码不存在！'.
ENDIF.

AT LINE-SelectION.
GET CURSOR FIELD field1.
CHECK field1(4) EQ 'JTAB'.
SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.[/color]]]> http://love-spring.cn/article.asp?id=56 <![CDATA[ALV 双击CALL 标准事务]]> hobo_momo@163.com(春暖花开) Wed,21 Apr 2010 10:17:16 +0800 http://love-spring.cn/default.asp?id=56 前几天接到一个需求，在ALV上双击采购凭证，可以跳转到ME23N显示单证明细。

本来想直接CALL ME23N的，但是不好传值进去，所以就换了个方案，录屏。呵呵

用SHDB录ME23N,只要录到选择其他单证，输入单证号，回车就OK了。

在ALV双击事件了加：

IF RS_SELFIELD-FIELDNAME CS 'EBELN'."单证明细

REFRESH IT_BDCDATA.

PERFORM BDC_DYNPRO USING 'SAPLMEGUI' '0014'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=MECHOB'.

PERFORM BDC_DYNPRO USING 'SAPLMEGUI' '0002'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=MEOK'.

PERFORM BDC_FIELD USING 'BDC_SUBSCR' 'SAPLMEGUI 0003SUB0'.

PERFORM BDC_FIELD USING 'BDC_CURSOR' 'MEPO_Select-EBELN'.

PERFORM BDC_FIELD USING 'MEPO_Select-EBELN' LWA_ALV-EBELN.

PERFORM BDC_FIELD USING 'MEPO_Select-BSTYP_F' 'X'.

REFRESH IT_BDCMSG.

CALL TRANSACTION 'ME23N' USING IT_BDCDATA 

                                                            MODE 'E'   "此处一定要用E,报错弹出消息，也就是跳出ME23N

                                                            Update 'C'. “此处用C，不然不会跳出ME23N的，呵呵。在此吃亏多次

CLEAR LWA_ALV.

 

]]>