原创力文档- 1、本文档共16页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
function?ZGA_PU_COMP_PRICE_BOM.
*----------------------------------------------------------------------
**Local?Interface:
*??IMPORTING
*?????VALUE(I_AUFNR)?TYPE??AUFNR
*?????VALUE(I_EBAN)?TYPE??EBAN
*?????VALUE(I_COM2)?TYPE??ZGA_PU_COM2
*?????VALUE(I_WERKS)?TYPE??WERKS_D?OPTIONAL
*??EXPORTING
*?????VALUE(E_PRICE)?TYPE??ZPRICE
*??TABLES
*??????IT_MSG?STRUCTURE??ZGA_PU_COMP_MSG?OPTIONAL
*----------------------------------------------------------------------
clear:g_aufnr,gwa_com1,gwa_com2,gwa_comf,gwa_eban.
refresh:git_com2,git_bom_com2.
refresh:it_msg,git_msg.
g_lifnr?=?i_com2-lifnr.
g_aufnr?=?i_aufnr.
gwa_com2?=?i_com2.
gwa_eban?=?i_eban.
data:
????lit_msg_bom?type?table?of??zga_pu_comp_msg?with?header?line.
data:
????lit_bom_structure?type?table?of?zga_bom_structure?with?header?line.
call?function?ZGA_P_BOM_STRUCTURE
exporting
??i_aufnr???????????????????=?i_aufnr
changing
??c_it_bom_structure????????=?lit_bom_structure[]
exceptions
??no_production_order_found?=?1
??no_reservation_found??????=?2
??others????????????????????=?3.
if?sy-subrc??0.
*?MESSAGE?ID?SY-MSGID?TYPE?SY-MSGTY?NUMBER?SY-MSGNO
*?????????WITH?SY-MSGV1?SY-MSGV2?SY-MSGV3?SY-MSGV4.
exit.
endif.
data:
????begin?of?lit_matnr?occurs?0,
??????matnr?type?matnr,
????end?of?lit_matnr.
loop?at?lit_bom_structure.
lit_matnr-matnr?=?lit_bom_structure-matnr.
collect?lit_matnr.
endloop.
sort?lit_matnr?by?matnr.
data:
????begin?of?lit_fmnum?occurs?0,
??????matnr?type?matnr,
??????fmnum?type?zfmnum,
????end?of?lit_fmnum.
select?*?into?corresponding?fields?of?table?git_bom_com2?from?zga_pu_com2
for?all?entries?in?lit_matnr
where?active?=?X
??and?cal?=?C
??and?matnr?=?lit_matnr-matnr
??and?lifnr?=?i_com2-lifnr
??and?frdate?=?sy-datum
??and?todate?=?sy-datum
??and?werks?=?i_werks.
sort?git_bom_com2?by?matnr.
data:
????lit_bom?like?table?of?git_bom?with?header?line.
data:
????lit_com2_bom?like?table?of?zga_pu_com2?with?header?line,
????lit_com2_bom_i?like?table?of?zga_pu_com2?with?header?line.
data:
????lc_find,
????l
文档评论（0）