ABAP 客户报表

*&---------------------------------------------------------------------*
*& Report  ZSDR014
*&
*&---------------------------------------------------------------------*
*&程序名称：
*&事物代码：
*&导入模板：无
*&作者：
*&时间：
*&更新时间：
*&-------
REPORT zsdr014.
TABLES:kna1,knvv,knkk ,t001l.

DATA: gs_fcat TYPE lvc_s_fcat,
      gt_fcat TYPE lvc_t_fcat,
      gs_layo TYPE lvc_s_layo,
      gs_grid TYPE lvc_s_glay.
DATA: gt_event      TYPE slis_t_event WITH HEADER LINE,
      gt_event_exit TYPE slis_t_event_exit WITH HEADER LINE.

DATA:  ref_grid TYPE REF TO cl_gui_alv_grid .
DATA stbl TYPE lvc_s_stbl."ALV稳定刷新

TYPES: BEGIN OF ty_all,
         kunnr      LIKE  kna1-kunnr, "客户代码
         kunnr_name LIKE  kna1-name1, "客户名称
         bukrs      LIKE  knb1-bukrs, "公司
         bukrs_name LIKE  t001-butxt, "公司描述
         knkli      LIKE  knkk-knkli, "信贷账户

         ktokd      LIKE  kna1-ktokd, "客户账目组
         ktokd_txt  LIKE  t077x-txt30, "客户账目组描述
         akont      LIKE  knb1-akont, "统驭科目
         akont_txt  LIKE  skat-txt50, "统驭科目描述
         stras      LIKE  kna1-stras, "地址
         tel_number LIKE  adr2-tel_number, "电话

         ort01      LIKE  kna1-ort01, "城市
         stceg      LIKE  kna1-stceg, "增值税号
         vkorg      LIKE  knvv-vkorg, "销售组织
         vkorg_txt  LIKE  tvkot-vtext, "销售组织描述
         vtweg      LIKE  knvv-vtweg, "分销渠道
         vtweg_txt  LIKE  tvtwt-vtext, "分销渠道描述
         spart      LIKE  knvv-spart, "产品组
         spart_txt  LIKE  tspat-vtext, "产品组描述
         kukla      LIKE  kna1-kukla, "客户分类
         kukla_txt  LIKE  tkukt-vtext, "客户分类描述
         vkbur      LIKE  knvv-vkbur, "销售部门

         vkbur_txt  LIKE  tvkbt-bezei, "销售部门描述
         vkgrp      LIKE  knvv-vkgrp, "销售组
         vkgrp_txt  LIKE  tvgrt-bezei, "销售组描述
         konda      LIKE  knvv-konda, "价格组
         konda_txt  LIKE  t188t-vtext, "价格组描述

         kalks      LIKE  knvv-kalks, "定价过程
         kalks_txt  LIKE  tvkdt-vtext, "定价过程描述
         lprio      LIKE  knvv-lprio, "交货优先权
         lprio_txt  LIKE  tprit-bezei, "交货优先权描述

         lzone      LIKE  kna1-lzone, "运输区域
         lzone_txt  LIKE  tzont-vtext, "运输区域描述
         kdgrp      LIKE  knvv-kdgrp, "客户组
         bzirk      LIKE  knvv-bzirk, "销售地区
         bzirk_txt  LIKE  t171t-bztxt, "销售地区描述

         vwerk      LIKE  knvv-vwerk, "交货工厂
         vwerk_txt  LIKE  t001w-name1, "交货工厂描述
         lgort      LIKE  kna1-lgort, "交货仓库
         lgort_txt  LIKE  t001l-lgobe, "交换仓库描述
         zbatch     LIKE  kna1-zbatch, "客户批次

         erdat_knvv LIKE  knvv-erdat, "客户系统创建日期
         erdat_vbak LIKE vbak-erdat, "最后下单日期
         vbeln      LIKE  vbak-vbeln, "最后下单号
         oeikw      LIKE  s066-oeikw, "未清销售订单

         olikw      LIKE  s067-olikw, "未清交货单
         ofakw      LIKE  s067-ofakw, "未清开票

         skfor      LIKE  knkk

转载于:https://www.cnblogs.com/eagle-dtq/p/5314670.html