PR 创建

REPORT  Z_CREATE_PR.

DATA: BEGIN OF GT_DATA1 OCCURS 0,
            BSART   TYPE STRING, "凭证类型
            BNFPO   TYPE STRING, "项目
*            KNTTP   TYPE STRING, "科目分配类别
            MATNR   TYPE STRING,  "商品代码
*            TXZ01   TYPE STRING, "短文本
            MENGE   TYPE STRING, "数量
            MEINS   TYPE STRING, "单位
            EEIND   TYPE STRING, "交货日期
*            MATKL   TYPE STRING, "物料组
            WERKS   TYPE STRING, "工厂
            EKGRP   TYPE STRING, "采购组
            AFNAM   TYPE STRING, "申请者
            BEDNR   TYPE STRING, "需求跟踪号
            SAKTO   TYPE STRING, "总帐科目
            KOSTL   TYPE STRING, "成本中心
            ANLN1   TYPE STRING, "资产
            AUFNR   TYPE STRING, "订单
            PREIS   TYPE STRING,  "评估价格
            WAERS   TYPE STRING, "币种
            PEINH   TYPE STRING, "价格单位
            DISPO   TYPE STRING, "MRP控制者
            STR1    TYPE STRING,"行项目文本-传送文本
            STR2    TYPE STRING,"行项目文本-预算年度
            STR3    TYPE STRING,"行项目文本-资产类别
        END OF GT_DATA1.

DATA: BEGIN OF GT_DATA OCCURS 0,
            BEDNR   TYPE STRING, "需求跟踪号
            BSART   TYPE STRING, "凭证类型
            BNFPO   TYPE STRING, "项目
*            KNTTP   TYPE STRING, "科目分配类别
            MATNR   TYPE STRING,  "商品代码
*            TXZ01   TYPE STRING, "短文本
            MENGE   TYPE STRING, "数量
            MEINS   TYPE STRING, "单位
            EEIND   TYPE STRING, "交货日期
*            MATKL   TYPE STRING, "物料组
            WERKS   TYPE STRING, "工厂
            EKGRP   TYPE STRING, "采购组
            AFNAM   TYPE STRING, "申请者
            SAKTO   TYPE STRING, "总帐科目
            KOSTL   TYPE STRING, "成本中心
            ANLN1   TYPE STRING, "资产
            AUFNR   TYPE STRING, "订单
            PREIS   TYPE STRING,  "评估价格
            WAERS   TYPE STRING, "币种
            PEINH   TYPE STRING, "价格单位
            DISPO   TYPE STRING, "MRP控制者
            STR1    TYPE STRING,"行项目文本-传送文本
            STR2    TYPE STRING,"行项目文本-预算年度
            STR3    TYPE STRING,"行项目文本-资产类别
        END OF GT_DATA.

DATA: BEGIN OF GT_OUT OCCURS 0,
            TEXT(255),
          END OF GT_OUT.

DATA: PR_ITEM LIKE TABLE OF  BAPIEBANC WITH HEADER LINE,
          PR_ACCOUNT LIKE TABLE OF BAPIEBKN WITH HEADER LINE,
          PR_ITEM_ID LIKE TABLE OF BAPIEBANTX WITH HEADER LINE,
          PR_RETURN LIKE TABLE OF BAPIRETURN WITH HEADER LINE.
DATA: L_RETURN LIKE PR_RETURN.
DATA: LV_MESSAGE(255).

DATA: PR_NO TYPE BAPIEBANC-PREQ_NO.
DATA: BNFPO TYPE BNFPO.
DATA: MATNR TYPE MATNR.
DATA: PP_FILE TYPE STRING.

PARAMETERS:P_FILE(128) .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
  PERFORM GET_FILE.

START-OF-SELECTION.
  PERFORM GET_DATA.
  PERFORM CREATE_PR.
  PERFORM WRITE_OUT.
*&---------------------------------------------------------------------*
*&      Form  GET_FILE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM GET_FILE .
  CALL FUNCTION ‘WS_FILENAME_GET‘
       EXPORTING
            DEF_FILENAME     = P_FILE
            MASK             = ‘,*.txt,*.TXT.‘
*‘‘,*.xls,*.XLS.‘如果读入txt文件,在后边就需要用函数
*  CALL FUNCTION ‘WS_UPLOAD‘
            MODE             = ‘O‘
            TITLE            = ‘File Name‘
       IMPORTING
            FILENAME         =  P_FILE
       EXCEPTIONS
            INV_WINSYS       = 1
            NO_BATCH         = 2
            SELECTION_CANCEL = 3
            SELECTION_ERROR  = 4
            OTHERS           = 5.
  PP_FILE = P_FILE.

ENDFORM.                    " GET_FILE
*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM GET_DATA .
  CALL FUNCTION ‘GUI_UPLOAD‘
    EXPORTING
      FILENAME                      = PP_FILE
     FILETYPE                      = ‘ASC‘
     HAS_FIELD_SEPARATOR           = ‘X‘
*   HEADER_LENGTH                 = 0
     READ_BY_LINE                  = ‘X‘
*   DAT_MODE                      = ‘ ‘
*   CODEPAGE                      = ‘ ‘
*   IGNORE_CERR                   = ABAP_TRUE
*   REPLACEMENT                   = ‘#‘
*   CHECK_BOM                     = ‘ ‘
*   VIRUS_SCAN_PROFILE            =
*   NO_AUTH_CHECK                 = ‘ ‘
* IMPORTING
*   FILELENGTH                    =
*   HEADER                        =
    TABLES
      DATA_TAB                      = GT_DATA1
   EXCEPTIONS
     FILE_OPEN_ERROR               = 1
     FILE_READ_ERROR               = 2
     NO_BATCH                      = 3
     GUI_REFUSE_FILETRANSFER       = 4
     INVALID_TYPE                  = 5
     NO_AUTHORITY                  = 6
     UNKNOWN_ERROR                 = 7
     BAD_DATA_FORMAT               = 8
     HEADER_NOT_ALLOWED            = 9
     SEPARATOR_NOT_ALLOWED         = 10
     HEADER_TOO_LONG               = 11
     UNKNOWN_DP_ERROR              = 12
     ACCESS_DENIED                 = 13
     DP_OUT_OF_MEMORY              = 14
     DISK_FULL                     = 15
     DP_TIMEOUT                    = 16
     OTHERS                        = 17
            .
  IF SY-SUBRC <> 0.
    CASE SY-SUBRC.
      WHEN 1.MESSAGE ‘FILE_OPEN_ERROR ‘ TYPE ‘E‘.
      WHEN 2.MESSAGE ‘FILE_READ_ERROR ‘ TYPE ‘E‘.
      WHEN 3.MESSAGE ‘NO_BATCH‘ TYPE ‘E‘.
      WHEN 4.MESSAGE ‘GUI_REFUSE_FILETRANSFER  ‘ TYPE ‘E‘.
      WHEN 5.MESSAGE ‘INVALID_TYPE ‘ TYPE ‘E‘.
      WHEN 6.MESSAGE ‘ NO_AUTHORITY‘ TYPE ‘E‘.
      WHEN 7.MESSAGE ‘UNKNOWN_ERROR‘ TYPE ‘E‘.
      WHEN 8.MESSAGE ‘BAD_DATA_FORMAT ‘ TYPE ‘E‘.
      WHEN 9.MESSAGE ‘HEADER_NOT_ALLOWED‘ TYPE ‘E‘.
      WHEN 10.MESSAGE ‘SEPARATOR_NOT_ALLOWED‘ TYPE ‘E‘.
      WHEN 11.MESSAGE ‘HEADER_TOO_LONG ‘ TYPE ‘E‘.
      WHEN 12.MESSAGE ‘UNKNOWN_DP_ERROR‘ TYPE ‘E‘.
      WHEN 13.MESSAGE ‘ ACCESS_DENIED ‘ TYPE ‘E‘.
      WHEN 14.MESSAGE ‘DP_OUT_OF_MEMORY ‘ TYPE ‘E‘.
      WHEN 15.MESSAGE ‘DISK_FULL  ‘ TYPE ‘E‘.
      WHEN 16.MESSAGE ‘DP_TIMEOUT‘ TYPE ‘E‘.
      WHEN 17.MESSAGE ‘ OTHERS  ‘ TYPE ‘E‘.
      WHEN OTHERS.
    ENDCASE.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  LOOP AT GT_DATA1.
    MOVE-CORRESPONDING GT_DATA1 TO GT_DATA.
    APPEND GT_DATA.
    CLEAR: GT_DATA,GT_DATA1.
  ENDLOOP.
ENDFORM.                    " GET_DATA
*&---------------------------------------------------------------------*
*&      Form  CREATE_PR
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM CREATE_PR .
  LOOP AT GT_DATA.
    BNFPO = GT_DATA-BNFPO.
    CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT‘
      EXPORTING
        INPUT  = BNFPO
      IMPORTING
        OUTPUT = BNFPO.
    CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT‘
      EXPORTING
        INPUT  = GT_DATA-MATNR
      IMPORTING
        OUTPUT = MATNR.
    PR_ITEM-DOC_TYPE   = GT_DATA-BSART. "凭证类型
    PR_ITEM-PREQ_ITEM  = BNFPO. "项目
*    PR_ITEM-ACCTASSCAT = GT_DATA-KNTTP."科目分配类别
    PR_ITEM-MATERIAL = MATNR."商品代码
*    PR_ITEM-SHORT_TEXT = GT_DATA-TXZ01."短文本
    PR_ITEM-QUANTITY  = GT_DATA-MENGE. "数量
    PR_ITEM-UNIT = GT_DATA-MEINS."单位
    PR_ITEM-DELIV_DATE = GT_DATA-EEIND.  "交货日期
*    PR_ITEM-MAT_GRP = GT_DATA-MATKL.   "物料组
    PR_ITEM-PLANT  = GT_DATA-WERKS."工厂
    PR_ITEM-PUR_GROUP = GT_DATA-EKGRP."采购组
    PR_ITEM-PREQ_NAME = GT_DATA-AFNAM."申请者
    PR_ITEM-TRACKINGNO = GT_DATA-BEDNR."需求跟踪号
    PR_ITEM-C_AMT_BAPI = GT_DATA-PREIS."评估价格
    PR_ITEM-CURRENCY = GT_DATA-WAERS."货币码
    PR_ITEM-PRICE_UNIT = GT_DATA-PEINH."价格单位
    PR_ITEM-MRP_CONTR = GT_DATA-DISPO."MRP控制者
    APPEND PR_ITEM.
    CLEAR PR_ITEM.

PR_ACCOUNT-PREQ_ITEM = BNFPO. "项目
    PR_ACCOUNT-G_L_ACCT = GT_DATA-SAKTO.   "总帐科目
    PR_ACCOUNT-COST_CTR = GT_DATA-KOSTL.  "成本中心
    PR_ACCOUNT-ASSET_NO = GT_DATA-ANLN1. "资产
    PR_ACCOUNT-ORDER_NO = GT_DATA-AUFNR. "订单
    PR_ACCOUNT-CO_AREA = ‘BELL‘.
    APPEND PR_ACCOUNT.
    CLEAR PR_ACCOUNT.

PR_ITEM_ID-PREQ_ITEM = BNFPO."项目
    PR_ITEM_ID-TEXT_ID = ‘B03‘.
    PR_ITEM_ID-TEXT_LINE = GT_DATA-STR1."行项目文本-传送文本
    APPEND PR_ITEM_ID.
    CLEAR PR_ITEM_ID.

PR_ITEM_ID-PREQ_ITEM = BNFPO."项目
    PR_ITEM_ID-TEXT_ID = ‘B07‘.
    PR_ITEM_ID-TEXT_LINE = GT_DATA-STR2."行项目文本-预算年度
    APPEND PR_ITEM_ID.
    CLEAR PR_ITEM_ID.

PR_ITEM_ID-PREQ_ITEM = BNFPO."项目
    PR_ITEM_ID-TEXT_ID = ‘B08‘.
    PR_ITEM_ID-TEXT_LINE = GT_DATA-STR3."行项目文本-资产类别
    APPEND  PR_ITEM_ID.
    CLEAR  PR_ITEM_ID.

AT END OF BEDNR.

CALL FUNCTION ‘BAPI_REQUISITION_CREATE‘
* EXPORTING
*   SKIP_ITEMS_WITH_ERROR                =
*   AUTOMATIC_SOURCE                     = ‘X‘
       IMPORTING
         NUMBER                               = PR_NO
        TABLES
          REQUISITION_ITEMS                    = PR_ITEM
          REQUISITION_ACCOUNT_ASSIGNMENT       = PR_ACCOUNT
          REQUISITION_ITEM_TEXT                = PR_ITEM_ID
*   REQUISITION_LIMITS                   =
*   REQUISITION_CONTRACT_LIMITS          =
*   REQUISITION_SERVICES                 =
*   REQUISITION_SRV_ACCASS_VALUES        =
          RETURN                               = PR_RETURN
*   REQUISITION_SERVICES_TEXT            =
*   REQUISITION_ADDRDELIVERY             =
*   EXTENSIONIN                          =
                .
      LOOP AT PR_RETURN WHERE TYPE = ‘E‘ OR TYPE = ‘A‘.
      ENDLOOP.
      IF SY-SUBRC = 0.
        CLEAR: LV_MESSAGE.
        CALL FUNCTION ‘BAPI_TRANSACTION_ROLLBACK‘.
        LOOP AT PR_RETURN INTO L_RETURN WHERE TYPE = ‘E‘ .
          CONCATENATE LV_MESSAGE L_RETURN-MESSAGE ‘;‘
            INTO LV_MESSAGE.
        ENDLOOP.
        CONCATENATE GT_DATA-BEDNR LV_MESSAGE INTO GT_OUT-TEXT.
        APPEND GT_OUT.
        CLEAR GT_OUT.
      ELSE.
        CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT‘
          EXPORTING
            WAIT = ‘X‘.
        CONCATENATE PR_NO ‘创建成功‘ INTO GT_OUT-TEXT.
        APPEND GT_OUT.
        CLEAR GT_OUT.
      ENDIF.
      FREE PR_ITEM.
      FREE PR_ACCOUNT.
      FREE PR_ITEM_ID.
      FREE PR_RETURN.

ENDAT.
  ENDLOOP.

ENDFORM.                    " CREATE_PR
*&---------------------------------------------------------------------*
*&      Form  WRITE_OUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM WRITE_OUT .
  LOOP AT GT_OUT.
    WRITE: / GT_OUT-TEXT.
  ENDLOOP.
ENDFORM.                    " WRITE_OUT

以下为数据格式(行项目以回车键换行,列以TAB分隔):

ZB 10 100009 10 EA 20100915 D005
ZB 10 100008 10 EA 20100915 D005

时间: 2024-10-10 20:08:48

PR 创建的相关文章

Docker实战:更轻松、更愉快、更高效

编者按:借助Docker,我们可以更容易地进行web应用部署,而同时不必头疼于项目依赖.环境变量以及各种配置问题,Docker可以快捷.高效地处理好这一切.而这也是本教程所要实现的主要目的.以下是作者原文: 首先我们来学习使用Docker容器运行一个Python Flask应用,然后逐步介绍一套更酷的开发流程,其中涵盖了应用的持续集成与发布. 流程 在本地功能分支上完成应用代码. 原文地址:http://tieba.yunxunmi.com/tieba-docker-kz-caa7514e434

所有标准API

序号 系统版本 模块 应用场景 类型 API/接口 参数规格 样例代码 备注 登记者 登记时间 关键字 1 12.1.3 AP 付款核销 API ap_pay_invoice_pkg.ap_pay_invoice 赵杨 2013/3/30 付款/核销 2 12.1.3 AP 应付发票审批 API ap_approval_pkg.approval 赵杨 2013/3/30 发票/审批 3 12.1.3 AP 预付款核销 API ap_prepay_pkg.apply_prepay_fr_prepa

多进程编程

1.多进程 一个程序的执行活动,就是一个进程,系统为这个进程分配独立的地址空间,资源等等,所以进程事实上就是一个资源的集合体.进程就是为多道编程服务的,通过系统的调度,使得系统可以执行多个进程,使得多个进程看起来都可以同时被系统执行. 多进程编程主要的内容包括进程的控制和进程间的通信. 1.1 进程的控制 1.1.1 进程的创建 pid_t fork(void) fork()被调用一次,却返回两次,可能的返回值: 1.在父进程中,fork 返回新创建的子进程的的 PID 2.在子进程中,fork

通过CALL BAPI设置增强字段Extension的方式及应该注意的事项

通过CALL BAPI设置增强字段Extension的方式及应该注意的事项 (以SAP PR创建为例)使用lt_extensionin-valuepart1 = ls_bapi_te_mereqitemx这种符值方式, 在增强的字段比较多, 字段总长度超过240字符的话, 可能造成数据丢失,建议还是使用CALL METHOD cl_abap_container_utilities=>fill_container_c方式吧如有什么疑问, 欢迎加QQ: 2032439277联系交流吧.更多信息欢迎访

Github搜索那些事

前言 一个合格的开发者,应该要熟练地使用Google.Baidu等搜索引擎(不然怎么复制别人的代码).而搜索引擎为了方便用户的使用,基本都提供了高级搜索功能.而今天介绍的Github,作为全球最大的同性交友网站,存储的代码量可能是全世界最多的.为了方便大家寻找自己需要的代码,同样提供了很多方便的高级搜索语法. 搜索简介 先上文档:https://help.github.com/en/github/searching-for-information-on-github. 此文档为Github官网介

PR PO通过fm创建时,如何传输增强字段

PR: PO: 如上,对应结构分别为:BAPI_TE_MEPOITEM. BAPI_TE_MEPOITEMXPR PO通过fm创建时,如何传输增强字段

Linux-进程描述(4)之进程优先级与进程创建执行

进程优先级 进程cpu资源分配就是指进程的优先权(priority).优先权高的进程有优先执行权利. 权限与优先级.权限(privilege)是指在多用户计算机系统的管理中,某个特定的用户具有特定的系统资源使用权力,像是文件夹,特定系统指令的使用或存储量的限制.权限是有或没有的问题,而优先级则是在已经具有了权限而讨论权限大小的问题.配置进程优先权对多任务环境的linux很有用,可以改善系统性能.还可以把进程运行到指定的CPU上,这样一来,把不重要的进程安排到某个CPU,可以大大改善系统整体性能.

AltiumDesigner学习笔记(一)&mdash;&mdash;创建工程与原理图文件

一.创建工程与原理图文件 1.通过菜单创建PCB工程 (1)File - New - Project - PCB Project,即可在当前工作区创建新的PCB工程 (2)新建工程并不直接在硬盘中创建文件,需要保存:在工程面板中,右键单击新建的工程名 - Save Project,在弹出的对话框中,选择工程存储目录(一般需要为新建的工程新建一个专属目录)并命名工程. 2.通过菜单或者工程面板向工程中添加原理文件 (1)在工程面板中,右键单击新建的工程 - Add New to Project -

创建型模式--原型模式

概述 用原型实例指定创建对象的种类,并且通过拷贝这些原型创建新的对象.  适用性 1.当一个系统应该独立于它的产品创建.构成和表示时. 2.当要实例化的类是在运行时刻指定时,例如,通过动态装载. 3.为了避免创建一个与产品类层次平行的工厂类层次时. 4.当一个类的实例只能有几个不同状态组合中的一种时. 建立相应数目的原型并克隆它们可能比每次用合适的状态手工实例化该类更方便一些.  参与者 1. Prototype 声明一个克隆自身的接口. 2. ConcretePrototype 实现一个克隆自