給PO分配自定义的表格(SmartForm)和输出程序 1

*----------------------------------------------------------------------*
*   INCLUDE ZFM06PE02                                                  *
*----------------------------------------------------------------------*
form. entry_neu using ent_retco ent_screen.
  tables: ekko,
          ekpo.
**& Purchase Order Information.
  types: begin of gw_out.
          include structure zmms002. "Purchase Order Info.
  types end of gw_out.
  data: gt_out type gw_out occurs 0 with header line.
  data: gt_tab like gt_out occurs 0 with header line.
**& Material description OCCURS 0.
  data: begin of gt_maktx occurs 0,
          matnr like mara-matnr,
          maktx like makt-maktx,
        end of gt_maktx.
**& Vendor name.
  data: begin of gt_vendort occurs 0,
         lifnr like lfa1-lifnr,
         name1 like lfa1-name1,
         adrnr like lfa1-adrnr,
        end of gt_vendort.
**& Address Information.
  data: begin of gt_addr occurs 0,
         addrnumber like adrc-addrnumber, "Address number.
         city1      like adrc-city1,      "City.
         street     like adrc-street,     "Street.
         str_suppl3 like adrc-str_suppl3, "Street.
         tel_number like adrc-tel_number, "First telephone no.
         fax_number like adrc-fax_number, "First fax no.
         post_code1 like adrc-post_code1, "City postal code.
        end of gt_addr.
**& Address number in DB table T001w.
  data: begin of gt_t001w occurs 0,
         werks like t001w-werks, "Plant.
         adrnr like t001w-adrnr, "Address.
         pstlz like t001w-pstlz, "郵遞區號.
         ort01 like t001w-ort01, "城市.
         stras like t001w-stras, "門牌號碼及街道.
        end of gt_t001w.
**& Delivery Date.
  data: begin of gt_ddate occurs 0,
         ebeln like eket-ebeln, "Purchasing Document Number.
         ebelp like eket-ebelp, "Item Number of Purchasing Document.
         etenr like eket-etenr, "Delivery Schedule Line Counter.
         eindt like eket-eindt, "Item Delivery Date.
        end of gt_ddate.
**& Tax rate.
  data: begin of gt_taxr occurs 0,
         mwskz like ekpo-mwskz,    "Sales Tax Code.
         kursr like ztmm02-kursr, "Tax rate.
        end of gt_taxr.
**& Storage Description.
  data: begin of gt_lgort occurs 0,
         werks like t001l-werks, "Plant.
         lgort like t001l-lgort, "Storage Location.
         lgobe like t001l-lgobe, "Description of Storage Location.
        end of gt_lgort.

**& 供應商主檔記錄採購組織資料.
  data: begin of gt_porepre occurs 0,
         ekgrp like t024-ekgrp,
         eknam like t024-eknam,
         tel_number like t024-tel_number,
         tel_extens like t024-tel_extens,
        end of gt_porepre.

**& 廠商聯絡人及電話.
  data: begin of gt_manuf occurs 0,
         lifnr like lfm1-lifnr,
         ekorg like lfm1-ekorg,
         verkf like lfm1-verkf,
         telf1 like lfm1-telf1,
        end of gt_manuf.

**& Name of Function Module.
  data: gv_fnam type rs38l_fnam. "Name of Function Module.
  data: gv_name type c length 40. "Personal name.

  field-symbols: like line of gt_out.
  data: lv_lname like adrp-name_last,  "Last name.
        lv_fname like adrp-name_first. "First name.
  data: lv_tabix type sy-tabix. "Index of Internal Tables.
  data: lv_netwr like ekpo-netwr.      "Net Order Value in PO Currency.
  data: lv_taxva like ekpo-netwr.      "Tax value.
  data: lv_total like ekpo-netwr.      "Total value.
  data: lv_eindt type dats.            "Delivery date.

  data: gs_cp     type ssfctrlop, "Smart Forms: Control structure.
        gs_option type ssfcresop, "Return value.
        gs_output type ssfcompop, "Smart Composer (transfer) options.
        gs_op     type ssfcresop. "Return value.

**& Print Purchase data.
  data: lv_pdest like  sy-pdest. "Spool: Output device.
  constants: lc_pagels type i value 45.  "Page lines.
  data: lv_lines type i.  "Lines.
**----------------------------------------------------------
  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
**----------------------------------------------------------
  field-symbols: like line of l_doc-xekpo.
**----------------------------------------------------------

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/13547743/viewspace-630966/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/13547743/viewspace-630966/