SAP SD關於銷售部門、銷售組、銷售地區后台表

BP銷售與分銷主數據中保存了許多對客商分組的字段，后台的存儲表如下：銷售部門TVKBT 銷售組TVGRT 銷售地區T005U

1、銷售部門

SELECT  *   FROM tvkbt

 

2、銷售組 TVGRT

SELECT  * FROM TVGRT
  

 

 3、銷售地區

SELECT  kunnr,name1, regio,ort01 FROM kna1  WHERE kunnr like  '%021'

SELECT  *  FROM t005u
  WHERE land1 = 'CN'
  AND spras = '1' and  bland = '100' and mandt='800'
** bland = '100'  是主要條件，是地區的內部編碼

查詢KNA1的REGIO字段執行結果

 

 T005U的執行結果 

 

 

附：BP主數據維護視圖

表太多了，借同事的代碼學習下，他山之石，可以攻玉；

*  查詢組織各結構
*  查詢組織
    SELECT
    vkorg,
    vtext
    INTO TABLE @DATA(vkorg)
    FROM tvkot FOR ALL ENTRIES IN @gt_out WHERE vkorg = @gt_out-vkorg AND spras = '1'
    .
    LOOP AT vkorg  ASSIGNING FIELD-SYMBOL(<vkorg>).
      CLEAR gt_out.
      gt_out-zzz = <vkorg>-vtext.
      MODIFY gt_out FROM gt_out  TRANSPORTING zzz WHERE vkorg = <vkorg>-vkorg.
    ENDLOOP.
*  查詢渠道
    SELECT
  vtweg,
  vtext
  INTO TABLE @DATA(vtweg)
  FROM tvtwt  FOR ALL ENTRIES IN @gt_out WHERE vtweg = @gt_out-vtweg AND spras = '1'
  .
    LOOP AT vtweg  ASSIGNING FIELD-SYMBOL(<vtweg>).
      CLEAR gt_out.
      gt_out-zqd = <vtweg>-vtext.
      MODIFY gt_out FROM gt_out  TRANSPORTING zqd WHERE vtweg = <vtweg>-vtweg.
    ENDLOOP.
*  查詢辦公室
    SELECT
  vkbur,
  bezei
  INTO TABLE @DATA(vkbur)
  FROM tvkbt FOR ALL ENTRIES IN @gt_out WHERE vkbur = @gt_out-vkbur AND spras = '1'
  .
    LOOP AT vkbur  ASSIGNING FIELD-SYMBOL(<vkbur>).
      CLEAR gt_out.
      gt_out-zbgs = <vkbur>-bezei.
      MODIFY gt_out FROM gt_out  TRANSPORTING zbgs WHERE vkbur = <vkbur>-vkbur.
    ENDLOOP.
*  查詢銷售組
    SELECT
  vkgrp,
  bezei
  INTO TABLE @DATA(vkgrp)
  FROM tvgrt   FOR ALL ENTRIES IN @gt_out WHERE vkgrp = @gt_out-vkgrp AND spras = '1'
  .
    LOOP AT vkgrp  ASSIGNING FIELD-SYMBOL(<vkgrp>).
      CLEAR gt_out.
      gt_out-zxsz = <vkgrp>-bezei.
      MODIFY gt_out FROM gt_out  TRANSPORTING zxsz WHERE vkgrp = <vkgrp>-vkgrp.
    ENDLOOP.
*  查詢產品組
    SELECT
  spart,
  vtext
  INTO TABLE @DATA(spart)
  FROM tspat   FOR ALL ENTRIES IN @gt_out WHERE spart = @gt_out-spart AND spras = '1'
  .
    LOOP AT spart  ASSIGNING FIELD-SYMBOL(<spart>).
      CLEAR gt_out.
      gt_out-zcpz = <spart>-vtext.
      MODIFY gt_out FROM gt_out  TRANSPORTING zcpz WHERE spart = <spart>-spart.
    ENDLOOP.
*  查詢銷售地區
    SELECT
  bzirk,
  bztxt
  INTO TABLE @DATA(bzirk)
  FROM t171t      FOR ALL ENTRIES IN @gt_out WHERE bzirk = @gt_out-bzirk AND spras = '1'
  .
    LOOP AT bzirk  ASSIGNING FIELD-SYMBOL(<bzirk>).
      CLEAR gt_out.
      gt_out-zxsdq = <bzirk>-bztxt.
      MODIFY gt_out FROM gt_out  TRANSPORTING zxsdq WHERE bzirk = <bzirk>-bzirk.
    ENDLOOP.
*        查詢客戶類型描述
    SELECT kdgrp,ktext INTO TABLE @DATA(khlx) FROM t151t FOR ALL ENTRIES IN @table WHERE kdgrp = @table-kdgrp AND spras = '1'.