生產(chǎn)報工統(tǒng)計報表

版本:

VersionReleaseDateandTimeByRemarks

簽名：

Reviewed&ApprovedbyBusinessDept/BusinessProcessOwner:

NameTitleSignatureDate

BusinessDept/BusinessProcessOwner

SunSAPProject

生產(chǎn)報工統(tǒng)計報表

輸入畫面:

樂癡

aQO0Q□工..囪囪口口>>

生產(chǎn)日報表及生產(chǎn)捧工盈欠日報表

選殍條件/3

回

xr昌

投h日煙

MRP挖到看<>|

一.基本信息

■或

考

參

長

初

段

字段說字資料

度

序字段值檢核條件

名

明稱類型

一名稱

單區(qū)復(fù)選由

選是

間框帆點

一

1物料號7AEPO-

MATNR

資

排序Calculation備注

料

頁

氏跳加總小計分組

類

FieldField值

升鍵

DescriptionName度降序

型序

號

AFRU-

2順序號

APLFL,

AFRU-

3工序號

VORNR.

AFRU-

4工廠

WERKS,

AFRU-

5確認(rèn)H期

ERSDA,

AFRU-

6確認(rèn)數(shù)量

LMNGA,

AFRU-

7確認(rèn)人

ERNAM,

AFRU-確認(rèn)的廢

8

XMNGA,品

AFRU-

9計量單位

MEINH,

AFRU-機(jī)器折舊

1

ISM02,(H)

AFRU-直接人工

1

ISM03,(H)

AFRU-直接動力

1:

ISM04,(KWH)

AFRU-模具費用

1：

ISM05,(PC)

AFRU-其它制費-

1

ISM06,DT(H)

訂單中工

AFRU-

1序的工藝

AUFPL,

路線號

資

排序Calculation備注

料

頁

氏跳加總小計分組

類

FieldField值

升鍵

DescriptionName度降序

型序

AFRU-訂單的通

11

APLZL,用計數(shù)器

AFKO-

1物料號

PLNBEZ,

CIM資源

AFKO-

1;的對象類

RSHTY,

型

AFKO-資源的對

1

RSHID,象ID

工單項目

2AFKO-

ARSPS,編號

AFPO-銷售訂單

2

KDAUF,號

AFPO-銷售訂單

2

KDPOS,行項目號

AFPO-行項目數(shù)

2：

KDEIN,量

AFVC-

2工序描述

LTXA1,

AFVV-

2工序數(shù)量

MGVRG,

五，程序邏輯

1.盈欠數(shù)量=工序計劃完成數(shù)量工序?qū)嶋H已確認(rèn)良品3.

總數(shù)量+工序?qū)嶋H已確認(rèn)廢品總數(shù)量）

2.需要有每日每個匚序確認(rèn)良品數(shù)量，廢品數(shù)量的小計

參考代碼

**=?*ZPPR00-1

?PROGRAMNAME：生產(chǎn)日報表及生產(chǎn)排工盈欠日報表

*APPLICATIONNAME：PP

*SUBSYSTEM：PP

?AUTHOR：J*

*TRANSACTION:ZPPR004

*PROGRAMTYPE:Report

?SAPRELEASE：4.7C

川ROGRAMDESCRIPTION:生產(chǎn)日報表及生產(chǎn)排工盈欠日報表

*REVISIONLOG

*LOG#DATEAUTHORDESCRIPTION

?000003/04/2005JamesYang生產(chǎn)日報表及生產(chǎn)排工盈欠日報表

REPORTZPPR004NOSTANDARDPAGEHEADINGMESSAGE-IDZWL

LINE-COUNT90LINE-SIZE355.

——————————————————————————————————————

*&TABLES:

?&

TABLES:AFRU.AFKO,AFPO,AFVC,AFVV,MAKT.

*&PROGRAMVARIABLES

?&

?DATA:

--*

*daladcular?liuri

?&

DATA:BEGINOFITABOCCURS0.

AUFNRLIKEAFRU-AUFNR,”生產(chǎn)工單號

APLFLLIKEAFRU-APLFL."順序號

VORNRLIKEAFRU-VORNR,"工序號

WERKSLIKEAFRU-WERKS,"工廠

ERSDALIKEAFRU-ERSDA,“確認(rèn)日期

LMNGALIKEAFRU-LMNGA,“確認(rèn)數(shù)量

ERNAMLIKEAFRU-ERNAM,“確認(rèn)人

XMNGALIKEAFRU-XMNGA,"確認(rèn)的廢品

MEINHLIKEAFRU-MEINH."計量單位

ISM02LIKEAFRU-ISM02."機(jī)器折舊(H)

ISM03LIKEAFRU-ISM03,"直接人工00

ISM04LIKEAFRU-ISM04,"直接動力(KWH)

ISM05LIKEAFRU-ISM05,”模具費用(P0

ISM06LIKEAFRU-ISM06,"其它制費-DT(H)

AUFPLLIKEAFRU-AUFPL,"訂單中工序的工藝路線號

APLZLLIKEAFRU-APLZL."訂單的通用計數(shù)器

PLNBEZLIKEAFKO-PLNBEZ,"物料號

RSHTYLIKEAFKO-RSHTY,"CIM資源的對象類型

RSHIDLIKEAFKO-RSHID."資源的對象ID

ARSPSLIKEAFKO-ARSPS,"工單由目編號

KDAUFLIKEAFPO-KDAUF,"銷售訂單號

KDPOSLIKEAFPO-KDPOS."銷售訂單行項目號

KDEINLIKEAFPO-KDEIN."行項目數(shù)量

LTXA1LIKEAFVC-LTXA1,"工序描述

MGVRGLIKEAFVV-MGVRG,,?工序數(shù)量

LMNGA1ILIKEAFVV-LMNGA."工序總確認(rèn)數(shù)量

XMNGA1ILIKEAFW-XMNGA."工序總確認(rèn)廢品

YQSLI.IKEAFVV-MGVRG.“盈欠數(shù)量

ARBPLLIKECRHD-ARBPL."工作中心

MAKTXLIKEMAKT-MAKTX,"物料描述

?STOKZLIKEAFRU-STOKZ.,add3.18.2005被沖銷憑證的標(biāo)識

3TZHLLIKEAFRU-STZHL,”沖銷

ENDOFITAB.

*&――一?一一一一.一一一一—一―一―一—一—一—一一———―一―一—一—一———————————————————————————————

*&SELECT-OPTIONS

?&

SELECTION-SCREENBEGINOFBLOCKB1WITHFRAMETITLETEXT-001.

?PARAMETERS:

SELECT-OPTIONS:S_PLNBEZFORAFKO-PLNBEZ.

S_AUFNRFORAFRU-AUFNR.

S_WERKSFORAFRU-WERKS,

S_ERSDAFORAFRU-ERSDAOBLIGATORY.

S.DISPOFORAFKO-DISPO.

SELECTION-SCREENENDOFBLOCKB1.

*

?INITIALIZATION

*

INITIALIZATION.

?PERFORMINITIALIZATION.

?top-of-pagc

*

TOP-OF.

*PERFORMWRITE]ITLE.

?PERFORMWRITE_PAGE.

*

*End-of

END-OF.

?START-OF-SELECTION

*

START-OF-SELECTION.

PERFORMMAIN.

*&

*&FormMAIN

?text

?

*一>p1text

?<一p2text

FORMMAIN.

PERFORMSELECT_DATA.

?PERFORM?VRITE_DATA.

PERFORMWRITE_DATA_ALV.

ENDFORM."MAIN

*&FormSELECT_DATA

?&

?text

*->p1text

?<—p2text

FORMSELECT_DATA.

DATA：A(10).

DO100TIMES.

DO300TIMES.

GETTIME.

ENDDO.

A(3)=SY-INDEX.A+3=

CALLFUNCTION'SAPGUI.PROGRESS.INDICATOR,

EXPORTING

PERCENTAGE=SY-INDEX

TEXT=1正在尋找符合條件的數(shù)據(jù)..?

ENDDO.

SELECTA?AUFNRA?WERKSA?ERSDAA-LMNGAA?ERNAMA'XMNGAA-MEINHA?ISM02

A?ISM03A?ISMO4A?ISM05A?ISM06A?APLFLA-VORNRA?AUFPLA?APLZL

A?STZHLB-PLNBEZB?RSHTYB**RSHIDB-ARSPSC?ARBPL

APPENDINGCORRESPONDINGFIELDSOFTABLEITAB

FROMAFRUASAJOINAFKOASBONB-AUFNR=A?AUFNR

JOINCRHDASCONC?OBJID=A-ARBID

WHEREA?AUFNRINS_AUFNR

ANDA?WERKSINS_WERKS

ANDA-ERSDAINS_ERSDA

ANDB"PLNBEZINS_PLNBEZ

ANDB?DISPOINS_DISPO.

LOOPATITAB.

*銷售訂單行

SELECTSINGLEKDAUFKDPOSKDEININTO(ITAB-KDAUF.ITAB-KDPOS.

ITAB-KDEIN)

FROMAFPO

WHEREAUFNR=ITAB-AUFNR

ANDPOSNR=ITAB-ARSPS.

*工序描述

SELECTSINGLELTXA1INTOITAB-LTXA1

FROMAFVC

WHEREAUFPL=ITAB-AUFPL

ANDAPLZL=ITAB-APLZL.

*工序數(shù)量'總確認(rèn)良品數(shù)量'總確認(rèn)廢品數(shù)量

SELECTSINGLEMGVRGLMNGAXMNGAINTO(ITAB-MGVRG.ITAB-LMNGA1,

ITAB-XMNGA1)

FROMAFVV

WHEREAUFPL=ITAB-AUFPL

ANDAPLZL=ITAB-APLZL.

*工作中心

?SELECTSINGLEARBPLINTOITAB-ARBPLFROMCRHD

?WHEREOBJTY=ITAB-RSHTY

?ANDOBJID=ITAB-RSHID.

*物料描述

SELECTSINGLEMAKTXINTOITAB-MAKTXFROMMAKT

WHEREMATNR=ITAB-PLNBEZ

ANDSPRAS=SY-LANGU.

*盈欠數(shù)量

ITAB-YOSL=ITAB-MGVRG-ITAB-LMNGA1-ITAB-XMNGA1.

?add3.18.2005被沖銷憑證的數(shù)量為負(fù)

IFITAB-STZHLNE0.

?ITAB-MGVRG=ITAB-MGVRG*-1.

ITAB-LMNGA=ITAB-LMNGA*-1.

?ITAB-LMNGA1=ITAB-LMNGA1?-1.

ITAB-XMNGA=ITAB-XMNGA*-1.

?ITAB-XMNGA1=ITAB-XMNGA1?-1.

?ITAB-YOSL=ITAB-YQSL*-1.

ITAB-ISM02=ITAB-ISM02*-1.

ITAB-ISM03=ITAB-ISM03*-1.

ITAB-ISM04=ITAB-ISM04*-1.

ITAB-ISM05=ITAB-ISM05*-1.

ITAB-ISM06=ITAB-ISM06*-1.

ENDIF.

?endadd3.18.2005

MODIFYITAB.

B1DL00P.

SORTITABBYAUFNRAPLFLVORNRERSDA.

ENDFORM."SELECT_DATA

*

*&FormWRITE_DATA

?&

?text

?->p1text

?<一p2text

FORMWRITE_DATA.

DATA.LINTYPEI,

JTYPEI,

ORLPLIKEAFRU-LI4NGA.

ORFPLIKEAFRU-LMNGA.

ZQRLPLIKEAFRU-LMNGA.

ZQRFPLIKEAFRU-LMNGA.

YQSLLIKEAFRU-LMNGA.

JQZJLIKEAFRU-ISM02.

ZJRGLIKEAFRU-ISM02,

ZJDLLIKEAFRU-ISM02.

MJFYLIKEAFRU-ISM02.

QTFYLIKEAFRU-ISM02.

DESCRIBETABLEITABLINESLIN.

IFLIN=0.

MESSAGESOOO.

EXIT.

ENDIF.

LOOPATITAB.

J=SY-TABIX.

QRLP=QRLP+ITAB-LMNGA.

ORFP=ORFP+ITAB-XMNGA.

ZQRLP=ZQRLP+ITAB-LMNGA1.

ZQRFP=ZQRFP+ITAB-XMNGA1.

YQSL=YQSL+ITAB-YQSL.

JOZJ=JOZJ+ITAB-ISMO2.

ZJRG=ZJRG+ITAB-ISMO3.

ZJDL=ZJDL*ITAB-ISM04.

MJFY=MJFY+ITAB-ISM05.

QTFY=QTFY+ITAB-ISM06.

WRITE:/SY-VLINENO-GAP.

2(9)ITAB-WERKSNO-GAPRIGHT-JUSTIFIED,SY-VLINENO-GAP,

12(18)ITAB-PLNBEZNO-GAP.SY-VLINENO-GAP.

31(40)ITAB-MAKTXNO-GAP,3Y-VLINENO-QAP,

72(12)ITAB-AUFNRNO-GAP,SY-VLINENO-GAP,

85(10)ITAB-KDAUFNO-GAP,SY-VLINENO-GAP,

96(6)ITAB-KDPOSNO-GAP,SY-VLINENO-GAP,

103(4)ITAB-KDEINNO-GAP,SY-VLINENO-GAP,

108(6)ITAB-APLFLNO-GAP,SY-VLINENO-GAP,

115(6)ITAB-VORNRNO-GAP,SY-VLINENO-GAP.

122(40)ITAB-LTXA1NO-GAP,SY-VLINENO-GAP.

163(8)ITAB-ARBPLNO-GAP,SY-VLINENO-GAP.

172(13)ITAB-MGVRGNO-GAP.SY-VLINENO-GAP.

186(8)ITAB-ERSDANO-GAP,SY-VLINENO-GAP,

195(13)ITAB-LMNGANO-GAP.SY-VLINENO-GAP,

209(14)''NO-GAP.SY-VLINENOYAP,

224(12)ITAB-ERNAMNO-GAP.SY-VLINENO-GAP.

237(13)ITAB-XMNGANO-GAP.SY-VLINENO-GAP.

251(14)''NO-GAP,SY-VLINENO-GAP,

266(13)1'NO-GAP,SY-VLINENOYAP,"ITAB-YOSL

280(4)ITAB-MEINHNO-GAP,SY-VLINENO-GAP,

285(13)ITAB-ISM02NO-GAP,SY-VLINENO-GAP.

299(13)ITAB-ISM03NO-GAP,SY-VLINENO-GAP,

313(13)ITAB-1SM04NO-GAP.SY-VLINENO-GAP.

327(13)ITAB-1SM05NO-GAP.SY-VLINENO-GAP.

341(14)ITAB-ISM06NO-GAP.SY-VLINENO-GAP.

WRITE:/SY-ULINE.

ATENDOFVORNR.

READTABLEITABINDEXJ.

FORMATCOLOR1INTENSIFIEDON.

WRITE：/SY-VLINENO-GAP.

2(5)'小計7(4)ITAB-WERKSNO-GAP,SY-VLINENO-GAP.

12(18)ITAB-PLNBEZNO-GAP.SY-VLINENO-GAP.

31(40)ITAB-MAKTXNO-GAP,SY-VLINENO-GAP,

72(12)ITAB-AUFNRNO-GAP,SY-VLINENO-GAP,

85(10)ITAB-KDAUFNO-GAP,SY-VLINENO-GAP.

96(6)ITAB-KDPOSNO-GAP,SY-VLINENO-GAP.

103(4)ITAB-KDEINNO-GAP,SY-VLINENO-QAP,

108(6)ITAB-APLFLNO-GAP,SY-VLINENO-GAP,

115(6)ITAB-VORNRNO-GAP.SY-VLINENO-GAP,

122(40)ITAB-LTXA1NO-GAP.SY-VLINENO-GAP.

163(8)ITAB-ARBPLNO-GAP,SY-VLINENO-GAP,

172(13)''NO-GAP.SY-VLINENO-GAP.

186(8)''NO-GAP,SY-VLINENO-GAP.

195(13)QRLPNO-GAP,SY-VLINENO-GAP,

209(14)ITAB-LMNGA1NO-GAP,SY-VLINENO-GAP,

224(12)''NO-GAP.SY-VLINENO-GAP.

237(13)QRFPNO-GAP,SY-VLINENO-GAP,

251(14)ITAB-XMNGA1NO-GAP,SY-VLINENO-GAP,

266(13)ITAB-YQSLNO-GAP,SY-VLINENO-GAP,"YQSL

280(4)ITAB-MEINHNO-GAP.SY-VLINENO-GAP,

285(13)JQZJNO-GAP,SY-VLINENO-GAP,

299(13)ZJRGNO-GAP,SY-VLINENO-GAP,

313(13)ZJDLNO-GAP,SY-VLINENO-GAP,

327(13)MJFYNO-GAP,SY-VLINENO-GAP,

341(14)QTFYNO-GAP,SY-VLINENO-GAP.

WRITE:/SY-ULINE.

FORMATCOLOROFFINTENSIFIEDON.

CLEAR:ORLP,QRFP.YQSL.JQZJ,ZJRG.ZJDL.MJFY.OTFY.ZQRLP,ZQRFP.

ENDAT.

ENDLOOP.

SETLEFTSCROLL-BOUNDARYCOLUMN85.

ENDFORM."WRITE_DATA

*&

?&FormWRITE_TITLE

?text

*—>p1text

*<一p2text

*

FORMWRITE_TITLE.

NEW-LINENO-SCROLLING.

WRITE:/80'生產(chǎn)日報表及生產(chǎn)排工盈欠日報表

NEW-LINESCROLLING.

WRITE:/325.頁次：'.SY-PAGNO.

WRITE:/325，列印日期：'，SY-DATUM.

?SKIP1.

ENDFORM.■WRITE_TITLE

*&

*&FormWRITE.PAGE

*text

*

?一＞p1text

*＜一p2text

FORMWRITE_PAGE.

ULINE.

WRITE:/SY-VLINENO-GAP.

2(9)'工廠'NO-GAPRIGHT-JUSTIFIED.SY-VLINENO-GAP,

12(18)‘物料號碼'NO-GAP,SY-VLINENO-GAP,

31(40)'物料描述‘NO-GAP,SY-VLINENO-GAP.

72(12)’生產(chǎn)工單號'NO-GAP,SY-VLINENO-GAP,

85(10)'銷售訂單號'NO-GAP,SY-VLINENO-GAP.

96(6),行項目‘NO-GAP,SY-VLINENO-GAP.

103(4)‘?dāng)?shù)量’NO-GAP.SY-VLINENO-GAP.

108(6)‘順序號'NO-GAP,SY-VLINENO-GAP,

115(6),工序號,NO-GAP.SY-VLINENO-GAP,

122(40)'工序描述‘NO-GAP.SY-VLINENO-GAP.

163(8)‘工作中心’NO-GAP,SY-VLINENO-GAP,

172(13)'工序數(shù)量’NO-GAP,SY-VLINENO-GAP,

186(8)'確認(rèn)日期'NO-GAP,SY-VLINENO-GAP,

195(13)'確認(rèn)的良品'NO-GAP.SY-VLINENO-GAP.

209(14)'工序總確認(rèn)良品‘NO-GAP,SY-VLINENO-GAP.

224(12).踴認(rèn)人'NO-GAP,3Y-VLINENO-GAP,

237(13),確認(rèn)的廢品，NO-GAP,SY-VLINENO-GAP,

251(14)'工序總確認(rèn)廢品‘NO-GAP,SY-VLINENO-GAP,

266(13)‘盈欠數(shù)量’NO-GAP,SY-VLINENO-GAP.

280(4)'單位，NO-GAP.SY-VLINENO-GAP,

285(13)'機(jī)器折舊(HLNO-GAP,SY-VLINENO-GAP,

299(13),直接人工(H)'NO-GAP,SY-VLINENO-GAP,

313(13)'直接動力(KWH)，NO-GAP,SY-VLINENO-GAP.

327(13)'模具費用(PC)'NO-GAP,SY-VLINENO-GAP,

341(14)'其它制費NO-GAP,SY-VLINENO-GAP.

WRITE:/SY-ULINE.

ENDFORM,"?YRITE_PAGE

?&

?&FormWRITE_DATA_ALV

text

*—>p1text

?<一p2text

*

FORMWRITE_DATA_ALV.

DATA:LINTYPEI.

DESCRIBETABLEITABLINESLIN.

IFLIN=0.

MESSAGES000.

EXIT.

BJDIF.

TYPE-POOLS:SLIS.KKBLO.

DATA:ET_FIELDCATTYPEKKBLO_T_FIELDCAT.

DATA:CS_KKBLO_LAYOUTTYPEKKBLO_LAYOUT.

DATA:FIELDCATTYPESLIS_T_FIELDCAT_ALVWITHHEADERLINE

FIELDCATLNLIKELINEOFFIELDCAT.

SORTCATTYPESLIS_T_SORTINFO_ALVWITHHEADERLINE.

30RTCAT_LNLIKELINEOFSORTCAT,

EVENTCATTYPESLIS_T_EVENT.

EVENTCATLNLIKELINEOFEVENTCAT.

DATA:GT_LIST_TOP_OF_PAGETYPESLIS_T_LISTHEADER.

DATA:GC_FORMNAME_TOP_OF_PAGETYPESLIS.FORMNAME

VALUE'ALV_TOP_OF_PAGE'.

DATA:PS_LAYOUTTYPESLIS_LAYOUT_ALV.

DATA:NNTYPEI,

TITLETYPELVC.TITLE,

LENTYPEI.

DEFINEHOUT1.

NN=NN+1.

FIELDCAT-TABNAME='ITAB'.

FIELDCAT-FIELDNAME='&1'.

FIELDCAT-SELTEXT_M=&2.

FIELDCAT-COL_POS=NN.

FIELDCAT-OUTPUTLEN=&3.

FIELDCAT-DATATYPE='&4'.

FIELDCAT-DO_SUM='&5'.

FIELDCAT-LZERO='X'.

APPENDFIELDCAT.

CLEARFIELDCAT.

END-OF-DEFINITION.

MOVE’生產(chǎn)日報表及生產(chǎn)排工盈欠日報表.TOTITL