SAP公司间采购订单关联交货单报表源代码（自己收藏）

 

*&---------------------------------------------------------------------*
*& Report  ZMMR023
*&
*&---------------------------------------------------------------------*
*&by xiaochangye  20161010
*&xiugai by dev02 20161226
*&---------------------------------------------------------------------*

report ztestxiao001.

tables:vbkd,vbak,vbrp,vbrk,ekpo,vbap,lips.

*定义ALV变量
type-pools: slis.
data: fieldcatalog   type slis_t_fieldcat_alv with header line,
      gd_tab_group   type slis_t_sp_group_alv,
      gd_layout      type slis_layout_alv,
      gd_repid       like sy-repid,
      gt_events      type slis_t_event,
      gd_prntparams  type slis_print_alv,
      gt_sort        type slis_t_sortinfo_alv,
      gs_sort        type slis_sortinfo_alv,
      g_title        type lvc_title.

data:begin of gt_out occurs 0,
  ernam   like ekko-ernam,"负责人
  bstkd_e like vbkd-bstkd_e,"采购订单号
  menge   like ekpo-menge,"订单数量
  bpmng   like ekbe-bpmng,"收货数量
  werks   like ekpo-werks,"工厂
  matnr   like ekpo-matnr,"物料号
  txz01   like ekpo-txz01,"物料描述
  vbelnxs  like vbkd-vbeln,"销售订单号
  posnrxs like vbkd-posnr,"销售订单行项目号
  kwmeng   like vbep-wmeng,"销售订单数量
  lfimg   like lips-lfimg,"交货数量
  vkorg   like vbak-vkorg,"销售组织
  matwa   like vbap-matwa,"物料号
  arktx   like vbap-arktx,"物料描述
  vbelnjh  like vbkd-vbeln,"交互单号
  posnrjh like vbkd-posnr,"交货单行项目号
  vbelnfp  like vbkd-vbeln,"发票号
  posnrfp like vbkd-posnr,"发票行项目号
  fkdat   like vbrk-fkdat,"发票创建日期
  end of gt_out.

data:begin of gt_huizong occurs 0,
  ernam   like ekko-ernam,"负责人
  bstkd_e like vbkd-bstkd_e,"采购订单号
  werks   like ekpo-werks,"工厂
  matnr   like ekpo-matnr,"物料号
  txz01   like ekpo-txz01,"物料描述
  vbelnxs  like vbkd-vbeln,"销售订单号
  posnrxs like vbkd-posnr,"销售订单行项目号
  lfimg   like lips-lfimg,"交货数量

  end of gt_huizong.

data:begin of gt_vbkd occurs 0,
  bstkd_e like vbkd-bstkd_e,"采购订单号
  ebeln like vbkd-vbeln,"采购订单号
  vbelnxs  like vbkd-vbeln,"销售订单号
  posnrxs like vbkd-posnr,"销售订单行项目号
  vbeln    like vbkd-vbeln,"销售订单号
  posnr   like vbkd-posnr,"销售订单行项目号
  vbelnjh  like vbkd-vbeln,"交互单号
  posnrjh like vbkd-posnr,"交货单行项目号
  ERNAM like ekko-ERNAM,
  end of gt_vbkd.

data:begin of gt_ekpo occurs 0,
  ebeln like vbkd-vbeln,"采购订单号
  werks   like ekpo-werks,"采购工厂
  matnr   like ekpo-matnr,"采购物料号
  txz01   like ekpo-txz01,"采购物料描述
  MENGE   LIKE EKPO-MENGE,

转载于:https://www.cnblogs.com/275147378abc/p/6065736.html