Bruce_yin

月季年TOP 模型-月

开始例程
CHECK SOURCE_PACKAGE IS NOT INITIAL.
"实收金额为0删除
DELETE SOURCE_PACKAGE WHERE /BIC/ZDTLFTAMT = 0.

DATA: L_DATE TYPE D,
L_DATE1(6) TYPE C.

CLEAR: L_DATE,L_DATE1.
LOOP AT SOURCE_PACKAGE ASSIGNING .
L_DATE = -/BIC/ZBUSDE.
EXIT.
ENDLOOP.

IF L_DATE IS NOT INITIAL.
L_DATE1 = L_DATE+0(6).

DELETE FROM /BIC/AZCELT06800 WHERE CALMONTH = L_DATE1.
ENDIF.

结束例程
TYPES : BEGIN OF TY_S_STORE ,
  /BIC/ZSTORE TYPE /BIC/OIZSTORE ,
  /BIC/ZBZIRK TYPE /BIC/OIZBZIRK ,
  /BIC/ZSYB TYPE /BIC/OIZSYB ,
  /BIC/ZCHANNEL TYPE /BIC/OIZCHANNEL ,
END OF   TY_S_STORE ,
TY_T_STORE TYPE TABLE OF TY_S_STORE .

DATA : LT_STORE TYPE TY_T_STORE ,
      LS_STORE TYPE TY_S_STORE .

"/BIC/PZMATERIAL
TYPES : BEGIN OF TY_S_ZMATERIAL ,
  /BIC/ZMATERIAL TYPE /BIC/OIZMATERIAL ,
  /BIC/ZBRAND TYPE /BIC/OIZBRAND ,
END OF   TY_S_ZMATERIAL ,
TY_T_ZMATERIAL TYPE TABLE OF TY_S_ZMATERIAL .

DATA : LT_ZMATERIAL TYPE TY_T_ZMATERIAL ,
      LS_ZMATERIAL TYPE TY_S_ZMATERIAL

ZFLAG2 标志赋值说明
*A 门店层汇总
*A1 单品销售数量TOP
*A2 单品销售金额TOP
*A3 小类销售数量TOP
*A4 小类销售金额TOP
*A5 中类销售数量TOP
*A6 中类销售金额TOP
*A7 大类类销售数量TOP
*A8 大类销售金额TOP

*B 片区层汇总
*C 渠道层汇总
*D 事业部层汇总
*E 督导层汇总
*F 片区经理层汇总
*G 总监层汇总
*H 品牌层汇总

****************************************

DATA: LT_RESULT_TMP1 TYPE STANDARD TABLE OF /BIC/AZCELT06800 WITH
NON-UNIQUE DEFAULT KEY.
DATA: LT_RESULT_TMP2 LIKE LT_RESULT_TMP1.
DATA: LT_RESULT_TMP LIKE LT_RESULT_TMP1.

DATA: LS_RESULT_TMP TYPE /BIC/AZCELT06800,
LS_RESULT_TMP1 TYPE /BIC/AZCELT06800,
LS_RESULT_TMP2 TYPE /BIC/AZCELT06800.

DATA: LT_RESULT TYPE _ty_t_TG_1,
LT_RESULT_TMP3 TYPE _ty_t_TG_1.
DATA: LS_RESULT TYPE _ty_s_TG_1,
LS_RESULT_TMP3 TYPE _ty_s_TG_1.

DATA: ZZSLPX TYPE /BIC/OIZSLPX, "按数量排序
ZZJEPX TYPE /BIC/OIZJEPX, "按金额排序.
L_RECORD TYPE I,
ZZSTORE TYPE /BIC/OIZSTORE,
ZZBZIRK TYPE /BIC/OIZBZIRK,
ZZCHANNEL TYPE /BIC/OIZCHANNEL,
ZZSYB TYPE /BIC/OIZSYB,
ZZXM_DD TYPE /BIC/OIZXM_DD,
ZZPQJL TYPE /BIC/OIZPQJL,
ZZJNAME TYPE /BIC/OIZZJNAME.

L_RECORD = 0.

REFRESH LT_STORE.
SELECT /BIC/ZSTORE
/BIC/ZBZIRK
/BIC/ZSYB
/BIC/ZCHANNEL
INTO TABLE LT_STORE
FROM /BIC/AZCSTORE00
FOR ALL ENTRIES IN RESULT_PACKAGE
WHERE /BIC/ZSTORE = RESULT_PACKAGE-/BIC/ZSTORE.
SORT LT_STORE BY /BIC/ZSTORE.
DELETE ADJACENT DUPLICATES FROM LT_STORE COMPARING /BIC/ZSTORE.

REFRESH LT_ZMATERIAL.
SELECT /BIC/ZMATERIAL
/BIC/ZBRAND
INTO TABLE LT_ZMATERIAL
FROM /BIC/PZMATERIAL
FOR ALL ENTRIES IN RESULT_PACKAGE
WHERE /BIC/ZMATERIAL = RESULT_PACKAGE-/BIC/ZMATERIAL.
SORT LT_ZMATERIAL BY /BIC/ZMATERIAL.
DELETE ADJACENT DUPLICATES FROM LT_ZMATERIAL COMPARING /BIC/ZMATERIAL
.

****************按物料TOP*******************

"1.1按门店销售数量排序
REFRESH: LT_RESULT_TMP3,LT_RESULT_TMP1,LT_RESULT_TMP2.
LT_RESULT_TMP3[] = RESULT_PACKAGE[].

CLEAR LS_RESULT_TMP3.
LOOP AT LT_RESULT_TMP3 INTO LS_RESULT_TMP3.
CLEAR LS_STORE.
READ TABLE LT_STORE INTO LS_STORE WITH KEY
/BIC/ZSTORE = LS_RESULT_TMP3-/BIC/ZSTORE BINARY SEARCH.
IF SY-SUBRC = 0.
LS_RESULT_TMP3-/BIC/ZBZIRK = LS_STORE-/BIC/ZBZIRK.
LS_RESULT_TMP3-/BIC/ZSYB = LS_STORE-/BIC/ZSYB.
LS_RESULT_TMP3-/BIC/ZCHANNEL = LS_STORE-/BIC/ZCHANNEL.
ENDIF.

IF LS_RESULT_TMP3-/BIC/ZBZIRK IS INITIAL.
LS_RESULT_TMP3-/BIC/ZBZIRK = '缺失'.
ENDIF.
IF LS_RESULT_TMP3-/BIC/ZSYB IS INITIAL.
LS_RESULT_TMP3-/BIC/ZSYB = '缺失'.
ENDIF.
IF LS_RESULT_TMP3-/BIC/ZCHANNEL IS INITIAL.
LS_RESULT_TMP3-/BIC/ZCHANNEL = '缺失'.
ENDIF.
IF LS_RESULT_TMP3-/BIC/ZCLASSL IS INITIAL.
LS_RESULT_TMP3-/BIC/ZCLASSL = '缺失'.
ENDIF.
IF LS_RESULT_TMP3-/BIC/ZCLASSM IS INITIAL.
LS_RESULT_TMP3-/BIC/ZCLASSM = '缺失'.
ENDIF.
IF LS_RESULT_TMP3-/BIC/ZCLASSS IS INITIAL.
LS_RESULT_TMP3-/BIC/ZCLASSS = '缺失'.
ENDIF.

LS_RESULT_TMP1-/BIC/ZFLAG = LS_RESULT_TMP3-/BIC/ZFLAG.
LS_RESULT_TMP1-/BIC/ZMATERIAL = LS_RESULT_TMP3-/BIC/ZMATERIAL.
LS_RESULT_TMP1-/BIC/ZGRID = LS_RESULT_TMP3-/BIC/ZGRID.
LS_RESULT_TMP1-/BIC/ZSTORE = LS_RESULT_TMP3-/BIC/ZSTORE.
LS_RESULT_TMP1-/BIC/ZBZIRK = LS_RESULT_TMP3-/BIC/ZBZIRK.
LS_RESULT_TMP1-/BIC/ZSYB = LS_RESULT_TMP3-/BIC/ZSYB.
LS_RESULT_TMP1-/BIC/ZCHANNEL = LS_RESULT_TMP3-/BIC/ZCHANNEL.
LS_RESULT_TMP1-/BIC/ZXM_DD = LS_RESULT_TMP3-/BIC/ZXM_DD.
LS_RESULT_TMP1-/BIC/ZPQJL = LS_RESULT_TMP3-/BIC/ZPQJL.
LS_RESULT_TMP1-/BIC/ZZJNAME = LS_RESULT_TMP3-/BIC/ZZJNAME.
LS_RESULT_TMP1-/BIC/ZCLASSL = LS_RESULT_TMP3-/BIC/ZCLASSL.
LS_RESULT_TMP1-/BIC/ZCLASSM = LS_RESULT_TMP3-/BIC/ZCLASSM.
LS_RESULT_TMP1-/BIC/ZCLASSS = LS_RESULT_TMP3-/BIC/ZCLASSS.
LS_RESULT_TMP1-/BIC/ZBRAND = LS_RESULT_TMP3-/BIC/ZBRAND.
LS_RESULT_TMP1-CALMONTH2 = LS_RESULT_TMP3-CALMONTH2.
LS_RESULT_TMP1-CALQUART1 = LS_RESULT_TMP3-CALQUART1.
LS_RESULT_TMP1-CALYEAR = LS_RESULT_TMP3-CALYEAR.
LS_RESULT_TMP1-CALMONTH = LS_RESULT_TMP3-CALMONTH.
LS_RESULT_TMP1-CALQUARTER = LS_RESULT_TMP3-CALQUARTER.
LS_RESULT_TMP1-/BIC/ZATWTBCC = LS_RESULT_TMP3-/BIC/ZATWTBCC.
LS_RESULT_TMP1-/BIC/ZATWTBYS = LS_RESULT_TMP3-/BIC/ZATWTBYS.
LS_RESULT_TMP1-/BIC/ZPRTK3 = LS_RESULT_TMP3-/BIC/ZPRTK3.
LS_RESULT_TMP1-/BIC/ZDTLQTY = LS_RESULT_TMP3-/BIC/ZDTLQTY.
LS_RESULT_TMP1-/BIC/ZDTLFTAMT = LS_RESULT_TMP3-/BIC/ZDTLFTAMT.
LS_RESULT_TMP1-/BIC/ZZJXJ_AMT = LS_RESULT_TMP3-/BIC/ZZJXJ_AMT.
LS_RESULT_TMP1-/BIC/ZRTRLAMT = LS_RESULT_TMP3-/BIC/ZRTRLAMT.
LS_RESULT_TMP1-/BIC/ZNTJAMT = LS_RESULT_TMP3-/BIC/ZNTJAMT.

COLLECT LS_RESULT_TMP1 INTO LT_RESULT_TMP1.
ENDLOOP.

"删除退货
DELETE LT_RESULT_TMP1 WHERE /BIC/ZDTLFTAMT = 0 AND /BIC/ZDTLQTY = 0 .

"
LT_RESULT_TMP2[] = LT_RESULT_TMP1[].

SORT LT_RESULT_TMP1 BY
/BIC/ZSTORE ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZSTORE.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZSTORE IS INITIAL.
ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
CLEAR ZZSLPX.
ENDIF.

IF ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
IF ZZSLPX < 500.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'A1'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'A1'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"1.2按门店销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZSTORE ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZSTORE.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZSTORE IS INITIAL.
ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
CLEAR ZZJEPX.
ENDIF.

IF ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'A2'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'A2'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

"2.1按片区销售数量排序
CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZPER_DD.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZAREA_MAR.
CLEAR LS_RESULT_TMP-/BIC/ZPQJL.
CLEAR LS_RESULT_TMP-/BIC/ZZJCODE.
CLEAR LS_RESULT_TMP-/BIC/ZZJNAME.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

SORT LT_RESULT_TMP1 BY
/BIC/ZBZIRK ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZBZIRK.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZBZIRK IS INITIAL.
ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
CLEAR ZZSLPX.
ENDIF.

IF ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
IF ZZSLPX < 50.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'B1'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'B1'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

"2.2按片区销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZBZIRK ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZBZIRK.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZBZIRK IS INITIAL.
ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
CLEAR ZZJEPX.
ENDIF.

IF ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'B2'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'B2'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

"3.1按渠道销售数量排序
CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZPER_DD.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZAREA_MAR.
CLEAR LS_RESULT_TMP-/BIC/ZPQJL.
CLEAR LS_RESULT_TMP-/BIC/ZZJCODE.
CLEAR LS_RESULT_TMP-/BIC/ZZJNAME.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

SORT LT_RESULT_TMP1 BY
/BIC/ZCHANNEL ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZCHANNEL.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZCHANNEL IS INITIAL.
ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
CLEAR ZZSLPX.
ENDIF.
IF ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'C1'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'C1'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"3.2按渠道销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZCHANNEL ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZCHANNEL.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZCHANNEL IS INITIAL.
ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
CLEAR ZZJEPX.
ENDIF.
IF ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
IF ZZJEPX < 50 .
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'C2'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'C2'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

"4.1按事业部销售数量排序
CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_RESULT_TMP-/BIC/ZCHANNEL.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZPER_DD.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZAREA_MAR.
CLEAR LS_RESULT_TMP-/BIC/ZPQJL.
CLEAR LS_RESULT_TMP-/BIC/ZZJCODE.
CLEAR LS_RESULT_TMP-/BIC/ZZJNAME.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

SORT LT_RESULT_TMP1 BY
/BIC/ZSYB ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZSYB.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZSYB IS INITIAL.
ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
CLEAR ZZSLPX.
ENDIF.
IF ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'D1'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'D1'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"4.2按事业部销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZSYB ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZSYB.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZSYB IS INITIAL.
ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
CLEAR ZZJEPX.
ENDIF.
IF ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
IF ZZJEPX < 50 .
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'D2'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'D2'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"5.1按督导销售数量排序
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP .
CLEAR LS_RESULT_TMP-/BIC/ZCHANNEL.
CLEAR LS_RESULT_TMP-/BIC/ZSYB.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

SORT LT_RESULT_TMP1 BY
/BIC/ZXM_DD ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZXM_DD.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZXM_DD IS INITIAL.
ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
CLEAR ZZSLPX.
ENDIF.
IF ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'E1'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'E1'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"5.2按督导销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZXM_DD ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZXM_DD.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZXM_DD IS INITIAL.
ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
CLEAR ZZJEPX.
ENDIF.
IF ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
IF ZZJEPX < 50 .
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'E2'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'E2'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"6.1按片区经理销售数量排序
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_RESULT_TMP-/BIC/ZCHANNEL.
CLEAR LS_RESULT_TMP-/BIC/ZSYB.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

SORT LT_RESULT_TMP1 BY
/BIC/ZPQJL ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZPQJL.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZPQJL IS INITIAL.
ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
CLEAR ZZSLPX.
ENDIF.
IF ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'F1'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'F1'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"6.2按片区经理销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZPQJL ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZPQJL.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZPQJL IS INITIAL.
ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
CLEAR ZZJEPX.
ENDIF.
IF ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
IF ZZJEPX < 50 .
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'F2'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'F2'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"7.1按总监销售数量排序
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP .
CLEAR LS_RESULT_TMP-/BIC/ZCHANNEL.
CLEAR LS_RESULT_TMP-/BIC/ZSYB.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZPQJL.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

SORT LT_RESULT_TMP1 BY
/BIC/ZZJNAME ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZJNAME.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZJNAME IS INITIAL.
ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
CLEAR ZZSLPX.
ENDIF.
IF ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'G1'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'G1'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"7.2按总监销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZZJNAME ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZJNAME.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZJNAME IS INITIAL.
ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
CLEAR ZZJEPX.
ENDIF.
IF ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
IF ZZJEPX < 50 .
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'G2'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'G2'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

*****************按物料TOP end********************

*****************按大中小类TOP ********************

"8.1按门店大中小类销售数量排序
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_RESULT_TMP-/BIC/ZMATERIAL.
CLEAR LS_RESULT_TMP-/BIC/ZGRID.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBCC.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBYS.
CLEAR LS_RESULT_TMP-/BIC/ZPRTK3.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

"门店小类销售数量排序
SORT LT_RESULT_TMP1 BY
/BIC/ZSTORE ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZSTORE.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZSTORE IS INITIAL.
ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
CLEAR ZZSLPX.
ENDIF.
IF ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'A3'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'A3'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"门店小类销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZSTORE ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZSTORE.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZSTORE IS INITIAL.
ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
CLEAR ZZJEPX.
ENDIF.

IF ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'A4'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'A4'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

"门店中类
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_RESULT_TMP-/BIC/ZMATERIAL.
CLEAR LS_RESULT_TMP-/BIC/ZGRID.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBCC.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBYS.
CLEAR LS_RESULT_TMP-/BIC/ZPRTK3.
CLEAR LS_RESULT_TMP-/BIC/ZCLASSS.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

"门店中类销售数量排序
SORT LT_RESULT_TMP1 BY
/BIC/ZSTORE ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZSTORE.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZSTORE IS INITIAL.
ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
CLEAR ZZSLPX.
ENDIF.
IF ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'A5'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'A5'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"门店中类销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZSTORE ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZSTORE.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZSTORE IS INITIAL.
ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
CLEAR ZZJEPX.
ENDIF.

IF ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'A6'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZSTORE = LS_RESULT_TMP1-/BIC/ZSTORE.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'A6'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

"9.1按片区大中小类销售数量排序
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_RESULT_TMP-/BIC/ZMATERIAL.
CLEAR LS_RESULT_TMP-/BIC/ZGRID.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBCC.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBYS.
CLEAR LS_RESULT_TMP-/BIC/ZPRTK3.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZPER_DD.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZAREA_MAR.
CLEAR LS_RESULT_TMP-/BIC/ZPQJL.
CLEAR LS_RESULT_TMP-/BIC/ZZJCODE.
CLEAR LS_RESULT_TMP-/BIC/ZZJNAME.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

"片区小类销售数量排序
SORT LT_RESULT_TMP1 BY
/BIC/ZBZIRK ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZBZIRK.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZBZIRK IS INITIAL.
ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
CLEAR ZZSLPX.
ENDIF.
IF ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'B3'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'B3'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"片区小类销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZBZIRK ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZBZIRK.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZBZIRK IS INITIAL.
ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
CLEAR ZZJEPX.
ENDIF.

IF ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'B4'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'B4'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

"片区中类
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_RESULT_TMP-/BIC/ZMATERIAL.
CLEAR LS_RESULT_TMP-/BIC/ZGRID.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBCC.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBYS.
CLEAR LS_RESULT_TMP-/BIC/ZPRTK3.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZPER_DD.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZAREA_MAR.
CLEAR LS_RESULT_TMP-/BIC/ZPQJL.
CLEAR LS_RESULT_TMP-/BIC/ZZJCODE.
CLEAR LS_RESULT_TMP-/BIC/ZZJNAME.
CLEAR LS_RESULT_TMP-/BIC/ZCLASSS.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

"片区中类销售数量排序
SORT LT_RESULT_TMP1 BY
/BIC/ZBZIRK ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZBZIRK.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZBZIRK IS INITIAL.
ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
CLEAR ZZSLPX.
ENDIF.
IF ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'B5'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'B5'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"片区中类销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZBZIRK ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZBZIRK.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZBZIRK IS INITIAL.
ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
CLEAR ZZJEPX.
ENDIF.

IF ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'B6'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZBZIRK = LS_RESULT_TMP1-/BIC/ZBZIRK.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'B6'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

"10.1按渠道大中小类销售数量排序
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_RESULT_TMP-/BIC/ZMATERIAL.
CLEAR LS_RESULT_TMP-/BIC/ZGRID.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBCC.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBYS.
CLEAR LS_RESULT_TMP-/BIC/ZPRTK3.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZPER_DD.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZAREA_MAR.
CLEAR LS_RESULT_TMP-/BIC/ZPQJL.
CLEAR LS_RESULT_TMP-/BIC/ZZJCODE.
CLEAR LS_RESULT_TMP-/BIC/ZZJNAME.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

"渠道小类销售数量排序
SORT LT_RESULT_TMP1 BY
/BIC/ZCHANNEL ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZCHANNEL.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZCHANNEL IS INITIAL.
ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
CLEAR ZZSLPX.
ENDIF.
IF ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'C3'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'C3'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"渠道小类销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZCHANNEL ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZCHANNEL.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZCHANNEL IS INITIAL.
ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
CLEAR ZZJEPX.
ENDIF.

IF ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'C4'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'C4'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

"渠道中类
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_RESULT_TMP-/BIC/ZMATERIAL.
CLEAR LS_RESULT_TMP-/BIC/ZGRID.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBCC.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBYS.
CLEAR LS_RESULT_TMP-/BIC/ZPRTK3.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZPER_DD.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZAREA_MAR.
CLEAR LS_RESULT_TMP-/BIC/ZPQJL.
CLEAR LS_RESULT_TMP-/BIC/ZZJCODE.
CLEAR LS_RESULT_TMP-/BIC/ZZJNAME.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-/BIC/ZCLASSS.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

"渠道中类销售数量排序
SORT LT_RESULT_TMP1 BY
/BIC/ZCHANNEL ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZCHANNEL.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZCHANNEL IS INITIAL.
ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
CLEAR ZZSLPX.
ENDIF.
IF ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'C5'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'C5'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"渠道中类销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZCHANNEL ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZCHANNEL.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZCHANNEL IS INITIAL.
ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
CLEAR ZZJEPX.
ENDIF.

IF ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'C6'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZCHANNEL = LS_RESULT_TMP1-/BIC/ZCHANNEL.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'C6'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

"11.1按事业部大中小类销售数量排序
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP .
CLEAR LS_RESULT_TMP-/BIC/ZMATERIAL.
CLEAR LS_RESULT_TMP-/BIC/ZGRID.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBCC.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBYS.
CLEAR LS_RESULT_TMP-/BIC/ZPRTK3.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZPER_DD.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZAREA_MAR.
CLEAR LS_RESULT_TMP-/BIC/ZPQJL.
CLEAR LS_RESULT_TMP-/BIC/ZZJCODE.
CLEAR LS_RESULT_TMP-/BIC/ZZJNAME.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-/BIC/ZCHANNEL.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

"事业部小类销售数量排序
SORT LT_RESULT_TMP1 BY
/BIC/ZSYB ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZSYB.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZSYB IS INITIAL.
ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
CLEAR ZZSLPX.
ENDIF.
IF ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'D3'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'D3'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"事业部小类销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZSYB ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZSYB.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZSYB IS INITIAL.
ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
CLEAR ZZJEPX.
ENDIF.

IF ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'D4'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'D4'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

"事业部中类
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_RESULT_TMP-/BIC/ZMATERIAL.
CLEAR LS_RESULT_TMP-/BIC/ZGRID.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBCC.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBYS.
CLEAR LS_RESULT_TMP-/BIC/ZPRTK3.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZPER_DD.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZAREA_MAR.
CLEAR LS_RESULT_TMP-/BIC/ZPQJL.
CLEAR LS_RESULT_TMP-/BIC/ZZJCODE.
CLEAR LS_RESULT_TMP-/BIC/ZZJNAME.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-/BIC/ZCHANNEL.
CLEAR LS_RESULT_TMP-/BIC/ZCLASSS.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

"事业部中类销售数量排序
SORT LT_RESULT_TMP1 BY
/BIC/ZSYB ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZSYB.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZSYB IS INITIAL.
ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
CLEAR ZZSLPX.
ENDIF.
IF ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'D5'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'D5'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"事业部中类销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZSYB ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZSYB.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZSYB IS INITIAL.
ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
CLEAR ZZJEPX.
ENDIF.

IF ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'D6'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZSYB = LS_RESULT_TMP1-/BIC/ZSYB.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'D6'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

"12.1按督导大中小类销售数量排序
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_RESULT_TMP-/BIC/ZMATERIAL.
CLEAR LS_RESULT_TMP-/BIC/ZGRID.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBCC.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBYS.
CLEAR LS_RESULT_TMP-/BIC/ZPRTK3.
CLEAR LS_RESULT_TMP-/BIC/ZCHANNEL.
CLEAR LS_RESULT_TMP-/BIC/ZSYB.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

"督导小类销售数量排序
SORT LT_RESULT_TMP1 BY
/BIC/ZXM_DD ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZXM_DD.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZXM_DD IS INITIAL.
ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
CLEAR ZZSLPX.
ENDIF.
IF ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'E3'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'E3'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"督导小类销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZXM_DD ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZXM_DD.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZXM_DD IS INITIAL.
ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
CLEAR ZZJEPX.
ENDIF.

IF ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'E4'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'E4'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

"督导中类
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_RESULT_TMP-/BIC/ZMATERIAL.
CLEAR LS_RESULT_TMP-/BIC/ZGRID.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBCC.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBYS.
CLEAR LS_RESULT_TMP-/BIC/ZPRTK3.
CLEAR LS_RESULT_TMP-/BIC/ZCHANNEL.
CLEAR LS_RESULT_TMP-/BIC/ZSYB.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZCLASSS.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

"督导中类销售数量排序
SORT LT_RESULT_TMP1 BY
/BIC/ZXM_DD ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZXM_DD.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZXM_DD IS INITIAL.
ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
CLEAR ZZSLPX.
ENDIF.
IF ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'E5'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'E5'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"督导中类销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZXM_DD ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZXM_DD.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZXM_DD IS INITIAL.
ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
CLEAR ZZJEPX.
ENDIF.

IF ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'E6'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZXM_DD = LS_RESULT_TMP1-/BIC/ZXM_DD.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'E6'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

"13.1按片区经理大中小类销售数量排序
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_RESULT_TMP-/BIC/ZMATERIAL.
CLEAR LS_RESULT_TMP-/BIC/ZGRID.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBCC.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBYS.
CLEAR LS_RESULT_TMP-/BIC/ZPRTK3.
CLEAR LS_RESULT_TMP-/BIC/ZCHANNEL.
CLEAR LS_RESULT_TMP-/BIC/ZSYB.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

"片区经理小类销售数量排序
SORT LT_RESULT_TMP1 BY
/BIC/ZPQJL ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZPQJL.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZPQJL IS INITIAL.
ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
CLEAR ZZSLPX.
ENDIF.
IF ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'F3'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'F3'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"片区经理小类销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZPQJL ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZPQJL.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZPQJL IS INITIAL.
ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
CLEAR ZZJEPX.
ENDIF.

IF ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'F4'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'F4'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

"片区经理中类
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_RESULT_TMP-/BIC/ZMATERIAL.
CLEAR LS_RESULT_TMP-/BIC/ZGRID.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBCC.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBYS.
CLEAR LS_RESULT_TMP-/BIC/ZPRTK3.
CLEAR LS_RESULT_TMP-/BIC/ZCHANNEL.
CLEAR LS_RESULT_TMP-/BIC/ZSYB.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZCLASSS.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

"片区经理中类销售数量排序
SORT LT_RESULT_TMP1 BY
/BIC/ZPQJL ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZPQJL.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZPQJL IS INITIAL.
ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
CLEAR ZZSLPX.
ENDIF.
IF ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'F5'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'F5'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"片区经理中类销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZPQJL ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZPQJL.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZPQJL IS INITIAL.
ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
CLEAR ZZJEPX.
ENDIF.

IF ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'F6'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZPQJL = LS_RESULT_TMP1-/BIC/ZPQJL.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'F6'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

"14.1按总监大中小类销售数量排序
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_RESULT_TMP-/BIC/ZMATERIAL.
CLEAR LS_RESULT_TMP-/BIC/ZGRID.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBCC.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBYS.
CLEAR LS_RESULT_TMP-/BIC/ZPRTK3.
CLEAR LS_RESULT_TMP-/BIC/ZCHANNEL.
CLEAR LS_RESULT_TMP-/BIC/ZSYB.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZPQJL.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

"总监小类销售数量排序
SORT LT_RESULT_TMP1 BY
/BIC/ZZJNAME ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZJNAME.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZJNAME IS INITIAL.
ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
CLEAR ZZSLPX.
ENDIF.
IF ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'G3'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'G3'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"总监小类销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZZJNAME ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZJNAME.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZJNAME IS INITIAL.
ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
CLEAR ZZJEPX.
ENDIF.

IF ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'G4'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'G4'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

"总监中类
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_RESULT_TMP-/BIC/ZMATERIAL.
CLEAR LS_RESULT_TMP-/BIC/ZGRID.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBCC.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBYS.
CLEAR LS_RESULT_TMP-/BIC/ZPRTK3.
CLEAR LS_RESULT_TMP-/BIC/ZCHANNEL.
CLEAR LS_RESULT_TMP-/BIC/ZSYB.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-/BIC/ZBRAND.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZPQJL.
CLEAR LS_RESULT_TMP-/BIC/ZCLASSS.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

"总监中类销售数量排序
SORT LT_RESULT_TMP1 BY
/BIC/ZZJNAME ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZJNAME.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZJNAME IS INITIAL.
ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
CLEAR ZZSLPX.
ENDIF.
IF ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'G5'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'G5'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"总监中类销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZZJNAME ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZJNAME.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZJNAME IS INITIAL.
ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
CLEAR ZZJEPX.
ENDIF.

IF ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'G6'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZJNAME = LS_RESULT_TMP1-/BIC/ZZJNAME.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'G6'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

"15.1按品牌大中小类物料销售数量排序
"物料
REFRESH: LT_RESULT_TMP,LT_RESULT_TMP1.
LT_RESULT_TMP[] = LT_RESULT_TMP2[].

DATA: ZZBRAND TYPE /BIC/OIZBRAND.

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_ZMATERIAL.
READ TABLE LT_ZMATERIAL INTO LS_ZMATERIAL WITH KEY
/BIC/ZMATERIAL = LS_RESULT_TMP-/BIC/ZMATERIAL BINARY SEARCH.
IF SY-SUBRC = 0.
LS_RESULT_TMP-/BIC/ZBRAND = LS_ZMATERIAL-/BIC/ZBRAND.
ELSE.
LS_RESULT_TMP-/BIC/ZBRAND ='缺失'.
ENDIF.
CLEAR LS_RESULT_TMP-/BIC/ZCHANNEL.
CLEAR LS_RESULT_TMP-/BIC/ZSYB.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZPQJL.
CLEAR LS_RESULT_TMP-/BIC/ZZJNAME.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

"品牌物料销售数量排序
SORT LT_RESULT_TMP1 BY
/BIC/ZBRAND ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZBRAND.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZBRAND IS INITIAL.
ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
CLEAR ZZSLPX.
ENDIF.
IF ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'H1'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'H1'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"品牌物料销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZBRAND ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZBRAND.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZBRAND IS INITIAL.
ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
CLEAR ZZJEPX.
ENDIF.

IF ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'H2'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'H2'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

"品牌小类
REFRESH: LT_RESULT_TMP1."LT_RESULT_TMP,
"LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_ZMATERIAL.
READ TABLE LT_ZMATERIAL INTO LS_ZMATERIAL WITH KEY
/BIC/ZMATERIAL = LS_RESULT_TMP-/BIC/ZMATERIAL BINARY SEARCH.
IF SY-SUBRC = 0.
LS_RESULT_TMP-/BIC/ZBRAND = LS_ZMATERIAL-/BIC/ZBRAND.
ELSE.
LS_RESULT_TMP-/BIC/ZBRAND ='缺失'.
ENDIF.
CLEAR LS_RESULT_TMP-/BIC/ZMATERIAL.
CLEAR LS_RESULT_TMP-/BIC/ZGRID.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBCC.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBYS.
CLEAR LS_RESULT_TMP-/BIC/ZPRTK3.
CLEAR LS_RESULT_TMP-/BIC/ZCHANNEL.
CLEAR LS_RESULT_TMP-/BIC/ZSYB.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZPQJL.
CLEAR LS_RESULT_TMP-/BIC/ZZJNAME.
"CLEAR LS_RESULT_TMP-/BIC/ZCLASSS.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

"品牌小类销售数量排序
SORT LT_RESULT_TMP1 BY
/BIC/ZBRAND ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZBRAND.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZBRAND IS INITIAL.
ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
CLEAR ZZSLPX.
ENDIF.
IF ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'H3'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'H3'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"品牌小类销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZBRAND ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZBRAND.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZBRAND IS INITIAL.
ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
CLEAR ZZJEPX.
ENDIF.

IF ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'H4'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'H4'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

"品牌中类
REFRESH: LT_RESULT_TMP1."LT_RESULT_TMP,
"LT_RESULT_TMP[] = LT_RESULT_TMP2[].

CLEAR LS_RESULT_TMP.
LOOP AT LT_RESULT_TMP INTO LS_RESULT_TMP.
CLEAR LS_ZMATERIAL.
READ TABLE LT_ZMATERIAL INTO LS_ZMATERIAL WITH KEY
/BIC/ZMATERIAL = LS_RESULT_TMP-/BIC/ZMATERIAL BINARY SEARCH.
IF SY-SUBRC = 0.
LS_RESULT_TMP-/BIC/ZBRAND = LS_ZMATERIAL-/BIC/ZBRAND.
ELSE.
LS_RESULT_TMP-/BIC/ZBRAND ='缺失'.
ENDIF.
CLEAR LS_RESULT_TMP-/BIC/ZMATERIAL.
CLEAR LS_RESULT_TMP-/BIC/ZGRID.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBCC.
CLEAR LS_RESULT_TMP-/BIC/ZATWTBYS.
CLEAR LS_RESULT_TMP-/BIC/ZPRTK3.
CLEAR LS_RESULT_TMP-/BIC/ZCHANNEL.
CLEAR LS_RESULT_TMP-/BIC/ZSYB.
CLEAR LS_RESULT_TMP-/BIC/ZBZIRK.
CLEAR LS_RESULT_TMP-DISTR_CHAN.
CLEAR LS_RESULT_TMP-/BIC/ZQDLX.
CLEAR LS_RESULT_TMP-CUSTOMER.
CLEAR LS_RESULT_TMP-/BIC/ZSTORE.
CLEAR LS_RESULT_TMP-/BIC/ZXM_DD.
CLEAR LS_RESULT_TMP-/BIC/ZPQJL.
CLEAR LS_RESULT_TMP-/BIC/ZZJNAME.
CLEAR LS_RESULT_TMP-/BIC/ZCLASSS.
CLEAR LS_RESULT_TMP-/BIC/ZFLAG2.
CLEAR LS_RESULT_TMP-/BIC/ZSLPX.
CLEAR LS_RESULT_TMP-/BIC/ZJEPX.
COLLECT LS_RESULT_TMP INTO LT_RESULT_TMP1.
ENDLOOP.

"品牌中类销售数量排序
SORT LT_RESULT_TMP1 BY
/BIC/ZBRAND ASCENDING
/BIC/ZDTLQTY DESCENDING
/BIC/ZDTLFTAMT DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZBRAND.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZBRAND IS INITIAL.
ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
CLEAR ZZSLPX.
ENDIF.
IF ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
IF ZZSLPX < 50 .
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'H5'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
CLEAR ZZSLPX.
ZZSLPX = ZZSLPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = 0.
LS_RESULT_TMP1-/BIC/ZSLPX = ZZSLPX.
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'H5'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.

ENDLOOP.

"总监中类销售金额排序
SORT LT_RESULT_TMP1 BY
/BIC/ZBRAND ASCENDING
/BIC/ZDTLFTAMT DESCENDING
/BIC/ZDTLQTY DESCENDING.
CLEAR: ZZSLPX,ZZJEPX,LS_RESULT_TMP1,ZZBRAND.
LOOP AT LT_RESULT_TMP1 INTO LS_RESULT_TMP1.
IF ZZBRAND IS INITIAL.
ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
CLEAR ZZJEPX.
ENDIF.

IF ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
IF ZZJEPX < 50.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'H6'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ELSE.
ZZBRAND = LS_RESULT_TMP1-/BIC/ZBRAND.
CLEAR ZZJEPX.
ZZJEPX = ZZJEPX + 1.
LS_RESULT_TMP1-/BIC/ZJEPX = ZZJEPX.
LS_RESULT_TMP1-/BIC/ZSLPX = 0 .
LS_RESULT_TMP1-/BIC/ZFLAG2 = 'H6'.
"添加记录
MOVE-CORRESPONDING LS_RESULT_TMP1 TO LS_RESULT.
L_RECORD = L_RECORD + 1.
LS_RESULT-RECORD = L_RECORD.
APPEND LS_RESULT TO LT_RESULT.
ENDIF.
ENDLOOP.

*****************按大中小类TOP end********************

"DELETE RESULT_PACKAGE WHERE /BIC/ZJEPX = 0 AND /BIC/ZSLPX = 0.

REFRESH RESULT_PACKAGE.
RESULT_PACKAGE[] = LT_RESULT[].
REFRESH LT_RESULT.

你可能感兴趣的:(月季年TOP 模型-月)

Redis架构 zyz176
Redis架构Redis是一个单线程的架构单线程和多线程：单线程效率低，安全多线程效率高，有线程安全问题简化了数据结构和算法的实现：Redis采用了事件模型的机制I/O多路复用机制(Linux处理文件读取的机制)单线程异步回调：node.jsRedis是一个单线程，为什么效率还这么高？redis是基于内存的，他的读取速度本身就很快使用单线程，避免了cpu对线程的切换，在一点程度上提高了效率redi
YOLOv10改进，YOLOv10改进主干网络为GhostNetV3(2024年华为的轻量化架构，全网首发)，助力涨点挂科边缘 YOLOv10改进 YOLO 计算机视觉目标检测人工智能 python 深度学习
摘要GhostNetV3是由华为诺亚方舟实验室的团队发布的，于2024年4月发布。摘要：紧凑型神经网络专为边缘设备上的应用设计，具备更快的推理速度，但性能相对适中。然而，紧凑型模型的训练策略目前借鉴自传统模型，这忽略了它们在模型容量上的差异，可能阻碍紧凑型模型的性能提升。在本文中，通过系统地研究不同训练成分的影响，我们介绍了一种用于紧凑型模型的强大训练策略。我们发现，适当的重参数化和知识蒸馏设计对
OpenBayes 一周速览｜微软 Phi-4 发布，降低更多成本实现高效推理；Terra 时空数据集上线
公共资源速递5个数据集：Terra多模态时空数据集ChineseCouplets中文对联数据集AqueousSolubility无机化合物数据集HumanLikeDPODataset大模型对话微调数据集SentimentandEmotionAnalysisDataset情感情绪分析数据集4个教程：一键部署Phi-4Docling：文档解析神器一键部署QVQ-72B-preview铅笔素描风格文生图
2024年AI浪潮：基础设施重构、模型演进与挑战并存前端
2024年，人工智能领域呈现出蓬勃发展的景象，投资持续增长、基础设施发生变革，技术应用加速落地。各大科技公司和初创企业纷纷涌入，试图在这一充满机遇的领域分一杯羹。本文将深入探讨2024年AI发展的三大核心趋势：AI基础设施的重构、模型发展的新趋势以及AI发展带来的挑战，并重点关注企业如何从AI投资中获得回报，以及AI智能体技术的巨大潜力。选择合适的AI代码生成器将成为企业提升效率的关键。AI基础设
使用多模态大模型转换 office 文档人工智能图像识别
背景介绍随着大模型的技术的不断发展，如何将各种office文档转换为markdown成为了一个刚需，包括微软在内的不少公司都给出了解决方案，但是都需要经过繁琐的步骤再本地或云端进行部署，有的对本地还有一定算力要求。现在各家的多模态大模型都在不断降价，1块钱都能处理几百张图片，不少提供商还每日提供免费额度，所以使用多模态大模型转换office文档成为一个廉价而简单的解决方案。技术方案这里介绍的是使用
华为OD机试C卷--手机App防沉迷系统（Java & JS & Python & C）飞码创造者华为OD机试题库华为od c语言 java javascript python
获取题库不需要订阅专栏，可直接私信我进入CSDN领军人物top1博主的华为OD交流圈观看完整题库、最新面试实况、考试报告等内容以及大佬一对一答疑。题目描述智能手机方便了我们生活的同时，也侵占了我们不少的时间。“手机App防沉迷系统”能够让我们每天合理地规划手机App使用时间，在正确的时间做正确的事。它的大概原理是这样的：1.在一天24小时内，可以注册每个App的允许使用时段2.一个时间段只能使用一
「AI 中国」榜单揭晓，OpenBayes贝式计算入选「大模型最具潜力创业企业 TOP 10」
日前，「AI中国」机器之心2024年度评选正式揭晓，OpenBayes贝式计算有幸入选「大模型最具潜力创业企业TOP10」。作为专业的人工智能媒体与产业服务平台，机器之心于2017年发布了AI榜单「SyncedMachineIntelligenceAwards」，在随后的时间里，伴随AI的跨越式发展，机器之心的年度评选也逐渐成为了产业风向标之一，覆盖的领域、范围更加广泛，维度更加细化。机器之心20
BOE（京东方）"向新2025”年终媒体智享会落地深圳 "屏”实力赋能产业创新发展数据库
12月27日，BOE（京东方）“向新2025”年终媒体智享会的收官之站在创新之都深圳圆满举行，为这场为期两周、横跨三地的年度科技盛会画上了完美句号。活动期间，全面回顾了BOE（京东方）2024年在多个关键领域取得的卓越成绩，深入剖析其在六大维度构建的“向新”发展格局，精彩呈现了以“屏”为核心搭建起的技术引领、伙伴赋能以及绿色发展等平台，全方位赋能全球生态合作伙伴，充分彰显BOE（京东方）作为全球领
2023 年 6 月大学英语四级考试真题（第 2 套）——纯享题目版 fo安方英语—四级CET4 学习生活管理
个人主页：fo安方的博客✨个人简历：大家好，我是fo安方，目前中南大学MBA在读，也考取过HCIECloudComputing、CCIESecurity、PMP、CISP、RHCE、CCNPRS、PEST3等证书。兴趣爱好：b站天天刷，题目常常看，运动偶尔做，学习需劳心，寻觅些乐趣。欢迎大家：这里是CSDN，是我记录我的日常学习，偶尔生活的地方，喜欢的话请一键三连，有问题请评论区讨论。导读页：这是
2025 年 Java 最新学习资料与学习路线——从零基础到高手的成长之路 stormjun java 学习开发语言 Java学习路线 Java 学习教程 2025Java 学习路线
2025年Java最新学习资料与学习路线——从零基础到高手的成长之路大家好，欢迎来到我的频道！今天我们要聊聊Java——这门陪伴了很多程序员成长的编程语言。无论你是编程新手，还是已经走了一段编程路，但还不确定如何深入学习Java，这篇文章一定能帮到你！我会为你们梳理出一条清晰的Java学习路线，并分享一些学习资料，帮助你从零基础，到逐步成为一名熟练的Java开发者。不管你是想从事后端开发、Andr
FORCE 原动力大会｜火山引擎边缘云亮点干货先知晓！人工智能边缘计算机器人
AI技术战场上，唯快不破？在经历了早期的热闹之后，AI大模型的能力和价值维度已经不再浮于表面。IDC最新发布的《中国智算服务市场（2023下半年）跟踪》报告显示，受国内生成式AI技术飞速发展的影响，GenAI（生成式AI）IaaS市场在2023年实现爆发式增长，在AI+云计算领域有双向积累的公司获得先发优势。火山引擎一跃成为GenAIIaaS领域市场份额最大的云厂商。只有真正实现大模型的深度融合，
探索AI API版本管理与流式传输实现 qwe54165a4wd 人工智能 java 数据库 python
在现代软件开发中，API版本管理是一个关键的主题，尤其是在涉及到AIAPI的场景。API版本的变更会影响到服务的稳定性和功能的兼容性。因此，理解API版本管理的基本原理和具体实现，对于开发者来说至关重要。技术背景介绍API版本管理涉及到如何在不破坏现有客户端代码的情况下，逐步引入新的功能和改进。这对于AI服务尤为重要，因为AI模型和算法的更新频率相对较高。本文将重点介绍AIAPI版本的管理原则，并
OpenBayes贝式计算创始人受邀参加第九届中国开源年会，分享 AI4S 前沿洞察
OpenSource，OpenLife，开源新生活！由开源社主办的第九届中国开源年会(COSCon'24)于2024年11月3日在北京圆满落幕。本届大会为期2天，以「开源新生活-OpenSource,OpenLife」为主题，汇聚了来自全国各地的技术精英、开源爱好者、行业领袖和媒体代表，共同见证了开源技术如何融入日常生活，推动社会进步。超过1,000余人次到达现场，在线直播观看人数总计120,92
OpenBayes 一周速览｜一键部署Qwen2.5-Coder，0编程经验实现代码生成自由！
公共资源速递5个数据集：Coil-100图像数据集Muharaf手写阿拉伯文数据集CollectiveActivity集体活动视频数据集MultimodalSpectroscopic化学多模光谱数据集CDFSOD-benchmark跨域小样本对象检测基准数据集3个教程：一键部署Qwen2.5-CoderInkSight将手写文字数字化DemoGLM-4-Voice端到端中英语音对话模型访问官网立即
洞见数据未来，StarRocks Summit Asia 2024 即将启幕！人工智能data
在AI时代，我们需要怎样的数据基础软件？数据量和数据类型的需求飞速上涨，我们不仅需要将历史上各种基础设施中的数据进行分析使用，还要关注性能、灵活性、性价比，以及确保单一可信数据源。这一切构成了当前大数据领域的核心难题。今年12月，StarRocksSummitAsia重磅启动！作为年度数据盛会，我们将从用户、平台方、业务领袖和技术极客等不同视角展开交流，携手共建未来的数据解决方案。本届峰会，我们将
云原生主键模型：高效、弹性，省钱又省心数据库大数据
作者简介：罗一鑫，StarRocksCommitter，主要负责存储引擎相关的工作。导读：在StarRocks3.3.1版本中，我们推出了云原生持久化索引，旨在解决本地磁盘持久化索引的关键问题。本文将详细探讨其优势，并对比云原生与本地磁盘持久化索引在大批量导入、小批实时导入以及弹性调度等场景中的表现。尤其在弹性调度场景中，云原生架构使延迟性能提升至本地磁盘的10倍。主键模型是StarRocks全新
企业落地大模型的路径选择：微调、RAG、提示词工程 AGI-杠哥深度学习自然语言处理人工智能学习知识图谱
一、大模型的特点1）不确定性与传统应用不同，模型的输出是不确定的，即使多次问它一样的问题，给出的结果也可能不一样。这种特性对于日常应用业务OK，但是如果要在企业内用来处理具体业务问题，就必须提高这个稳定性，否则影响生产经营，例如产线操作人员通过模型获取操作步骤或者参数，如果步骤或者数据不对可能会导致产品出现质量问题等等。2）静态性模型一旦训练好，就无法再补充数据，因此模型不会了解你自己组织内部的年
ChatGPT 绘图的工作原理
ChatGPT的绘图功能结合了自然语言处理（NLP）和图像生成的技术，这种综合能力依赖于预训练模型（如GPT-4）和图像生成模型（如DALL-E）之间的紧密协作。ChatGPT本质上是一个大规模的语言模型，但通过与图像生成模型集成，它得以执行基于描述生成图像的任务。接下来，我们将从模型架构、训练方法、推理机制和一些技术挑战等方面，详细讨论ChatGPT进行绘图的工作原理。
Unity文件路径访问总结：从基础到高级的资源加载方法 Unity青子 Unity零基础系列课程 unity
在Unity开发中，文件路径的访问和资源加载是开发者经常需要处理的任务。无论是加载纹理、模型、音频，还是读取配置文件，正确地处理路径和资源加载是确保项目顺利运行的关键。本文将以Unity文件路径访问为主线，详细介绍Unity中常见的路径访问方式，并结合代码示例、注意事项以及实际使用场景，帮助开发者更好地理解和使用这些方法。同时，本文还会延伸出更多相关知识，帮助用户举一反三，解决实际开发中的问题。1
使用LangChain构建简单LLM翻译应用 fGVBSAbe langchain java 前端 python
技术背景介绍在本教程中，我们将学习如何使用LangChain构建一个简单的语言模型（LLM）应用程序，该应用程序用于将文本从英语翻译成其他语言。虽然这个应用程序比较简单，但它是学习LangChain的一个不错的开始，因为许多复杂功能都可以通过简单的提示和LLM调用构建。核心原理解析LangChain通过链式调用多个组件，使得复杂的语言处理任务变得简单易行。我们将使用LangChain的以下功能：语
Chatgpt国内镜像网站｜最容易懂的 ChatGPT 介绍与教学指南【2025年1月更新】
最新更新日期：2025年1月20日这是一份全方位的指南，帮助您轻松使用ChatGPT中文版，无需科学上网即可体验GPT-4的全部功能！在本文中，您将了解如何通过推荐的镜像网站访问ChatGPT中文版、注册使用的具体步骤，以及常见问题的解答。什么是ChatGPT中文版？ChatGPT中文版是OpenAI专为中文用户量身定做的智能对话工具，旨在提供更加顺畅且精准的中文交流体验。与国际版相比，ChatG
021：为什么是卷积呢？董董灿是个攻城狮计算机视觉保姆级教程人工智能计算机视觉 CNN
本文为合集收录，欢迎查看合集/专栏链接进行全部合集的系统学习。合集完整版请查看这里。卷积算法非常重要，但是为什么是卷积呢?在进一步学习之前，先看一看神经网络(或者叫一个AI模型)是如何完成一张图片的推理的。你肯定听说过阿尔法狗大战柯洁的故事，当时新闻一出，不知大家什么反应，反正我是被震撼到了：AI模型竟然学到了那么多的棋谱，而且人类在AI的面前毫无还手可言。但是，你有没有想过一个问题：阿尔法狗学会
AI Agent的技术选型：从个人项目到企业级应用人工智能机器学习
说实话，每次有人问我"开发AIAgent应该用什么技术栈？"，我都觉得挺难回答的。因为不同的场景，最佳的技术选择可能完全不同。今天就来聊聊我在不同项目中的技术选型经历，希望能给大家一些参考。从个人项目说起去年我开始研究AIAgent的时候，第一个练手项目是给自己做一个代码助手。需求很简单：能读懂我的项目代码，帮我重构和写测试。那时候，我的技术选型是这样的：模型选择：OpenAIGPT-3.5便宜，
电脑蓝屏终止代码：DRIVER_IRQL_NOT_LESS_OR_EQUAL失败的操作：Netwtw12.sys 泰山小张只吃荷园 spring boot 后端 java 前端电脑
记录一下三年以来的第一次蓝屏，终止代码：DRIVER_IRQL_NOT_LESS_OR_EQUAL失败的操作：Netwtw12.sys出现情况如下：1.打游戏/代码程序运行过程中电源突然断开2.频繁更换电源，导致电源电压变化过大导致网卡驱动异常3.网卡驱动版本落后解决方案：1.先将电源拔掉2.长按关机键关机3.将网络/热点关闭，并等待一分钟4.重新打开电脑5.选择不需要修复电脑进入win11系统6
2024年美国App Store下载榜单：AI代码生成器助力Temu蝉联冠军背后的秘密前端
2024年美国区AppStore下载榜单揭晓，Temu再次蝉联免费应用下载榜冠军，这已经是它连续两年取得的辉煌成就！紧随其后的是Threads和TikTok，而ChatGPT更是以黑马之姿超越Google，位列第四。这份榜单不仅反映了美国用户的应用偏好，更折射出2024年移动应用市场的几大关键趋势。本文将深入分析Temu、Threads、ChatGPT等热门应用的成功秘诀，并探讨未来AppStor
OpenAI进军实体机器人：GPT赋能的智能未来前端
近年来，人工智能技术飞速发展，深刻地改变着我们的生活。而OpenAI作为人工智能领域的领军者，其最新动作更是引人注目：进军实体机器人领域！这不仅标志着人工智能技术应用场景的重大拓展，也预示着未来智能机器人时代的加速到来。本文将深入探讨OpenAI的实体机器人战略，分析其背后的深层逻辑，并展望其未来发展趋势与挑战。OpenAI的战略布局：从AI模型到实体机器人OpenAI在人工智能领域已取得了令人瞩
叮！OpenBayes 半价礼包已送达，算力资源低至 1.15 元/小时
新春将至，我们距离蛇年仅一步之遥，为了感谢大家这一年的支持，小贝也为大家准备了沉甸甸的年货----算力资源半价大礼包！！你没有看错！即日起-2025年2月10日12:00(UTC+8)，OpenBayes平台单卡RTX4090、单卡A6000包日、包周限时半价，价格低至1.15元/小时。1活动详情单卡RTX4090包日原价58元，折后29元（约1.21元/小时）包周原价386元，折后193元（约1
OpenBayes 一周速览｜微软 Phi-4 发布，降低更多成本实现高效推理；Terra 时空数据集上线
公共资源速递5个数据集：Terra多模态时空数据集ChineseCouplets中文对联数据集AqueousSolubility无机化合物数据集HumanLikeDPODataset大模型对话微调数据集SentimentandEmotionAnalysisDataset情感情绪分析数据集4个教程：一键部署Phi-4Docling：文档解析神器一键部署QVQ-72B-preview铅笔素描风格文生图
2025年全球及中国金刚线开方机行业头部企业市场占有率及排名调研报告过953 人工智能大数据
金刚线开方机是一种利用金刚线切割技术，专门用于对硅锭进行精确开方处理的自动化设备。该设备通过高碳钢丝或钨丝作为母线，电镀以金刚石磨料，实现高速、高效率的切割过程，从而确保硅片的几何精度和表面光洁度。金刚线开方机以其卓越的切割速度、低能耗和环保特性，在光伏行业中替代了传统的砂浆切割方式，大幅提升了生产效率和硅片质量。凭借其在切割精度、稳定性和操作便捷性上的优势，金刚线开方机已成为光伏材料加工领域的重
Python从0到100（七十三）：Python OpenCV-OpenCV实现手势虚拟拖拽是Dream呀 python opencv 开发语言
前言：零基础学Python：Python从0到100最新最全教程。想做这件事情很久了，这次我更新了自己所写过的所有博客，汇集成了Python从0到100，共一百节课，帮助大家一个月时间里从零基础到学习Python基础语法、Python爬虫、Web开发、计算机视觉、机器学习、神经网络以及人工智能相关知识，成为学习学习和学业的先行者！欢迎大家订阅专栏：零基础学Python：Python从0到100最新
springmvc 下 freemarker页面枚举的遍历输出杨白白 enum freemarker
spring mvc freemarker 中遍历枚举 1枚举类型有一个本地方法叫values（），这个方法可以直接返回枚举数组。所以可以利用这个遍历。 enum public enum BooleanEnum { TRUE(Boolean.TRUE, "是"), FALSE(Boolean.FALSE, "否");
实习简要总结 byalias 工作
来白虹不知不觉中已经一个多月了，因为项目还在需求分析及项目架构阶段，自己在这段时间都是在学习相关技术知识，现在对这段时间的工作及学习情况做一个总结：（1）工作技能方面大体分为两个阶段，Java Web 基础阶段和Java EE阶段 1）Java Web阶段在这个阶段，自己主要着重学习了 JSP, Servlet, JDBC, MySQL，这些知识的核心点都过了一遍，也
Quartz——DateIntervalTrigger触发器 eksliang quartz
转载请出自出处：http://eksliang.iteye.com/blog/2208559 一.概述 simpleTrigger 内部实现机制是通过计算间隔时间来计算下次的执行时间，这就导致他有不适合调度的定时任务。例如我们想每天的 1：00AM 执行任务，如果使用 SimpleTrigger，间隔时间就是一天。注意这里就会有一个问题，即当有 misfired 的任务并且恢复执行时，该执行时间
Unix快捷键 18289753290 unix Unix；快捷键;
复制，删除，粘贴： dd:删除光标所在的行 &nbs
获取Android设备屏幕的相关参数酷的飞上天空 android
包含屏幕的分辨率以及屏幕宽度的最大dp 高度最大dp TextView text = (TextView)findViewById(R.id.text); DisplayMetrics dm = new DisplayMetrics(); text.append("getResources().ge
要做物联网？先保护好你的数据蓝儿唯美数据
根据Beecham Research的说法，那些在行业中希望利用物联网的关键领域需要提供更好的安全性。在Beecham的物联网安全威胁图谱上，展示了那些可能产生内外部攻击并且需要通过快速发展的物联网行业加以解决的关键领域。 Beecham Research的技术主管Jon Howes说：“之所以我们目前还没有看到与物联网相关的严重安全事件，是因为目前还没有在大型客户和企业应用中进行部署，也就
Java取模（求余）运算随便小屋 java
整数之间的取模求余运算很好求，但几乎没有遇到过对负数进行取模求余，直接看下面代码： /** * * @author Logic * */ public class Test { public static void main(String[] args) { // TODO A
SQL注入介绍 aijuans sql注入
二、SQL注入范例这里我们根据用户登录页面 <form action="" > 用户名：<input type="text" name="username"><br/> 密码：<input type="password" name="passwor
优雅代码风格 aoyouzi 代码
总结了几点关于优雅代码风格的描述：代码简单：不隐藏设计者的意图，抽象干净利落，控制语句直截了当。接口清晰：类型接口表现力直白，字面表达含义，API 相互呼应以增强可测试性。依赖项少：依赖关系越少越好，依赖少证明内聚程度高，低耦合利于自动测试，便于重构。没有重复：重复代码意味着某些概念或想法没有在代码中良好的体现，及时重构消除重复。战术分层：代码分层清晰，隔离明确，
布尔数组百合不是茶 java 布尔数组
androi中提到了布尔数组; 布尔数组默认的是false, 并且只会打印false或者是true 布尔数组的例子; 根据字符数组创建布尔数组 char[] c = {'p','u','b','l','i','c'}; //根据字符数组的长度创建布尔数组的个数 boolean[] b = new bool
web.xml之welcome-file-list、error-page bijian1013 java web.xml servlet error-page
welcome-file-list 1.定义： <welcome-file-list> <welcome-file>login.jsp</welcome> </welcome-file-list> 2.作用：用来指定WEB应用首页名称。 error-page1.定义： <error-page&g
richfaces 4 fileUpload组件删除上传的文件 sunjing clear Richfaces 4 fileupload
页面代码 <h:form id="fileForm"> <rich:
技术文章备忘 bit1129 技术文章
Zookeeper http://wenku.baidu.com/view/bab171ffaef8941ea76e05b8.html http://wenku.baidu.com/link?url=8thAIwFTnPh2KL2b0p1V7XSgmF9ZEFgw4V_MkIpA9j8BX2rDQMPgK5l3wcs9oBTxeekOnm5P3BK8c6K2DWynq9nfUCkRlTt9uV
org.hibernate.hql.ast.QuerySyntaxException: unexpected token: on near line 1解决方案白糖_ Hibernate
文章摘自：http://blog.csdn.net/yangwawa19870921/article/details/7553181 在编写HQL时，可能会出现这种代码： select a.name,b.age from TableA a left join TableB b on a.id=b.id 如果这是HQL，那么这段代码就是错误的，因为HQL不支持
sqlserver按照字段内容进行排序 bozch 按照内容排序
在做项目的时候，遇到了这样的一个需求：从数据库中取出的数据集，首先要将某个数据或者多个数据按照地段内容放到前面显示，例如:从学生表中取出姓李的放到数据集的前面； select * fro
编程珠玑-第一章-位图排序 bylijinnan java 编程珠玑
import java.io.BufferedWriter; import java.io.File; import java.io.FileWriter; import java.io.IOException; import java.io.Writer; import java.util.Random; public class BitMapSearch {
Java关于==和equals chenbowen00 java
关于==和equals概念其实很简单，一个是比较内存地址是否相同，一个比较的是值内容是否相同。虽然理解上不难，但是有时存在一些理解误区，如下情况： 1、 String a = "aaa"; a=="aaa"; ==> true 2、 new String("aaa")==new String("aaa
[IT与资本]软件行业需对外界投资热情保持警惕 comsci it
我还是那个看法,软件行业需要增强内生动力,尽量依靠自有资金和营业收入来进行经营,避免在资本市场上经受各种不同类型的风险,为企业自主研发核心技术和产品提供稳定,温和的外部环境... 如果我们在自己尚未掌握核心技术之前,企图依靠上市来筹集资金,然后使劲往某个领域砸钱,然
oracle 数据块结构 daizj oracle 块数据块块结构行目录
oracle 数据块是数据库存储的最小单位，一般为操作系统块的N倍。其结构为：块头－－〉空行－－〉数据，其实际为纵行结构。块的标准大小由初始化参数DB_BLOCK_SIZE指定。具有标准大小的块称为标准块（Standard Block）。块的大小和标准块的大小不同的块叫非标准块（Nonstandard Block）。同一数据库中，Oracle9i及以上版本支持同一数据库中同时使用标
github上一些觉得对自己工作有用的项目收集 dengkane github
github上一些觉得对自己工作有用的项目收集技能类 markdown语法中文说明回到顶部全文检索 elasticsearch bigdesk elasticsearch管理插件回到顶部 nosql mapdb 支持亿级别map, list, 支持事务. 可考虑做为缓存使用 C
初二上学期难记单词二 dcj3sjt126com english word
dangerous 危险的 panda 熊猫 lion 狮子 elephant 象 monkey 猴子 tiger 老虎 deer 鹿 snake 蛇 rabbit 兔子 duck 鸭 horse 马 forest 森林 fall 跌倒；落下 climb 爬；攀登 finish 完成；结束 cinema 电影院；电影 seafood 海鲜；海产食品 bank 银行
8、mysql外键(FOREIGN KEY)的简单使用 dcj3sjt126com mysql
一、基本概念 1、MySQL中“键”和“索引”的定义相同，所以外键和主键一样也是索引的一种。不同的是MySQL会自动为所有表的主键进行索引，但是外键字段必须由用户进行明确的索引。用于外键关系的字段必须在所有的参照表中进行明确地索引，InnoDB不能自动地创建索引。 2、外键可以是一对一的，一个表的记录只能与另一个表的一条记录连接，或者是一对多的，一个表的记录与另一个表的多条记录连接。 3、如
java循环标签 Foreach shuizhaosi888 标签 java循环 foreach
1. 简单的for循环 public static void main(String[] args) { for (int i = 1, y = i + 10; i < 5 && y < 12; i++, y = i * 2) { System.err.println("i=" + i + " y="
Spring Security（05）——异常信息本地化 234390216 exception Spring Security 异常信息本地化
异常信息本地化 Spring Security支持将展现给终端用户看的异常信息本地化，这些信息包括认证失败、访问被拒绝等。而对于展现给开发者看的异常信息和日志信息（如配置错误）则是不能够进行本地化的，它们是以英文硬编码在Spring Security的代码中的。在Spring-Security-core-x
DUBBO架构服务端告警Failed to send message Response javamingtingzhao 架构 DUBBO
废话不多说，警告日志如下，不知道有哪位遇到过，此异常在服务端抛出(服务器启动第一次运行会有这个警告)，后续运行没问题，找了好久真心不知道哪里错了。 WARN 2015-07-18 22:31:15,272 com.alibaba.dubbo.remoting.transport.dispatcher.ChannelEventRunnable.run(84)
JS中Date对象中几个用法 leeqq JavaScript Date 最后一天
近来工作中遇到这样的两个需求 1. 给个Date对象，找出该时间所在月的第一天和最后一天 2. 给个Date对象，找出该时间所在周的第一天和最后一天需求1中的找月第一天很简单，我记得api中有setDate方法可以使用使用setDate方法前，先看看getDate var date = new Date(); console.log(date); // Sat J
MFC中使用ado技术操作数据库你不认识的休道人 sql mfc
1.在stdafx.h中导入ado动态链接库 #import"C:\Program Files\Common Files\System\ado\msado15.dll" no_namespace rename("EOF","end")2.在CTestApp文件的InitInstance()函数中domodal之前写::CoIniti
Android Studio加速 rensanning android studio
Android Studio慢、吃内存！启动时后会立即通过Gradle来sync & build工程。（1）设置Android Studio a) 禁用插件 File -> Settings... Plugins 去掉一些没有用的插件。比如：Git Integration、GitHub、Google Cloud Testing、Google Cloud
各数据库的批量Update操作 tomcat_oracle java oracle sql mysql sqlite
MyBatis的update元素的用法与insert元素基本相同，因此本篇不打算重复了。本篇仅记录批量update操作的 sql语句，懂得SQL语句，那么MyBatis部分的操作就简单了。　　注意：下列批量更新语句都是作为一个事务整体执行，要不全部成功，要不全部回滚。 MSSQL的SQL语句　WITH R AS（　　SELECT 'John' as name, 18 as
html禁止清除input文本输入缓存 xp9802 input
多数浏览器默认会缓存input的值，只有使用ctl+F5强制刷新的才可以清除缓存记录。如果不想让浏览器缓存input的值，有2种方法：方法一：在不想使用缓存的input中添加 autocomplete="off"; eg: <input type="text" autocomplete="off" name