采购信息记录修改[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
一.前言 在项目开发中,日志系统是系统的一个重要组成模块,通过在程序中记录运行日志.错误日志,可以让我们对于系统的运行情况做到很好的掌控.同时,收集日志不仅仅可以用于诊断排查错误,由于日志同样也是大量 ...
随机推荐
- MVC系列1-MVC基础 (ASP.NET)
终于决定写一个系列的文章了,最开始其实是准备写一下WPF的,因为我这两年一直在做WPF,对WPF的喜爱自然是无以言表.但是由于我所在的地区对WPF的普及不是很广泛,所以,被迫又开始做起来web,但是我 ...
- ASP.NET MVC5----基本用法
由于之前在项目中也使用MVC进行开发,但是具体是那个版本就不是很清楚了,但是我觉得大体的思想是相同的,只是版本高的在版本低的基础上增加了一些更加方便操作的东西.下面是我学习ASP.NET MVC5高级 ...
- Django进阶2
一.ORM操作进阶 ForeignKey关联 示例models from django.db import models # Create your models here. class User(m ...
- PRINCE2项目管理七大流程之指导流程
PRINCE2项目管理七大流程之指导流程 今天学习七大流程之二--项目指导流程 项目指导流程的目的就是使项目管理委员会能够对项目的成功负责,具体来说,是由项目管理委员会作出关键决策,并进行总体控制 ...
- SQL Server2014,附加数据库失败,错误为:5120的解决方法
在SQL Server 2014附加数据库的时候,报错为: 无法打开物理文件XXX,操作系统错误5(拒绝访问),SQL Server 错误5120 解决方法: 我的电脑→管理→服务和应用程序→ 服务 ...
- jdk 设计模式
摘自:http://blog.csdn.net/bakeloar/article/details/6608806
- 介绍一个可以将Expression表达式树解析成Transact-SQL的项目Expression2Sql
一.Expression2Sql介绍 Expression2Sql是一个可以将Expression表达式树解析成Transact-SQL的项目.简单易用,几分钟即可上手使用,因为博主在设计Expres ...
- table表格，让thead固定，tbody有滚动条，关键是都对齐的纯css写法。
找了好久才找到一篇可以简单粗暴就能用的,所以拿过来算是收藏了.里面有一个css2里的命令是我没用过的也是这里面关键的:table-layout:fixed; 原理很简单,有爱研究的童鞋可以去css官网 ...
- 115个Java面试题和答案——终极列表（上）
本文我们将要讨论Java面试中的各种不同类型的面试题,它们可以让雇主测试应聘者的Java和通用的面向对象编程的能力.下面的章节分为上下两篇,第一篇将要讨论面向对象编程和它的特点,关于Java和它的功能 ...
- UVALive 3635 分派
https://icpcarchive.ecs.baylor.edu/index.php?option=com_onlinejudge&Itemid=8&page=show_probl ...