采购信息记录修改[BDC]
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZMMF016. TABLES:EINE,EINA,SSCRFIELDS,A017.
INCLUDE OLE2INCL.
TYPES:BEGIN OF TY_EXCEL,
SEL(),
ICON(),
MESSAGE(),
LOHNB(),"信息记录类型(S:标准；W：委外)
INFNR TYPE EINA-INFNR,
LIFNR TYPE LFA1-LIFNR,
MATNR TYPE MARA-MATNR,
EKORG TYPE EINE-EKORG,
WERKS TYPE EINE-WERKS,
EKGRP TYPE EINE-EKGRP,
MWSKZ TYPE EINE-MWSKZ,
APLFZ() TYPE C, " EINE-APLFZ,
WAERS TYPE EINE-WAERS,
MEINS TYPE EINA-MEINS,
UMREZ() TYPE C, " TYPE EINA-UMREZ,
UMREN() TYPE C, " TYPE EINA-UMREN,
NETPR() TYPE C, "EINE-NETPR,
LIFAB TYPE EINA-LIFAB,
LIFBI TYPE EINA-LIFBI,
KPEIN() TYPE C, "KONP-KPEIN,
* NORBM TYPE EINE-NORBM,
END OF TY_EXCEL. TYPES:BEGIN OF TY_CHECK,
INFNR TYPE EINA-INFNR,
LIFNR TYPE LFA1-LIFNR,
MATNR TYPE MARA-MATNR,
LIFAB TYPE EINA-LIFAB,
EKORG TYPE EINE-EKORG,
WERKS TYPE EINE-WERKS,
ESOKZ TYPE EINE-ESOKZ,
END OF TY_CHECK. DATA:GT_EXCEL TYPE TABLE OF TY_EXCEL,
GW_EXCEL LIKE LINE OF GT_EXCEL,
GT_CHECK TYPE TABLE OF TY_CHECK,
GW_CHECK LIKE LINE OF GT_CHECK.
DATA:GT_FIELDCAT TYPE LVC_T_FCAT.
DATA GS_FIELDCAT LIKE LINE OF GT_FIELDCAT.
DATA LS_LAYOUT TYPE LVC_S_LAYO.
DATA : GT_EXCEL_T TYPE ALSMEX_TABLINE OCCURS WITH HEADER LINE,
GS_EXCEL_T LIKE LINE OF GT_EXCEL_T. DATA: BDCDATA LIKE BDCDATA OCCURS WITH HEADER LINE.
DATA: MESSTAB LIKE BDCMSGCOLL OCCURS WITH HEADER LINE.
DATA: GS_CTU_PARAMS TYPE CTU_PARAMS. DATA: GS_EXCEL TYPE OLE2_OBJECT,
* gs_wbooklist TYPE ole2_object,
* gs_application TYPE ole2_object,
GS_WORKBOOK TYPE OLE2_OBJECT. DEFINE APPEND_FIELDCAT .
CLEAR GS_FIELDCAT.
GS_FIELDCAT-FIELDNAME = &.
GS_FIELDCAT-SCRTEXT_L = &.
GS_FIELDCAT-OUTPUTLEN = &.
GS_FIELDCAT-NO_ZERO = &.
* IF &1 = 'MEINS'.
* GS_FIELDCAT-CONVEXIT = 'ZCONV'.
* ENDIF.
APPEND GS_FIELDCAT TO GT_FIELDCAT.
END-OF-DEFINITION. SELECTION-SCREEN:BEGIN OF BLOCK BLK01 WITH FRAME TITLE TEXT-.
PARAMETERS:P_FILE LIKE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK BLK01. SELECTION-SCREEN FUNCTION KEY . INITIALIZATION. MOVE '@49@下载模板' TO SSCRFIELDS-FUNCTXT_01. AT SELECTION-SCREEN.
IF SSCRFIELDS-UCOMM = 'FC01'.
PERFORM PRM_SAVE_FILE.
ENDIF. AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
PERFORM FRM_GET_FILEPATH. START-OF-SELECTION.
CHECK P_FILE IS NOT INITIAL.
PERFORM PRM_GET_EXCEL.
PERFORM PRM_SET_FIELD.
PERFORM PRM_CHECK_DATA.
PERFORM PRM_SHOW.
*&---------------------------------------------------------------------*
*& Form FRM_GET_FILEPATH
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_GET_FILEPATH .
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
MASK = ',Excel(*.xls),*.XLS,*.XLSX,'
TITLE = '选择文件'()
IMPORTING
FILENAME = P_FILE
EXCEPTIONS
INV_WINSYS =
NO_BATCH =
SELECTION_CANCEL =
SELECTION_ERROR =
OTHERS = .
IF SY-SUBRC <> .
MESSAGE '选择文件出错！' TYPE 'S' DISPLAY LIKE 'E'.
LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form PRM_GET_EXCEL
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM PRM_GET_EXCEL .
IF P_FILE IS NOT INITIAL.
*将excel数据传入内表
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
FILENAME = P_FILE
I_BEGIN_COL = ''
I_BEGIN_ROW = ''
I_END_COL = ''
I_END_ROW = ''
TABLES
INTERN = GT_EXCEL_T.
ENDIF. IF GT_EXCEL_T[] IS INITIAL.
MESSAGE '文件内容为空！' TYPE 'S' DISPLAY LIKE 'E'.
LEAVE LIST-PROCESSING.
ENDIF. LOOP AT GT_EXCEL_T INTO GS_EXCEL_T.
AT NEW ROW.
CLEAR:GW_EXCEL.
ENDAT.
CASE GS_EXCEL_T-COL.
WHEN ."信息记录类型
GW_EXCEL-LOHNB = GS_EXCEL_T-VALUE.
WHEN ."供应商
GW_EXCEL-LIFNR = GS_EXCEL_T-VALUE.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = GW_EXCEL-LIFNR
IMPORTING
OUTPUT = GW_EXCEL-LIFNR.
WHEN ."物料
GW_EXCEL-MATNR = GS_EXCEL_T-VALUE.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = GW_EXCEL-MATNR
IMPORTING
OUTPUT = GW_EXCEL-MATNR.
WHEN ."采购组织
GW_EXCEL-EKORG = GS_EXCEL_T-VALUE.
WHEN .
GW_EXCEL-WERKS = GS_EXCEL_T-VALUE.
WHEN .
GW_EXCEL-EKGRP = GS_EXCEL_T-VALUE.
WHEN .
GW_EXCEL-APLFZ = GS_EXCEL_T-VALUE.
WHEN .
GW_EXCEL-NETPR = GS_EXCEL_T-VALUE.
WHEN .
GW_EXCEL-WAERS = GS_EXCEL_T-VALUE.
WHEN .
GW_EXCEL-KPEIN = GS_EXCEL_T-VALUE.
WHEN .
GW_EXCEL-MEINS = GS_EXCEL_T-VALUE.
CALL FUNCTION 'CONVERSION_EXIT_ZCONV_OUTPUT'
EXPORTING
INPUT = GW_EXCEL-MEINS
IMPORTING
OUTPUT = GW_EXCEL-MEINS
EXCEPTIONS
UNIT_NOT_FOUND = .
WHEN .
GW_EXCEL-UMREZ = GS_EXCEL_T-VALUE.
WHEN .
GW_EXCEL-UMREN = GS_EXCEL_T-VALUE.
WHEN .
GW_EXCEL-LIFAB = GS_EXCEL_T-VALUE.
WHEN .
GW_EXCEL-LIFBI = GS_EXCEL_T-VALUE.
WHEN .
GW_EXCEL-MWSKZ = GS_EXCEL_T-VALUE.
WHEN OTHERS.
ENDCASE. AT END OF ROW.
APPEND GW_EXCEL TO GT_EXCEL.
ENDAT.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form PRM_CHECK_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM PRM_CHECK_DATA .
SELECT EINA~INFNR" TYPE LFA1-LIFNR,
EINA~LIFNR" TYPE LFA1-LIFNR,
EINA~MATNR" TYPE MARA-MATNR,
EINA~LIFAB" TYPE MARA-MATNR,
EINE~EKORG" TYPE EINE-EKORG,
EINE~WERKS" TYPE EINE-WERKS,
EINE~ESOKZ" TYPE EINE-WERKS,
INTO TABLE GT_CHECK
FROM EINA
INNER JOIN EINE
ON EINA~INFNR = EINE~INFNR
FOR ALL ENTRIES IN GT_EXCEL
WHERE EINA~LIFNR = GT_EXCEL-LIFNR
AND EINA~MATNR = GT_EXCEL-MATNR
AND EINE~EKORG = GT_EXCEL-EKORG
AND EINE~WERKS = GT_EXCEL-WERKS
AND EINA~LOEKZ = ''
AND EINE~LOEKZ = ''. LOOP AT GT_EXCEL INTO GW_EXCEL.
READ TABLE GT_CHECK INTO GW_CHECK WITH KEY LIFNR = GW_EXCEL-LIFNR MATNR = GW_EXCEL-MATNR
EKORG = GW_EXCEL-EKORG WERKS = GW_EXCEL-WERKS.
IF SY-SUBRC <> .
GW_EXCEL-MESSAGE = '数据未建立，请稍后检查！'.
GW_EXCEL-ICON = '@0A@'.
ELSE.
GW_EXCEL-INFNR = GW_CHECK-INFNR.
ENDIF. CLEAR:A017.
SELECT SINGLE * FROM A017 WHERE LIFNR = GW_EXCEL-LIFNR AND MATNR = GW_EXCEL-MATNR
AND EKORG = GW_EXCEL-EKORG AND WERKS = GW_EXCEL-WERKS AND DATAB >= GW_EXCEL-LIFAB.
IF A017 IS NOT INITIAL.
GW_EXCEL-MESSAGE = '有效开始日期不能小于等于原有日期！'.
GW_EXCEL-ICON = '@0A@'.
ENDIF. IF GW_EXCEL-LIFAB IS INITIAL OR GW_EXCEL-LIFBI IS INITIAL.
GW_EXCEL-MESSAGE = '新建日期范围必输！'.
GW_EXCEL-ICON = '@0A@'.
ENDIF. IF GW_EXCEL-LOHNB <> 'S' AND GW_EXCEL-LOHNB <> 'W'.
GW_EXCEL-MESSAGE = '信息类型错误！'.
GW_EXCEL-ICON = '@0A@'.
ELSEIF GW_EXCEL-LOHNB = 'S'.
IF GW_CHECK-ESOKZ <> ''.
GW_EXCEL-MESSAGE = '信息类型不匹配！'.
GW_EXCEL-ICON = '@0A@'.
ENDIF.
ELSEIF GW_EXCEL-LOHNB = 'W'.
IF GW_CHECK-ESOKZ <> ''.
GW_EXCEL-MESSAGE = '信息类型不匹配！'.
GW_EXCEL-ICON = '@0A@'.
ENDIF.
ENDIF.
*
* IF GW_EXCEL-LIFAB <= GW_CHECK-LIFAB.
* GW_EXCEL-MESSAGE = '有效开始日期不能小于等于原有日期！'.
* GW_EXCEL-ICON = '@0A@'.
* ENDIF.
MODIFY GT_EXCEL FROM GW_EXCEL.
CLEAR:GW_EXCEL-MESSAGE.
ENDLOOP. ENDFORM.
*&---------------------------------------------------------------------*
*& Form PRM_SET_FIELD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM PRM_SET_FIELD .
REFRESH GT_FIELDCAT.
LS_LAYOUT-CWIDTH_OPT = 'X'. "优化列宽选项是否设置
LS_LAYOUT-ZEBRA = 'X'.
LS_LAYOUT-BOX_FNAME = 'SEL'. APPEND_FIELDCAT:'ICON' '标记' '',
'MESSAGE' '消息' '',
'LOHNB' '信息记录类型' '',
'INFNR' '信息记录编号' 'X',
'LIFNR' '供应商编码' 'X',
'MATNR' '物料编码' 'X',
'EKORG' '采购组织' '',
'EKGRP' '采购组' '',
'MEINS' '订单价格单位' '',
'WERKS' '工厂' '',
'APLFZ' '计划交货期限' '',
'WAERS' '货币码' '',
'NETPR' '价格' '',
'MWSKZ' '税码' '',
'KPEIN' '价格倍数' '',
'UMREZ' '转化分子' '',
'UMREN' '转化分母' '',
'LIFAB' '开始日期' '',
'LIFBI' '截止日期' ''.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form PRM_SHOW
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM PRM_SHOW .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
IS_LAYOUT_LVC = LS_LAYOUT
IT_FIELDCAT_LVC = GT_FIELDCAT[]
I_CALLBACK_PF_STATUS_SET = 'PRM_SET_STATUS'
I_CALLBACK_USER_COMMAND = 'PRM_USER_COMMAND'
* i_grid_title = lv_title
I_DEFAULT = 'X'
I_SAVE = 'A'
TABLES
T_OUTTAB = GT_EXCEL
EXCEPTIONS
PROGRAM_ERROR =
OTHERS = .
IF SY-SUBRC <> .
ENDIF.
ENDFORM.
FORM PRM_SET_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB..
SET PF-STATUS 'ZSTAT'.
ENDFORM.
FORM PRM_USER_COMMAND USING P_UCOMM LIKE SY-UCOMM
P_SELFIELD TYPE SLIS_SELFIELD.
DATA:GT_SELECT TYPE TABLE OF TY_EXCEL.
DATA:GW_SELECT LIKE LINE OF GT_EXCEL.
DATA:LR_GRID TYPE REF TO CL_GUI_ALV_GRID.
DATA:LV_LINE TYPE I. CHECK P_UCOMM = 'GENR'.
APPEND LINES OF GT_EXCEL TO GT_SELECT. DELETE GT_SELECT WHERE SEL = ''.
DELETE GT_SELECT WHERE MESSAGE <> ''. CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
IMPORTING
E_GRID = LR_GRID. LOOP AT GT_SELECT INTO GW_EXCEL. CLEAR BDCDATA[]. PERFORM BDC_DYNPRO USING 'SAPMM06I' ''.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'EINE-WERKS'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'/00'.
PERFORM BDC_FIELD USING 'EINA-LIFNR'
GW_EXCEL-LIFNR.
PERFORM BDC_FIELD USING 'EINA-MATNR'
GW_EXCEL-MATNR.
PERFORM BDC_FIELD USING 'EINE-EKORG'
GW_EXCEL-EKORG.
PERFORM BDC_FIELD USING 'EINE-WERKS'
GW_EXCEL-WERKS.
IF GW_EXCEL-LOHNB = 'S'.
PERFORM BDC_FIELD USING 'RM06I-NORMB'
'X'.
ELSEIF GW_EXCEL-LOHNB = 'L'.
PERFORM BDC_FIELD USING 'RM06I-LOHNB'
'X'.
ENDIF. PERFORM BDC_DYNPRO USING 'SAPMM06I' ''.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=EINE'.
IF GW_EXCEL-MEINS IS NOT INITIAL.
PERFORM BDC_FIELD USING 'EINA-MEINS'
GW_EXCEL-MEINS.
ENDIF. IF GW_EXCEL-UMREZ <> .
PERFORM BDC_FIELD USING 'EINA-UMREZ'
GW_EXCEL-UMREZ.
ENDIF. IF GW_EXCEL-UMREN <> .
PERFORM BDC_FIELD USING 'EINA-UMREN'
GW_EXCEL-UMREN.
ENDIF. PERFORM BDC_DYNPRO USING 'SAPMM06I' ''.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'EINE-MWSKZ'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'/00'.
IF GW_EXCEL-APLFZ > .
PERFORM BDC_FIELD USING 'EINE-APLFZ'
GW_EXCEL-APLFZ.
ENDIF. IF GW_EXCEL-EKGRP IS NOT INITIAL.
PERFORM BDC_FIELD USING 'EINE-EKGRP'
GW_EXCEL-EKGRP.
ENDIF.
* PERFORM BDC_FIELD USING 'EINE-NORBM'
* RECORD-NORBM_011.
* PERFORM BDC_FIELD USING 'EINE-WEBRE'
* RECORD-WEBRE_012.
IF GW_EXCEL-MWSKZ IS NOT INITIAL.
PERFORM BDC_FIELD USING 'EINE-MWSKZ'
GW_EXCEL-MWSKZ.
ENDIF. * PERFORM BDC_FIELD USING 'EINE-IPRKZ'
* RECORD-IPRKZ_014.
PERFORM BDC_DYNPRO USING 'SAPMM06I' ''.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'EINE-ANGNR'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=KO'.
PERFORM BDC_DYNPRO USING 'SAPLV14A' ''.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'VAKE-DATAB(01)'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=NEWD'.
PERFORM BDC_DYNPRO USING 'SAPMV13A' ''.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'KONP-KBETR(01)'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=SICH'.
PERFORM BDC_FIELD USING 'RV13A-DATAB'
GW_EXCEL-LIFAB.
PERFORM BDC_FIELD USING 'RV13A-DATBI'
GW_EXCEL-LIFBI.
PERFORM BDC_FIELD USING 'KONP-KBETR(01)'
GW_EXCEL-NETPR.
IF GW_EXCEL-WAERS IS NOT INITIAL.
PERFORM BDC_FIELD USING 'KONP-KONWA(01)'
GW_EXCEL-WAERS.
ENDIF.
IF GW_EXCEL-KPEIN IS NOT INITIAL.
PERFORM BDC_FIELD USING 'KONP-KPEIN(01)'
GW_EXCEL-KPEIN.
ENDIF. * PERFORM BDC_TRANSACTION USING 'ME12'.
CALL TRANSACTION 'ME12' USING BDCDATA
MODE 'E'
UPDATE 'S'
MESSAGES INTO MESSTAB.
READ TABLE MESSTAB WITH KEY MSGTYP = 'E'.
IF SY-SUBRC <> .
GW_EXCEL-MESSAGE = '修改成功！'.
GW_EXCEL-ICON = '@08@'.
ELSE.
CONDENSE MESSTAB-MSGV1 NO-GAPS.
CONDENSE MESSTAB-MSGV2 NO-GAPS.
CONDENSE MESSTAB-MSGV3 NO-GAPS.
CONDENSE MESSTAB-MSGV4 NO-GAPS.
CONCATENATE '修改失败:' MESSTAB-MSGV1 MESSTAB-MSGV2 MESSTAB-MSGV3 MESSTAB-MSGV4 INTO GW_EXCEL-MESSAGE.
GW_EXCEL-ICON = '@0A@'.
ENDIF. MODIFY GT_SELECT FROM GW_EXCEL.
refresh:MESSTAB. ENDLOOP. LOOP AT GT_EXCEL INTO GW_EXCEL.
LV_LINE = SY-TABIX.
READ TABLE GT_SELECT INTO GW_SELECT WITH KEY INFNR = GW_EXCEL-INFNR.
IF SY-SUBRC = .
GW_EXCEL-MESSAGE = GW_SELECT-MESSAGE.
GW_EXCEL-ICON = GW_SELECT-ICON.
MODIFY GT_EXCEL FROM GW_EXCEL INDEX LV_LINE TRANSPORTING MESSAGE ICON.
ENDIF.
ENDLOOP. CALL METHOD LR_GRID->REFRESH_TABLE_DISPLAY.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form BDC_DYNPRO
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_0774 text
* -->P_0775 text
*----------------------------------------------------------------------*
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO = DYNPRO.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
ENDFORM. *----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
FORM BDC_FIELD USING FNAM FVAL.
CLEAR BDCDATA.
BDCDATA-FNAM = FNAM.
BDCDATA-FVAL = FVAL.
APPEND BDCDATA.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form PRM_SAVE_FILE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM PRM_SAVE_FILE .
DATA:GV_FILE1 TYPE STRING.
DATA:GV_FILE2 TYPE STRING.
DATA:GV_FILE3 TYPE STRING.
DATA:LS_KEY TYPE WWWDATATAB,
LV_DESTINAT LIKE RLGRAP-FILENAME,
LV_RC TYPE I. CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
EXPORTING
WINDOW_TITLE = '保存文件到'
CHANGING
FILENAME = GV_FILE1
PATH = GV_FILE2
FULLPATH = GV_FILE3
EXCEPTIONS
CNTL_ERROR =
ERROR_NO_GUI =
NOT_SUPPORTED_BY_GUI =
INVALID_DEFAULT_FILE_NAME =
OTHERS = .
IF SY-SUBRC <> .
ENDIF. IF GV_FILE3 IS NOT INITIAL.
LS_KEY-RELID = 'MI'.
LS_KEY-OBJID = 'ZMMF016'.
LV_DESTINAT = GV_FILE3.
"下载模板
CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
EXPORTING
KEY = LS_KEY
DESTINATION = LV_DESTINAT
IMPORTING
RC = LV_RC.
ENDIF.
ENDFORM.
模板：
必填的为黄色部分
截止日期默认：9991231
注：本程序只是在原有的采购信息记录上，新增一条新的有效期间为有效开始日期-有效截止日期的记录
采购信息记录修改[BDC]的更多相关文章
- SAP MM 采购信息记录中价格单位转换因子的修改
SAP MM 采购信息记录中价格单位转换因子的修改 如下采购信息记录, Order unit 跟 base UoM 一致,都是 PC. 采购价格是8849.56 CNY / 10000W, 由于业务人 ...
- 使用BAPI批量修改采购信息记录的税率
业务方面提出需求:由于国家税率从5月份开始16%更改为13%.要求开发一个批量修改采购信息记录税率的功能. 税代码就是税率,J2代表13% 这个需求在ME13里面就可以单个修改,所以可以用BDC,但后 ...
- 采购信息记录批导BAPI
转自:https://www.cnblogs.com/freeandeasy/p/11810272.html作者的话: 可以批导创建及修改信息记录的主数据.而且可以对条件中的时间段及其数量等级中的 ...
- 【MM系列】SAP里批量设置采购信息记录删除标记
公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[MM系列]SAP里批量设置采购信息记录删除标记 ...
- SAP MM 自定义条件类型出现在采购信息记录的'条件'界面里 ？
SAP MM 自定义条件类型出现在采购信息记录的'条件'界面里 ? 我在SAP系统里复制某个标准的采购条件类型,创建了一个新的自定义条件类型ZC05,并将其分配采购定价过程RM0000. 结果却出现一 ...
- ABAP-创建信息记录
CALL FUNCTION 'ME_INITIALIZE_INFORECORD'. CALL FUNCTION 'ME_DIRECT_INPUT_INFORECORD' *&--------- ...
- ME11创建信息记录 Function
转自 http://blog.csdn.net/zeewjj/article/details/7941530 CALL FUNCTION 'ME_DIRECT_INPUT_INFORECORD' D ...
- ERP渠道信息的修改和渠道联系记录（二十三）
用例图: 前端代码: <%@ Page Language="C#" AutoEventWireup="true" CodeBehind="Cha ...
- ASP.NET Core 实战：使用 NLog 将日志信息记录到 MongoDB
一.前言 在项目开发中,日志系统是系统的一个重要组成模块,通过在程序中记录运行日志.错误日志,可以让我们对于系统的运行情况做到很好的掌控.同时,收集日志不仅仅可以用于诊断排查错误,由于日志同样也是大量 ...
随机推荐
- mysql共享表空间转独立表空间
使用innodb_export_import.py脚本: https://github.com/thecpaneladmin/innodb-tools 安装MySQL-python模块: shell ...
- Java 接口练习题
中国特色社会主义的体制中有这样的现象:地方省政府要坚持党的领导和按 照国务院的指示进行安全生产.请编写一个java应用程序描述上述的体制现象. 要求如下: (1)该应用程序中有一个“党中央”接口:Ce ...
- 压测session优化
每请求一次jsp页面,会产生一个session对象,并且这个对象30分钟后才过期.我们计算了下当时的QPS是5000,也就是说每秒钟产生5000个session对象.每分钟产生300K个对象,sess ...
- Nginx与Lua利用fpm打成rpm包
1.下载相关软件 需要软件有:Nginx,LuaJIT,ngx_devel_kit,ngx_lua等安装文件 安装Lua或者LuaJIT都是可以的,但是出于效率的考虑,推荐安装LuaJITshell& ...
- MVC JS中非表单元素路由传值
<span id="a" onclick="aaa(111)" style="cursor:pointer;">跳</sp ...
- InfoPackage的更新模式
声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将 ...
- hrbust1841再就业（状态压缩dp）
本人刚学压缩dp,只能对这些水题写题解 一方面对自己的理解有加深作用 另一方面希望和各位大牛交流交流..... 如果有对状态dp不太了解的童鞋可以参考入门知识:http://wenku.baidu.c ...
- 插件开发-UI插件开发
1.新建类库解决方案,引入命名空间,同时引入要添加UI Form的WebPart(在Portal\UILib目录下) 2.继续UFSoft.UBF.UI.Custom.ExtendedPartBase ...
- 【转】Unix NetWork Programming——环境搭建（解决unp.h等源码编译问题）
下面开始用简单但典型的客户端和服务器端程序说明如何进行网络编程.这一小节讲的是客户端,一个用来连接并读取服务器发送来的时间的客户端. 这里涉及到了编写代码,因此要 搭建unix网络编程环境 unix系 ...
- understanding ECMAscript 6 ---- block bindings
Traditionally, the way variable declarations work has been one tricky part of programming in javascr ...