smartform打印

*&---------------------------------------------------------------------*
*& Report  ZMMF_PO_PRINT
*&
*&---------------------------------------------------------------------*
*&Creator:Real
*&Create date:2008.5.26
*&Last Change By:Real
*&Last change date: date:2008.12.22
*&Description:PO Print by Smartform
*&---------------------------------------------------------------------*

REPORT  ZMMF_PO_PRINT  MESSAGE-ID ZMSEG .

TABLES :NAST ,TNAPR ,EKKO ,EKPO .
DATA XSCREEN ( 1 )  TYPE  C .
DATA GS_PO_HEAER     LIKE ZMPO_HERDER  .
DATA GS_PO_HEAER1     LIKE ZMPO_HERDER  OCCURS  0  WITH  HEADER  LINE  .
DATA :LT_ZPO_ITEM     LIKE ZMPO_ITEM  OCCURS  0  WITH  HEADER  LINE .
DATA :LT_ZPO_ITEM1     LIKE ZMPO_ITEM  OCCURS  0  WITH  HEADER  LINE .


DATA : GI_RETCODE  TYPE  I ,
     ADRNR2  TYPE T001W -ADRNR ,
     SUPP_NAME1  LIKE ADRC -NAME1 ,
     SUPP_NAME2  LIKE ADRC -NAME1 ,
     SUPP_NAMECO  LIKE ADRC -NAME_CO ,
     SUPP_STR1  LIKE ADRC -STR_SUPPL1 ,
     SUPP_STR2  LIKE ADRC -STR_SUPPL1 ,
     SUPP_STREET  LIKE ADRC -STREET ,
     SUPP_CITY  LIKE ADRC -CITY1 ,
     SUPP_CN  LIKE ADRC - COUNTRY ,
     SUPP_CN_NAME  LIKE T005T -LANDX ,
     SUPP_ALL  TYPE STRING , "
     SUPP_FRISTNAME  LIKE KNVK -NAMEV ,
     SUPP_LASTNAME  LIKE KNVK -NAME1 ,
     SUPP_ANRED  LIKE KNVK -ANRED ,
     SUPP_PRSNR  LIKE KNVK -PRSNR ,
     TEL_NUMBER  LIKE ADR2 -TEL_NUMBER ,
     TEL_EXTENS  LIKE ADR2 -TEL_EXTENS ,
     FAX_NUMBER  LIKE ADRC -FAX_NUMBER ,
     SUPP_TEL  LIKE KNVK -TELF1 ,
     ADRNR  TYPE T001W -ADRNR ,
     KTOKK  LIKE LFA1 -KTOKK ,

     DELV_NAME1  LIKE ADRC -NAME1 ,
     DELV_NAME2  LIKE ADRC -NAME1 ,
     DELV_CO  LIKE ADRC -NAME_CO ,
     DELV_STR1  LIKE ADRC -STR_SUPPL1 ,                         "street2
     DELV_STR2  LIKE ADRC -STR_SUPPL1 ,                         "street3
     DELV_STREET  LIKE ADRC -STREET ,
     DELV_CITY  LIKE ADRC -CITY1 ,
     DELV_CN  LIKE ADRC - COUNTRY ,
     DELV_CN_NAME  LIKE T005T -LANDX ,
     DELV_FRISTNAME  LIKE KNVK -NAMEV ,
     DELV_LASTNAME  LIKE KNVK -NAME1 ,
     DELV_ANRED  LIKE KNVK -ANRED ,
     DELV_PRSNR  LIKE KNVK -PRSNR ,
     TEL_NUMBER1  LIKE ADR2 -TEL_NUMBER ,
     TEL_EXTENS1  LIKE ADR2 -TEL_EXTENS ,
     DELV_TEL  LIKE KNVK -TELF1 ,

     PUR_TOTAL  LIKE EKPO -NETWR ,
     TAX_TOTAL  LIKE EKPO -NETWR ,
     NET_TOTAL  LIKE EKPO -NETWR ,
     COM_PLACE  LIKE ADRC -STREET ,
     DEL_PLACE  LIKE LFA1 -STRAS ,
     HEAD_LINE  LIKE TLINE  OCCURS  0  WITH  HEADER  LINE ,
     REMARK  LIKE TLINE -TDLINE ,
     ITEM_LINE  LIKE TLINE  OCCURS  0  WITH  HEADER  LINE ,
     TDNAME  LIKE RSTXT -TDNAME ,
     GAP  TYPE  C  VALUE  ' ' ,
     GAP1  TYPE  C  VALUE  '-' ,
     POMENGE1  LIKE EKPO -MENGE ,
     POMENGE2  LIKE EKPO -MENGE  .

DATA :AUTH_BUKRS  LIKE EKKO -BUKRS .

SELECTION-SCREEN  BEGIN  OF  BLOCK B1  WITH  FRAME  TITLE  TEXT - 001 .
PARAMETERS :P_BUKRS  TYPE EKPO -BUKRS  MEMORY  ID BUK  .
SELECT-OPTIONS :S_EBELN  FOR EKKO -EBELN OBLIGATORY  DEFAULT  '4500006390' ,
               S_BSART  FOR EKKO -BSART ,
               S_AEDAT  FOR EKKO -AEDAT ,
               S_BEDAT  FOR EKKO -BEDAT ,
               S_LIFNR  FOR EKKO -LIFNR ,
               S_MATNR  FOR EKPO -MATNR ,
               S_LGORT  FOR EKPO -LGORT  NO -DISPLAY .
PARAMETERS :P_XSCRN  TYPE  C  DEFAULT  'X'  NO -DISPLAY .
SELECTION-SCREEN  END  OF  BLOCK B1 .

START-OF-SELECTION .
  TNAPR -SFORM  =  'ZMM_PO_PRINT' .

   PERFORM ENTRY_NEU  USING GI_RETCODE P_XSCRN .

END-OF-SELECTION .

INITIALIZATION .
   CLEAR : ADRNR2 ,
       SUPP_NAME1 ,
       SUPP_NAME2 ,