REPORTzmm008_miro.*---------------------------------------------------------------------**程序名:ZMM008_MIRO**用途:预制发票报表明细（财务发票校验用）**说明:采购(ZMM008_DZ_MIR7)对账预制后,财务人员据此报表核对**实体/电子发票,对已预制行双击发起发票校验(MIRO过账);**已过账行置灰,只做显示,不可再次校验。**---------------------------------------------------------------------*TYPE-POOLS:slis.TABLES:rbkp,rseg,ekko,lfa1,zmm008_dzit.*----选择屏幕----SELECT-OPTIONS:s_werksFORrseg-werksDEFAULT'1000',"工厂s_lifnrFORrbkp-lifnr,"供应商(可选)s_budatFORrbkp-budat,"预制日期(按发票创建日期筛选,默认当月1日~当天)s_belnrFORrbkp-belnr,"预制/发票凭证编码s_ebelnFORrseg-ebeln,"采购订单s_ekgrpFORekko-ekgrp,"采购组s_dznoFORzmm008_dzit-zdzno."对账单号(增强:按对账编码筛选)SELECTION-SCREENBEGINOFLINE.PARAMETERS:p_allRADIOBUTTONGROUPg1DEFAULT'X'USER-COMMANDrg1.SELECTION-SCREENCOMMENT4(14)gv_c1FORFIELDp_all.PARAMETERS:p_parkRADIOBUTTONGROUPg1.SELECTION-SCREENCOMMENT22(16)gv_c2FORFIELDp_park.SELECTION-SCREENENDOFLINE.INITIALIZATION.*单选按钮注释文本(COMMENT变量由系统自动声明,此处赋值)gv_c1='全部凭证'.gv_c2='预制凭证(待过账)'.*预制日期默认值=当月1日~当天CLEARs_budat[].s_budat-sign='I'.s_budat-option='BT'.s_budat-low=sy-datum.s_budat-low+6(2)='01'."当月1日s_budat-high=sy-datum."当天APPENDs_budat.*----类型与全局数据----TYPES:BEGINOFty_rbkp,belnrTYPErbkp-belnr,gjahrTYPErbkp-gjahr,lifnrTYPErbkp-lifnr,bukrsTYPErbkp-bukrs,blartTYPErbkp-blart,waersTYPErbkp-waers,rmwwrTYPErbkp-rmwwr,budatTYPErbkp-budat,cpudtTYPErbkp-cpudt,erfnamTYPErbkp-erfnam,rbstatTYPErbkp-rbstat,xrechTYPErbkp-xrech,stblgTYPErbkp-stblg,"增强:非空=本凭证已被冲销(冲销凭证号)stjahTYPErbkp-stjah,"增强:冲销凭证年度ENDOFty_rbkp.TYPES:BEGINOFty_key,belnrTYPErbkp-belnr,gjahrTYPErbkp-gjahr,ENDOFty_key.TYPES:BEGINOFty_rseg,belnrTYPErseg-belnr,gjahrTYPErseg-gjahr,buzeiTYPErseg-buzei,ebelnTYPErseg-ebeln,ebelpTYPErseg-ebelp,werksTYPErseg-werks,wrbtrTYPErseg-wrbtr,mwskzTYPErseg-mwskz,ENDOFty_rseg.TYPES:BEGINOFty_ekko,ebelnTYPEekko-ebeln,ekgrpTYPEekko-ekgrp,ENDOFty_ekko.TYPES:BEGINOFty_lfa1,lifnrTYPElfa1-lifnr,name1TYPElfa1-name1,ENDOFty_lfa1.TYPES:BEGINOFty_poitem,ebelnTYPErseg-ebeln,ebelpTYPErseg-ebelp,ENDOFty_poitem.TYPES:BEGINOFty_grbud,ebelnTYPErseg-ebeln,ebelpTYPErseg-ebelp,budatTYPEmkpf-budat,bwartTYPEekbe-bwart,"增强:移动类型(105=收货放行,101=进冻结)ENDOFty_grbud.TYPES:BEGINOFty_grmk,mblnrTYPEmseg-mblnr,mjahrTYPEmseg-mjahr,ebelnTYPErseg-ebeln,ebelpTYPErseg-ebelp,bwartTYPEekbe-bwart,"增强:移动类型ENDOFty_grmk.TYPES:BEGINOFty_mkpf,mblnrTYPEmkpf-mblnr,mjahrTYPEmkpf-mjahr,budatTYPEmkpf-budat,ENDOFty_mkpf.TYPES:BEGINOFty_refgr,budatTYPEsy-datum,bwartTYPEekbe-bwart,"引用收货凭证的移动类型(101/105)ENDOFty_refgr.TYPES:BEGINOFty_ekbe,ebelnTYPEekbe-ebeln,ebelpTYPEekbe-ebelp,belnrTYPEekbe-belnr,"收货物料凭证号gjahrTYPEekbe-gjahr,"收货物料凭证年度bwartTYPEekbe-bwart,"增强:移动类型(101/103/105/122/161...)lfbnrTYPEekbe-lfbnr,"增强:105放行凭证引用的103/101冻结凭证lfgjaTYPEekbe-lfgja,"增强:引用冻结凭证年度ENDOFty_ekbe.TYPES:BEGINOFty_ekst,belnrTYPEekbe-belnr,"发票凭证号gjahrTYPEekbe-gjahr,"年度vgabeTYPEekbe-vgabe,"事务类型:2=已过账P=已预制ebelnTYPEekbe-ebeln,"增强:PO号ebelpTYPEekbe-ebelp,"增强:PO行号lfbnrTYPEekbe-lfbnr,"增强:发票引用的收货物料凭证lfgjaTYPEekbe-lfgja,"增强:引用收货物料凭证年度ENDOFty_ekst.TYPES:BEGINOFty_out,colorTYPEchar4,"行颜色(ALV)lifnrTYPElifnr,"供应商name1TYPEname1,"供应商名称zperiodTYPEchar25,"对账周期范围zrefgrTYPEchar120,"诊断:发票引用的收货凭证明细zdznoTYPEzmm008_dzit-zdzno,"对账单编码(预制时写入ZMM008_DZIT)belnrTYPErbkp-belnr,"预制/发票凭证号gjahrTYPErbkp-gjahr,"年度zdtypeTYPEchar6,"凭证类别(发票/贷项)blartTYPErbkp-blart,"凭证类型budatTYPErbkp-budat,"过账日期erdatTYPErbkp-cpudt,"创建日期waersTYPEwaers,"币种ekgrpTYPEekgrp,"采购组werksTYPEwerks_d,"工厂mwskzTYPEmwskz,"税码netwrTYPErbkp-rmwwr,"汇总金额(不含税)wmwstTYPErbkp-rmwwr,"税额wrbtrTYPErbkp-rmwwr,"含税总金额zrateTYPEpLENGTH5DECIMALS2,"税率(%)statusTYPEchar10,"状态zparkedTYPEchar1,"X=已预制(可校验)空=已过账ENDOFty_out.DATA:gt_outTYPETABLEOFty_out,gs_outTYPEty_out.*----ALV----DATA:gt_fieldcatTYPEslis_t_fieldcat_alv,gs_layoutTYPEslis_layout_alv,gs_variantTYPEdisvariant.START-OF-SELECTION.PERFORMget_data.PERFORMshow_alv.*---------------------------------------------------------------------**FormGET_DATA*---------------------------------------------------------------------*FORMget_data.DATA:lt_rbkpTYPETABLEOFty_rbkp,ls_rbkpLIKELINEOFlt_rbkp,lt_keysTYPETABLEOFty_key,ls_keyLIKELINEOFlt_keys,lt_rsegTYPETABLEOFty_rseg,ls_rsegLIKELINEOFlt_rseg,lt_ekkoTYPETABLEOFty_ekko,ls_ekkoLIKELINEOFlt_ekko,n