ABAP开发案例3.docx

1、ABAP开发案例3*&-*&ReportZSD_KHZSJ*&*&-*&*&*&-*REPORTZSD_KHZSJ.TABLES:KNA1,TSKDT,KNB1,KNVK,KNVV,knkk,s067,TVkbt,t691t.DATA:BEGINOFGT_SDFTOCCURS0,KUNNRLIKEKNA1-KUNNR,KTOKDLIKEKNA1-KTOKD,VKORGLIKEKNVV-VKORG,VTWEGLIKEKNVV-VTWEG,SPARTLIKEKNVV-SPART,NAME1LIKEKNA1-NAME1,KNURLLIKEKNA1-KNURL,SORTLLIKEKNA1-SORTL,

2、LAND1LIKEKNA1-LAND1,REGIOLIKEKNA1-REGIO,ORT01LIKEKNA1-ORT01,STRASLIKEKNA1-STRAS,ADRNRlikekna1-adrnr,EMAILlikeadr6-addrnumber,NAME2LIKEKNVK-NAME1,TELF1LIKEKNA1-TELF1,TELF2LIKEKNA1-TELF2,TELFXLIKEKNA1-TELFX,STCD5LIKEKNA1-STCD5,VTEXTLIKETSKDT-VTEXT,WAERSLIKEKNVV-WAERS,BUKRSLIKEKNB1-BUKRS,FDGRVLIKEKNB1-

3、FDGRV,AKONTLIKEKNB1-AKONT,VKBURLIKEKNVV-VKBUR,BEZEILIKETVKBT-BEZEI,NAME3LIKEKNVK-NAME1,KALKSLIKEKNVV-KALKS,ZTERMLIKEKNVV-ZTERM,INCO1LIKEKNVV-INCO1,INCO2LIKEKNVV-INCO2,KTGRDLIKEKNVV-KTGRD,klimkLIKEKNKK-KLIMK,SKFORLIKEKNKK-SKFOR,SAUFTTYPEI,OBLIGTYPEI,KLPRZTYPEI,CTLPClikeknkk-CTLPC,rtextliket691t-rtext

4、,aufsdlikekna1-aufsd,zuawalikeknb1-zuawa,SLBOXTYPECHAR1,ENDOFGT_SDFT.DATALT_TVkbtLIKETVkbtOCCURS0WITHHEADERLINE.DATA:lt_knvk1LIKEKNVKOCCURS0WITHHEADERLINE.DATA:lt_ADR61LIKEADR6OCCURS0WITHHEADERLINE.*data:so0671likes067OCCURS0WITHHEADERLINE.DATA:BEGINOFGT_TSKDTOCCURS0,KUNNRLIKEKNVI-KUNNR,VTEXTLIKETSK

5、DT-VTEXT,ENDOFGT_TSKDT.data:beginoflt_knkk1OCCURS0,kunnrlikeknkk-kunnr,olikwlikes067-olikw,ofakwlikes067-ofakw,skforlikeknkk-skfor,sauftlikes067-olikw,obliglikes067-olikw,endoflt_knkk1.DATAWK_ALVLIKELINEOFGT_SDFT.datagt_t691tliket691tOCCURS0WITHHEADERLINE.SELECTION-SCREENBEGINOFBLOCKyyWITHFRAMETITLE

6、TEXT-001.SELECT-OPTIONS:S1FORLIKP-LFART, 交货单类型S2FORLIKP-VKORG, 销售组织S3FORLIPS-VTWEG, 销售渠道S4FORLIPS-SPART, 产品组S5FORLIKP-VKBUR, 销售区域S6FORLIPS-VGBEL, 销售订单号S7FORRF02D-KUNNR, 客户编号NO-EXTENSIONNOINTERVALS.公司代码SELECTION-SCREENENDOFBLOCKyy.START-OF-SELECTION.PERFORMZSD_KHB.PERFORMFRM_ALV_GRID.END-OF-SELECTION

7、.*&-*&FormZSD_KHB*&-*text*-*-p1text*-p2text*-*FORMZSD_KHB.SELECTKNA1KUNNRKNA1KTOKDKNVVVKORGKNVVVTWEGKNVVSPARTKNA1NAME1KNA1KNURLKNA1SORTLKNA1LAND1KNA1REGIOKNA1ORT01KNA1STRASKNA1ADRNRKNA1TELF1KNA1TELF2KNA1TELFXKNA1STCD5KNVITATYPKNVITAXKDKNVVWAERSKNB1BUKRSKNB1FDGRVKNB1AKONTKNVVBZIRKKNVVKALKSKNVVZTERMKN

8、VVINCO1KNVVINCO2KNVVKTGRDKNKKKLIMKKNKKSKFORknvvvkburknkkCTLPCkna1aufsdknb1zuawaINTOCORRESPONDINGFIELDSOFTABLEGT_SDFTFROMKNA1INNERJOINKNVVONKNVVKUNNR=KNA1KUNNRINNERJOINKNVIONKNVIKUNNR=KNA1KUNNRINNERJOINKNB1ONKNB1KUNNR=KNA1KUNNRLEFTJOINKNKKONKNKKKUNNR=KNA1KUNNRWHEREKNA1KUNNRINS_KUNNRANDKNVVVKORGINS_VK

9、ORGANDKNA1NAME1INS_NAME1ANDKNA1SORTLINS_SORTLANDKNA1LAND1INS_LAND1ANDKNA1REGIOINS_REGIOANDKNA1ORT01INS_ORT01ANDKNB1BUKRSINS_BUKRS.SELECT*INTOTABLElt_knvk1FROMKNVK.SELECT*INTOTABLElt_ADR61FROMADR6.SELECT*INTOTABLELT_TVKBTFROMTVKBT.SELECTKNVIKUNNRTSKDTVTEXTINTOTABLEGT_TSKDTFROMKNA1INNERJOINKNVIONKNVIK

10、UNNR=KNA1KUNNRINNERJOINTSKDTONKNVITATYP=TSKDTTATYPANDKNVITAXKD=TSKDTTAXKD.selectknkkkunnrs067olikws067ofakwknkkskforintotablelt_knkk1fromknkkinnerjoins067onknkkknkli=s067knkli.select*intotablegt_t691tfromt691t.loopatlt_knkk1.lt_knkk1-sauft=lt_knkk1-olikw+lt_knkk1-ofakw.lt_knkk1-oblig=lt_knkk1-skfor+

11、lt_knkk1-olikw+lt_knkk1-ofakw.modifylt_knkk1TRANSPORTINGsauftoblig.endloop.LOOPATGT_SDFT.READTABLElt_knvk1WITHKEYKUNNR=GT_SDFT-KUNNRABTNR=0001.ifsy-subrc=0.MOVElt_knvk1-NAME1TOGT_SDFT-NAME2.endif.READTABLElt_knvk1WITHKEYKUNNR=GT_SDFT-KUNNRABTNR=0004.ifsy-subrc=0.MOVElt_knvk1-NAME1TOGT_SDFT-NAME3.end

12、if.*MODIFYGT_SDFTTRANSPORTINGNAME2NAME3.READTABLElt_ADR61WITHKEYADDRNUMBER=GT_SDFT-ADRNR.ifsy-subrc=0.MOVElt_ADR61-SMTP_ADDRTOGT_SDFT-EMAIL.endif.*MODIFYGT_SDFTTRANSPORTINGEMAIL.readTABLEgt_t691twithkeyctlpc=gt_sdft-ctlpc.读取风险类别ifsy-subrc=0.movegt_t691t-rtexttogt_sdft-rtext.endif.ifgt_sdft-aufsdisno

13、tINITIAL.GT_SDFT-aufsd=是.else.gt_sdft-aufsd=否.endif.READTABLEGT_TSKDTWITHKEYKUNNR=GT_SDFT.ifsy-subrc=0.MOVEGT_TSKDT-VTEXTTOGT_SDFT-VTEXT.endif.*MODIFYGT_SDFTTRANSPORTINGVTEXT.readtablelt_knkk1withkeykunnr=gt_sdft-kunnr.IFSY-SUBRC=0.movelt_knkk1-saufttogt_sdft-sauft.movelt_knkk1-obligtogt_sdft-oblig.

14、ENDIF.*modifygt_sdftTRANSPORTINGsauftoblig.IFGT_SDFT-KLIMK=0.GT_SDFT-KLPRZ=0.ELSE.gt_sdft-klprz=gt_sdft-oblig/gt_sdft-klimk*100.ENDIF.*modifygt_sdftTRANSPORTINGklprz.READTABLELT_TVKBTWITHKEYVKBUR=GT_SDFT-VKBURSPRAS=1.IFSY-SUBRC=0.MOVELT_TVKBT-BEZEITOGT_SDFT-BEZEI.ENDIF.*MODIFYGT_SDFTTRANSPORTINGbeze

15、i.modifygt_sdft.cleargt_sdft.ENDLOOP.ENDFORM.ZSD_KHB*&-*&FormFRM_ALV_GRID*&-*text*-*FORMFRM_ALV_GRID.DATA:WA_LAYOUTTYPESLIS_LAYOUT_ALV.DATA:L_I_FIELDCATTYPESLIS_T_FIELDCAT_ALV.DATA:WA_FIELDCATTYPESLIS_FIELDCAT_ALV.WA_LAYOUT-COLWIDTH_OPTIMIZE=X.WA_LAYOUT-ZEBRA=X.WA_LAYOUT-BOX_FIELDNAME=SLBOX.*设置ALVFI

16、ELDDEFINEFIELDCAT.CLEARWA_FIELDCAT.WA_FIELDCAT-FIELDNAME=&1.WA_FIELDCAT-SELTEXT_L=&2.WA_FIELDCAT-KEY=&3.WA_FIELDCAT-REF_TABNAME=&4.WA_FIELDCAT-DECIMALS_OUT=&5.*WA_FIELDCAT-EMPHASIZE=&5.APPENDWA_FIELDCATTOL_I_FIELDCAT.END-OF-DEFINITION.FIELDCATKUNNR客户编号KNA10.FIELDCATKTOKD科目组0.FIELDCATVKORG销售组织0.FIELD

17、CATVTWEG分销渠道0.FIELDCATSPART产品组0.FIELDCATNAME1客户名称0.FIELDCATZUAWA排序码0.FIELDCATKNURL网址0.FIELDCATSORTL搜索项0.FIELDCATLAND1国家0.FIELDCATREGIO省0.FIELDCATORT01市0.FIELDCATSTRAS街道0.FIELDCATEMAIL邮箱0.FIELDCATNAME2联系人0.FIELDCATTELF1电话0.FIELDCATTELF2手机0.FIELDCATTELFX传真0.FIELDCATSTCD5纳税人登记号0.FIELDCATVTEXT税分类0.FIELD

18、CATWAERS结算货币0.FIELDCATBUKRS公司代码0.FIELDCATFDGRV现金管理组0.FIELDCATAKONT统驭科目0.FIELDCATBEZEI销售区域0.FIELDCATNAME3销售员0.FIELDCATKALKS客户定价过程0.FIELDCATZTERM付款条件0.FIELDCATINCO1国际贸易条款0.FIELDCATINCO2国际贸易条款描述0.FIELDCATKTGRD账户分配组0.FIELDCATKLIMK信贷限额3.FIELDCATSKFOR应收总额3.FIELDCATSAUFT销售值3.FIELDCATAUFSD是否冻结3.FIELDCATRTEX

19、T风险类别3.FIELDCATOBLIG信贷风险总额3.FIELDCATKLPRZ已使用的信贷限额2.CALLFUNCTIONREUSE_ALV_GRID_DISPLAYEXPORTINGI_CALLBACK_PROGRAM=SY-REPID*I_CALLBACK_HTML_TOP_OF_PAGE=ALV_TOP_OF_PAGEALV输出表头设置IT_FIELDCAT=L_I_FIELDCATIS_LAYOUT=WA_LAYOUTi_save=A*I_CALLBACK_PF_STATUS_SET=FRM_SET_STATUSI_CALLBACK_USER_COMMAND=FRM_USER_CO

20、MMANDTABLEST_OUTTAB=GT_SDFTEXCEPTIONSPROGRAM_ERROR=1OTHERS=2.ENDFORM.FRM_ALV_GRIDFORMFRM_USER_COMMANDUSINGRF_UCOMMLIKESY-UCOMMRS_SELFIELDTYPESLIS_SELFIELD.#ECDATAL_KUNNRTYPEKUNNR.DATAG_GRIDTYPEREFTOCL_GUI_ALV_GRID.CASERF_UCOMM.WHEN&IC1.双击事件或是F2事件IFRS_SELFIELD-FIELDNAMEEQKUNNR.CLEARL_KUNNR.CALLFUNCTIONCONVERSION_EXIT_ALPHA_INPUTEXPORTINGINPUT=RS_SELFIELD-VALUEIMPORTING