联芯科技ERP项目-技术文档-FICO-015-产品成本组件分析表-V1 0-20090911

DATE\@"yyyy-MM-dd"2009-10-29Version1.0PAGE1联芯科技ERP项目 DATE\@"M/d/yyyy"10/29/2009Version1.0 联芯科技ERP项目开发规格书第I部分:需求模块MACROBUTTONCheckIt_CheckBox£MM MACROBUTTONCheckIt_CheckBox£PP MACROBUTTONCheckIt_CheckBox£SD MACROBUTTONCheckIt_CheckBox£FI ■CO MACROBUTTONCheckIt_CheckBox£IP/FMMACROBUTTONCheckIt_CheckBox£其它Spec编号LC_SPEC_FICO_015短描述产品成本组件分析表类型MACROBUTTONUnCheckIt_Radiobutton报表●ABAPProgramMACROBUTTONCheckIt_RadiobuttonInformationSystemMACROBUTTONCheckIt_RadiobuttonReportPrinter MACROBUTTONCheckIt_RadiobuttonReportWriterMACROBUTTONCheckIt_RadiobuttonSAPQueryMACROBUTTONCheckIt_RadiobuttonBWreportMACROBUTTONCheckIt_RadiobuttonCrystalReportsMACROBUTTONCheckIt_RadiobuttonOthersMACROBUTTONCheckIt_Radiobutton表单MACROBUTTONCheckIt_Radiobutton流程增强MACROBUTTONCheckIt_RadiobuttonUserExitMACROBUTTONCheckIt_RadiobuttonBADIMACROBUTTONCheckIt_RadiobuttonDialogProgram MACROBUTTONCheckIt_RadiobuttonOtherseMACROBUTTONCheckIt_Radiobutton接口MACROBUTTONCheckIt_RadiobuttonBAPIMACROBUTTONCheckIt_RadiobuttonIDOCMACROBUTTONCheckIt_RadiobuttonALEMACROBUTTONCheckIt_RadiobuttonOthersendMACROBUTTONCheckIt_Radiobutton数据转移需求优先级MACROBUTTONCheckIt_RadiobuttonHigh/关键 MACROBUTTONUnCheckIt_RadiobuttonMid/推荐 MACROBUTTONCheckIt_RadiobuttonLow/可选用户MACROBUTTONNextCell陈刚要求日期2009年9月1预计开发天数（由功能顾问与开发顾问评估）必填_____天是否有标准功能MACROBUTTONCheckIt_RadiobuttonYes MACROBUTTONUnCheckIt_RadiobuttonNo标准功能未采用的原因:MACROBUTTONCheckIt_RadiobuttonPerformanceMACROBUTTONCheckIt_RadiobuttonComplexityMACROBUTTONCheckIt_RadiobuttonOtherse参考的标准功能文档变更历史版本号文档维护时间姓名简要的描述V1.02009-陈刚

第II部分:详细功能描述目的：按月显示产品实际成本与标准成本对比功能描述:按月显示产品实际成本与标准成本，为成本分析提供一定依据运行频率任何时间MACROBUTTONCheckIt_Radiobutton每天MACROBUTTONCheckIt_Radiobutton每周MACROBUTTONCheckIt_Radiobutton两周MACROBUTTONUnCheckIt_Radiobutton每月MACROBUTTONCheckIt_Radiobutton每年MACROBUTTONCheckIt_Radiobutton其它：运行方式MACROBUTTONUnCheckIt_Radiobutton手工MACROBUTTONCheckIt_Radiobutton自动MACROBUTTONCheckIt_Radiobutton批处理MACROBUTTONCheckIt_Radiobutton在线处理输出方式MACROBUTTONCheckIt_Radiobutton屏幕输出MACROBUTTONCheckIt_Radiobutton打印MACROBUTTONUnCheckIt_Radiobutton文件输出MACROBUTTONCheckIt_Radiobutton其它：打印机类型不打印纸张大小不打印语言(如无特殊需求，预设为中文)选择屏幕：会计年度：XXXX会计期间：XX公司代码：XXXX工厂：XXXXXX物料类型：XXXX物料：XXXXXXXXXX：顺序字段名称字段技术名称字段描述特殊需求1会计年度GJAHR公司代码必输2会计期间BDATJ物料号必输，可输入范围3公司代码BUKRS公司代码必输4工厂WERKS工厂可选，可输入范围5物料类型MTART物料类型可选，可输入范围6物料MATNR物料可输入范围，可不连续多选报表/表单的字段顺序字段名称字段技术名称字段描述特殊需求1会计年度CKMLPRKEPH-GJAHR公司代码2会计期间CKMLPRKEPH-PERIODE物料号3公司代码T001K-BUKRS公司代码4工厂CKMLHD-BWKEY工厂5物料类型MARA-MTART物料类型6物料代码CKMLHD-MATNR物料7物料描述MAKT-MAKTX物料描述8价格单位MBEW-PEINH价格单位9标准成本标准成本10标准材料CKMLPRKEPH-KST001标准材料CKMLPRKEPH–PRTYP=S11标准人工CKMLPRKEPH-KST002标准人工CKMLPRKEPH–PRTYP=S12标准费用CKMLPRKEPH-KST004标准费用CKMLPRKEPH–PRTYP=S13实际成本实际成本14实际材料CKMLPRKEPH-KST001实际材料15实际人工CKMLPRKEPH-KST002实际人工16实际费用CKMLPRKEPH-KST004实际费用格式/屏幕设计：逻辑关系：1.根据选择屏幕中的工厂=MARC-WERKS、物料类型=MARA-MTART、物料代码=MARC-MATNR取出从MARC中取出工厂、物料编码，得到表A。工厂物料编码2.根据表A中的工厂=CKMLHD-BWKEY、物料编码=CKMLHD-MATNR，取出物料的成本估算号=CKMLHD-KALNR，得到表B。成本估算号3.根据表B中的成本估算号=CKMLHD-KALNR，选择屏幕的会计年度=CKMLPRKEPH-GJAHR，会计期间=CKMLPRKEPH-PERIODE，且CKMLHD-PRTYP=S，CKMLHD-KKZST不等于X，取出标准材料（CKMLPRKEPH-KST001）、标准人工（CKMLPRKEPH-KST002）、标准费用（CKMLPRKEPH-KST004），合计三者得到标准成本。4.根据表B中的成本估算号=CKMLHD-KALNR，选择屏幕的会计年度=CKMLPRKEPH-GJAHR，会计期间=CKMLPRKEPH-PERIODE，且CKMLHD-PRTYP=V，CKMLHD-KKZST不等于X，取出实际材料（CKMLPRKEPH-KST001）、实际人工（CKMLPRKEPH-KST002）、实际费用（CKMLPRKEPH-KST004），合计三者得到实际成本。5.根据A表中的工厂=T001K-BWKEY，取到公司代码T001K-BUKRS。6.根据A表中物料号=MAKT-MATNR，取到物料描述MAKT-MAKTX。7.根据A表中的工厂=MBEW-BWKEY、物料=MBEW-MATNR，取到物料价格单位MBEW-PEINH。样张：其它内容：权限控制：1.在单一角色控制中查询ZR_FI_050的权限，如有此权限可查询公司代码值为:D300可查询的工厂值为：D300、D3012.在单一角色控制中查询ZR_FI_051的权限，如有此权限可查询公司代码值为：D310可查询的工厂值为：D310*注：删除上面不适用的行和注释行.

第III部分:技术说明ProgramnameZ_FI_EXEC_PRODUCT_FRAMETransactioncodeZFI015AuthorizationObjectZR_FI_050\ZR_FI_051FormFormnameN/AOutputtypeN/AFormroutineN/A程序逻辑：程序逻辑说明及程序逻辑图选择屏幕如下：代码主要框架如下：INITIALIZATION.

"定义ALV的布局规范

gs_layout-zebra

=

'X'.

gs_layout-colwidth_optimize

=

'X'.

gs_layout-detail_popup

=

'X'.

gs_layout-get_selinfos

=

'X'.

gs_layout-get_selinfos

=

'X'.

**

*

START-OF-SELECTION

*

**

START-OF-SELECTION.

PERFORM

frm_getdata.

PERFORM

frm_showalv.核心是FRM_GETDATA这个子过程。FRM_GETDATA这个的处理逻辑如下："得到符合条件的物料

SELECT

a~matnr

mtart

b~werks

c~kalnr

peinh

INTO

TABLE

gt_matnr

FROM

mara

AS

a

INNER

JOIN

marc

AS

b

ON

b~matnr

=

a~matnr

INNER

JOIN

ckmlhd

AS

c

ON

c~matnr

=

a~matnr

AND

c~bwkey

=

b~werks

INNER

JOIN

mbew

AS

d

ON

d~matnr

=

c~matnr

AND

d~bwkey

=

c~bwkey

WHERE

a~mtart

IN

s_mtart

AND

a~matnr

IN

s_matnr

AND

b~werks

IN

s_werks.

CHECK

gt_matnr

IS

NOT

INITIAL.

SELECT

bdatj

poper

kalnr

prtyp

kst001

kst002

kst004

FROM

ckmlprkeph

INTO

TABLE

gt_kalnr

FOR

ALL

ENTRIES

IN

gt_matnr

WHERE

kalnr

=

gt_matnr-kalnr

AND

bdatj

=

p_gjahr

AND

poper

IN

s_bdatj

AND

prtyp

IN

('S','V')

AND

kkzst

<>

'X'.

DATA:

BEGIN

OF

lt_makt

OCCURS

0,

matnr

TYPE

matnr,

maktx

LIKE

makt-maktx,

END

OF

lt_makt,

BEGIN

OF

lt_mbew

OCCURS

0,

bwkey

TYPE

bwkey,

bukrs

TYPE

bukrs,

matnr

TYPE

matnr,

peinh

TYPE

peinh,

END

OF

lt_mbew.

"物料描述

SELECT

matnr

maktx

FROM

makt

INTO

TABLE

lt_makt

FOR

ALL

ENTRIES

IN

gt_matnr

WHERE

matnr

=

gt_matnr-matnr

AND

spras

=

sy-langu.

"得到公司代码

SELECT

bwkey

bukrs

FROM

t001k

INTO

TABLE

lt_mbew

FOR

ALL

ENTRIES

IN

gt_matnr

WHERE

bwkey

=

gt_matnr-werks

.

SORT

gt_kalnr

BY

bdatj

poper

kalnr

prtyp.

DATA

lv_peinh

LIKE

gs_out-peinh.

LOOP

AT

gt_kalnr

INTO

gs_kalnr.

MOVE-CORRESPONDING

gs_kalnr

TO

gs_out.

AT

END

OF

prtyp.

SUM.

IF

gs_kalnr-prtyp

=

'S'

.

gs_out-btotle

=

gs_kalnr-kst0001

+

gs_kalnr-kst0002

+

gs_kalnr-kst0004.

gs_out-bkst001

=

gs_kalnr-kst0001.

gs_out-bkst002

=

gs_kalnr-kst0002.

gs_out-bkst004

=

gs_kalnr-kst0004.

ELSE.

gs_out-stotle

=

gs_kalnr-kst0001

+

gs_kalnr-kst0002

+

gs_kalnr-kst0004.

gs_out-skst001

=

gs_kalnr-kst0001.

gs_out-skst002

=

gs_kalnr-kst0002.

gs_out-skst004

=

gs_kalnr-kst0004.

ENDIF.

"得到物料信息

READ

TABLE

gt_matnr

INTO

gs_matnr

WITH

KEY

kalnr

=

gs_out-kalnr.

IF

sy-subrc

=

0.

gs_out-matnr

=

gs_matnr-matnr.

gs_out-bwkey

=

gs_matnr-werks.

gs_out-mtart

=

gs_matnr-mtart.

lv_peinh

=

gs_matnr-peinh.

READ

TABLE

lt_makt

WITH

KEY

matnr

=

gs_matnr-matnr.

IF

sy-subrc

=

0.

gs_out-maktx

=

lt_makt-maktx.

CLEAR

lt_makt.