ALV_GRID+动态显示列

ALV_GRID+动态显示列程序中带有select*的代码请见谅,由于并不十分影响此程序性能,因此没有修改.Description:YCOR1004_N单船收入成本明细表*---------------------------------------------------------------------**PROGRAMID:YCOR1004**APPLICATIONNAME:CO**AUTHOR:Victor.Pan**TRANSACTION:ZCOR06**PROGRAMTYPE:REPORT**OUTPUT:ALV_TREEDYNAMICOUTPUT**SAPRELEASE:4.6C**DESCRIPTION:单船收入成本明细表**CREATEDTIME:2006-11-11**---------------------------------------------------------------------**LOGDATERELCHANGEDESCRIPTIONWHO**=====================================================================**0012006-12-01LAST-CHANGEDCOMMENTARYVictor.Pan**---------------------------------------------------------------------*REPORTYCOR1004.includeYCOR1004_TOP_N.*ScreenelementsSELECTION-SCREENBEGINOFBLOCKRAD1WITHFRAMETITLETEXT-003.PARAMETERS:BUKRSLIKEBSEG-BUKRSOBLIGATORY.公司代码SELECT-OPTIONS:ABPERFORBSEG-ABPEROBLIGATORY.期间*PARAMETERS:CGPLIKEGRPDYNP-NAME_COALLDEFAULT'GD01'.PARAMETERS:VRLIKEZCO04_B-ZVARIANTDEFAULT'1'MATCHCODEOBJECTZCOVARIANT.SELECTION-SCREENENDOFBLOCKRAD1.SELECTION-SCREENBEGINOFBLOCKRAD2WITHFRAMETITLETEXT-002.PARAMETERS:H1RADIOBUTTONGROUPA1USER-COMMANDSELEDEFAULT'X'.半成品PARAMETERS:H2RADIOBUTTONGROUPA1.产成品SELECT-OPTIONS:PRCTRFORCOAS-PRCTR.利润中心SELECTION-SCREENENDOFBLOCKRAD2.SELECTION-SCREENBEGINOFBLOCKRAD3WITHFRAMETITLETEXT-001.PARAMETERS:M1RADIOBUTTONGROUPA2USER-COMMANDSELEDEFAULT'X'.千元PARAMETERS:M2RADIOBUTTONGROUPA2.元SELECTION-SCREENENDOFBLOCKRAD3.*ATSELECTION-SCREENONVALUE-REQUESTFORPRCTR-LOW.*PERFORMGET_F4CHANGINGPRCTR-LOW.*ATSELECTION-SCREENONVALUE-REQUESTFORPRCTR-HIGH.*PERFORMGET_F4CHANGINGPRCTR-HIGH.ATSELECTION-SCREEN.AUTHORITY-CHECKOBJECT'ZBUKRS'ID'BUKRS'FIELDBUKRS.IFSY-SUBRC0.MESSAGEE000(ZFI01)WITH'没有此公司代码权限'.ENDIF.START-OF-SELECTION.PERFORMGET_PRCTR.获得列润中心与订单PERFORMGET_SALE_COST_ELEMENTTABLESSALE_COST_ELEMENTUSINGVR.获得销售成本要素CALLSCREEN100.includeYCOR1004_PROCESS_DATA_N.includeYCOR1004_FORMS_N.*Textelements*----------------------------------------------------------*001单位选择*002半成品/产成品*003选择条件*Selectiontexts*----------------------------------------------------------*ABPER期间*BUKRS公司代码*CGP成本要素组*H1半成品*H2产成品*M1千元*M2元*PRCTR利润中心*VR变式*Messages*----------------------------------------------------------**Messageclass:ZFI01*000&1&2&3&4&5ExtractedbyDirectDownload46cdversion1.3.1-E.G.Mellodew.1998-2005UK.SapRelease46CDescription:YCOR1004_TOP_NIncludeYCOR1004_TOP*----------------------------------------------------------------------**INCLUDEYCOR1004_TOP**----------------------------------------------------------------------*TABLES:BSIS,AUFK,COSP,BSEG,COAS,COSS,ZCO04_A,BKPF,CSKA.DATA:BEGINOFORDER_LISTOCCURS0,订单列表ORDERLIKEAUFK-AUFNR,ENDOFORDER_LIST.DATA:BEGINOFF4_LISTOCCURS0,ORDER_10LIKEAUFK-AUFNR,TEXTLIKEpa0002-nachn,ORDERLIKEAUFK-AUFNR,ENDOFF4_LIST.DATA:BEGINOFF4_LIST_SHOWOCCURS0,PRCTRLIKECOAS-PRCTR,TEXTLIKECOAS-KTEXT,ENDOFF4_LIST_SHOW.DATA:BEGINOFCOST_ELEMENTOCCURS0,成本要素列表ELEMENTLIKECOSP-KSTAR,Z1LIKEZCO04_A-Z1,取数属性ATTRLIKEZCO04_A-ATTR,+/-属性ENDOFCOST_ELEMENT.DATA:BEGINOFCOST_ELEMENT_GROUPOCCURS0,成本要素组列表ELEMENT_GROUPLIKEGRPDYNP-NAME_COALL,Z1LIKEZCO04_A-Z1,取数属性ATTRLIKEZCO04_A-ATTR,+/-属性ENDOFCOST_ELEMENT_GROUP.DATA:CG01LIKECOST_ELEMENT_GROUPOCCURS0WITHHEADERLINE.DATA:CE01LIKECOST_ELEMENTOCCURS0WITHHEADERLINE.DATA:SALE_COST_ELEMENTLIKECOST_ELEMENTOCCURS0WITHHEADERLINE.DATA:NEW_TABLETYPEREFTODATA.DATA:NEW_LINETYPEREFTODATA.FIELD-SYMBOLS:TYPEANYTABLE,TYPEANY.DATA:gt_fieldcatalogTYPElvc_t_fcat.DATA:it_fieldcatTYPElvc_t_fcat.CREATETABLESTRUCTUREdata:gt_fieldcattypelvc_t_fcat.displaystructureDATA:is_fieldcatLIKELINEOFit_fieldcat.WORKAREADATA:CONTAINER1TYPEREFTOCL_GUI_CUSTOM_CONTAINER.DATA:GO_GRIDTYPEREFTOCL_GUI_ALV_GRID.DATA:LAST_COMMANDTYPESY-UCOMM.DATA:TH1TYPEBSIS-HKONT.ExtractedbyDirectDownload46cdversion1.3.1-E.G.Mellodew.1998-2005UK.SapRelease46CDescription:YCOR1004_PROCESS_DATA_NIncludeYCOR1004_PROCESS_DATA*----------------------------------------------------------------------**INCLUDEYCOR1004_PROCESS_DATA**----------------------------------------------------------------------**&---------------------------------------------------------------------**&FormGET_PRCTR*&---------------------------------------------------------------------**text*----------------------------------------------------------------------**--p1text*--p2text*----------------------------------------------------------------------*FORMGET_PRCTR.CLEARORDER_LIST[].CLEARF4_LIST[].CLEARF4_LIST_SHOW[].DATA:T1TYPEBSEG-ABPER.成品与半成品IFH1='X'.TH1='1121020100'.ELSEIFH2='X'.TH1='1121040100'.ENDIF.SELECT*FROMBSISWHEREBLART='SB'ANDBUKRS=BUKRSANDPRCTRINPRCTRANDHKONT=TH1.T1=BSIS-BUDAT(6).IFT1INABPER.CLEAR:BSEG,ORDER_LIST-ORDER.*SELECTSINGLEZUONRFROMBSEGINTOORDER_LIST-ORDER*WHEREBELNR=BSIS-BELNR*ANDGJAHR=BSIS-GJAHR*ANDBUKRS=BUKRS*ANDWRBTR0.*IFORDER_LIST-ORDER''.ORDER_LIST-ORDER=BSIS-ZUONR.APPENDORDER_LIST.加入订单列表*ENDIF.ENDIF.ENDSELECT.SORTORDER_LISTBYORDER.DELETEADJACENTDUPLICATESFROMORDER_LIST.删除冗余CREATEF4_LISTLOOPATORDER_LIST.SELECTPRCTRFROMCOASINTOF4_LIST_SHOW-PRCTRWHEREAUFNR=ORDER_LIST-ORDER.PERFORMGET_PRCTR_TEXTUSINGF4_LIST_SHOW-PRCTRCHANG