bdc程序实例.doc

*&-*&ReportZMM_FPYH_FPCX*&程序描述：国家电网发票优化信息查询&*&开发人员：LeiZhang&*&创建日期：2011/08/18&*&程序用途：&*&-更改记录-&*&日期更改人.更改版本主要更改内容描述&*&*&-&*REPORTzmm_fpyh_fpyz.TYPE-POOLS:slis,cndp,vrm.TABLES:zmm_fpxx,ekbe,usr02.TYPES:BEGINOFiy_zmm_fpxx,cgddhTYPEzmm_fpxx-cgddh,采购凭证号*修改后的数据fphaTYPEzmm_fpxx-fpha,发票号fpdmaTYPEzmm_fpxx-fpdma,发票代码zwsbmaTYPEzmm_fpxx-zwsbma,财务识别码fprqaTYPEzmm_fpxx-fprqa,发票日期gfshaTYPEzmm_fpxx-gfsha,购方税号xfshaTYPEzmm_fpxx-xfsha,销方税号jeaTYPEzmm_fpxx-sea,金额seaTYPEzmm_fpxx-sea,税额*扫描数据fphTYPEzmm_fpxx-fph,发票号fpdmTYPEzmm_fpxx-fpdm,发票代码zwsbmTYPEzmm_fpxx-zwsbm,财务识别码fprqTYPEzmm_fpxx-fprq,发票日期gfshTYPEzmm_fpxx-gfsh,购方税号xfshTYPEzmm_fpxx-xfsh,销方税号jeTYPEzmm_fpxx-je,金额seTYPEzmm_fpxx-se,税额fpysryTYPEzmm_fpxx-fpysry,fpysrqTYPEzmm_fpxx-fpysrq,发票验审日期fpysztTYPEzmm_fpxx-fpyszt,发票验审状态（0：未验审1：已验审2：拒绝）ysztms(6),发票验审状态描述fpyzrqTYPEzmm_fpxx-fpyzrq,发票预制日期yzpzndTYPEekbe-gjahr,会计预制凭证年度gzpzndTYPEekbe-gjahr,会计过账凭证年度fpyzpzhTYPEzmm_fpxx-fpyzpzh,发票预制的凭证编号fpgzpzhTYPEbkpf-belnr,发票过账的凭证编号fpgzrqTYPEbkpf-budat,发票过账日期fpsbrqTYPEzmm_fpxx-fpsbrq,发票申报数据上传日期fpsbjeTYPEzmm_fpxx-fpsbje,发票申报金额fpsbseTYPEzmm_fpxx-fpsbse,发票申报税额*FPCSPCTYPEZMM_FPXX-FPCSPC,发票传输批次：日期+时间wjljTYPEzmm_fpxx-wjlj,文件路径wjmcTYPEzmm_fpxx-wjmc,doknrTYPEzmm_fpxx-doknr,w_fpsbbjTYPEicon-internal,发票申报金额和发票金额比较lifnrLIKElfa1-lifnr,供应商号name1LIKElfa1-name1,供应商名称w_hthsjeLIKEzmm_fpxx-se,采购订单含税总额w_htjeLIKEzmm_fpxx-se,采购订单不含税总额w_seLIKEzmm_fpxx-se,采购订单税额prartLIKEprps-prart,项目类型anlzuLIKEcaufvd-anlzu,系统状态checkTYPEc,fplyTYPEzmm_fpxx-fply,发票来源（：扫描X：手工）fplyms(8)TYPEc,发票来源描述fpxgztTYPEzmm_fpxx-fpxgzt,发票修改状态fpxgms(6)TYPEc,发票修改状态描述colorTYPElvc_t_scol,ENDOFiy_zmm_fpxx.DATA:BEGINOFit_pzscOCCURS0,cgddhTYPEzmm_fpxx-cgddh,采购凭证号yzpzndTYPEekbe-gjahr,会计预制凭证年度fpyzpzhTYPEzmm_fpxx-fpyzpzh,发票预制的凭证编号ENDOFit_pzsc.DATA:wa_zmm_fpxxTYPEiy_zmm_fpxx,wa_zmm_fpxx1TYPEiy_zmm_fpxx,it_zmm_fpxxTYPESTANDARDTABLEOFiy_zmm_fpxxWITHHEADERLINE,wa_fieldcatTYPEslis_fieldcat_alv,wa_glayLIKElvc_s_glay,w_statusTYPEslis_formnameVALUEFOM_STATUS,it_fieldcatTYPEslis_t_fieldcat_alv.DATA:BEGINOFit_cgddhOCCURS0,cgddhTYPEekko-ebeln,ENDOFit_cgddh.*-LN-ZQLIUDATA:it_sortTYPEslis_t_sortinfo_alv.DATA:BEGINOFit_ekpoOCCURS0,ebelnLIKEekpo-ebeln,ebelpLIKEekpo-ebelp,netwrTYPEekpo-netwr,brtwrTYPEekpo-brtwr,mwskzTYPEekpo-mwskz,matnrTYPEekpo-matnr,werksTYPEekpo-werks,nplnrTYPEekkn-nplnr,netprTYPEekpo-netpr,kzwi3TYPEekpo-kzwi3,mengeTYPEekpo-menge,peinhTYPEekpo-peinh,ps_psp_pnrTYPEekkn-ps_psp_pnr,ENDOFit_ekpo.DATA:BEGINOFit_ekkoOCCURS0,ebelnLIKEekko-ebeln,bsartLIKEekko-bsart,kalsmLIKEekko-kalsm,ENDOFit_ekko.DATA:BEGINOFit_ekknOCCURS0,ebelnLIKEekkn-ebeln,ebelpLIKEekkn-ebelp,mengeLIKEekkn-menge,nplnrTYPEekkn-nplnr,ps_psp_pnrTYPEekkn-ps_psp_pnr,ENDOFit_ekkn.DATA:BEGINOFit_prartOCCURS0,ebelnLIKEekko-ebeln,prartLIKEprps-prart,anlzuLIKEcaufvd-anlzu,系统状态ENDOFit_prart.DATA:BEGINOFit_htjeOCCURS0,ebelnLIKEekpo-ebeln,netwrTYPEekpo-netwr,brtwrTYPEekpo-brtwr,htseTYPEekpo-brtwr,ENDOFit_htje.DATA:BEGINOFit_ekbeOCCURS0,ebelnTYPEekbe-ebeln,vgabeTYPEekbe-vgabe,ebelpTYPEekbe-ebelp,wrbtrTYPEekbe-wrbtr,shkzgTYPEekbe-shkzg,ENDOFit_ekbe.DATA:wa_ekbeLIKEit_ekbe.DATA:BEGINOFit_ekbe2OCCURS0,ebelnTYPEekbe-ebeln,vgabeTYPEekbe-vgabe,wrbtrTYPEekbe-wrbtr,ENDOFit_ekbe2.DATA:wa_ekbe2_1LIKEit_ekbe2.DATA:wa_ekbe2_2LIKEit_ekbe2.DATA:BEGINOFit_ebelnOCCURS0,ebelnLIKEekbe-ebeln,ebelpLIKEekbe-ebelp,vgabeLIKEekbe-vgabe,gjahrLIKEekbe-gjahr,belnrLIKEekbe-belnr,buzeiLIKEekbe-buzei,mengeLIKEekbe-menge,netprLIKEekpo-netpr,meinsLIKEekpo-meins,ENDOFit_ebeln.DATA:BEGINOFit_gysOCCURS0,ebelnLIKEekko-ebeln,lifnrLIKElfa1-lifnr,name1LIKElfa1-name1,stcegLIKElfa1-stceg,bsartTYPEekko-bsart,ENDOFit_gys.DATA:BEGINOFit_fpxxOCCURS0,fphaLIKEzmm_fpxx-fpha,fpdmaLIKEzmm_fpxx-fpdma,cgddhLIKEzmm_fpxx-cgddh,jeaLIKEzmm_fpxx-jea,seaLIKEzmm_fpxx-sea,ENDOFit_fpxx.DATA:w_jeLIKEzmm_fpxx-jea.发票全部金额*DATA:BEGINOFit_rsegOCCURS0,belnrTYPErseg-belnr,ENDOFit_rseg.DATA:lt_returnLIKETABLEOFbapiret2,ls_returnLIKEbapiret2.DATA:vp_eindTYPEc.RANGES:rs_cgddhFORekpo-ebeln.DATA:BEGINOFls_cgddhOCCURS0,cgddhLIKEzmm_fpxx-cgddh,ENDOFls_cgddh.DATA:it_zmm_scclTYPEzmm_scclOCCURS0WITHHEADERLINE.DATA:it_returnTYPEbapiret2OCCURS0WITHHEADERLINE.DATA:wa_colorTYPElvc_s_scol.DATAdockingTYPEREFTOcl_gui_docking_container.DATA:wa_documentdataLIKEbapi_doc_draw2.DATA:v_pathTYPEchar30VALUE/usr/sap/trans/sapdoc/.*-END*用于刷新ALV列表DATA:lw_gridTYPEREFTOcl_gui_alv_grid.*DATA:BEGINOFit_belnrOCCURS0,belnrTYPErbkp-belnr,gjahrTYPErbkp-gjahr,ENDOFit_belnr.DATA:BEGINOFit_rbkpOCCURS0,belnrTYPErbkp-belnr,gjahrTYPErbkp-gjahr,stblgTYPErbkp-stblg,stjahTYPErbkp-stjah,ENDOFit_rbkp.DATA:BEGINOFit_awkeyOCCURS0,awkeyTYPEbkpf-awkey,ENDOFit_awkey.DATA:BEGINOFit_bkpfOCCURS0,belnrTYPEbkpf-belnr,gjahrTYPEbkpf-gjahr,budatTYPEbkpf-budat,stblgTYPEbkpf-stblg,stjahTYPEbkpf-stjah,awkeyTYPEbkpf-awkey,ENDOFit_bkpf.DATAl_answerTYPEc.*定义显示图片DATA:ok_codeTYPEsy-ucomm.DATAurlTYPEcndp_url.URL-fieldinscreenDATApicture_controlTYPEREFTOcl_gui_picture.DATAcontainerTYPEREFTOcl_gui_custom_container.DATA:dts(50)TYPEc.DATA:graphic_url(100)TYPEc.DATA:g_resultTYPEi.DATA:BEGINOFit_dataOCCURS0,my_data(500)TYPEx,ENDOFit_data.DATApath_stringTYPEstring.*-定义下拉列表DATA:nameTYPEvrm_id,listbox的名称listTYPEvrm_values,listbox的值valueLIKELINEOFlist.listbox的结构*BDCDATA:it_bdcdataTYPEbdcdataOCCURS0WITHHEADERLINE.DATA:it_bdcmsgTYPEbdcmsgcollOCCURS0WITHHEADERLINE.DATA:v_modeTYPEc.v_mode=N.SELECTION-SCREENBEGINOFBLOCKbl1WITHFRAMETITLEtext-001.SELECT-OPTIONS:p_cgddhFORzmm_fpxx-cgddh,p_fphaFORzmm_fpxx-fpha,p_fpdmaFORzmm_fpxx-fpdma,p_fprqaFORzmm_fpxx-fprqa,p_xfshaFORzmm_fpxx-xfsha.SELECTION-SCREENENDOFBLOCKbl1.SELECTION-SCREENBEGINOFBLOCKbl2WITHFRAMETITLEtext-002.SELECT-OPTIONS:p_fpysrqFORzmm_fpxx-fpysrq,p_fpysryFORusr02-bname.*p_fpysztFORzmm_fpxx-fpysztNOINTERVALS,*p_fpyzpzFORzmm_fpxx-fpyzpzh,*p_fpyzrqFORzmm_fpxx-fpyzrq,*p_fpgzpzFORzmm_fpxx-fpyzpzh,*p_fpgzrqFORzmm_fpxx-fpyzrq.*SELECT-OPTIONS:s_fpsbrqFORzmm_fpxx-fpsbrq.*PARAMETERS:p_fpsbje(6)TYPEcASLISTBOXVISIBLELENGTH6.SELECTION-SCREENENDOFBLOCKbl2.ATSELECTION-SCREENOUTPUT.PERFORMadd_list.START-OF-SELECTION.PERFORMget_data.IFit_zmm_fpxxISNOTINITIAL.PERFORMadd_fieldcat.PERFORMfrm_sort_event.PERFORMdisplay_outdata.ENDIF.*&-*&FormADD_LIST*&-*text*-*-p1text*p1text*-p2text*-*FORMget_data.DATA:l_awkeyTYPEbkpf-awkey.RANGES:range_ebelnFORekko-ebeln.CLEARit_zmm_fpxx.REFRESH:rs_cgddh,ls_cgddh.IFp_fphaISNOTINITIAL.SELECTDISTINCTcgddhFROMzmm_fpxxINTOCORRESPONDINGFIELDSOFTABLEls_cgddhWHEREfphaINp_fphaANDcgddhINp_cgddh.IFls_cgddhISNOTINITIAL.LOOPATls_cgddh.rs_cgddh-low=ls_cgddh-cgddh.rs_cgddh-sign=I.rs_cgddh-option=EQ.APPENDrs_cgddh.ENDLOOP.ELSE.RETURN.ENDIF.ELSE.APPENDLINESOFp_cgddhTOrs_cgddh.ENDIF.SELECTfplyfpxgztcgddh*修改后的数据fphafpdmazwsbmafprqagfshaxfshajeasea*扫描数据fphfpdmzwsbmfprqgfshxfshjese*其他信息fpysryfpysrqfpysztfpyzrqfpyzpzh*fpgzpzhyzpznd*gzpznd*fpgzrqfpsbrqfpsbjefpsbse*FPCSPCwjljwjmcdoknrINTOCORRESPONDINGFIELDSOFTABLEit_zmm_fpxxFROMzmm_fpxxWHEREcgddhINrs_cgddh采购凭证号ANDfpdmaINp_fpdma发票代码ANDfprqaINp_fprqa发票日期ANDxfshaINp_xfsha供应商税号ANDfpyszt=1验审状态ANDfpysrqINp_fpysrq验审日期ANDfpysryINp_fpysry.IFit_zmm_fpxxISINITIAL.MESSAGE查询条件没有对应的数据可以显示！TYPEI.ELSE.REFRESH:range_ebeln.LOOPATit_zmm_fpxx.range_ebeln-sign=I.range_ebeln-option=EQ.range_ebeln-low=it_zmm_fpxx-cgddh.COLLECTrange_ebeln.ENDLOOP.SELECTDISTINCTbelnrINTOCORRESPONDINGFIELDSOFTABLEit_rsegFROMrsegWHEREebelnINrange_ebeln.*获取合同金额，不含税金额，税额PERFORMfrm_get_htje.*获取供应商号码和名称PERFORMfrm_get_gys.*获取项目类型,系统状态PERFORMfrm_get_prart.REFRESH:it_belnr,it_awkey.LOOPATit_zmm_fpxx.IFit_zmm_fpxx-fpyzpzhISNOTINITIAL.it_belnr-belnr=it_zmm_fpxx-fpyzpzh.it_belnr-gjahr=it_zmm_fpxx-yzpznd.COLLECTit_belnr.CONCATENATEit_zmm_fpxx-fpyzpzhit_zmm_fpxx-yzpzndINTOit_awkey-awkey.COLLECTit_awkey.ENDIF.ENDLOOP.IFit_belnrISNOTINITIAL.SELECTbelnrgjahrstblgstjahINTOCORRESPONDINGFIELDSOFTABLEit_rbkpFROMrbkpFORALLENTRIESINit_belnrWHEREbelnr=it_belnr-belnrANDgjahr=it_belnr-gjahr.SELECTbelnrgjahrbudatstblgstjahawkeyFROMbkpfINTOCORRESPONDINGFIELDSOFTABLEit_bkpfFORALLENTRIESINit_awkeyWHEREawkey=it_awkey-awkeyANDbstat=.ENDIF.LOOPATit_zmm_fpxxINTOwa_zmm_fpxx.CLEAR:it_rbkp.CLEAR:it_bkpf.IFwa_zmm_fpxx-fpyzpzhISNOTINITIAL.READTABLEit_rbkpWITHKEYbelnr=wa_zmm_fpxx-fpyzpzhgjahr=wa_zmm_fpxx-yzpznd.IFsy-subrc=0ANDit_rbkp-stblg.CLEAR:wa_zmm_fpxx-fpyzpzh,wa_zmm_fpxx-yzpznd,wa_zmm_fpxx-fpyzrq.UPDATEzmm_fpxxSETfpyzpzh=yzpznd=fpyzrq=WHEREcgddh=wa_zmm_fpxx-cgddhANDfpha=wa_zmm_fpxx-fpha.ENDIF.CONCATENATEwa_zmm_fpxx-fpyzpzhwa_zmm_fpxx-yzpzndINTOl_awkey.READTABLEit_bkpfWITHKEYawkey=l_awkey.IFsy-subrc=0ANDit_bkpf-stblg=.wa_zmm_fpxx-fpgzpzh=it_bkpf-belnr.wa_zmm_fpxx-gzpznd=it_bkpf-gjahr.wa_zmm_fpxx-fpgzrq=it_bkpf-budat.ENDIF.ENDIF.IFwa_zmm_fpxx-fpyzpzhISNOTINITIAL.READTABLEit_rsegWITHKEYbelnr=wa_zmm_fpxx-fpyzpzh.IFsy-subrc0.CLEAR:wa_zmm_fpxx-fpyzpzh,wa_zmm_fpxx-yzpznd,wa_zmm_fpxx-fpyzrq.UPDATEzmm_fpxxSETfpyzpzh=yzpznd=fpyzrq=WHEREcgddh=wa_zmm_fpxx-cgddhANDfpha=wa_zmm_fpxx-fpha.ENDIF.ENDIF.READTABLEit_htjeWITHKEYebeln=wa_zmm_fpxx-cgddh.IFsy-subrc=0.wa_zmm_fpxx-w_hthsje=it_htje-brtwr.wa_zmm_fpxx-w_htje=it_htje-netwr.wa_zmm_fpxx-w_se=it_htje-htse.ENDIF.READTABLEit_gysWITHKEYebeln=wa_zmm_fpxx-cgddh.IFsy-subrc=0.wa_zmm_fpxx-lifnr=it_gys-lifnr.wa_zmm_fpxx-name1=it_gys-name1.ENDIF.READTABLEit_prartWITHKEYebeln=wa_zmm_fpxx-cgddh.IFsy-subrc=0.wa_zmm_fpxx-prart=it_prart-prart.wa_zmm_fpxx-anlzu=it_prart-anlzu.ENDIF.IFwa_zmm_fpxx-fply=X.wa_zmm_fpxx-fplyms=手工录入.ELSE.wa_zmm_fpxx-fplyms=自动扫描.ENDIF.IFwa_zmm_fpxx-fpxgzt=X.wa_zmm_fpxx-fpxgms=已修改.ELSE.wa_zmm_fpxx-fpxgms=未修改.ENDIF.IFwa_zmm_fpxx-fpyszt=0.wa_zmm_fpxx-ysztms=未验审.ELSEIFwa_zmm_fpxx-fpyszt=1.wa_zmm_fpxx-ysztms=已验审.ELSE.wa_zmm_fpxx-ysztms=拒绝.ENDIF.IFwa_zmm_fpxx-fpsbje=wa_zmm_fpxx-jea.wa_zmm_fpxx-w_fpsbbj=5B.ELSE.wa_zmm_fpxx-w_fpsbbj=5C.ENDIF.IFwa_zmm_fpxx-fpxgzt=X.*FPHIFwa_zmm_fpxx-fphwa_zmm_fpxx-fpha.wa_color-fname=FPHA.wa_color-color-col=6.wa_color-color-int=1.APPENDwa_colorTOwa_zmm_fpxx-color.ENDIF.*FPDMIFwa_zmm_fpxx-fpdmwa_zmm_fpxx-fpdma.wa_color-fname=FPDMA.wa_color-color-col=6.wa_color-color-int=1.APPENDwa_colorTOwa_zmm_fpxx-color.ENDIF.*FPRQIFwa_zmm_fpxx-fprqwa_zmm_fpxx-fprqa.wa_color-fname=FPRQA.wa_color-color-col=6.wa_color-color-int=1.APPENDwa_colorTOwa_zmm_fpxx-color.ENDIF.*GFSHIFwa_zmm_fpxx-gfshwa_zmm_fpxx-gfsha.wa_color-fname=GFSHA.wa_color-color-col=6.wa_color-color-int=1.APPENDwa_colorTOwa_zmm_fpxx-color.ENDIF.*XFSHIFwa_zmm_fpxx-xfshwa_zmm_fpxx-xfsha.wa_color-fname=XFSHA.wa_color-color-col=6.wa_color-color-int=1.APPENDwa_colorTOwa_zmm_fpxx-color.ENDIF.*JEIFwa_zmm_fpxx-jewa_zmm_fpxx-jea.wa_color-fname=JEA.wa_color-color-col=6.wa_color-colo