sap abap采购订单报表

*&---------------------------------------------------------------------**&ReportZMM_TEST01*&Author:杨路*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*REPORTZMM_TEST01.TABLES:EKKO,EKPO,EKET,MAKT.TYPE-POOLS:SLIS.类似.net引入命名空间*-----------------------------------------------------------------------**Definetypes*-----------------------------------------------------------------------*TYPES:BEGINOFTYP_LIST,BUKRSTYPEEKKO-BUKRS,EKORGTYPEEKKO-EKORG,EKGRPTYPEEKKO-EKGRP,EBELNTYPEEKKO-EBELN,EBELPTYPEEKPO-EBELP,MATNRTYPEMAKT-MATNR,MAKTXTYPEMAKT-MAKTX,MENGETYPEEKPO-MENGE,MEINSTYPEEKPO-MEINS,NETPRTYPEEKPO-NETPR,WAERSTYPEEKKO-WAERS,EINDTTYPEEKET-EINDT,ENDOFTYP_LIST.*-----------------------------------------------------------------------**Definedata*-----------------------------------------------------------------------*DATA:GTD_DATATYPESTANDARDTABLEOFTYP_LIST,GTH_DATATYPETYP_LIST.DATA:GTD_TITLETYPESLIS_T_LISTHEADER,GTH_TITLETYPESLIS_LISTHEADER.DATA:GTD_FIELDCATTYPESLIS_T_FIELDCAT_ALV,GTH_FIELDCATTYPESLIS_FIELDCAT_ALV.DATA:GTH_LAYOUTTYPESLIS_LAYOUT_ALV.DATA:GD_SPRASTYPESPRAS.dataP_DATUMtyped.*--------------------------------------------------------------------------**selection-screen*--------------------------------------------------------------------------*SELECTION-SCREENBEGINOFBLOCKB1WITHFRAMETITLETEXT-001.SELECT-OPTIONS:S_LLIEFFOREKKO-LLIEF,S_EBELNFOREKKO-EBELN,S_MATNRFOREKPO-MATNR,S_AEDATforEKKO-AEDATOBLIGATORY.SELECTION-SCREENENDOFBLOCKB1.INITIALIZATION.P_DATUM=sy-datum.P_DATUM+6(2)='01'.P_DATUM=P_DATUM.S_AEDAT-low=P_DATUM.S_AEDAT-high=sy-datum.APPENDS_AEDAT.*----------------------------------------------------------------------**START-OF-SELECTION*----------------------------------------------------------------------*START-OF-SELECTION.PERFORMSUB_GET_DATA.PERFORMSUB_DISPLAY.PERFORMSUB_CLEAR.*&---------------------------------------------------------------------**&FormSUB_GET_DATA*&---------------------------------------------------------------------**text*----------------------------------------------------------------------*FORMSUB_GET_DATA.*------SELECTHEADERDATASELECTEKKO~BUKRSEKKO~EKORGEKKO~EKGRPEKKO~EBELNEKPO~EBELPMAKT~MATNRMAKT~MAKTXEKPO~MENGEEKPO~MEINSEKPO~NETPREKKO~WAERSEKET~EINDTINTOCORRESPONDINGFIELDSOFTABLEGTD_DATAFROMEKKOINNERJOINEKPOONEKKO~EBELN=EKPO~EBELNLEFTJOINEKETONEKPO~EBELN=EKET~EBELNANDEKPO~EBELP=EKET~EBELPLEFTJOINMAKTONEKPO~MATNR=MAKT~MATNRWHEREEKKO~AEDATinS_AEDATANDEKKO~LLIEFINS_LLIEFANDEKKO~EBELNINS_EBELNANDEKPO~MATNRINS_MATNR.ENDFORM.*&---------------------------------------------------------------------**&FormSUB_TITLE*&---------------------------------------------------------------------**text*----------------------------------------------------------------------*FORMSUB_TITLE.REFRESHGTD_TITLE.CLEARGTH_TITLE.PERFORMSUB_SET_TITLEUSING'H''''采购订单报表'.PERFORMSUB_SET_TITLEUSING'S''日期:'SY-DATUM.PERFORMSUB_SET_TITLEUSING'S''作者:'SY-UNAME.ENDFORM.SET_TITLE*&---------------------------------------------------------------------**&Formsub_field*&---------------------------------------------------------------------**text*----------------------------------------------------------------------**--p1text*--p2text*----------------------------------------------------------------------*FORMSUB_FIELD.*PERFORMSUB_SET_FIELDUSING1'CHECK_BOX''GTD_DATA''''1'*'选取''X''X'''.PERFORMSUB_SET_FIELDUSING1'BUKRS''GTD_DATA''''10''公司代码''''''X'.PERFORMSUB_SET_FIELDUSING2'EKORG''GTD_DATA''''4''采购组织''''''X'.PERFORMSUB_SET_FIELDUSING3'EKGRP''GTD_DATA''''3''采购组'''''''.PERFORMSUB_SET_FIELDUSING4'EBELN''GTD_DATA''''4''采购凭证号'''''''.PERFORMSUB_SET_FIELDUSING5'EBELP''GTD_DATA''''3''项目编号'''''''.PERFORMSUB_SET_FIELDUSING6'MATNR''GTD_DATA''''10''物料号'''''''.PERFORMSUB_SET_FIELDUSING7'MAKTX''GTD_DATA''''5''物料描述''''''X'.PERFORMSUB_SET_FIELDUSING8'MENGE''GTD_DATA''''18''数量''''''X'.PERFORMSUB_SET_FIELDUSING9'MEINS''GTD_DATA''''40''单位'''''''.PERFORMSUB_SET_FIELDUSING10'NETPR''GTD_DATA''''9''价格'''''''.PERFORMSUB_SET_FIELDUSING11'WAERS''GTD_DATA''''4''货币'''''''.PERFORMSUB_SET_FIELDUSING12'EINDT''GTD_DATA''''17''交货日期'''''''.ENDFORM.sub_field*&---------------------------------------------------------------------**&Formsub_set_layout*&---------------------------------------------------------------------**设置ALV列表显示的布局*&---------------------------------------------------------------------*FORMSUB_SET_LAYOUT.CLEARGTH_LAYOUT.GTH_LAYOUT-COLWIDTH_OPTIMIZE='X'.设置为最适合的布局GTH_LAYOUT-ZEBRA='X'.ENDFORM.sub_set_layout*&---------------------------------------------------------------------**&Formset_pf_status*&---------------------------------------------------------------------**AVLSTATUS*&---------------------------------------------------------------------*FORMSET_PF_STATUSUSINGRT_EXTABTYPESLIS_T_EXTAB.SETTITLEBAR'PO2'.设置报表标题SETPF-STATUS'ZSTATUS2'.设置工具栏等ENDFORM.set_pf_status*&---------------------------------------------------------------------**&Formsub_display*&---