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 模型-月)

机器学习与深度学习间关系与区别 ℒℴѵℯ心·动ꦿ໊ོ꫞ 人工智能学习深度学习 python
一、机器学习概述定义机器学习（MachineLearning,ML）是一种通过数据驱动的方法，利用统计学和计算算法来训练模型，使计算机能够从数据中学习并自动进行预测或决策。机器学习通过分析大量数据样本，识别其中的模式和规律，从而对新的数据进行判断。其核心在于通过训练过程，让模型不断优化和提升其预测准确性。主要类型1.监督学习（SupervisedLearning）监督学习是指在训练数据集中包含输入
铭刻于星（四十二）随风至
69夜晚，绍敏同学做完功课后，看了眼房外，没听到动静才敢从书包的夹层里拿出那个心形纸团。折痕压得很深，都有些旧了，想来是已经写好很久了。绍敏同学慢慢地、轻轻地捏开折叠处，待到全部拆开后，又反复抚平纸张，然后仔细地一字字默看。只是开头的三个字是第一次看到，让她心漏跳了几拍。“亲爱的绍敏：从四年级的时候，我就喜欢你了，但是我一直不敢说，怕影响你学习。六年级的时候听说有人跟你表白，你接受了，我很难过，但
底层逆袭到底有多难，不甘平凡的你准备好了吗？让吴起给你说说造命者说
底层逆袭到底有多难，不甘平凡的你准备好了吗？让吴起给你说说我叫吴起，生于公元前440年的战国初期，正是群雄并起、天下纷争不断的时候。后人说我是军事家、政治家、改革家，是兵家代表人物。评价我一生历仕鲁、魏、楚三国，通晓兵家、法家、儒家三家思想，在内政军事上都有极高的成就。周安王二十一年（公元前381年），因变法得罪守旧贵族，被人乱箭射死。我出生在卫国一个“家累万金”的富有家庭，从年轻时候起就不甘平凡
10月|愿你的青春不负梦想-读书笔记-01 Tracy的小书斋
本书的作者是俞敏洪，大家都很熟悉他了吧。俞敏洪老师是我行业的领头羊吧，也是我事业上的偶像。本日摘录他书中第一章中的金句：『一个人如果什么目标都没有，就会浑浑噩噩，感觉生命中缺少能量。能给我们能量的，是对未来的期待。第一件事，我始终为了进步而努力。与其追寻全世界的骏马，不如种植丰美的草原，到时骏马自然会来。第二件事，我始终有阶段性的目标。什么东西能给我能量？答案是对未来的期待。』读到这里的时候，我便
2021年12月19日，春蕾教育集团团建活动感受——黄晓丹黄错错加油
感受:1.从陌生到熟悉的过程。游戏环节让我们在轻松的氛围中得到了锻炼，也增长了不少知识。2.游戏过程中，我们贡献的是个人力量，展现的是团队的力量。它磨合的往往不止是工作的熟悉，更是观念上契合度的贴近。3.这和工作是一样的道理。在各自的岗位上，每个人摆正自己的位置、各司其职充分发挥才能，并团结一致劲往一处使，才能实现最大的成功。新知:1.团队精神需要不断地创新。过去，人们把创新看作是冒风险，现在人们
《投行人生》读书笔记小蘑菇的树洞
《投行人生》----作者詹姆斯-A-朗德摩根斯坦利副主席40年的职业洞见-很短小精悍的篇幅，比较适合初入职场的新人。第一部分成功的职业生涯需要规划1.情商归为适应能力分享与协作同理心适应能力，更多的是自我意识，你有能力识别自己的情并分辨这些情绪如何影响你的思想和行为。2.对于初入职场的人的建议，细节，截止日期和数据很重要截止日期，一种有效的方法是请老板为你所有的任务进行优先级排序。和老板喝咖啡的好
《策划经理回忆录之二》路基雅虎
话说三年变六年，飘了，飘了……眨眼，2013年5月，老吴回到了他的家乡——油城从新开启他的工作幻想症生涯。很庆幸，这是一家很有追求，同时敢于尝试的，且实力不容低调的新星房企——金源置业(前身泰源置业)更值得庆幸的是第一个盘就是油城十路的标杆之一:金源盛世。2013年5月，到2015年11月，两年的陪伴，迎来了一场大爆发。2000个筹，5万/筹，直接回笼1个亿！！！这……让我开始认真审视这座看似五线
我校举行新老教师师徒结对仪式暨名师专业工作室工作交流活动李蕾1229
为促进我校教师专业发展，发挥骨干教师的引领带头作用，11月6日下午，我校举行新老教师师徒结对仪式暨名师专业工作室工作交流活动。图片发自App会议由教师发展处李蕾主任主持，首先，由范校长宣读新老教师结对名单及双方承担职责。随后，两位新调入教师陈玉萍、莫正杰分别和他们的师傅鲍元美、刘召彬老师签订了师徒结对协议书。图片发自App图片发自App师徒拥抱、握手。有了师傅就有了目标有了方向，相信两位新教师在师
向内而求陈陈_19b4
10月27日，阴。阅读书目:《次第花开》。作者:希阿荣博堪布，是当今藏传佛家宁玛派最伟大的上师法王，如意宝晋美彭措仁波切颇具影响力的弟子之一。多年以来，赴海内外各地弘扬佛法，以正式授课、现场开示、发表文章等多种方法指导佛学弟子修行佛法。代表作《寂静之道》、《生命这出戏》、《透过佛法看世界》自出版以来一直是佛教类书籍中的畅销书。图片发自App金句:1.佛陀说，一切痛苦的根源在于我们长期以来对自身及外
消息中间件有哪些常见类型 xmh-sxh-1314 java
消息中间件根据其设计理念和用途，可以大致分为以下几种常见类型：点对点消息队列（Point-to-PointMessagingQueues）：在这种模型中，消息被发送到特定的队列中，消费者从队列中取出并处理消息。队列中的消息只能被一个消费者消费，消费后即被删除。常见的实现包括IBM的MQSeries、RabbitMQ的部分使用场景等。适用于任务分发、负载均衡等场景。发布/订阅消息模型（Pub/Sub
抖音乐买买怎么加入赚钱?赚钱方法是什么测评君高省
你会在抖音买东西吗?如果会，那么一定要免费注册一个乐买买，抖音直播间，橱窗，小视频里的小黄车买东西都可以返佣金!省下来都是自己的，分享还可以赚钱乐买买是好省旗下的抖音返佣平台，乐买买分析社交电商的价值，乐买买属于今年难得的副业项目风口机会，2019年错过做好省的搞钱的黄金时期，那么2022年千万别再错过乐买买至于我为何转到高省呢？当然是高省APP佣金更高，模式更好，终端用户不流失。【高省】是一个自
今日联对0306 诗图佳得
自对联：烟销皓月临江浒，水漫金山荡塔裙。一一肖士平2020.3.6.1、试对肖老师联：烟销皓月临江浒，夜笼寒沙梦晚舟。耀哥求正2、试对萧老师联:烟销浩月临江浒，雾散乾坤解汉城。秀霞习作请各位老师校正3、自对联：烟销皓月临江浒，水漫金山荡塔裙。一一肖士平2020.3.6.4、试对肖老师垫场联：烟销皓月临江浒，雾锁寒林缈葉丛。小智求正[抱拳]5、试对肖老师联：烟销皓月临江浒；风卷乱云入峰巅。一一五品6
2019-12-22-22:30 涓涓1016
今天是冬至，写下我的日更，是因为这两天的学习真的是能量的满满，让我看到了自己，未来另外一种可能性，也让我看到了这两年这几年的过程中我所接受那些痛苦的来源。一切的根源和痛苦都来自于人生，家庭，而你的原生家庭，你的爸爸和妈妈，是因为你这个灵魂在那一刻选择他们作为你的爸爸和妈妈来的，所以你得接受他，你得接纳他，他就是因为他的存在而给你的学习和成长带来这些痛苦，那其实是你必然要经历的这个过程，当你去接纳的
谁家酒器最绝唱，藏在酒厂人未知？景阳冈酒厂先秦藏品大揭秘李虓酒评论
文/王赛时中国的酒器酒具历史久远，举世闻名。从北京的故宫博物院、中国国家博物馆，到世界各国的大型博物馆，都以能够收藏中国古代酒具而夸耀。但很少有人知道，在山东阳谷景阳冈酒厂，默默地收藏了两千件中国酒器。这些酒器，就封藏在景阳冈的酒道馆里。其中有一些青铜酒器，一睡就是三、四千年，堪称无声国宝，堪作无字史书！今天，我将引领诸位首先窥视一下景阳冈酒道馆的9件先秦藏品，你自己来说震撼不震撼。提示：这只是景
LLM 词汇表落难Coder LLMs NLP 大语言模型大模型 llama 人工智能
Contextwindow“上下文窗口”是指语言模型在生成新文本时能够回溯和参考的文本量。这不同于语言模型训练时所使用的大量数据集，而是代表了模型的“工作记忆”。较大的上下文窗口可以让模型理解和响应更复杂和更长的提示，而较小的上下文窗口可能会限制模型处理较长提示或在长时间对话中保持连贯性的能力。Fine-tuning微调是使用额外的数据进一步训练预训练语言模型的过程。这使得模型开始表示和模仿微调数
今又重阳芮峻
今又重阳图片发自App白露成霜菊花黄，岁岁重阳，今又重阳。登高远望，君不见，那来时路上少年，青丝已染雪霜。落日一点一点西坠，谁有力量，托住使其回往。转眼缺了大半，又能怎样？江天两茫茫。给我一壶烈酒，我要敬那斜阳，看谁先醉？笑指西天红了一片，借点酒力，老夫聊发一次少年狂。老严.2019年重阳节.杭州
18-115 一切思考不能有效转化为行动，都TM是扯淡！成长时间线
7月25号写了一篇关于为什么会断更如此严重的反思，然而，之后日更仅仅维持了一周，又出现了这次更严重的现象。从8月2号到昨天8月6号，5天！又是5天没有更文！虽然这次断更时间和上次一样，那为什么说这次更严重？因为上次之后就分析了问题的原因，以及应该如何解决，按理说应该会好转，然而，没过几天严重断更的现象再次出现，想想，经过反思，问题依然没有解决与改变，这让我有些担忧。到底是哪里出了问题，难道我就真的
郎朗大婚娶公主：所有光环的背后，都是十年如一日的自律简小尘
近日，关于郎朗大婚的新闻上了热搜，看了新娘的照片，既有天使般的面容，更有魔鬼般的身材，关键是人家还身世好，又有才华，这真的是让所有男人羡慕嫉妒恨哪。有些人不禁会想，“凭什么郎朗的人生就象开挂了一样，可我却每天都活得这么狼狈！”其实，每个开挂的人生背后，都是苦行僧般的自律。01欲戴王冠，必承其重。练琴不能只靠兴趣，更需要自律！我们先来看一下朗朗在小时候的作息时间表：早晨5:45起床，练琴1小时。中午
《中华小厨师》单行VS爱藏：姜是老的辣，书是新的好 cicoky
《汉书·郦食其传》有曰：“王者以民为天，而民以食为天。”自古以来，吃饱饭是每一个人的基本要求，而吃好饭却是每一个人的最终追求。于是，厨师这一职业孕育而生，其渊源之久，甚至可追溯到4000年前的奴隶时代。职业本身无贵贱，但职业能力却有高低之分。所以一家餐馆生意好不好，厨师的水平决定一切，而站在所有厨师顶端的就被称之为“特级厨师”。今天要说的就是一个关于“特级厨师刘昴星”的故事。连载历程1995年第4
直返最高等级与直返APP：无需邀请码的返利新体验古楼
随着互联网的普及和电商的兴起，直返模式逐渐成为一种流行的商业模式。在这种模式下，消费者通过购买产品或服务，获得一定的返利，并可以分享给更多的人。其中，直返最高等级和直返APP是直返模式中的重要概念和工具。本文将详细介绍直返最高等级的概念、直返APP的使用以及与邀请码的关系。【高省】APP（高佣金领导者）是一个自用省钱佣金高，分享推广赚钱多的平台，百度有几百万篇报道，运行三年，稳定可靠。高省APP，
从0到500+，我是如何利用自媒体赚钱？一列脚印
运营公众号半个多月，从零基础的小白到现在慢慢懂了一些运营的知识。做好公众号是很不容易的，要做很多事情；排版、码字、引流…通通需要自己解决，业余时间全都花费在这上面涨这么多粉丝是真的不容易，对比知乎大佬来说，我们这种没资源，没人脉，还没钱的小透明来说，想要一个月涨粉上万，怕是今天没睡醒（不过你有的方法，算我piapia打脸）至少我是清醒的，自己慢慢努力，实现我的万粉目标！大家快来围观、支持我吧！孩子
探索OpenAI和LangChain的适配器集成：轻松切换模型提供商 nseejrukjhad langchain easyui 前端 python
#探索OpenAI和LangChain的适配器集成：轻松切换模型提供商##引言在人工智能和自然语言处理的世界中，OpenAI的模型提供了强大的能力。然而，随着技术的发展，许多人开始探索其他模型以满足特定需求。LangChain作为一个强大的工具，集成了多种模型提供商，通过提供适配器，简化了不同模型之间的转换。本篇文章将介绍如何使用LangChain的适配器与OpenAI集成，以便轻松切换模型提供商
使用Apify加载Twitter消息以进行微调的完整指南 nseejrukjhad twitter easyui 前端 python
#使用Apify加载Twitter消息以进行微调的完整指南##引言在自然语言处理领域，微调模型以适应特定任务是提升模型性能的常见方法。本文将介绍如何使用Apify从Twitter导出聊天信息，以便进一步进行微调。##主要内容###使用Apify导出推文首先，我们需要从Twitter导出推文。Apify可以帮助我们做到这一点。通过Apify的强大功能，我们可以批量抓取和导出数据，适用于各类应用场景。
如何部分格式化提示模板:LangChain中的高级技巧 nseejrukjhad langchain java 服务器 python
标题:如何部分格式化提示模板:LangChain中的高级技巧内容:如何部分格式化提示模板:LangChain中的高级技巧引言在使用大型语言模型(LLM)时,提示工程是一个关键环节。LangChain提供了强大的提示模板功能,让我们能更灵活地构建和管理提示。本文将介绍LangChain中一个高级特性-部分格式化提示模板,这个技巧可以让你的提示管理更加高效和灵活。什么是部分格式化提示模板?部分格式化提
春季养肝正当时 dxn悟
重温快乐2023年2月4日立春。春天来了，春暖花开，小鸟欢唱，那在这样的季节我们如何养肝呢？自然界的春季对应中医五行的木，人体五脏肝属木，“木曰曲直”，是以树干曲曲直直地向上、向外伸长舒展的生发姿态，来形容具有生长、升发、条达、舒畅等特征的食物及现象。根据中医天人相应的理念，肝五行属木，喜条达，主疏泄，与春天相应，所以春天最适合养肝。养肝首先要少生气，因为肝喜条达恶抑郁。人体五志肝为怒，生气发怒最
人工智能时代，程序员如何保持核心竞争力？ jmoych 人工智能
随着AIGC（如chatgpt、midjourney、claude等）大语言模型接二连三的涌现，AI辅助编程工具日益普及，程序员的工作方式正在发生深刻变革。有人担心AI可能取代部分编程工作，也有人认为AI是提高效率的得力助手。面对这一趋势,程序员应该如何应对?是专注于某个领域深耕细作，还是广泛学习以适应快速变化的技术环境?又或者，我们是否应该将重点转向AI无法轻易替代的软技能？让我们一起探讨程序员
2022现在哪个打车软件比较好用又便宜实惠的打车软件合集高省APP珊珊
这是一个信息高速传播的社会。信息可以通过手机，微信，自媒体，抖音等方式进行传播。但同时这也是一个交通四通发达的社会。高省APP，是2022年推出的平台，0投资，0风险、高省APP佣金更高，模式更好，终端用户不流失。【高省】是一个自用省钱佣金高，分享推广赚钱多的平台，百度有几百万篇报道，也期待你的加入。珊珊导师，高省邀请码777777，注册送2皇冠会员，送万元推广大礼包，教你如何1年做到百万团队。高
梁文道《尽头:怎样是好的阅读和书写》片段白夜书摘
1、写小说的人，有时会强烈地感到一种现实的召唤，想去面对和回应现实。这时他们会觉得自己正站在时代中心，就像黑格尔说的，要把时代精神掌握在自己的小说（不是哲学）里面。但是这也很危险，当一个作家像一个时代那样书写，可能就会出现问题了。2、文字是远比语言大块而且湿冷的木头，又距离我们内心的火花稍远，不容易瞬间点燃起来，这处隙缝，给了我们回身的余地，可以再多看一下想一下设身处地一下；人类过往这最后五千年，
似乎，发生了很多事情阿皮Ponder
似乎，有很多事情正在发生。今天，我跟夫人陪着孩子走进来幼儿园，人生头一回以孩子家长的身份参加了小小的班级家长会。在幼儿园，遇见老同学。从2017年开始失联，因为对方遇到了一些事情，跟大家都失去了联系，今日再见面，分外激动，他拉着我一直聊，一直聊。感谢我们的孩子。孩子有点咳嗽，去医院做了检查。叔叔家的两个妹妹开始了高中生活，新的开始。过去看望，遇到一位老师，很是面熟。咨询之下，果然，曾经初中母校的老
百善孝为先杜友顺
2018年11月29日天气~晴星期四找点空闲找点时间领着孩子常回家看看带上笑容带上祝福陪同爱人常回家看看家，永远是儿女们幸福温暖的港湾，那里有我们日夜思念的父母，有着彼此的牵挂，无论走到哪里，家永远是避风雨的港湾。今天没事，和媳妇回了趟老家，看看父母，回到家，房间里不算凌乱，可是细心的我发现有的地方已经沾满了灰尘，桌子上父亲不离手的烟灰缸也弹满了烟灰。几个马上就要腐烂掉的水果蔫耷的搭拉着脑袋躺在了
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