上傳人：我***

認(rèn)證信息

認(rèn)證類型：個(gè)人認(rèn)證

認(rèn)證主體：孔**（實(shí)名認(rèn)證）

IP屬地：北京

IP屬地：北京 上傳時(shí)間：2023-03-23 格式：DOCX 頁數(shù)：86 大?。?45.11KB 積分：12 舉報(bào) 版權(quán)申訴

總體信開發(fā)名稱 TS_MM36_V2.0`反沖庫的差異分 FS_MM36_V1.0反沖庫差異分?jǐn)偝绦?doc作者: 最后修改日期 開發(fā)對(duì)象類型 報(bào) 接 √增 文檔修改歷未解決的Issue一、增強(qiáng)簡(jiǎn)單說1ZNA目前的生產(chǎn)由CATS系統(tǒng)管理，在CATS系統(tǒng)中每一車型的具體成本，而未來ZNA的成本將由SAP系統(tǒng)來管理，這樣就存在SAP系統(tǒng)與CATS系統(tǒng)的集成處理。由于未來SAP系統(tǒng)中的BOM是一個(gè)月更新一次，而CATS系統(tǒng)中的BOM是動(dòng)態(tài)的，這樣就在反沖處理上出現(xiàn)了數(shù)量差異，即在SAP系統(tǒng)中必然產(chǎn)生數(shù)量上的差異，這主要體現(xiàn)在整車車間。沖壓車間和樹脂車間未納入SAP管本程序功能將處理在這些環(huán)節(jié)所產(chǎn)生的差異是如何進(jìn)行分?jǐn)偟?3456無71次/月（月末8二、輸入頁類工pt001w-YPY會(huì)計(jì)年pYsy-會(huì)計(jì)期PYsy-測(cè)X三、輸出頁略四、程序中使用的結(jié)構(gòu)用于ALV的輸Y3SAPY4Y4Y4Y2Y3調(diào)用BAPIY3SAPY4Y4Y4Y2Y3P（6位小數(shù)調(diào)用BAPI1程序中使用功能模塊（FunctionModule）獲取數(shù)據(jù)說1、 計(jì)算每月的最后一2、BAPI_GOODSMVT_CREATE進(jìn)行發(fā)貨CALLFUNCTION'BAPI_GOODSMVT_CREATE'goodsmvt_header=gw_header =c_codematerial=g_m =gt_item =gt_return.五、程序流程圖<總體流程 通過frm_get_rev_stock_end取出期末庫存。注：因?yàn)槲锪蠋な窃试S在兩個(gè)期0的物料，如果期間大于屏幕輸入的期間，則取歷史庫存表MARDH0的物料作為期末庫存，放入內(nèi)表【gt_rev_stock_end】；并從表MSEG261262的當(dāng)期所 通過frm_get_pcc_order取出所有含有PP訂單的PCC【gt_pcc_order】，沒有PP訂單的PCC訂單放入內(nèi)表【gt_pcc_order_alv】并用ALV的形式輸出到屏幕上由用戶手工確認(rèn)是否程序繼續(xù)執(zhí)行，如果繼續(xù)執(zhí)行，則數(shù)量不分?jǐn)偟狡聊簧巷@示的沒有PP訂單的PCC訂單STEP0030通過frm_get_fentan計(jì)算分?jǐn)偮?、出庫調(diào)整數(shù)量、剩余調(diào)整數(shù)量，未分?jǐn)偟挠涗洸⒄{(diào)用BAPI執(zhí)行分?jǐn)?。張PCC訂單上的消耗數(shù)量和金額放入內(nèi)表【gt_pcc_order_amt】匯總同一物料的消耗數(shù)量并更新內(nèi)表【gt_rev_stock_end計(jì)算分?jǐn)偮剩狡谀齑?本期消耗并更新內(nèi)表【gt_rev_stock_end匯總未分?jǐn)偽锪系挠涗浄诺紸LV的輸出表000通過frm_cal_out_qtyFORMfrm_get_rev_stock_end_qty frm_call_bapi_rev_stockBAPI執(zhí)行出庫調(diào)整數(shù)量，通過frm_modify_bapi_dataBAPI0記錄選出執(zhí)行剩余數(shù)量的，通過frm_call_bapi_qty_sy執(zhí)行剩余 通過frm_def_alv_rev_stock用ALV輸出物料明細(xì)表， 通過frm_get_fentan_none_alv用ALV輸出未分?jǐn)偽锪厦骷?xì)表 通過frm_get_wft_oder計(jì)算未分?jǐn)偽锪系姆謹(jǐn)偮首ⅲ涸摲謹(jǐn)偮实扔? frm_call_bapi_stock_weiBAPI執(zhí)行未分?jǐn)偽锪系某鰩煺{(diào)整frm_call_bapi_qty_sy_wei執(zhí)行未分?jǐn)偽锪系氖Ｓ嗾{(diào) 開始 表格1、gt_rev_stock_end反沖庫的期末庫存表表格2、gt_mseg同一個(gè)物料的所有憑證匯總金額

表格3、gt_pcc_orderPCC訂單和PP＝ 否判斷反沖庫存 放到表格1gt_rev_stock_end

否否

PERFORM是否PERFORMPERFORM出庫數(shù)量出庫數(shù)量/開始開始【MARA】中取出基本計(jì)量單 消息：沒有找到合理數(shù)【MKPF】中取出輸入的會(huì)計(jì)期間的所有憑證 【MSEG】中取出這些憑證號(hào)對(duì)應(yīng)的移動(dòng)類型取出憑證匯總金額放入內(nèi)【gtmseg取出憑證匯總金額放入內(nèi)【gtmseg只保留PCC訂單的數(shù)移動(dòng)類型為262，金額要乘存表【gtrevstockend】個(gè)物料的消耗金額并添加到存表【gtrevstockend】個(gè)物料的消耗金額并添加到循環(huán)表【gt_mseg】匯總同取出所有PCC訂單放入【gt_pcc_order循環(huán)表【gt_mseg】移動(dòng)類型【gt_mseg_1和金額給表【gt_pcc_order_amt匯總PCC訂單中的物料消耗數(shù)和金額給表【gt_pcc_order_amt匯總PCC訂單中的物料消耗數(shù) 否

分?jǐn)偟膶?duì)應(yīng)的PP品可以有多個(gè)PCC訂果更新表【gt_pcc_order_amt匯總庫存作為未作為未分?jǐn)倲?shù)據(jù)存在【gt_fentan_none】計(jì)算表【gt_rev_stock_end的剩余調(diào)整數(shù)調(diào)用BAPI執(zhí)調(diào)用BAPI執(zhí)行分是是是添加一 PI行項(xiàng)六、程序規(guī)物料同一物料同一訂未分?jǐn)偽锪螧API定義BAPI2;程序結(jié)構(gòu)從反沖庫中MARD中取出單位放入內(nèi)表gt_rev_stock_end中,MKPF和MSEG中取出同一個(gè)物料在gt_mseg中，循環(huán)內(nèi)表嵌套循環(huán)內(nèi)表gt_mseggt_rev_stock_ed，從視圖CAUFVPCgtpcc_ordergt_msg判斷移動(dòng)類型，如果是262，1，然后將數(shù)據(jù)賦值給內(nèi)表gt_mseg_1循環(huán)內(nèi)表gt_pcc_order嵌套循環(huán)內(nèi)表gt_mseg_1匯總相同PCC和消耗數(shù)量并賦值給內(nèi)表gt_pcc_orer_amt整數(shù)量出入庫時(shí)產(chǎn)生的；出庫調(diào)整數(shù)量的BAPI是否執(zhí)行成功是通過重新反沖庫中庫存數(shù)量調(diào)用BAPI處理未分?jǐn)偽锪鲜Ｓ嗾{(diào)整數(shù)量的出入庫。生成的物料憑證號(hào)和BAPI返回的錯(cuò)誤信息是執(zhí)行剩余調(diào)整數(shù)量出入庫時(shí)產(chǎn)生的；出庫調(diào)整數(shù)量是通過重新反沖庫中庫存數(shù)量來更新屏幕上的ALV的期末庫存來判斷BAPI是否執(zhí)行成功，如果成功了，那么該物料的期末庫0七、虛擬代碼（VirtualPROGRAMID/NAME: DATEWRITTEN:2010-9-AUTHOR'S LASTPROGRAM PROJECT 鄭州日產(chǎn)VERSION: INCLUDE: CALLS:(RFCAND TABLE: CHANGE REPORTzpvmme036MESSAGE-IDzpvmm01messageclass(381-NOSTANDARDPAGEHEADING"輸出報(bào)表不使用標(biāo)準(zhǔn)的頁標(biāo)題LINE-SIZE193 LINE-COUNT40. CLASSlcl_event_receiver1DEFINITIONDEFERRED. CLASSlcl_event_receiver1 CLASSlcl_event_receiver1PUBLICFOREVENTdouble_clickOFcl_gui_alv_gridIMPORTINGe_rowe_column.PRIVATE "lcl_event_receiver1DEFINITIONCLASSlcl_event_receiver3DEFINITIONDEFERRED. CLASSlcl_event_receiver3 CLASSlcl_event_receiver3PUBLICFOREVENTdouble_clickOFcl_gui_alv_gridIMPORTINGe_rowe_column.PRIVATEINCLUDE:TYPE-POOLS:*CALLS:(RFC***-- "Goodsmovementfrom INTERNALTABLES 1、tableforDATA:BEGINOFgt_rev_stock_endOCCURS0,matnrLIKEmard- werksLIKEmard- lgortLIKEmard- meinsLIKEmara- lfgjaLIKEmard- lfmonLIKEmard- mtartLIKEmara- LIKEmard- labst_1LIKEmard- dmbtrLIKEmseg- mengeLIKEmseg- perctTYPEpDECIMALS meegeTYPEpDECIMALS mssgeTYPEpDECIMALS ENDOFDATA:gt_stock_mardLIKETABLEOFgt_rev_stock_endWITHHEADERLINE.DATA:gt_stock_mardhLIKETABLEOFgt_rev_stock_endWITHHEADERDATA:gt_rev_stock_end_traLIKETABLEOFgt_rev_stock_endWITHHEADERDATA:gt_rev_stock_end_pcc_detailLIKETABLEOFgt_rev_stock_endWITHHEADERDATA:gt_stockTYPETABLEOFzpv_s_mm36_1,wa_stockTYPEzpv_s_mm36_1.2、tableforBOChangedby*DATA: LIKETABLEOFmkpfWITHHEADER LIKETABLEOFmsegWITHHEADERLINE.DATA:BEGINOFgt_mkpfOCCURS0,mblnrLIKEmkpf-mblnr,mjahrLIKEmkpf-mjahr,ENDOFgt_mkpf.DATA:BEGINOFgt_msegOCCURSmblnrLIKEmseg-mblnr,mjahrLIKEmseg-mjahr,zeileLIKEmseg-zeile,bwartLIKEmseg-bwart,matnrLIKEmseg-matnr,werksLIKEmseg-werks,lgortLIKEmseg-lgort,dmbtrLIKEmseg-dmbtr,mengeLIKEmseg-menge,meinsLIKEmseg-meins,aufnr(12)TYPEc,ENDOFEOChangedbyDATA:gt_mbew LIKETABLEOFmbewWITHHEADERLINE.DATA:BEGINOFgt_mseg_1OCCURS0,werksLIKEmseg-werks,lgortLIKEmseg-lgort,matnrLIKEmseg-matnr,dmbtrLIKEmseg-dmbtr,mengeLIKEmseg-menge,meinsLIKEmseg-meins,aufnr(12)TYPEc,ENDOF3、tableforPCC訂單物料消耗明細(xì)表DATA:BEGINOFgt_pcc_order_amtOCCURS0,werksLIKEmseg-werks,lgortLIKEmseg-lfgjaLIKEmard- lfmonLIKEmard-pufnr(12)TYPE PPaufnr(12)TYPEc, PCC訂單matnrLIKEmseg-matnr,mengeLIKEmseg- meinsLIKEmseg-meins,dmbtrLIKEmseg-perctTYPEpDECIMALS meegeTYPEpDECIMALS ENDOF4、tableforPCC訂單對(duì)應(yīng)PP訂單DATA:BEGINOFgt_pcc_orderOCCURS0, LIKEcaufv-pkosa, "PCC訂單aufnr(12)TYPEc, "PP訂單 LIKEcaufv-werks,ENDOFgt_pcc_order.DATA:BEGINOFgt_pcc_order_traOCCURS0, LIKEaufk-werks,aufnr(12)TYPEc,plnbezLIKEafko-plnbez, LIKEmara-mtart, LIKEmbew-bklas,ENDOFgt_pcc_order_tra.DATA:gt_pcc_order_1LIKETABLEOFgt_pcc_orderWITHHEADERLINE,gt_pcc_order_alvLIKETABLEOFgt_pcc_order_traWITHHEADERLINE.5、tableforDATA:BEGINOFgt_fentan_noneOCCURSmatnrLIKEmard- werksLIKEmard- lgortLIKEmard- meinsLIKEmara- lfgjaLIKEmard- lfmonLIKEmard- LIKEmard- labst_1LIKEmard- dmbtrLIKEmseg- mengeLIKEmseg- perctTYPEpDECIMALS aufnr(12)TYPE meegeTYPEpDECIMALS mssgeTYPEpDECIMALS zcboxTYPE "ENDOF*6、tableforPCCDATA:BEGINOFgt_pcc_ft_weiOCCURS0,werksLIKEmseg-werks,lgortLIKEmseg-lgort,lfgjaLIKEmard-lfgja,lfmonLIKEmard-lfmon,aufnr(12)TYPEc,pufnr(12)TYPEc,dmbtrLIKEmseg-dmbtr,perctTYPEpDECIMALS6,ENDOFgt_pcc_ft_wei.7、tableforBAPIDATA:BEGINOFgt_ft_wei_bapiOCCURSwerksLIKEmard- lgortLIKEmard- lfgjaLIKEmard- lfmonLIKEmard- pufnr(12)TYPE PPaufnr(12)TYPEc, PCC訂單matnrLIKEmseg-matnr, LIKEmard- labst_1LIKEmard- meinsLIKEmseg-meins,dmbtrLIKEmseg-perctTYPEpDECIMALS meegeTYPEpDECIMALS mssgeTYPEpDECIMALS ENDOF*DATA:gt_ft_wei_bapi_traLIKETABLEOFgt_ft_wei_bapiWITHHEADERLINE.DATA:gt_fentan_weiTYPETABLEOFzpv_s_mm36_2,wa_fentan_weiTYPEzpv_s_mm36_2,gt_fentan_wei_syTYPETABLEOFzpv_s_mm36_2,wa_fentan_wei_syTYPEzpv_s_mm36_2,gt_fentan_wei_sy_traTYPETABLEOFzpv_s_mm36_2WITHHEADERLINE,gt_fentan_wei_sy_alvTYPETABLEOFzpv_s_mm36_2WITHHEADERDATA:gt_fentan_wei_bakTYPETABLEOFzpv_s_mm36_2WITHHEADERtableforDATA:gt_t001wLIKETABLEOFt001wWITHHEADERLINE,gt_mardLIKETABLEOFmardWITHHEADERtableforpcccostDATA:BEGINOFgt_pcc_cost_detailOCCURS0,aufnr(12)TYPEc,pufnr(12)TYPEc,dmbtrLIKEmseg-dmbtr,perctTYPEpDECIMALS6,ENDOFgt_pcc_cost_detail.DATA:BEGINOFgt_pcc_detailOCCURS0,werksLIKEmseg-werks,lgortLIKEmseg-aufnr(12)TYPE PCCpufnr(12)TYPE PPmatnrLIKEmseg- dmbtrLIKEmseg- mengeLIKEmseg- perctTYPEpDECIMALS meinsLIKEmseg-meins,ENDOFgt_pcc_detail.DATA:BEGINOFgt_pp_detailOCCURS0,werksLIKEmseg-werks,lgortLIKEmseg-aufnr(12)TYPE PCCmatnrLIKEmseg- pufnr(12)TYPE PPmeegeLIKEmseg- mssgeLIKEmseg-menge, shengyu數(shù)量meinsLIKEmseg-meins,ENDOFDATA:gt_pp_detail_iniLIKETABLEOFgt_pp_detailWITHHEADERLINE.DATA:gt_pp_detail_pcc_syLIKETABLEOFgt_pp_detailWITHHEADERLINE.DATA:gt_pp_detail_oth_syLIKETABLEOFgt_pp_detailWITHHEADERForselectall/cancelallcheckedDATA:g_sel_all_(1)TYPEc,g_button_text(10)TYPEg_button_ TYPEc,"''表示已經(jīng)按下BUTTON1，需要顯示憑g_titleTYPE CALLS:(RFCAND BAPItocreatetheACCDATA:gw_headerLIKEbapi2017_gm_head_01 LIKETABLEOFbapi2017_gm_item_createWITHHEADERgt_returnLIKETABLEOFbapiret2WITHHEADERLINE,g_mLIKEbapi2017_gm_head_ret-mat_doc.DATA:c_codeLIKEbapi2017_gm_codeVALUE'03'. "BAPI-GOODSMVT_CODEDATA:g_title_text(40)TYPEc.*功能說明:GRIDALV定 DATA:gt_grid_fieldcatTYPEslis_t_fieldcat_alvWITHHEADERLINE, TYPEslis_t_eventWITHHEADERLINE,gt_grid_top_of_pageTYPEslis_t_listheader, TYPEslis_t_sortinfo_alvWITHHEADERLINE, TYPEslis_layout_alv.*功能說明:MethodALV定 DATA:ok_codeLIKE g_cont_1TYPEscrfnameVALUE'BCALV_CONT1',grid1TYPEREFTOcl_gui_alv_grid,g_cust_cont_1TYPEREFTODATA:g_cont_2TYPEscrfnameVALUE'BCALV_CONT2',grid2TYPEREFTOcl_gui_alv_grid,g_cust_cont_2TYPEREFTODATA:g_cont_3TYPEscrfnameVALUE'BCALV_CONT3',grid3TYPEREFTOcl_gui_alv_grid,g_cust_cont_3TYPEREFTO 2_1TYPETABLEOFzpv_s_mm36_2WITHHEADERLINE,2_1_traLIKETABLEOF 2_1WITHHEADERLINE.DATA:gt_toolbar_exclud_2TYPEui_functions,gs_toolbar_exclud_2TYPEui_func.DATA:gt_ft_weiTYPETABLEOFzpv_s_mm36_2WITHHEADERLINE,gt_ft_cbxTYPETABLEOFzpv_s_mm36_2WITHHEADERLINE,gt_ft_wei_1TYPETABLEOFzpv_s_mm36_2WITHHEADERLINE,gt_ft_wei_syTYPETABLEOFzpv_s_mm36_2WITHHEADERLINE,gt_ft_wei_sy_traTYPETABLEOFzpv_s_mm36_2WITHHEADERLINE.DATAgt_fieldcat_1TYPElvc_t_fcatDATAwa_fieldcat_1LIKELINEOFgt_fieldcat_1.DATAgt_fieldcat_2TYPElvc_t_fcat.DATAwa_fieldcat_2LIKELINEOFgt_fieldcat_2.DATAgt_fieldcat_3TYPElvc_t_fcat.DATAwa_fieldcat_3LIKELINEOFDATA:gt_events TYPEslis_t_eventWITHHEADERLINE, TYPEslis_layout_alv.DATA:allfieldsTYPEDATA:gt_allfieldsTYPEDATA:wa_allfieldsTYPELINEOFslis_t_fieldcat_alv.DATA:myrepidLIKEsy-repid.DATA:gw_layout_1TYPElvc_s_layo,gw_layout_2TYPElvc_s_layo,gw_layout_3TYPEDATA:gt_t006LIKETABLEOFt006WITHHEADERBODATA:gt_t006_custLIKETABLEOFzpv_t_t006WITHHEADEREODATAgt_usnameLIKEzpv_t_usnamOCCURS0WITHHEADERLINE.DEFINEl_fieldcat.wa_fieldcat_1-fieldname=&1.wa_fieldcat_1-coltext=&2.wa_fieldcat_1-checkbox=&3.wa_fieldcat_1-edit=wa_fieldcat_1-no_zero=wa_fieldcat_1-just= =&7. =&8. =&9.appendwa_fieldcat_1togt_fieldcat_1.clearwa_fieldcat_1.END-OF-DEFINEwa_fieldcat_2-fieldname=&1.wa_fieldcat_2-coltext=&2.wa_fieldcat_2-checkbox=&3.wa_fieldcat_2-edit=wa_fieldcat_2-no_zero=wa_fieldcat_2-just= =&7. =&8.appendwa_fieldcat_2togt_fieldcat_2.clearwa_fieldcat_2.END-OF-DEFINEwa_fieldcat_3-fieldname=&1.wa_fieldcat_3-coltext=&2.wa_fieldcat_3-checkbox=&3.wa_fieldcat_3-edit=wa_fieldcat_3-no_zero=wa_fieldcat_3-just=wa_fieldcat_3-no_out= =&8. =&9.appendwa_fieldcat_3togt_fieldcat_3.clearwa_fieldcat_3.END-OF-DEFINEmacro_disable_function.gs_toolbar_exclud_2=&1.readtablegt_toolbar_exclud_2transportingnofieldswithtablekeytable_line=gs_toolbar_exclud_2.if(sy-subrcne0appendgs_toolbar_exclud_2togt_toolbar_exclud_2.END-OF-LOCALCLASSES:CLASSlcl_event_receiver1IMPLEMENTATION.METHODhandle_double_click1.DATA:ls_stockTYPEREADTABLEgt_stockINTOls_stockINDEXe_row-IFe_column-fieldname=SUBMITrmmmbestWITHms_matnr-low=ls_stock-WITHms_werks-low=ls_stock-WITHms_lgort-low=ls_stock-ANDIFe_column-fieldname='MELNR'ANDls_stock-melnrNESETPARAMETERID'MBN'FIELDls_stock-melnr.CALLTRANSACTION'MB03'ANDSKIPFIRSTSCREEN.IFe_column-fieldname='MBLNR'ANDls_stock-mblnrNESETPARAMETERID'MBN'FIELDls_stock-mblnr.CALLTRANSACTION'MB03'ANDSKIPFIRSTSCREEN. "lcl_event_receiver1 CLASSlcl_event_receiver3 CLASSlcl_event_receiver3METHODDATA:ls_gt_fentan_wei_syTYPEREADTABLEgt_fentan_wei_syINTOls_gt_fentan_wei_syINDEXe_row-IFe_column-fieldname=SUBMITrmmmbestWITHms_matnr-low=ls_gt_fentan_wei_sy-WITHms_werks-low=ls_gt_fentan_wei_sy-WITHms_lgort-low=ls_gt_fentan_wei_sy-ANDIFe_column-fieldname='MELNR'ANDls_gt_fentan_wei_sy-melnrNESETPARAMETERID'MBN'FIELDls_gt_fentan_wei_sy-melnr.CALLTRANSACTION'MB03'ANDSKIPFIRSTSCREEN.IFe_column-fieldname='MBLNR'ANDls_gt_fentan_wei_sy-mblnrNESETPARAMETERID'MBN'FIELDls_gt_fentan_wei_sy-mblnr.CALLTRANSACTION'MB03'ANDSKIPFIRSTSCREEN. "lcl_event_receiverIMPLEMENTATIONDATA:event_receiver1TYPEREFTOlcl_event_receiver1.DATA:event_receiver3TYPEREFTOGLOBALVARIANT DATA:g_date_firstLIKEsy-datum,g_date_lastLIKEsy-DATA:g_dmbtrLIKEmseg-dmbtr, LIKEsy-tabix.DATA:g_mmTYPEcVALUE'1',c_bapi(3)TYPEcVALUE'499',g_numLIKEsy-tabix,g_ty(13)TYPEn,g_flagTYPEc,g_cprog(4)TYPEcVALUE*DATA:G_year_last_mon(4)TYPE TYPERANGESgr_lgortFORmard-lgort.DEFINEmar_g_lgort. =&1.gr_lgort-option=&2. =&3. =&4.appendgr_lgort.cleargr_lgort.END-OF-SELECTION- SELECTION-SCREENBEGINOFBLOCKb01WITHFRAMETITLEtext-001.SELECTION-SCREENSKIP.*PARAMETERS:p_werksLIKEt001w-werksDEFAULT'8929'."p_lgortLIKEmard-lgortDEFAULT'1020'.SELECT-OPTIONS:s_werksFORt001w-werksDEFAULT'8929'NOINTERVALSOBLIGATORY.SELECT-OPTIONS:s_lgortFORmard- DEFAULT'1020'NOINTERVALSPARAMETERS:p_lfgjaLIKEmard-lfgjaOBLIGATORY,p_lfmonLIKEmard-lfmonSELECT-OPTIONS:s_bklasFORmbew-bklasNOINTERVALS.PARAMETERS:p_t_ftl(3)TYPEnDEFAULT'100'.SELECTION-SCREENSELECT-OPTIONS:s_matnrFORmara-matnr.SELECTION-SCREENSKIP.SELECTION-SCREENBEGINOFBLOCKb02WITHFRAMETITLEtext-002.SELECTION-SCREENSKIP.PARAMETERS:p_dmbtrLIKEmseg-dmbtr.PARAMETERS:p_labstLIKEmard-labst.SELECTION-SCREENENDOFBLOCKb02.SELECTION-SCREENPARAMETERS:p_cb_tASCHECKBOXDEFAULT'X'.SELECTION-SCREENENDOFBLOCKb01.PERFORMfrm_init_inttab.IFsy-datum+4(2)=p_lfmon=p_lfgja=sy-datum(4)-p_lfmon=sy-datum+4(2)-1.p_lfgja=sy-datum(4).PERFORMATSELECTION-SCREEN.PERFORMscreen_check.PERFORMauthority_check.Maing_button_=PERFORM PERFORM PERFORM PCC返回值為1，CHECKg_flagEQ**<BAPIPERFORMfrm_get_fentan.**<PERFORMfrm_get_fentan_none_alv. "未分?jǐn)偽锪厦骷?xì)表PERFORMfrm_get_fentan_wei_alv. "未分?jǐn)偽锪鲜Ｓ嗾{(diào)整表PERFORM "未分?jǐn)偽锪戏謹(jǐn)偮视?jì)算IFsy-batchIS CALLSCREENPERFORM "執(zhí)行，直接顯示結(jié)END-OF-PERFORM Form --> <-- FORMscreen_checkDATA:l_year(4) TYPEn,l_year_last_mon(4)TYPEn, TYPEl_mon_pre(2)TYPEn,l_bukrsLIKEt001k-bukrs.IFs_werksISINITIALMESSAGEe311(zpvmm01)WITHELSE.ENDIFIFs_lgortISINITIALMESSAGEe311(zpvmm01)DISYLIKE'E'WITH'請(qǐng)輸入庫存地!'ELSE.ENDIFIFsy-datum+4(2)='01'.l_mon_pre='12'.l_year_last_mon=sy-datum(4)-l_mon_pre=sy-datum+4(2)-1.l_year_last_mon=sy-datum(4)SELECTSINGLEbukrsINTOl_bukrsFROMt001kWHEREbwkeyINs_werks.IFsy-subrcEQ0.SELECTSINGLElfgjalfmonINTO(l_year,l_mon)FROMWHEREbukrsEQIFsy-subrcEQIFl_yearEQp_lfgjaANDl_monEQELSEIFp_lfgjaEQl_year_last_monANDp_lfmonEQMESSAGEMESSAGEe285WITHIFp_t_ftlGT100ORp_t_ftlLEMESSAGEe000WITHtext- " Form --> <-- FORMfrm_get_rev_stock_end**<MARD**再從MARDH中取出數(shù)量為0**<MARADATA:l_tabixLIKEsy-tabix.DATA:l_labstLIKEmard-labst.DATA:l_lfgjaLIKEmard-lfgja.DATA:l_labst_revLIKEmard-l_dmbtr_revLIKEmseg-DATA:lt_mardhLIKETABLEOFmardhWITHHEADERDATA:BEGINOFlt_exp_matOCCURS0,matnrLIKEmara-matnr,ENDOFDATA:l_mengeLIKEmard-labst.DATA:l_lgortLIKEmard-RANGESlr_lgortFORmard-DEFINEmar_lgort. =&1.lr_lgort-option=&2. =&3. =&4.appendlr_lgort.clearlr_lgort.END-OF-mar_lgort'I''EQ''1020'*取消以下反沖地點(diǎn)***mar_lgort'I''EQ''5210'***mar_lgort'I''EQ''5310'***mar_lgort'I''EQ''1092'***mar_lgort'I''EQ''5220'***mar_lgort'I''EQ''5320'LOOPATSELECTSINGLElgortINTOl_lgortFROMt001lWHEREwerksINANDlgortEQs_lgort-lowANDlgortINlr_lgort.IFsy-subrcISINITIAL.mar_g_lgort'I''EQ'l_lgort''.IFgr_lgort[]ISMESSAGEe000(zpvmm01)DISYLIKE'E'WITHtext-801.SORT**<IFs_matnrISINITIAL.SELECTa~werksa~lgorta~matnra~lfgjaa~lfmona~labstb~meinsb~mtartINTOCORRESPONDINGFIELDSOFTABLEgt_rev_stock_endFROMmardASaINNERJOINmaraASbONa~matnrEQb~matnrWHEREa~werksINs_werksANDa~lgortINgr_lgortANDa~lfgjaLESELECTa~werksa~lgorta~matnra~lfgjaa~lfmona~labstb~meinsb~mtartINTOCORRESPONDINGFIELDSOFTABLEgt_rev_stock_endFROMmardASaINNERJOINmaraASbONa~matnrEQb~matnrWHEREa~werksINs_werksANDa~lgortINgr_lgortANDa~lfgjaLEp_lfgjaANDa~matnrNOTINCHECKgt_rev_stock_end[]ISNOTINITIAL.IFgt_rev_stock_end[]ISNOTINITIAL.SORTgt_rev_stock_endBYmatnr.LOOPATgt_rev_stock_end.MOVE:p_lfmonTOgt_rev_stock_end-MODIFYl_tabix=sy-IF(gt_rev_stock_end-lfgjaEQp_lfgjaANDgt_rev_stock_end-lfmonLEp_lfmon)ORgt_rev_stock_end-lfgjaLTp_lfgja.IFgt_rev_stock_end-labst<>0.MODIFYCLEARELSEIFgt_rev_stock_end-lfgjaEQp_lfgjaANDgt_rev_stock_end-lfmonGTSELECTMAX(lfgja)INTOl_lfgjaFROMWHEREmatnrEQgt_rev_stock_end-matnrANDwerksEQgt_rev_stock_end-werksANDlgortEQgt_rev_stock_end-IFsy-subrcISSELECT*INTOTABLElt_mardhFROMWHEREmatnrEQgt_rev_stock_end-matnrANDwerksEQgt_rev_stock_end-werksANDlgortEQgt_rev_stock_end-lgortANDlfgjaEQl_lfgja.IFsy-subrcEQSORTlt_mardhBYlfmonREADTABLElt_mardhWITHKEYmatnr=gt_rev_stock_end-werks=gt_rev_stock_end-werkslgort=gt_rev_stock_end-IFsy-subrcEQMOVEp_lfmonTOgt_rev_stock_end-MOVElt_mardh-labstTOgt_rev_stock_end-labst.MODIFYgt_rev_stock_endINDEXl_tabix.DELETEDELETEDELETEDELETEgt_rev_stock_endWHERElabst=0.IFp_labstISNOTINITIAL.l_labst_rev=-1*DELETEgt_rev_stock_endWHERElabstLTANDlabstGTSORTgt_rev_stock_endBYmatnr.IFgt_rev_stock_end[]ISINITIAL.MESSAGEs481DISYLIKE'E'.**<CONCATENATEp_lfgjap_lfmon'01'INTOg_date_first.CALLFUNCTION'LAST_DAY_OF_MONTHS' =g_date_firstlast_day_of_month=**<MKPF和MSEGBOChangedbyterry.wang BOChangedby SELECTSELECTmblnr EOChangedbyINTOTABLEgt_mkpfFROMWHEREbudatBETWEENg_date_firstAND BOChangedbyterry.wangDATA:BEGINOFlt_mkpfOCCURS0,mblnrLIKEmkpf-mblnr,mjahrLIKEmkpf-mjahr,usnamLIKEmkpf-ENDOFSELECTmblnrmjahrINTOTABLElt_mkpfFROMmkpfWHEREmjahrEQp_lfgjaANDbudatBETWEENg_date_firstANDg_date_lastANDtcode2='MFBF'.SORTlt_mkpfBYLOOPATlt_mkpfWHEREusnamBETWEEN'D36230010000'AND gt_mkpf-mblnr=lt_mkpf-gt_mkpf-mjahr=lt_mkpf-APPENDgt_mkpf.CLEARLOOPATlt_mkpfWHEREusnamBETWEEN'D36240010000'AND gt_mkpf-mblnr=lt_mkpf-gt_mkpf-mjahr=lt_mkpf-APPENDgt_mkpf.CLEARLOOPATlt_mkpfWHEREusnamBETWEEN'D36250010000'AND gt_mkpf-mblnr=lt_mkpf-gt_mkpf-mjahr=lt_mkpf-APPENDgt_mkpf.CLEARLOOPATlt_mkpfWHEREusnamBETWEEN'D36260010000'AND gt_mkpf-mblnr=lt_mkpf-gt_mkpf-mjahr=lt_mkpf-APPENDgt_mkpf.CLEARLOOPATlt_mkpfWHEREusnamBETWEEN'D36270010000'AND gt_mkpf-mblnr=lt_mkpf-gt_mkpf-mjahr=lt_mkpf-APPENDgt_mkpf.CLEARLOOPATlt_mkpfWHEREusnamBETWEEN'D40000000000'ANDgt_mkpf-mblnr=lt_mkpf-gt_mkpf-mjahr=lt_mkpf-APPENDgt_mkpf.CLEARLOOPATlt_mkpfWHEREusnamEQgt_mkpf-mblnr=lt_mkpf-gt_mkpf-mjahr=lt_mkpf-APPENDgt_mkpf.CLEARLOOPATlt_mkpfWHEREusnamEQgt_mkpf-mblnr=lt_mkpf-gt_mkpf-mjahr=lt_mkpf-APPENDgt_mkpf.CLEARIFgt_usname[]ISNOTINITIAL.LOOPATgt_usname.LOOPATlt_mkpfWHEREusnamBETWEENgt_usname-usnalANDgt_usname-usnah.gt_mkpf-mblnr=lt_mkpf-mblnr.gt_mkpf-mjahr=lt_mkpf-mjahr.APPENDgt_mkpf.CLEARgt_mkpf.LOOPATgt_mkpf-mblnr=lt_mkpf-mblnr.gt_mkpf-mjahr=lt_mkpf-mjahr.APPENDgt_mkpf.CLEARgt_mkpf.SORTDELETEADJACENTDUPLICATESFROMEOChangedbyterry.wangSELECTSELECTmblnrmjahrzeilebwartmatnrwerkslgortdmbtrmengemeinsEOChangedbyINTOTABLEgt_msegFROMmsegFORALLENTRIESINgt_mkpfWHEREmblnrEQgt_mkpf-ANDmjahrEQgt_mkpf-BOChangedbyterry.wangAND(zeileBETWEEN'0001'ANDEOChangedbyterry.wangANDwerksINs_werksANDlgortINgr_lgort*將261/262改為 and(bwarteq'261' bwarteq'262'AND(bwartEQ'Z61'bwartEQ'Z62' DELETEgt_msegWHEREaufnr(3)<>**<SELECT*INTOTABLEgt_mbewFROMmbewFORALLENTRIESINgt_rev_stock_endWHEREmatnrEQgt_rev_stock_end-matnrANDbwkeyEQgt_rev_stock_end-**<LOOPATgt_rev_stock_end.tabix=sy-gt_rev_stock_end-labst_1=gt_rev_stock_end-labst.gt_rev_stock_end-labst=gt_rev_stock_end-labst*p_t_ftl/100READTABLEgt_t006WITHKEYmsehi=gt_rev_stock_end-meins.IFsy-subrcISINITIAL.l_menge=FRAC(gt_rev_stock_end-labst)*100.gt_rev_stock_end-labst=TRUNC(gt_rev_stock_end-labst)+(TRUNC(l_menge)/100)(TRUNC(FRAC(l_menge*2))/100gt_rev_stock_end-labst=TRUNC(gt_rev_stock_end-labstMODIFYgt_rev_stock_endTRANSPORTINGlabstREADTABLEgt_mbewWITHKEYmatnr=gt_rev_stock_end-bwkey=gt_rev_stock_end-IFsy-subrcEQIFgt_mbew-vprsvEQgt_rev_stock_end-dmbtr=gt_rev_stock_end-labst*gt_mbew-gt_rev_stock_end-dmbtr=gt_rev_stock_end-labst*gt_mbew-MODIFYgt_rev_stock_endINDEXtabix.CLEARgt_rev_stock_end.DELETEgt_rev_stock_endWHERElabst=0.IFp_dmbtrISNOTINITIAL.l_dmbtr_rev=-1*DELETEgt_rev_stock_endWHEREdmbtrLTANDdmbtrGT " Form --> <-- FORMfrm_get_pcc_orderDATA:lt_maraLIKETABLEOFmaraWITHHEADERDATA:lt_mbewLIKETABLEOFmbewWITHHEADER**<PCCSELECTb~werksa~aufnrINTOCORRESPONDINGFIELDSOFTABLEgt_pcc_order_traFROMafkoASaINNERJOINaufkASbONa~aufnrEQWHEREb~auartEQ ANDa~plnbezNEANDb~werksIN**<IFgt_pcc_order_tra[]ISNOTDELETEADJACENTDUPLICATESFROMSELECT*INTOTABLElt_mbewFROMmbewFORALLENTRIESINgt_pcc_order_traWHEREmatnrEQgt_pcc_order_tra-plnbezANDbwkeyINs_werksANDbklasINLOOPATgt_pcc_order_tra.tabix=sy-tabix.READTABLElt_mbewWITHKEYmatnr=gt_pcc_order_tra-plnbez.IFsy-subrcEQ0.MOVElt_mbew-bklasTOgt_pcc_order_tra-bklas.MODIFYgt_pcc_order_tra.CLEARDELETEgt_pcc_order_traINDEXtabix.**<從視圖CAUFV中取出沒有被刪除的PCC訂單對(duì)應(yīng)的PP訂單>SELECT*INTOCORRESPONDINGFIELDSOFTABLEgt_pcc_order_1FROMcaufvWHEREpkosaNEANDloekzNE "無刪除標(biāo)志的PPANDwerksIN "Ls**<PCC訂單只對(duì)應(yīng)一個(gè)PP訂單，且PPSORTgt_pcc_order_1BYpkosaaufnrwerks.LOOPATgt_pcc_order_1.tabix=sy-tabix.ATNEWREADTABLEgt_pcc_order_1INDEXMOVE-CORRESPONDINGgt_pcc_order_1TOgt_pcc_order.APPENDgt_pcc_order.CLEARDELETEADJACENTDUPLICATESFROMLOOPATREADTABLEgt_pcc_orderWITHKEYpkosa=gt_pcc_order_tra-aufnr.IFsy-subrcEQ0.MOVE-CORRESPONDINGgt_pcc_order_traTOgt_pcc_order_alv.APPENDgt_pcc_order_alv.CLEARIFgt_pcc_order_alv[]ISNOT PP訂單的PCCSELECT*INTOTABLElt_maraFROMFORALLENTRIESINgt_pcc_order_alvWHEREmatnrEQgt_pcc_order_alv-plnbez.LOOPATgt_pcc_order_alv.tabix=sy-tabix.READTABLElt_maraWITHKEYmatnr=gt_pcc_order_alv-plnbez.IFsy-subrcEQ0.MOVElt_mara-mtartTOgt_pcc_order_alv-mtart.MODIFYgt_pcc_order_alvINDEXtabix.CLEARSORTgt_pcc_order_alvBYaufnr.PERFORMfrm_order_out.g_flag=1. 1有兩種情況：一是表示都含有PP訂單，二是用戶手工確認(rèn)的 " Form --> <-- FORMfrm_get_fentan**<LOOPATIFgt_mseg-bwart=IFgt_mseg-bwart='Z62'."Tommygt_mseg-dmbtr=gt_mseg-dmbtr*(-1).gt_mseg-menge=gt_mseg-menge*(-1MOVE-CORRESPONDINGgt_msegTOMOVE-CORRESPONDINGgt_mseg_1TOCOLLECTCOLLECTCLEARSORTgt_pcc_orderBY "LS05/08/16*<PCCLOOPATgt_pcc_order.LOOPATgt_mseg_1WHEREwerks=gt_pcc_order- aufnr=gt_pcc_order-pkosa.MOVE-CORRESPONDINGgt_mseg_1TOMOVE TOgt_pcc_order_amt-MOVEp_lfmon TOgt_pcc_order_amt-lfmon.MOVEgt_pcc_order-aufnrTOgt_pcc_order_amt-pufnr.COLLECTgt_pcc_order_amt.CLEARIFgt_pcc_order_amt[]ISMESSAGEs311(zpvmm01)DISYLIKE'E'WITHtext-304.**<匯總同一個(gè)物料的消耗數(shù)量> nt/lgort/materialLOOPATgt_rev_stock_end.CLEAR:gt_rev_stock_end-labst,gt_rev_stock_end-

LOOPATgt_pcc_order_amtWHEREmatnr=gt_rev_stock_end- werks=gt_rev_stock_end- "LsIFsy-subrcEQ

lgort=gt_rev_stock_end- "LsADDgt_pcc_order_amt-mengeTOgt_rev_stock_end-menge.MOVE-CORRESPONDINGgt_pcc_order_amtTOMOVE-CORRESPONDINGgt_pcc_order_amtTOgt_pcc_cost_detail.COLLECTgt_pcc_detail.COLLECTCOLLECTgt_rev_stock_end.CLEARgt_rev_stock_end.**<LOOPATIFgt_rev_stock_end-mengeNEgt_rev_stock_end-perct=gt_rev_stock_end-labst/gt_rev_stock_end-MODIFYgt_rev_stock_end.CLEARgt_rev_stock_end.SORTgt_rev_stock_endBYmengeDESCENDING. "ls05/08/17add**<匯總未分?jǐn)偽锪系挠涗浄诺紸LV的輸出表中>LOOPATgt_rev_stock_endWHEREperctMOVE-CORRESPONDINGgt_rev_stock_endTOgt_fentan_none.APPENDgt_fentan_none.CLEAR**<0的記錄，因?yàn)榉謹(jǐn)偮蕿?出庫數(shù)量也為0DELETEgt_rev_stock_endWHEREperctEQ0.SORTgt_pcc_order_amtBYwerkslgortmatnrmengeDESCENDING. "lsSORTgt_pcc_order_amtBYmenge**<0的記錄，說明全是未分?jǐn)偟臄?shù)據(jù)不調(diào)用BAPICHECKgt_rev_stock_end[]ISNOTINITIAL.PERFORMfrm_cal_out_qty. 4PERFORMfrm_get_rev_stock_end_qty."反沖庫期末庫存調(diào)整明細(xì)表IFsy-batchISNOTPERFORMfrm_def_alv_rev_stockUSINGp_cb_t''.IFp_cb_tEQ''.PERFORM PERFORMfrm_modify_bapi_data. BAPI執(zhí)行正確的且剩余數(shù)量不為0記錄選出執(zhí)行剩余數(shù)量的CHECKgt_rev_stock_end[]ISNOTPERFORM gt_rev_stock_end_pcc_detail[]= " Form --> <-- FORMfrm_get_rev_stock_end_qty**<DATA:l_meegeLIKEgt_rev_stock_end-meege.LOOPATgt_rev_stock_end.l_meege=LOOPATgt_pcc_order_amtWHEREmatnr=gt_rev_stock_end-2005/10-2005/10-

ANDwerks=gt_rev_stock_end-werks "LsaddANDlgort=gt_rev_stock_end-lgort."Lsl_meege=l_meege+gt_pcc_order_amt-MOVEl_meegeTOgt_rev_stock_end-gt_rev_stock_end-mssge=gt_rev_stock_end-labst-gt_rev_stock_end-meege.MODIFYgt_rev_stock_end.**<輸出到ALV的內(nèi)表中>LOOPATgt_rev_stock_end.MOVE-CORRESPONDINGgt_rev_stock_endTOwa_stock.APPENDwa_stockTOgt_stock. " ModuleSTATUS_0100 MODULEstatus_0100IFp_cb_tISMOVEtext-301TOMOVEtext-302TOSETPF-STATUSSETTITLEBAR WITHPERFORMfrm_def_alv_rev_stockUSINGg_button_''.IFg_cust_cont_1ISINITIAL.CREATEOBJECTEXPORTINGcontainer_name=CREATEOBJECTEXPORTINGi_parent=CALLMETHODgrid1->set_table_for_first_disyi_structure_name='ZPV_S_MM36_1' =gw_layout_1 =gt_stockit_fieldcatalog=gt_fieldcat_1.CREATEOBJECTSETHANDLERevent_receiver1->handle_double_click1FORCALLMETHODgrid1->set_table_for_first_disyi_structure_name='ZPV_S_MM36_1' =gw_layout_1 =gt_stockit_fieldcatalog=gt_fieldcat_1.CALLMETHODgrid1->refresh_table_disIFg_sel_all_ISNOTINITIAL.MOVEtext-200TOMOVEtext-201TOIFg_cust_cont_2ISINITIAL.CREATEOBJECTEXPORTINGcontainer_name=CREATEOBJECTEXPORTINGi_parent=SORTgt_fentan_weiBYwerkslgortCALLMETHODgrid2->set_table_for_first_disy ='ZPV_S_MM36_2' =gw_layout_2it_toolbar_excluding=gt_toolbar_exclud_2 =gt_fentan_wei =gt_fieldcat_2.LOOPATIFscreen-name='TEXT03'.screen-invisible=g_mm.MODIFYSCREEN.IFp_cb_tISNOTLOOPATIFscreen-name='BUTTON'ORscreen-name='SURE'ORscreen-name='BUTTON1'ORscreen-name='G_BUTTON_TEXT'.screen-invisible='1'.MODIFYSCREEN.LOOPATIFg_button_ISINITIAL.IFscreen-name='BUTTON1'.screen-invisible='1'.MODIFYSCREEN.IFscreen-name='SURE'.screen-invisible='1'.MODIFYSCREEN.IFg_cust_cont_3ISNOTCALLMETHODgrid3->set_table_for_first_disi_structure_name= = =it_fieldcatalog=CALLMETHODgrid3->refresh_table_dis "STATUS_0100 MAND_0100 mand_0100CALLMETHODcl_gui_cfw=>dispatch.CASEok_code.WHENPERFORMWHENMOVEtext-216TOg_title.PERFORMfrm_show_pcc_cost_detail.WHENMOVEtext-212TOPERFORMWHENPERFORM WHENIFgt_pp_detail[]ISIFgt_rev_stock_end_pcc_detail[]ISNOTPERFORM "剩余調(diào)整數(shù)量計(jì)算及bapigt_pp_detail[]=MOVEtext-213TOCHECKgt_pp_detail[]ISNOTPERFORM PCC物料的對(duì)PPWHENCLEARg_button_PERFORM PERFORMfrm_modify_bapi_data. BAPI執(zhí)行正確的且剩余數(shù)量不為0記錄選出執(zhí)行剩余數(shù)量的CHECKgt_rev_stock_end[]ISNOTPERFORM bapiWHENMOVEtext-215TOIFgt_pp_detail_oth_sy[]ISINITIAL.PERFORMfrm_call_no_pcc_qty.PERFORMCHECKgt_pp_detail_oth_sy[]ISNOTINITIAL.PERFORMfrm_show_pp_no_pcc_detail.WHENCALLMETHODgrid2->check_changed_data.REFRESH:"gt_pcc_ft_wei, PERFORM IFgt_ft_wei_1[]ISNOTINITIALORgt_fentan_wei_sy[]ISNOTINITIAL.IFgt_ft_wei_1[]ISNOTINITIAL.PERFORM BAPI

PERFORMfrm_get_wft_qty_sy. "計(jì)算未分?jǐn)偽锪鲜Ｓ嗾{(diào)整數(shù)量PERFORMfrm_modify_wft_sy. "取出出庫調(diào)整生成的憑證號(hào)和返回信息IFgt_ft_wei_sy[]ISNOTINITIAL.g_mm=PERFORMfrm_call_bapi_qty_sy_wei.BAPIgt_fentan_wei_sy[]=MESSAGEgt_ft_wei_sy[]= IFgt_ft_wei_sy[]ISNOTINITIAL.INSERTLINESOFgt_ft_wei_syINTOTABLEINSERTLINESOFgt_ft_wei_sy_traINTOTABLEPERFORMfrm_show_cont3.PERFORMgt_fentan_wei[]=WHENCLEAR MAND_0100 Form --> <-- FORMfrm_call_bapi_rev_stockSORT