SmartForm 打印程序.rar_SMARTFORM

*&---------------------------------------------------------------------* *& Report ZSD_012_WMQ02 *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT ZSD_012_WMQ02. *&---------------------------------------------------------------------* *& Declare Table *&---------------------------------------------------------------------* TYPE-POOLS:SLIS. TABLES:VBRK,VBRP,ADRC,T001,T005T,T005U,VBAK,VBKD,MARA,TVZBT,T171T,V_T005, KNA1. *&---------------------------------------------------------------------* *& Declare Internal Table *&---------------------------------------------------------------------* DATA: BEGIN OF GT_ALV OCCURS 0, NAME2 LIKE ADRC-NAME2, " 公司名称 ADDRESS01 LIKE ADRC-STR_SUPPL1, " 地址1 TEL_NUMBER LIKE ADRC-TEL_NUMBER, " 电话 FAX_NUMBER LIKE ADRC-FAX_NUMBER, " 传真 MESSRS LIKE KNA1-NAME2, " 名称 FKDAT LIKE VBRK-FKDAT, " 开票日期 ADDRESS02 LIKE ADRC-STR_SUPPL1, " 地址2 VBELN LIKE VBRK-VBELN, " 开票凭证 BSTKD LIKE VBKD-BSTKD, " 客户参考 STCEG LIKE VBRK-STCEG, " 客户增值税编码 INCO LIKE VBRK-INCO2, " 交货条件 VTEXT LIKE TVZBT-VTEXT, " 付款条件 LAND LIKE T171T-BZTXT, " 目的国 ENTRANCE LIKE ADRC-STR_SUPPL1, " 入口处 LOADING LIKE VBRK-INCO2, " 装货港 BISMT LIKE MARA-BISMT, " 描述 MATNR LIKE VBRP-MATNR, " 产品编码 FKIMG LIKE VBRP-FKIMG, " 实际已开票数量 BUKRS LIKE VBRK-BUKRS, " 公司代码 VKORG LIKE VBRK-VKORG, " 销售组织 VTWEG LIKE VBRK-VTWEG, " 分销渠道 SPART LIKE VBRK-SPART, " 产品组 KUNAG LIKE VBRK-KUNAG, " 客户编号 CHECKBOX(1), END OF GT_ALV. DATA: BEGIN OF GT_VBRP OCCURS 0, VBELN LIKE VBRP-VBELN, BISMT LIKE MARA-BISMT, BSTKD LIKE VBKD-BSTKD, END OF GT_VBRP. DATA:BEGIN OF GT_VBRK OCCURS 0, VBELN LIKE VBRK-VBELN, VTEXT LIKE TVZBT-VTEXT, BUKRS LIKE VBRK-BUKRS, KUNAG LIKE VBRK-KUNAG, BZTXT LIKE T171T-BZTXT, INCO1 LIKE VBRK-INCO1, INCO2 LIKE VBRK-INCO2, END OF GT_VBRK. DATA:BEGIN OF GT_T001 OCCURS 0, BUKRS LIKE T001-BUKRS, ADRNR LIKE T001-ADRNR, " 地址 ADDRNUMBER LIKE ADRC-ADDRNUMBER, NAME2 LIKE ADRC-NAME2, STR_SUPPL1 LIKE ADRC-STR_SUPPL1, STR_SUPPL2 LIKE ADRC-STR_SUPPL2, STR_SUPPL3 LIKE ADRC-STR_SUPPL3, TEL_NUMBER LIKE ADRC-TEL_NUMBER, FAX_NUMBER LIKE ADRC-FAX_NUMBER, HOUSE_NUM1 LIKE ADRC-HOUSE_NUM1, STREET LIKE ADRC-STREET, END OF GT_T001. DATA:BEGIN OF GT_KNA1 OCCURS 0, KUNNR LIKE KNA1-KUNNR, NAME1 LIKE KNA1-NAME1, NAME22 LIKE KNA1-NAME2, NAME3 LIKE KNA1-NAME3, ORT01 LIKE KNA1-ORT01, BEZEI LIKE T005U-BEZEI, LANDX LIKE T005T-LANDX, END OF GT_KNA1. DATA:BEGIN OF GT_VBELN OCCURS 0, VBELN LIKE VBRK-VBELN, " 开票凭证 FKDAT LIKE VBRK-FKDAT, " 开票日期 ADDRESS02 LIKE ADRC-STR_SUPPL1, " 地址2 MESSRS LIKE KNA1-NAME2, " 名称 BSTKD LIKE VBKD-BSTKD, " 客户参考 STCEG LIKE VBRK-STCEG, " 客户增值税编码 INCO LIKE VBRK-INCO2, " 交货条件 LAND LIKE T171T-BZTXT, " 目的国 ENTRANCE LIKE ADRC-STR_SUPPL1, " 入口处 LOADING LIKE VBRK-INCO2, " 装货港 VTEXT LIKE TVZBT-VTEXT, " 付款条件 END OF GT_VBELN. ** & FOR ALV DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV, IT_LAYOUT TYPE SLIS_LAYOUT_ALV. * ALV自定义按钮 CONSTANTS CNS_PF_STATUS TYPE SLIS_FORMNAME VALUE 'ALV_PF_STATUS'. * alv自定义按钮响应事件 CONSTANTS CNS_USER_COMMAND TYPE SLIS_FORMNAME VALUE 'ALV_USER_COMMAND'. FIELD-SYMBOLS: <FS_ALV> LIKE LINE OF GT_ALV. DATA:FM_NAME TYPE RS38L_FNAM. *----------------------Selection-Screen--------------------------------* SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001. SELECT-OPTIONS: S_VKORG FOR VBRK-VKORG." 销售组织 SELECT-OPTIONS: S_VTWEG FOR VBRK-VTWEG." 分销渠道 SELECT-OPTIONS: S_SPART FOR VBRK-SPART." 产品组 SELECT-OPTIONS: S_VKBUR FOR VBRP-VKBUR." 销售部门 SELECT-OPTIONS: S_AUBEL FOR VBRP-AUBEL." 销售订单 SELECT-OPTIONS: S_KUNAG FOR VBRK-KUNAG." 客户编号 SELECT-OPTIONS: S_FKDAT FOR VBRK-FKDAT." 出具发票日期 PARAMETERS : S_ERNAM TYPE VBRK-ERNAM." 创建人 SELECTION-SCREEN END OF BLOCK B1. *======================================================================* * Selection Screen Events *======================================================================* *** Check Input Data AT SELECTION-SCREEN. *======================================================================* * Report Events *======================================================================* *** Initial Data INITIALIZATION. *** Prepare Report Data START-OF-SELECTION. PERFORM FRM_GET_DATA. *** OUTPUT REPORT END-OF-SELECTION. PERFORM FRM_OUT_ALV. *&---------------------------------------------------------------------* *& Form FRM_GET_DATA *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM FRM_GET_DATA . SELECT VBRK~FKDAT " 出具发票日期 VBRK~VBELN " 开票凭证 VBRK~STCEG " 增值税登记号 VBRK~BUKRS " 公司代码 VBRK~VKORG " 销售组织 VBRK~VTWEG " 分销渠道 VBRK~SPART " 产品组 VBRK~KUNAG " 客户编号 VBRP~MATNR " 物料编号 VBRP~FKIMG " 实际已开票数量 INTO CORRESPONDING FIELDS OF TABLE GT_ALV FROM VBRK INNER JOIN VBRP ON VBRK~VBELN = VBRP~VBELN WHERE VBRK~VKORG IN S_VKORG AND VBRK~VTWEG IN S_VTWEG AND VBRK~SPART IN S_SPART AND VBRK~KUNAG IN S_KUNAG AND VBRK~FKDAT IN S_FKDAT AND VBRP~VKBUR IN S_VKBUR " 销售部门 AND VBRP~AUBEL IN S_AUBEL. " 销售订单 * AND VBRK~ERNAM EQ S_ERNAM IF GT_ALV[] IS NOT INITIAL. SELECT VBRP~AUBEL MARA~BISMT VBKD~BSTKD INTO CORRESPONDING FIELDS OF TABLE GT_VBRP FROM VBRP INNER JOIN MARA ON VBRP~MATNR = MARA~MATNR INNER JOIN VBAK ON VBRP~AUBEL = VBAK~VBELN INNER JOIN VBKD ON VBAK~VBELN = VBKD~VBELN FOR ALL ENTRIES IN GT_ALV WHERE VBRP~AUBEL = GT_ALV-VBELN AND VBKD~POSNR = 000000. SELECT VBRK~VBELN VBRK~INCO1 " 国际贸易条款（第 1 部分） VBRK~INCO2 " 国际贸易条款（第 2 部分） VBRK~ZTERM " 付款条件代码 VBRK~BUKRS VBRK~KUNAG TVZBT~VTEXT " 支付条件的描述 T171T~BZTXT INTO CORRESPONDING FIELDS OF TABLE GT_VBRK FROM VBRK INNER JOIN TVZBT ON VBRK~ZTERM = TVZBT~ZTERM INNER JOIN T171T ON VBRK~BZIRK = T171T~BZIRK INNER JOIN KNA1 ON VBRK~KUNAG = KNA1~KUNNR FOR ALL ENTRIES IN GT_ALV WHERE VBRK~VBELN = GT_ALV-VBELN. ENDIF. IF GT_VBRK[] IS NOT INITIAL. SELECT T001~BUKRS T001~ADRNR ADRC~ADDRNUMBER ADRC~NAME2 ADRC~STR_SUPPL1 ADRC~STR_SUPPL2