Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7133917
  • 博文数量: 655
  • 博客积分: 10264
  • 博客等级: 上将
  • 技术积分: 8278
  • 用 户 组: 普通用户
  • 注册时间: 2007-06-04 17:47
个人简介

ABAP顾问

文章分类

全部博文(655)

文章存档

2017年(2)

2014年(8)

2013年(3)

2012年(2)

2011年(18)

2010年(102)

2009年(137)

2008年(274)

2007年(134)

分类: IT业界

2007-06-23 20:10:21

采购订单:
1.        CALL FUNCTION 'ME_DISPLAY_PURCHASE_DOCUMENT'
             EXPORTING
                  i_ebeln              = itab-ebeln
             EXCEPTIONS
                  not_found            = 1
                  no_authority         = 2
                  invalid_call         = 3
                  preview_not_possible = 4
                  OTHERS               = 5.

2.        SET PARAMETER ID 'BES' FIELD itab-ebeln.
          CALL FUNCTION 'ME_DISPLAY_PURCHASE_DOCUMENT'
             EXPORTING
                  i_ebeln      = itab-ebeln
                  i_ebelp      = itab-ebelp
                  i_enjoy      = 'X'
*          IMPORTING
*               E_EKKO       =
             EXCEPTIONS
                  not_found    = 1
                  no_authority = 2
                  invalid_call = 3
                  OTHERS       = 4   .
合同:
  SPAN { font-family: "SimSun-ExtB"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S33 { color: #4DA619; } .L0S52 { color: #0000FF; } .L0S55 { color: #800080; } .L0S70 { color: #808080; }         CALL FUNCTION 'MMPUR_CONTRACTS_DISPLAY'
          EXPORTING
            im_konnr it_202-htkonnr.

物料凭证:
        SET PARAMETER ID 'MBN' FIELD itab-belnr.
        SET PARAMETER ID 'MJA' FIELD itab-gjahr.
        SET PARAMETER ID 'BUK' FIELD itab-bukrs.
        CALL FUNCTION 'MIGO_DIALOG'
             EXPORTING
                  i_action            = 'A04'
                  i_refdoc            = 'R02'
                  i_notree            = 'X'
                  i_skip_first_screen = 'X'
                  i_okcode            = 'OK_GO'
                  i_mblnr             = itab-belnr
                  i_mjahr             = itab-gjahr
             EXCEPTIONS
                  illegal_combination = 1
                  OTHERS              = 2.

销售订单:
        SET PARAMETER ID 'AUN' FIELD it_itab-vgbel .
        CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN .

交货单:
        SET PARAMETER ID 'VL' FIELD it_itab-vbeln .
        CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN .

PO的物料:
        CALL FUNCTION 'MMPUR_MATERIAL_DISPLAY'
             EXPORTING
                  im_matnr = itab-matnr.
物料:
       SET PARAMETER ID 'MXX' FIELD 'E'. "Table T132,决定显示哪个视图
       SET PARAMETER ID 'MAT' FIELD itab-matnr.
       SET PARAMETER ID 'WRK' FIELD itab-werks.
       SET PARAMETER ID 'LIF' FIELD itab-lifnr.
*       Set parameter id 'KAR' field '001'.
*       SET PARAMETER ID 'LAG' FIELD im_lgort.
       CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
MXX的选择看表T132 (同时看表MOFF)
A           工作计划
B           会计
C           分类
D           物料需求计划
E           采购
F           生产资源/工具
G           成本核算
K           基本数据
L           存储
P           预测
Q           质量管理
S           仓库管理
V           销售
X     X     工厂库存
Z     X     存储位置库存

供应商:
        CALL FUNCTION 'MMPUR_VENDOR_DISPLAY'
             EXPORTING
                  im_lifnr = itab-lifnr
                  im_ekorg = 'B000'.
信息记录:
       CALL FUNCTION 'MMPUR_INFO_RECORD_DISPLAY'
         EXPORTING
              im_infnr = itab-infnr
              im_ekorg = 'B000'
              im_werks = itab-werks.
工厂:
       DATA: ls_vt001w TYPE v_t001w.
       ls_vt001w-mandt = sy-mandt.
       ls_vt001w-werks = itab-werks.
       CALL FUNCTION 'VIEW_MAINTENANCE_SINGLE_ENTRY'
         EXPORTING
           action    = 'SHOW'
           view_name = 'V_T001W'
         CHANGING
           entry     = ls_vt001w.

      注:一般维护视图的界面可以用这个方法
 
 
*几个关于"Display"的Function Group:CK50,EDI5,MEEXT等
 
 
 
会计凭证:
 
SET PARAMETER ID 'BLN' FIELD '90000046' .
SET PARAMETER ID 'BUK' FIELD '1000'.
SET PARAMETER ID 'GJR' FIELD '2008'.
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN .
 
程序或者函数:
CALL FUNCTION 'EDITOR_PROGRAM'
  EXPORTING                   
    display = 'X'             
    program = it_tfdir-incname
  EXCEPTIONS                  
    OTHERS  = 1.              
函数组:
CALL FUNCTION 'RS_FUNCTION_POOL_CHANGE'
  EXPORTING                           
    aktion        = 'SHOW'            
    function_pool = it_tfdir-fgname   
  EXCEPTIONS                          
    OTHERS        = 9.                
阅读(5849) | 评论(0) | 转发(0) |
0

上一篇:一个Tar脚本

下一篇:SOLUTION MANAGER KEY

给主人留下些什么吧!~~