成本报表
*&---------------------------------------------------------------------*
*& Report? ZCOXY004
*&
*&---------------------------------------------------------------------*
*&author: xieyao 2009.03.25
*&funtion: 成本分析-機器消耗和人工消耗的實際值與標準值的對比
*&modify: xieyao 2009.03.27
*&---------------------------------------------------------------------*
REPORT? ZCOXY004 no standard page heading line-size 255..
TYPE-POOLS: slis.
include zsy_xy_tcus.
tables: coss, afru,mcafpov,cobk,afko,afpo,
??????? s026, aufk.
DATA:??? g_repid???? LIKE sy-repid.
*
DATA: BEGIN OF gt_objnr OCCURS 100,
????? objnr LIKE coep-objnr,
????? END OF gt_objnr.
data: begin of i_list occurs 0,
????? RUECK like afru-RUECK,????????????? "操作完成的確認編號
????? ERSDA like afru-ERSDA,????????????? "確認輸入日期
????? BUDAT like afru-BUDAT,????????????? "記帳日期
????? ILE01 like afru-ILE01,????????????? "要確認作業的計量單位
????? ISM01 like afru-ISM01,????????????? "當前需確認作業
????? ILE02 like afru-ILE02,"
????? ISM02 like afru-ISM02,"
????? ILE03 like afru-ILE03,"
????? ISM03 like afru-ISM03,"
????? ILE04 like afru-ILE04,"
????? ISM04 like afru-ISM04,"
????? ILE05 like afru-ILE05,"
????? ISM05 like afru-ISM05,"
????? ILE06 like afru-ILE06,"
????? ISM06 like afru-ISM06,"
????? GMNGA like afru-GMNGA,????????????? "按訂單單位的先前確認結果
????? LMNGA like afru-LMNGA,????????????? "待確認的產量
????? GMEIN like afru-GMEIN,????????????? "基本計量單位
????? WABLNR like afru-WABLNR,??????????? "物料憑證編號
????? AUFNR like afru-AUFNR,????????????? "訂單號
????? objnr like aufk-objnr,????????????? "對象號
????? end of i_list.
data: begin of gt_list occurs 0,
????? objnr like aufk-objnr,
????? ILE01 like afru-ILE01,
????? ISM01 like afru-ISM01,
????? ILE02 like afru-ILE02,"
????? ISM02 like afru-ISM02,"
????? ILE03 like afru-ILE03,"
????? ISM03 like afru-ISM03,"
????? ILE04 like afru-ILE04,"
????? ISM04 like afru-ISM04,"
????? ILE05 like afru-ILE05,"
????? ISM05 like afru-ISM05,"
????? ILE06 like afru-ILE06,"
????? ISM06 like afru-ISM06,"
????? end of gt_list.
data: begin of i_coss occurs 0,
????? objnr like coss-objnr,
????? kstar like coss-kstar,?????????????? "成本要素
????? wkg001 like coss-wkg001,
????? wkg002 like coss-wkg002,
????? wkg003 like coss-wkg003,
????? wkg004 like coss-wkg004,
????? wkg005 like coss-wkg005,
????? wkg006 like coss-wkg006,
????? wkg007 like coss-wkg007,
????? wkg008 like coss-wkg008,
????? wkg009 like coss-wkg009,
????? wkg010 like coss-wkg010,
????? wkg011 like coss-wkg011,
????? wkg012 like coss-wkg012,
????? wkg013 like coss-wkg013,
????? wkg014 like coss-wkg014,
????? wkg015 like coss-wkg015,
????? wkg016 like coss-wkg016,
????? end of i_coss.
data: begin of gt_coss occurs 0,
????? objnr like coss-objnr,
????? withdrawn_m LIKE s026-enwrt,????????? "機器
????? withdrawn_l LIKE s026-enwrt,????????? "人工
????? end of gt_coss.
data: begin of zyjg occurs 0,
????? objnr like coss-objnr,
????? withdrawn_01 LIKE s026-enwrt,????????? "機器作業價格
????? withdrawn_02 LIKE s026-enwrt,????????? "人工作業價格
????? end of zyjg.
data: begin of itab1 occurs 0,
????? matnr(18)?? type c,??????? "物料編碼
????? plnnr like mapl-plnnr ,??? "任務清單組碼
????? plnkn like plpo-plnkn ,??? "任務清單節點數
????? vornr like plpo-vornr ,??? "作業編號
????? lar01 like plpo-lar01 ,??? "活動類型
????? vgw01 like plpo-vgw01 ,??? "標準值
????? vge01 like plpo-vge01 ,??? "標準值計量單位
????? vgw02 like plpo-vgw02 ,??? "標準值
????? vge02 like plpo-vge02 ,??? "標準值計量單位
????? lar02 like plpo-lar02 ,??? "活動類型
????? lar03 like plpo-lar03 ,??? "活動類型
????? vgw03 like plpo-vgw03 ,??? "標準值
????? vge03 like plpo-vge03 ,??? "標準值計量單位
????? lar04 like plpo-lar04 ,??? "活動類型
????? vgw04 like plpo-vgw04 ,??? "標準值
????? vge04 like plpo-vge04 ,??? "標準值計量單位
????? lar05 like plpo-lar05 ,??? "活動類型
????? vgw05 like plpo-vgw05 ,??? "標準值
????? vge05 like plpo-vge05 ,??? "標準值計量單位
????? lar06 like plpo-lar06 ,??? "活動類型
????? vgw06 like plpo-vgw06 ,??? "標準值
????? vge06 like plpo-vge06 ,??? "標準值計量單位
????? plnty like plpo-plnty ,??? "任務清單類型
????? zaehl like plpo-zaehl ,??? "內部計數器
????? loekz like plas-loekz ,??? "刪除標志
????? werks like mapl-werks ,??? "工廠
????? arbpl like crhd-arbpl,???? "工作中心
????? objid like crhd-objid,???? "資源的對象 id
????? end of itab1.
*用作輸出的內表
data: begin of gt_result occurs 0,
????? objnr like aufk-objnr,
????? aufnr like afru-aufnr,????????????? "訂單號
????? matnr like afko-plnbez,
????? plnnr like afko-plnnr,
????? budat like afru-budat,
????? gmnga like afru-gmnga,????????? "數量
????? gmein like afru-gmein,????????? "單位
????? ism01 like afru-ism01,????????? "機器時間
????? ile01 like afru-ile01,????????? "時間單位-運算時轉換為H
????? ism01_q like afru-ism01,??????? "標準機器時間
????? ism02 like afru-ism02,????????? "人工時間
????? ile02 like afru-ile02,????????? "時間單位-運算時轉換為H
????? ism02_q like afru-ism02,??????? "標準人工時間
????? withcost_m like s026-enwrt,
????? withcost_l like s026-enwrt,
????? withcost_q_m like s026-enwrt,
????? withcost_q_l like s026-enwrt,
????? with_ef_m type p decimals 2,??? "機器效率
????? with_ef_l type p decimals 2,??? "人工效率
????? end of gt_result.
*global value of alv display
DATA:
????? gt_sort? TYPE slis_t_sortinfo_alv,
????? gt_fieldcat TYPE slis_t_fieldcat_alv,
????? gt_event TYPE slis_alv_event OCCURS 0 WITH HEADER LINE, "Grid輸出表頭事件內表
????? gt_head TYPE slis_t_listheader.???? "Grid輸出表頭
*選擇條件:
SELECTION-SCREEN BEGIN OF BLOCK sc_1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_rueck FOR afru-rueck ,
??????????????? s_aufnr for afru-aufnr MEMORY ID auf MODIF ID auf.
SELECTION-SCREEN END OF BLOCK sc_1.
***********************************************************************
* START-OF-SELECTION
***********************************************************************
START-OF-SELECTION.
*計算數據
? perform select_data.
? perform append_gt_result.
*&---------------------------------------------------------------------*
*&????? Form? select_data
*&---------------------------------------------------------------------*
*?????? text
*----------------------------------------------------------------------*
*? -->? p1??????? text
*? <--? p2??????? text
*----------------------------------------------------------------------*
FORM select_data .
? RANGES: lr_kstar FOR coep-kstar,
????????? lr_gjahr? FOR coep-gjahr,
????????? lr_perio? FOR coep-perio,
????????? lr_parob1? FOR coep-parob1,
????????? lr_objnr FOR coep-objnr.
*得到訂單的確認消耗成本單位-分批的
select rueck
????? ersda
????? budat
????? ile01 "
????? ism01 "
????? ile02 "
????? ism02 "
????? ile03 "
????? ism03 "
????? ile04 "
????? ism04 "
????? ile05 "
????? ism05 "
????? ile06 "
????? ism06 "
????? gmnga?????????????? "按訂單單位的先前確認結果
????? lmnga?????????????? "待確認的產量
????? gmein?????????????? "基本計量單位
????? wablnr????????????? "物料憑證編號
????? aufnr
????? from afru
????? into table i_list
????? where aufnr in s_aufnr.
*求總消耗時間
loop at i_list.
??? select single * from aufk where aufnr = i_list-aufnr.
??? i_list-objnr = aufk-objnr.
??? if i_list-ile01 = 'MIN'.
????? gt_list-ism01 = i_list-ism01 / 60.?? "機器工時
??? else.
????? gt_list-ism01 = i_list-ism01.
??? endif.
??? if i_list-ile02 = 'MIN'.
????? gt_list-ism02 = i_list-ism02 / 60.
??? else.
????? gt_list-ism02 = i_list-ism02.?????? "人工工時
??? endif.
??? gt_list-ism03 = i_list-ism03.
??? gt_list-ism04 = i_list-ism04.
??? gt_list-ism05 = i_list-ism05.
??? gt_list-ism06 = i_list-ism06.
??? gt_list-objnr = i_list-objnr.
??? CONCATENATE 'OR' i_list-aufnr INTO gt_objnr-objnr .
??? APPEND gt_objnr.
??? clear gt_objnr.
??? modify i_list.
??? collect gt_list.
??? clear gt_list.
endloop.
**************************************************************
*取制造成本
? IF NOT gt_objnr[] IS INITIAL.
??? lr_kstar-option = 'EQ'.
??? lr_kstar-sign = 'I'.
??? lr_kstar-low = '0000600100'.
??? APPEND lr_kstar.
??? lr_kstar-low = '0000600210'.
??? append lr_kstar.
??? lr_objnr-option = 'EQ'.
??? lr_objnr-sign = 'I'.
??? LOOP AT gt_objnr.
????? lr_objnr-low = gt_objnr-objnr.
????? APPEND lr_objnr.
??? ENDLOOP.
??? SELECT * INTO corresponding fields of table i_coss
????? FROM coss
????? WHERE objnr in lr_objnr
??????? AND kstar in lr_kstar
??????? AND wrttp = '04'.???????????????????????? "實際成本消耗
*分離成本
??? loop at i_coss.
??????? gt_coss-objnr = i_coss-objnr.
????? CASE i_coss-kstar.
??????? WHEN? '0000600100'.
*實際機器制造費用-總
?????????? gt_coss-withdrawn_m = i_coss-wkg001 + i_coss-wkg002 + i_coss-wkg003 +
????????????????? i_coss-wkg004 + i_coss-wkg005 + i_coss-wkg006 +
????????????????? i_coss-wkg007 + i_coss-wkg008 + i_coss-wkg009 +
????????????????? i_coss-wkg010 + i_coss-wkg011 + i_coss-wkg012 +
????????????????? i_coss-wkg013 + i_coss-wkg014 + i_coss-wkg015 +
????????????????? i_coss-wkg016 .
??????? WHEN '0000600210'.
*實際DIP人工-總
?????????? gt_coss-withdrawn_l = i_coss-wkg001 + i_coss-wkg002 + i_coss-wkg003 +
????????????????? i_coss-wkg004 + i_coss-wkg005 + i_coss-wkg006 +
????????????????? i_coss-wkg007 + i_coss-wkg008 + i_coss-wkg009 +
????????????????? i_coss-wkg010 + i_coss-wkg011 + i_coss-wkg012 +
????????????????? i_coss-wkg013 + i_coss-wkg014 + i_coss-wkg015 +
????????????????? i_coss-wkg016 .
????? ENDCASE.
????? COLLECT gt_coss.
????? CLEAR gt_coss.
??? endloop.
? ENDIF.
*取標準工藝路線值-單值
? select mapl~matnr mapl~werks mapl~plnnr mapl~plnal plpo~vornr
???????? plpo~vgw01 plpo~vge01 plpo~vgw02 plpo~vge02 plpo~vgw03 plpo~vge03
???????? plpo~vgw04 plpo~vge04 plpo~vgw05 plpo~vge05 plpo~vgw06 plpo~vge06
???????? plpo~plnty plpo~zaehl plpo~plnkn crhd~arbpl crhd~objid
???????? into corresponding fields of table itab1
???????? from mapl
???????????? inner join plas
???????????? on mapl~plnal = plas~plnal
???????????? and mapl~plnnr = plas~plnnr
???????????? inner join plpo
???????????? on? plpo~plnnr = mapl~plnnr
???????????? and plpo~plnty = mapl~plnty
???????????? and plpo~zaehl = plas~zaehl
???????????? inner join crhd
???????????? on? crhd~objid = plpo~arbid
??????? where mapl~loekz <> 'x'.
*計算訂單數量作業價格
*總的實際消耗費用/總的消耗單位
loop at gt_coss.
??? read table gt_list with key objnr = gt_coss-objnr.
??? if sy-subrc eq 0.
????? zyjg-objnr = gt_coss-objnr.
????? zyjg-withdrawn_01 = gt_coss-withdrawn_m / gt_list-ism01.
????? zyjg-withdrawn_02 = gt_coss-withdrawn_l / gt_list-ism02.
????? append zyjg.
??? endif.
endloop.
ENDFORM.??????????????????? " select_data
*&---------------------------------------------------------------------*
*&????? Form? append_gt_result
*&---------------------------------------------------------------------*
*?????? text
*----------------------------------------------------------------------*
*? -->? p1??????? text
*? <--? p2??????? text
*----------------------------------------------------------------------*
FORM append_gt_result .
*以i_list為模板填充輸出內表
loop at i_list.
?? gt_result-objnr = i_list-objnr.
?? gt_result-aufnr = i_list-aufnr.
?? gt_result-budat = i_list-budat.
?? gt_result-gmnga = i_list-gmnga.
?? gt_result-gmein = i_list-gmein.
?? gt_result-ism01 = i_list-ism01.
?? gt_result-ile01 = i_list-ile01.
?? gt_result-ism02 = i_list-ism02.
?? gt_result-ile02 = i_list-ile02.
*用于read的關鍵字
?? select single * from afko where aufnr = gt_result-aufnr.
?? gt_result-matnr = afko-plnbez.
?? gt_result-plnnr = afko-plnnr.
?? append gt_result.
?? clear gt_result.
endloop.
*單位的統一
?loop at gt_result.
??? read table itab1 with key matnr = gt_result-matnr
????????????????????????????? plnnr = gt_result-plnnr.
??? if sy-subrc eq 0.
????? if gt_result-ile01 eq 'H'.
??????? case itab1-vge01.
??????????? when 'H'.
?????????????? gt_result-ism01_q = itab1-vgw01 * gt_result-gmnga.
??????????? when 'MIN'.
?????????????? gt_result-ism01_q = itab1-vgw01 * gt_result-gmnga / 60.
??????? endcase.
????? elseif gt_result-ile01 eq 'MIN'.
??????? case itab1-vge01.
??????????? when 'H'.
?????????????? gt_result-ism01_q = itab1-vgw01 * gt_result-gmnga * 60.
??????????? when 'MIN'.
?????????????? gt_result-ism01_q = itab1-vgw01 * gt_result-gmnga.
??????? endcase.
????? else.
???????? gt_result-ism01_q = itab1-vgw01 * gt_result-gmnga..
????? endif.
????? if gt_result-ile02 eq 'H'.
??????? case itab1-vge02.
??????????? when 'H'.
?????????????? gt_result-ism02_q = itab1-vgw02 * gt_result-gmnga.
??????????? when 'MIN'.
?????????????? gt_result-ism02_q = itab1-vgw02 * gt_result-gmnga / 60.
??????? endcase.
????? elseif gt_result-ile02 eq 'MIN'.
??????? case itab1-vge02.
??????????? when 'H'.
?????????????? gt_result-ism02_q = itab1-vgw02 * gt_result-gmnga * 60.
??????????? when 'MIN'.
?????????????? gt_result-ism02_q = itab1-vgw02 * gt_result-gmnga.
??????? endcase.
????? else.
???????? gt_result-ism02_q = itab1-vgw02 * gt_result-gmnga..
????? endif.
??? endif.
??? read table zyjg with key objnr = gt_result-objnr.
??? if sy-subrc eq 0.
????? if gt_result-ile01 = 'MIN'.
*實際機器費用 + 實際人工費用
??????? gt_result-withcost_m = ( zyjg-withdrawn_01 * gt_result-ism01 ) / 60.
??????? gt_result-withcost_l = ( zyjg-withdrawn_02 * gt_result-ism02 ) / 60.
*標準機器費用 + 標準人工費用
??????? gt_result-withcost_q_m = ( zyjg-withdrawn_01 * gt_result-ism01_q ) / 60.
??????? gt_result-withcost_q_l = ( zyjg-withdrawn_02 * gt_result-ism02_q ) / 60.
????? else.
??????? gt_result-withcost_m = zyjg-withdrawn_01 * gt_result-ism01.
??????? gt_result-withcost_l = zyjg-withdrawn_02 * gt_result-ism02.
??????? gt_result-withcost_q_m = zyjg-withdrawn_01 * gt_result-ism01_q.
??????? gt_result-withcost_q_l = zyjg-withdrawn_02 * gt_result-ism02_q.
????? endif.
??? endif.
??? if gt_result-withcost_m <> 0.
????? gt_result-with_ef_m = gt_result-withcost_q_m / gt_result-withcost_m.
??? else.
???? gt_result-with_ef_m = 0.
??? endif.
??? if gt_result-withcost_l <> 0.
????? gt_result-with_ef_l = gt_result-withcost_q_l / gt_result-withcost_l.
??? else.
????? gt_result-with_ef_l = 0.
??? endif.
*去掉前導零
?? CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
????? exporting
??????? input? = gt_result-aufnr
????? importing
??????? output = gt_result-aufnr.
??? modify gt_result.
?endloop.
ENDFORM.??????????????????? " append_gt_result
***********************************************************************
* END-OF-SELECTION
***********************************************************************
END-OF-SELECTION.
*設置顯示格式
? PERFORM f_fieldcat_init.
*
? PERFORM event_top_of_page TABLES gt_event.
*ALV顯示報表
? CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
??? EXPORTING
????? i_callback_program????? = 'ZCOXY004'
????? i_callback_user_command = 'USER_COMMAND'
????? it_fieldcat???????????? = gt_fieldcat[]
????? it_sort???????????????? = gt_sort[]
????? it_events?????????????? = gt_event[]
??? TABLES
????? t_outtab??????????????? = gt_result.
************************************************************************
*? 設置表輸出表頭事件
************************************************************************
FORM event_top_of_page? TABLES?? ex_gt_event TYPE slis_t_event.
? REFRESH ex_gt_event.
? CLEAR ex_gt_event.
? ex_gt_event-name = slis_ev_top_of_page.
? ex_gt_event-form = 'WRITE_TOP_OF_PAGE'.
? APPEND ex_gt_event.
ENDFORM.??????????????????? "event_top_of_page
************************************************************************
*? 設置明細表表頭???????????????????????????????????????????? *
************************************************************************
FORM write_top_of_page.
? DATA: wa_hline TYPE slis_listheader.
? REFRESH gt_head.
? CLEAR: wa_hline.
? DATA:? l_count TYPE i.
? wa_hline-typ = 'H'.
? wa_hline-info = '成品實際/標準成本明細分析'.
? APPEND wa_hline TO gt_head.
? CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
??? EXPORTING
????? it_list_commentary = gt_head.
ENDFORM.??????????????????? "write_top_of_page
************************************************************************
* 雙擊
************************************************************************
FORM user_command USING r_ucomm LIKE sy-ucomm
????????????????? rs_selfield TYPE slis_selfield.
? READ TABLE GT_RESULT INDEX RS_SELFIELD-TABINDEX.
? CHECK SY-SUBRC = 0.
? CASE r_ucomm.
??? WHEN '&IC1'.?????????????????????? "doubleclick
????? CASE RS_SELFIELD-SEL_TAB_FIELD.
??????? WHEN '1-AUFNR'.
??????? SET PARAMETER ID 'AUF' FIELD GT_RESULT-AUFNR .
????????? CALL TRANSACTION? 'CO03'? AND? SKIP? FIRST? SCREEN.
??????? CLEAR r_ucomm.
????? ENDCASE.
? ENDCASE.
ENDFORM.??????????????????? "USER_COMMAND_SUM
***********************************************************************
*設置ALV輸出報表的顯示字段、排序字段及其相關屬性????????????????????? *
***********************************************************************
FORM f_fieldcat_init .
? DATA: wa_fieldcat TYPE slis_fieldcat_alv,
??????? wa_sort TYPE slis_sortinfo_alv.
*顯示字段
? CLEAR wa_fieldcat.
? wa_fieldcat-fieldname =? 'AUFNR'.
? wa_fieldcat-seltext_s =? '工單號'.
? wa_fieldcat-key?????? =? 'X'.
? wa_fieldcat-fix_column = 'X'.
? wa_fieldcat-outputlen = '12'.
? APPEND wa_fieldcat TO gt_fieldcat.
? CLEAR wa_fieldcat.
? wa_fieldcat-fieldname =? 'BUDAT'.
? wa_fieldcat-seltext_s =? '記賬日期'.
? wa_fieldcat-key?????? =? 'X'.
? wa_fieldcat-fix_column = 'X'.
? wa_fieldcat-outputlen = '10'.
? APPEND wa_fieldcat TO gt_fieldcat.
? CLEAR wa_fieldcat.
? wa_fieldcat-fieldname =? 'GMNGA'.
? wa_fieldcat-seltext_l =? '工單確認數量'.
? wa_fieldcat-fix_column = 'X'.
? APPEND wa_fieldcat TO gt_fieldcat.
? CLEAR wa_fieldcat.
? wa_fieldcat-fieldname =? 'GMEIN'.
? wa_fieldcat-seltext_l =? '單位'.
? wa_fieldcat-outputlen = '3'.
? APPEND wa_fieldcat TO gt_fieldcat.
? CLEAR wa_fieldcat.
? wa_fieldcat-fieldname =? 'ISM01'.
? wa_fieldcat-seltext_l =? '實際機器工時'.
? APPEND wa_fieldcat TO gt_fieldcat.
? CLEAR wa_fieldcat.
? wa_fieldcat-fieldname =? 'ISM01_Q'.
? wa_fieldcat-seltext_l =? '標準機器工時'.
? APPEND wa_fieldcat TO gt_fieldcat.
? CLEAR wa_fieldcat.
? wa_fieldcat-fieldname =? 'ILE01'.
? wa_fieldcat-seltext_l =? '單位'.
? wa_fieldcat-outputlen = '3'.
? APPEND wa_fieldcat TO gt_fieldcat.
? CLEAR wa_fieldcat.
? wa_fieldcat-fieldname =? 'ISM02'.
? wa_fieldcat-seltext_l =? '實際人工工時'.
? APPEND wa_fieldcat TO gt_fieldcat.
? CLEAR wa_fieldcat.
? wa_fieldcat-fieldname =? 'ISM02_Q'.
? wa_fieldcat-seltext_l =? '標準人工工時'.
? APPEND wa_fieldcat TO gt_fieldcat.
? CLEAR wa_fieldcat.
? wa_fieldcat-fieldname =? 'ILE02'.
? wa_fieldcat-seltext_l =? '單位'.
? wa_fieldcat-outputlen = '3'.
? APPEND wa_fieldcat TO gt_fieldcat.
? CLEAR wa_fieldcat.
? wa_fieldcat-fieldname =? 'WITHCOST_M'.
? wa_fieldcat-seltext_l =? '實際機器成本'.
? APPEND wa_fieldcat TO gt_fieldcat.
? CLEAR wa_fieldcat.
? wa_fieldcat-fieldname =? 'WITHCOST_L'.
? wa_fieldcat-seltext_l =? '實際人工成本'.
? APPEND wa_fieldcat TO gt_fieldcat.
? CLEAR wa_fieldcat.
? wa_fieldcat-fieldname =? 'WITHCOST_Q_M'.
? wa_fieldcat-seltext_l =? '標準機器成本'.
? APPEND wa_fieldcat TO gt_fieldcat.
? CLEAR wa_fieldcat.
? wa_fieldcat-fieldname =? 'WITHCOST_Q_L'.
? wa_fieldcat-seltext_l =? '標準人工成本'.
? APPEND wa_fieldcat TO gt_fieldcat.
? CLEAR wa_fieldcat.
? wa_fieldcat-fieldname =? 'WITH_EF_M'.
? wa_fieldcat-seltext_l =? '機器生產效率'.
? APPEND wa_fieldcat TO gt_fieldcat.
? CLEAR wa_fieldcat.
? wa_fieldcat-fieldname =? 'WITH_EF_L'.
? wa_fieldcat-seltext_l =? '人工生產效率'.
? APPEND wa_fieldcat TO gt_fieldcat.
ENDFORM.??????????????????? "f_fieldcat_init
總結
- 上一篇： 成本分析报表
- 下一篇： 利用BADI ME_PROCESS_PO