ABAP开发案例3Word文档格式.docx

1、KNB1-FDGRV,AKONTKNB1-AKONT,VKBURKNVV-VKBUR,BEZEITVKBT-BEZEI,NAME3KNVK-NAME1,KALKSKNVV-KALKS,ZTERMKNVV-ZTERM,INCO1KNVV-INCO1,INCO2KNVV-INCO2,KTGRDKNVV-KTGRD,klimkKNKK-KLIMK,SKFORKNKK-SKFOR,SAUFTTYPEI,OBLIGI,KLPRZI,CTLPCknkk-CTLPC,rtextt691t-rtext,aufsdkna1-aufsd,zuawaknb1-zuawa,SLBOXCHAR1,ENDGT_SDFT.

2、DATALT_TVkbtTVkbt0WITHHEADERLINE.lt_knvk1KNVKlt_ADR61ADR6*data:so0671s067GT_TSKDTKNVI-KUNNR,TSKDT-VTEXT,GT_TSKDT.data:beginoflt_knkk1kunnrknkk-kunnr,olikws067-olikw,ofakws067-ofakw,skforknkk-skfor,sauftobligendlt_knkk1.WK_ALVLINEdatagt_t691tt691tSELECTION-SCREENBLOCKyyFRAMETITLETEXT-001.SELECT-OPTIO

3、NS:S1FORLIKP-LFART, 交货单类型S2LIKP-VKORG, 销售组织S3LIPS-VTWEG, 销售渠道S4LIPS-SPART, 产品组S5LIKP-VKBUR, 销售区域S6LIPS-VGBEL, 销售订单号S7RF02D-KUNNR, 客户编号NO-EXTENSIONNOINTERVALS.公司代码yy.START-OF-SELECTION.PERFORMZSD_KHB.FRM_ALV_GRID.END-OF-SELECTION.FormZSD_KHB*text*-*-p1-p2FORMZSD_KHB.SELECTKNA1KUNNRKNA1KTOKDKNVVVKORGK

4、NVVVTWEGKNVVSPARTKNA1NAME1KNA1KNURLKNA1SORTLKNA1LAND1KNA1REGIOKNA1ORT01KNA1STRASKNA1ADRNRKNA1TELF1KNA1TELF2KNA1TELFXKNA1STCD5KNVITATYPKNVITAXKDKNVVWAERSKNB1BUKRSKNB1FDGRVKNB1AKONTKNVVBZIRKKNVVKALKSKNVVZTERMKNVVINCO1KNVVINCO2KNVVKTGRDKNKKKLIMKKNKKSKFORknvvvkburknkkCTLPCkna1aufsdknb1zuawaINTOCORRESPON

5、DINGFIELDSTABLEGT_SDFTFROMKNA1INNERJOINKNVVONKNVVKUNNR=KNA1KUNNRKNVIKNVIKUNNRKNB1KNB1KUNNRLEFTKNKKKNKKKUNNRWHEREINS_KUNNRANDS_VKORGS_NAME1S_SORTLS_LAND1S_REGIOKNA1ORT01S_ORT01S_BUKRS.KNVK.ADR6.LT_TVKBTTVKBT.TSKDTVTEXTTSKDTKNVITATYPTSKDTTATYPANDTSKDTTAXKD.selectknkkkunnrs067olikws067ofakwknkkskforint

6、otablefromknkkinnerjoinonknkkknklis067knkli.intoloopatlt_knkk1-sauftlt_knkk1-olikw+lt_knkk1-ofakw.lt_knkk1-obliglt_knkk1-skformodifyTRANSPORTINGoblig.endloop.LOOPATREADKEYGT_SDFT-KUNNRABTNR0001ifsy-subrc0.MOVElt_knvk1-NAME1TOGT_SDFT-NAME2.endif.0004GT_SDFT-NAME3.MODIFYNAME2NAME3.ADDRNUMBERGT_SDFT-AD

7、RNR.lt_ADR61-SMTP_ADDRGT_SDFT-EMAIL.EMAIL.readwithkeyctlpcgt_sdft-ctlpc.读取风险类别movegt_t691t-rtexttogt_sdft-rtext.gt_sdft-aufsdisnotINITIAL.GT_SDFT-aufsd是else.否GT_TSKDT-VTEXTGT_SDFT-VTEXT.VTEXT.gt_sdft-kunnr.IFSY-SUBRCgt_sdft-sauft.gt_sdft-oblig.ENDIF.gt_sdftGT_SDFT-KLIMKGT_SDFT-KLPRZELSEgt_sdft-klprz

8、gt_sdft-oblig/gt_sdft-klimk100.klprz.VKBURGT_SDFT-VKBURSPRAS1.LT_TVKBT-BEZEIGT_SDFT-BEZEI.bezei.gt_sdft.clearENDLOOP.ENDFORM.FRM_ALV_GRIDFRM_ALV_GRIDWA_LAYOUTSLIS_LAYOUT_ALV.L_I_FIELDCATSLIS_T_FIELDCAT_ALV.WA_FIELDCATSLIS_FIELDCAT_ALV.WA_LAYOUT-COLWIDTH_OPTIMIZEXWA_LAYOUT-ZEBRAWA_LAYOUT-BOX_FIELDNAM

9、ESLBOX*设置ALVFIELDDEFINEFIELDCAT.CLEARWA_FIELDCAT.WA_FIELDCAT-FIELDNAME&WA_FIELDCAT-SELTEXT_L2.WA_FIELDCAT-KEY3.WA_FIELDCAT-REF_TABNAME4.WA_FIELDCAT-DECIMALS_OUT5.WA_FIELDCAT-EMPHASIZEAPPENDL_I_FIELDCAT.END-OF-DEFINITION.FIELDCATKUNNR客户编号KNA10KTOKD科目组VKORG销售组织VTWEG分销渠道SPART产品组NAME1客户名称ZUAWA排序码KNURL网址

10、SORTL搜索项LAND1国家REGIO省ORT01市STRAS街道EMAIL邮箱NAME2联系人TELF1电话TELF2手机TELFX传真STCD5纳税人登记号VTEXT税分类WAERS结算货币BUKRS公司代码FDGRV现金管理组AKONT统驭科目BEZEI销售区域NAME3销售员KALKS客户定价过程ZTERM付款条件INCO1国际贸易条款INCO2国际贸易条款描述KTGRD账户分配组KLIMK信贷限额3SKFOR应收总额SAUFT销售值AUFSD是否冻结RTEXT风险类别OBLIG信贷风险总额KLPRZ已使用的信贷限额2CALLFUNCTIONREUSE_ALV_GRID_DISPLA

11、YEXPORTINGI_CALLBACK_PROGRAMSY-REPIDI_CALLBACK_HTML_TOP_OF_PAGEALV_TOP_OF_PAGEALV输出表头设置IT_FIELDCATL_I_FIELDCATIS_LAYOUTWA_LAYOUTi_saveAI_CALLBACK_PF_STATUS_SETFRM_SET_STATUSI_CALLBACK_USER_COMMANDFRM_USER_COMMANDTABLEST_OUTTABEXCEPTIONSPROGRAM_ERROR1OTHERSFRM_USER_COMMANDUSINGRF_UCOMMSY-UCOMMRS_SELFIELDSLIS_SELFIELD.#ECL_KUNNRKUNNR.G_GRIDREFCL_GUI_ALV_GRID.CASERF_UCOMM.WHENIC1.双击事件或是F2事件RS_SELFIELD-FIELDNAMEEQL_KUNNR.CONVERSION_EXIT_ALPHA_INPUTINPUTRS_SELFIELD-VALUEIMPORTING