创建po

Posted 学习笔记

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了创建po相关的知识,希望对你有一定的参考价值。

FUNCTION zrfc_mm001.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(CALLNO) TYPE  ZCALLNO
*"     VALUE(DOC_TYPE) LIKE  BAPIMEPOHEADER-DOC_TYPE DEFAULT ‘ZIPR‘
*"     VALUE(PURCH_ORG) LIKE  BAPIMEPOHEADER-PURCH_ORG DEFAULT ‘POIC‘
*"     VALUE(PUR_GROUP) LIKE  BAPIMEPOHEADER-PUR_GROUP
*"     VALUE(VENDOR) LIKE  BAPIMEPOHEADER-VENDOR
*"     VALUE(COMP_CODE) LIKE  BAPIMEPOHEADER-COMP_CODE DEFAULT ‘GF50‘
*"     VALUE(DZTERM) TYPE  DZTERM DEFAULT ‘0001‘
*"  EXPORTING
*"     VALUE(PO_NUMBER) LIKE  BAPIMEPOHEADER-PO_NUMBER
*"     VALUE(FLAG) LIKE  BAPIRET2-TYPE
*"     VALUE(MESSAGE) LIKE  BAPIRET2-MESSAGE
*"  TABLES
*"      POITEM STRUCTURE  ZPOITEM
*"----------------------------------------------------------------------

DATA: lv_currency TYPE bapimepoheader-currency VALUE RMB,        "货币码
      ls_poitem   TYPE zpoitem,
      lv_message  TYPE bapiret2-message,
      lv_po_item  TYPE bapimepoitem-po_item,                       "行项目号
      lv_pckg_no  TYPE bapimepoitem-pckg_no.                       "PCKG_NO

DATA: quantity(18),
      net_price(37),
      limit(27),
      exp_value(27),
      lv_datano TYPE zdatano.

CLEAR:gs_poheader,    gs_poheaderx,  gv_po_number,  gt_return,      gs_return,     gt_poitem,
      gs_poitem,      gt_poitemx,    gs_poitemx,    gt_poschedule,  gs_poschedule, gt_poschedulex,
      gs_poschedulex, gt_poaccount,  gs_poaccount,  gt_poaccountx,  gs_poaccountx, gt_polimits,
      gs_polimits.

*数据检查.
      PERFORM frm_check_data USING doc_type purch_org pur_group vendor comp_code poitem[]
                             CHANGING flag message.

*抬头数据
      gs_poheader-doc_type   = doc_type.                "采购凭证类型
      gs_poheader-purch_org  = purch_org.               "采购组织
      gs_poheader-pur_group  = pur_group.               "采购组
      gs_poheader-vendor     = vendor.                  "供应商帐户号
      gs_poheader-comp_code  = comp_code.               "公司代码
      gs_poheader-currency   = lv_currency.             "货币码
      gs_poheader-pmnttrms   = dzterm.                  "付款条件

      gs_poheaderx-doc_type  = g_flag.
      gs_poheaderx-purch_org = g_flag.
      gs_poheaderx-pur_group = g_flag.
      gs_poheaderx-vendor    = g_flag.
      gs_poheaderx-comp_code = g_flag.
      gs_poheaderx-currency  = g_flag.
      gs_poheaderx-pmnttrms  = g_flag.

      LOOP AT poitem INTO ls_poitem.
*行项目
       lv_po_item = lv_po_item + 10.
       lv_pckg_no = lv_pckg_no + 1.
       PERFORM frm_poitem      USING ls_poitem lv_po_item lv_pckg_no.

*计划行
       PERFORM frm_poschedule  USING ls_poitem lv_po_item.

*账户分配
       PERFORM frm_poaccount   USING ls_poitem lv_po_item.

*服务限制
       PERFORM frm_polimits    USING ls_poitem lv_po_item lv_pckg_no.
      ENDLOOP.

*创建采购订单
     CALL FUNCTION BAPI_PO_CREATE1
       EXPORTING
         poheader                    = gs_poheader
         poheaderx                   = gs_poheaderx
      IMPORTING
        exppurchaseorder             = gv_po_number
      TABLES
        return                       = gt_return
        poitem                       = gt_poitem
        poitemx                      = gt_poitemx
        poschedule                   = gt_poschedule
        poschedulex                  = gt_poschedulex
        poaccount                    = gt_poaccount
        poaccountx                   = gt_poaccountx
        polimits                     = gt_polimits.

  READ TABLE gt_return INTO gs_return WITH KEY type = E.
  IF sy-subrc NE 0.
    po_number = gv_po_number.
    flag = S.
    CONCATENATE 生成PO: po_number INTO message.
    CALL FUNCTION BAPI_TRANSACTION_COMMIT
      EXPORTING
        wait = X.
  ELSE.
    CALL FUNCTION BAPI_TRANSACTION_ROLLBACK.

    LOOP AT gt_return INTO gs_return WHERE type CA AEX.
        MESSAGE ID     gs_return-id
                TYPE   gs_return-type
                NUMBER gs_return-number
                WITH   gs_return-message_v1 gs_return-message_v2
                       gs_return-message_v3 gs_return-message_v4
                       INTO lv_message.
        CONCATENATE message lv_message INTO message SEPARATED BY .
    ENDLOOP.
    SHIFT message LEFT DELETING LEADING  .
    flag = E.
  ENDIF.


*记录日志
  CLEAR:gt_log,gs_log,ls_poitem.
  LOOP AT poitem INTO ls_poitem.
    lv_datano     = lv_datano + 1.
    gs_log-datano = lv_datano.
    gs_log-name   = ZRFC_MM001.
    gs_log-cdate  = sy-datum.
    GET TIME.
    gs_log-ctime  = sy-uzeit.
    gs_log-callno = callno.
    gs_log-flag   = flag.
    gs_log-log    = message.
    quantity  = ls_poitem-quantity.
    net_price = ls_poitem-net_price.
    limit     = ls_poitem-limit.
    exp_value = ls_poitem-exp_value.
    CONCATENATE           doc_type  purch_org  pur_group  vendor  comp_code dzterm
    ls_poitem-po_item     ls_poitem-acctasscat      ls_poitem-item_cat       ls_poitem-short_text   quantity
    ls_poitem-po_unit     ls_poitem-orderpr_un      ls_poitem-matl_group     ls_poitem-plant        ls_poitem-tax_code
    net_price             ls_poitem-del_datcat_ext  ls_poitem-delivery_date  ls_poitem-gl_account   ls_poitem-co_area
    ls_poitem-costcenter  ls_poitem-asset_no        ls_poitem-wbs_element    limit                  exp_value
    ls_poitem-afnam       po_number
    INTO gs_log-content SEPARATED BY |.

    CONDENSE gs_log-content NO-GAPS.
    gs_log-length = STRLEN( gs_log-content ).
    APPEND gs_log TO gt_log.
    CLEAR: ls_poitem,quantity,net_price,limit,exp_value.
  ENDLOOP.

IF gt_log IS NOT INITIAL.
INSERT zrfc_mm01in_log FROM TABLE gt_log.
IF sy-subrc = 0.
COMMIT WORK.
ENDIF.
ENDIF.

ENDFUNCTION.

 

以上是关于创建po的主要内容,如果未能解决你的问题,请参考以下文章

创建片段而不从 java 代码实例化它

微信小程序代码片段

如何创建片段以重复变量编号中的代码行

sublime 3 使用Snippets创建代码片段

OnDetach/onAttach 片段重新创建片段活动

无法在片段内创建对话框