我想飘啊飘 飘到梦的天堂 那会是什么时候呢

那些我学习的SAP-- 修改工单组件

    接触了SAP也算有些日子,自己一直没做认真的总结,遇到的知识因为都是从网上来的,学的时候不知其所以然,糊涂中就用了,后来自己也忘了,等到在需要的时候又得大费周折的去查,现在自己总结一下,给自己一个机会,要是有人看到其中的错误还请慷慨指,不胜感激。

对于工单的组件修改,着实让我头疼了一些日子,因为刚开始的时候不知道怎么定位那个BOM,不过好在今天瞎弄了一下也算弄出来,才发现很简单,

先说一下怎么定位吧,在CO02中的组件视图中,有一个过滤器,可以选择-->手工筛选,然后选择-->BOM选项输入 项目号 (我录的时候是输入一个这个就不存在定位的问题了因为只有一个)

BDC 生成的代码如下: 其中 *** 为要填入的值

perform bdc_dynpro      using 'SAPLCOKO1' '0110'.
perform bdc_field       using 'BDC_CURSOR'
                              'CAUFVD-AUFNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'CAUFVD-AUFNR'
                               '1020000075'. "订单号
perform bdc_field       using 'R62CLORD-FLG_OVIEW'
                               'X'. "************* 
perform bdc_dynpro      using 'SAPLCOKO1' '0115'.
perform bdc_field       using 'BDC_OKCODE'
                              '=KPU2'.
perform bdc_field       using 'BDC_CURSOR'
                              'CAUFVD-GAMNG'.
perform bdc_field       using 'CAUFVD-GAMNG'
                              '10'. "
perform bdc_field       using 'CAUFVD-GLTRP'
                               '20130507'.  "日期
perform bdc_field       using 'CAUFVD-GSTRP'
                               '20130506'.  "日期
perform bdc_field       using 'CAUFVD-TERKZ'
                              '2'. "************************
perform bdc_field       using 'CAUFVD-FHORI'
                              '000'. "*****************

perform bdc_dynpro      using 'SAPLCOMK' '0120'.
perform bdc_field       using 'BDC_CURSOR'
                              'FILTER_BOX'.
perform bdc_field       using 'BDC_OKCODE'
                              '=FIBO'.
perform bdc_field       using 'FILTER_BOX'
                               'MA_FIL'.   " 选择条件
perform bdc_field       using 'SORT_BOX'
                               'ST_STA'.   " *********
perform bdc_dynpro      using 'SAPLCNFA' '0100'.
perform bdc_field       using 'BDC_OKCODE'
                              '=SLCT'.
perform bdc_field       using 'BDC_CURSOR'
                              'ALLE_FELDER-SCRTEXT(01)'.
perform bdc_field       using 'GRUPPEN-TEXT'
                               '全部'. " ***************
perform bdc_field       using 'ALLE_FELDER-FLG_MARK(01)'
                                'X'.   "*************

perform bdc_dynpro      using 'SAPLCNFA' '0100'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_field       using 'BDC_CURSOR'
                              'RANGE-LOW(01)'.
perform bdc_field       using 'RANGE-LOW(01)'
                               '0020'."**********************
perform bdc_field       using 'GRUPPEN-TEXT'
                               '全部'."***********************

perform bdc_dynpro      using 'SAPLCOMK' '0120'.
perform bdc_field       using 'BDC_CURSOR'
                              'RESBD-POSNR(01)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=PICK'.
perform bdc_field       using 'FILTER_BOX'
                              'MA_FIL'."***********************
perform bdc_field       using 'SORT_BOX'
                               'ST_STA'. "**************

perform bdc_dynpro      using 'SAPLCOMD' '0110'.
perform bdc_field       using 'BDC_OKCODE'
                              '=BACK'.
perform bdc_field       using 'BDC_CURSOR'
                              'RESBD-MATNR'.
perform bdc_field       using 'RESBD-MATNR'
                               'RC2-0409-000'.  "**********************
perform bdc_field       using 'RESBD-POSNR'
                               '0020'.  "*********************
perform bdc_field       using 'RESBD-WERKS'
                               'C101'. "*************************
perform bdc_field       using 'RESBD-MENGE'
                               '1'. "********************************
perform bdc_field       using 'RESBD-EINHEIT'
                              'PCS'.  "****************************
perform bdc_field       using 'RESBD-SANKA'
                              'X'.  "*************************

perform bdc_dynpro      using 'SAPLCOMK' '0120'.
perform bdc_field       using 'BDC_CURSOR'
                              'RESBD-MATNR(01)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=BU'.
perform bdc_field       using 'FILTER_BOX'
                               'MA_FIL'.  "*****************
perform bdc_field       using 'SORT_BOX'
                               'ST_STA'.   "****************


perform bdc_dynpro      using 'SAPLSPO1' '0300'.
perform bdc_field       using 'BDC_OKCODE'
                              '=YES'.
perform bdc_transaction using 'CO02' .

 

 

posted @ 2013-05-22 17:58  charles-xiao  阅读(2747)  评论(0)    收藏  举报