批量更改BOM的函数

在SAP中可以使用CSAP函数组中的函数更改BOM,下面是一个结合使用CSAP_MAT_BOM_OPEN, CSAP_BOM_ITEM_MAINTAIN 和 CSAP_MAT_BOM_CLOSE 进行BOM更改的例子,网上有可参考的帮助 http://help.sap.com/saphelp_40b/helpdata/fr/92/58b521417011d189ec0000e81ddfac/content.htm

 

另外,关于BOM数据批量传输,可以了解一下 SAP Note 545676 - FAQ BOM data transfer .

 

Update:2009-11-23

Bugfix: 增加CLEAR T_STPO.

********************************************************************************************
* (C) 2008 Shenzhen McQuay Air Conditional
********************************************************************************************
* Program : ZPPR017B
* Title : BOM 批量更改测试
* Description :
* Special logic : http://help.sap.com/saphelp_40b/helpdata/fr/92/58b521417011d189ec0000e81ddfac/content.htm
* Author : likai (gwxkai@gmail.om)
********************************************************************************************
* Amendment Log
* -----------------------
* Name(Cor# ) Date Request No. Description
********************************************************************************************

REPORT ZPPR017B.

"For selection-screen
DATA CSAP_MBOM TYPE CSAP_MBOM.
DATA STPO_API03 TYPE STPO_API03."

DATA T_STPO TYPE STANDARD TABLE OF STPO_API02 WITH HEADER LINE.
DATA T_MATNR TYPE STANDARD TABLE OF MATNR WITH HEADER LINE.

DATA MARC TYPE MARC.


*&---------------------------------------------------------------------*
*& 选择屏幕
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME TITLE B1_TITLE . "B1_TITLE = '请指定选择条件'.

"BOM 选择条件
SELECT-OPTIONS S_MATNR FOR CSAP_MBOM-MATNR.
PARAMETERS P_PLANT LIKE CSAP_MBOM-WERKS MEMORY ID WRK.
PARAMETERS P_USAGE LIKE CSAP_MBOM-STLAN DEFAULT '1'.
PARAMETERS P_ALT LIKE CSAP_MBOM-STLAL DEFAULT '1'.
PARAMETERS P_DATUV LIKE CSAP_MBOM-DATUV DEFAULT SY-DATUM.

SELECTION-SCREEN SKIP.
"添加物料
PARAMETERS P_ADD RADIOBUTTON GROUP RAD1 DEFAULT 'X'.

PARAMETERS P_CATEG LIKE STPO_API03-ITEM_CATEG DEFAULT 'L'.
PARAMETERS P_COMP LIKE STPO_API03-COMPONENT.
PARAMETERS P_QTY LIKE STPO_API03-COMP_QTY DEFAULT '1'.
PARAMETERS P_UNIT LIKE STPO_API03-COMP_UNIT DEFAULT 'EA'.

SELECTION-SCREEN SKIP.
"其它功能
PARAMETERS P_OTH RADIOBUTTON GROUP RAD1.

SELECTION-SCREEN END OF BLOCK BLOCK1.

SELECTION-SCREEN SKIP.

SELECTION-SCREEN BEGIN OF BLOCK BLOCK3 WITH FRAME TITLE B2_TITLE . "B2_TITLE = '说明'.
SELECTION-SCREEN COMMENT /2(79) COMM1.
SELECTION-SCREEN COMMENT /2(79) COMM2.
SELECTION-SCREEN END OF BLOCK BLOCK3.

INITIALIZATION. " 初始化选择屏上的变量

B1_TITLE = '请指定选择条件'.
B2_TITLE = '说明'.

COMM1 = '警告:请在有经验的用户指导下使用本报表。'.
COMM2 = '向BOM中添加物料时,如果该物料己存在,将不做任何处理,不会更改数量。'.

*&---------------------------------------------------------------------*
*& 主程序
*&---------------------------------------------------------------------*
START-OF-SELECTION.

PERFORM PLANT_AUTHORITY_CHECK USING P_PLANT.

IF P_ADD = 'X'.

PERFORM ADD_MAT_TO_BOM.

ENDIF.



*&---------------------------------------------------------------------*
*& Form ITAB_GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM ADD_MAT_TO_BOM.

SELECT MATNR INTO TABLE T_MATNR FROM MARC
WHERE MATNR IN S_MATNR
AND WERKS = P_PLANT.

LOOP AT T_MATNR INTO MARC-MATNR.

CLEAR: T_STPO,T_STPO[].

CALL FUNCTION 'CSAP_MAT_BOM_OPEN'
EXPORTING
MATERIAL = MARC-MATNR
PLANT = P_PLANT
BOM_USAGE = P_USAGE
ALTERNATIVE = P_ALT
VALID_FROM = P_DATUV
* CHANGE_NO =
* REVISION_LEVEL =
* FL_NO_CHANGE_DOC = ' '
* IMPORTING
* O_STKO =
* FL_WARNING =
TABLES
T_STPO = T_STPO[]
* T_DEP_DATA =
* T_DEP_DESCR =
* T_DEP_ORDER =
* T_DEP_SOURCE =
* T_DEP_DOC =
EXCEPTIONS
ERROR = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
WRITE: /'E:','打开',MARC-MATNR, '的BOM失败。'.
EXIT.
ENDIF.

READ TABLE T_STPO WITH KEY COMPONENT = P_COMP.
IF SY-SUBRC = 0.
WRITE: /'W:',MARC-MATNR, '的BOM含有该物料,未做更改。'.
EXIT.
ENDIF.

T_STPO-ITEM_CATEG = P_CATEG.
T_STPO-COMPONENT = P_COMP.
T_STPO-COMP_QTY = P_QTY.
T_STPO-COMP_UNIT = P_UNIT.

CALL FUNCTION 'CSAP_BOM_ITEM_MAINTAIN'
EXPORTING
I_STPO = T_STPO "Headline
* FL_DEP_ALE_CONFORM = ' '
* IMPORTING
* O_STPO =
* FL_WARNING =
* TABLES
* T_DEP_DATA =
* T_DEP_DESCR =
* T_DEP_ORDER =
* T_DEP_SOURCE =
* T_DEP_DOC =
EXCEPTIONS
ERROR = 1
OTHERS = 2
.
IF SY-SUBRC = 0.
WRITE: /'I:',MARC-MATNR, '的BOM己更改,未关闭,未更新。'.
ELSE.
WRITE: /'E:',MARC-MATNR, '的BOM更改失败。'.
ENDIF.

CALL FUNCTION 'CSAP_MAT_BOM_CLOSE'
* EXPORTING
* FL_COMMIT_AND_WAIT = 'X'
* IMPORTING
* FL_WARNING =
EXCEPTIONS
ERROR = 1
OTHERS = 2
.
IF SY-SUBRC = 0.
WRITE: /'S:',MARC-MATNR, '的BOM更改己更新。'.
ENDIF.

ENDLOOP.

ENDFORM. ""ITAB_GET_DATA

*&---------------------------------------------------------------------*
*& Form PLANT_AUTHORITY_CHECK
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_PLANT text
*----------------------------------------------------------------------*
FORM PLANT_AUTHORITY_CHECK
USING P_WERKS.

AUTHORITY-CHECK OBJECT 'C_STUE_WRK'
ID 'ACTVT' FIELD '03'
ID 'CSWRK' FIELD P_WERKS.

IF SY-SUBRC <> 0.
MESSAGE E001(00) WITH '你没有工厂 ' P_WERKS ' 的权限.'.
ENDIF.

ENDFORM. "PLANT_AUTHORITY_CHECK

【基于QT的调色板】是一个使用Qt框架开发的色彩选择工具,类似于Windows操作系统中常见的颜色选取器。Qt是一个跨平台的应用程序开发框架,广泛应用于桌面、移动和嵌入式设备,支持C++和QML语言。这个调色板功能提供了横竖两种渐变模式,用户可以方便地选取所需的颜色值。 在Qt中,调色板(QPalette)是一个关键的类,用于管理应用程序的视觉样式。QPalette包含了一系列的颜色角色,如背景色、前景色、文本色、高亮色等,这些颜色可以根据用户的系统设置或应用程序的需求进行定制。通过自定义QPalette,开发者可以创建具有独特视觉风格的应用程序。 该调色板功能可能使用了QColorDialog,这是一个标准的Qt对话框,允许用户选择颜色。QColorDialog提供了一种简单的方式来获取用户的颜色选择,通常包括一个调色板界面,用户可以通过滑动或点击来选择RGB、HSV或其他色彩模型中的颜色。 横渐变取色可能通过QGradient实现,QGradient允许开发者创建线性或径向的色彩渐变。线性渐变(QLinearGradient)沿直线从一个点到另一个点过渡颜色,而径向渐变(QRadialGradient)则以圆心为中心向外扩散颜色。在调色板中,用户可能可以通过滑动条或鼠标拖动来变渐变的位置,从而选取不同位置的颜色。 竖渐变取色则可能是通过调整QGradient的方向来实现的,将原本水平的渐变方向为垂直。这种设计可以提供另一种方式来探索颜色空间,使得选取颜色更为直观和便捷。 在【colorpanelhsb】这个文件名中,我们可以推测这是与HSB(色相、饱和度、亮度)色彩模型相关的代码或资源。HSB模型是另一种常见且直观的颜色表示方式,与RGB或CMYK模型不同,它以人的感知为基础,更容易理解。在这个调色板中,用户可能可以通过调整H、S、B三个参数来选取所需的颜色。 基于QT的调色板是一个利用Qt框架和其提供的色彩管理工具,如QPalette、QColorDialog、QGradient等,构建的交互式颜色选择组件。它不仅提供了横竖渐变的色彩选取方式,还可能支持HSB色彩模型,使得用户在开发图形用户界面时能更加灵活和精准地控制色彩。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值