測試

業(yè)務(wù)代碼: XX003

本地菜單: 4000 促銷方式
| 項(xiàng)目 | 值 |
|-|-|
| 0 | AB |
| 1 | 折扣 |
| 2 | 買贈 |
本地菜單: 4001 扣減依據(jù)
| 項(xiàng)目| 值|
|-|-|
| 0 | 12` |
| 1 | 金額 |
| 2 | 數(shù)量 |
| 3 | |
本地菜單: 4002 政策狀態(tài)
| 項(xiàng)目| 值|
|-|-|
| 0 | 12345 |
| 1 | 草稿 |
| 2 | 確認(rèn) |
| 3 | 關(guān)閉 |
| 4 | 提交 |
| 5 | 部門經(jīng)理審核 |
本地菜單: 4004 價格結(jié)構(gòu)擴(kuò)展
| 項(xiàng)目| 值|
|-|-|
| 0 | 123 |
| 1 | 無 |
| 2 | 返利 |
| 3 | 促銷策略 |

代碼文件: CNSXIRSPE

#<AdxTL>@(#)0.0.0.0 $Revision$
# 屏蔽管理 XITMRET (特定的)
# 屏蔽管理 XCOURET (特定的)

$ACTION
 Case ACTION
  When "LECTURE"  :  Gosub LECTURE
  When "OUVRE"    :  Gosub OUVRE
  When "EXEBOUT"   : Gosub EXEBOUT
  When "SETBOUT"   : Gosub SETBOUT
  When Default
 Endcase
Return

$SETBOUT

Return

$EXEBOUT
  Case  BOUT
    When "j" : Gosub COURET
  Endcase

Return

$COURET
  Raz YESNO
  Trbegin [F:XIRL]
  For II = 0 To [M:XIR1]NBLIG-1
    If [M:XIR1]ISSEL(II)=2
      Read [XIRL]XIRL0 = [M:XIR1]XPGNUM(II);[M:XIR1]BPCORD(II)
      If !fstat
        [F:XIRL] = [M:XIR1]
        [F:XIRL]USABLE = [M:XIR1]DCBNUM(II)
        Rewrite [F:XIRL]
      Else
        [F:XIRL] = [M:XIR1]
        [F:XIRL]USABLE = [M:XIR1]DCBNUM(II)
        Write [F:XIRL]
      Endif
      YESNO = YESNO & fstat
    Endif
  Next II
  If YESNO
    Infbox "數(shù)據(jù)保存出錯,記錄回滾"
    Rollback
  Else
    Infbox "貨返數(shù)量已確認(rèn)!"
    Commit
  Endif
Return

$LECTURE
#-------------分頁-------------------------

    If STATE=0
        STATE=1
        Return
    Endif
    Local Char R(255) : R = "CPY=[M:XIR0]BPRCOM"
    If [M:XIR0]BPR<> ""
        R += " & BPR=[M:XIR0]BPR"
    Endif

    If [M:XIR0]XENDDATBEG<>[0/0/0]
        R += " & [F:XFB1]ENDDAT>=[M:XIR0]XENDDATBEG"
    Endif
  If [M:XIR0]ZAX3<>""
      R += " & [F:XFB1]ZAX3=[M:XIR0]ZAX3"
  Endif
    If [M:XIR0]XENDDATEND<>[0/0/0]
        R += " & [F:XFB1]ENDDAT<=[M:XIR0]XENDDATEND"
    Endif

#    If [M:XIR0]ISFORWARD <>2
#        R += " & [F:XFB1]ENDDAT<=date$"
#    Endif
    If clalev([F:XFB1])=0 : Local File XPGFORBPC  [F:XFB1] : Endif
    Filter [F:XFB1] Where  evalue(R)
    nolign =1
#   Infbox R
    Raz [M:XIR1]
    For [F:XFB1]
        [M:XIR1] = [F:XFB1]
#        [M:XIR1]THIRETAMT(nolign-1) = [F:XFB1]NOWRETAMT - [F:XFB1]LASRETAMT
        nolign += 1
    Next
    [M:XIR1]NBLIG = nolign -1
    Affzo [M:XIR1]
    Filter [F:XFB1]
Return

$SHOW

Return

$OUVRE
    Local Integer STATE
    STATE=0
    Local Integer PAGE:PAGE=1
    Local Integer PAGESIZE:PAGESIZE=200
    Local Integer MAXPAGE:MAXPAGE=1
    Local Integer MAXSIZE
    Local Integer YESNO
    If !clalev([F:AMK1])  :  Local File AMSK [AMK1] : Endif
    If !clalev([F:XIRL])  :  Local File XITMREFLIST [XIRL] : Endif
    Read [F:AMK1]ABRMSK = "${2:M2}"
    If fstat=0
        PAGESIZE = [F:AMK1]NBLIGT
    Endif
Return

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 XCOURET) 2015/06/05 11:33:04 (SAGE)
######################################################################################
Subprog IB_XCTTYP
End


######################################################################################

######################################################################################

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 XIR1) 2016/05/05 19:51:59 (ZERO)
######################################################################################
Subprog AM_ISSEL(VALEUR)
Variable Integer VALEUR
End

Subprog IB_XPGNUM
End

Subprog AV_CPY(VALEUR)
Variable Char    VALEUR()
End

Subprog AS_DES(VALEUR)
Variable Char    VALEUR()
End

Subprog C_ZAX3(VALEUR)
Variable Char    VALEUR()
End

Subprog AP_XPGTYP(VALEUR)
Variable Integer VALEUR
End

Subprog D_SALAMT(VALEUR)
Variable Decimal VALEUR
End


######################################################################################

代碼文件: SPESOH

#<AdxTL>@(#)0.0.0.0 $Revision$ 訂單
# 屏蔽管理 SOH4 (特定的)

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 SOH4) 2015/09/01 20:20:39 (ZERO)
######################################################################################
$ACTION
    Case ACTION
      When "VERIF_MOD"    :  Gosub  VERIF_CRE  #修改
      When "VERIF_CRE"    :  Gosub VERIF_CRE  #新建
      When "SETBOUT" : Gosub SETBOUT  #設(shè)置自定義按鈕的狀態(tài)
      When "EXEBOUT"      :  Gosub EXEBOUT
   When Default
   Endcase
   Gosub ACTION From XX003
   Gosub ACTION From XX002
   Gosub ACTION From XX010
   Gosub ACTION From ZX016 # 訂單重復(fù)驗(yàn)證
Return

$SETBOUT
If !clalev([F:AUS1]):Local File AUTILIS [F:AUS1] : Endif
   Read [F:AUS1]CODUSR =  GUSER
#正常銷售訂單，SON02和關(guān)閉訂單不需要審核
 If [M:SOH0]SOHTYP='SON'  | [M:SOH0]SOHTYP='SON02' | [M:SOH1]ORDSTA = 2
     Call VIREBOUT(CHAINE,"B8G") From GOBJET
  Endif

 If [M:SOH0]ZCHECKFLG>1
     Call VIREBOUT(CHAINE,"8") From GOBJET
  Endif

 If [M:SOH0]ZCHECK0=2
     Call VIREBOUT(CHAINE,"B") From GOBJET
  Endif

 If [M:SOH0]SOHTYP='SON03'
      Call VIREBOUT(CHAINE,"7s") From GOBJET
  Endif

##
 If [M:SOH0]SOHTYP<>'SON'  & [M:SOH0]SOHTYP<>'SON02' & [M:SOH1]ORDSTA <> 2 & [M:SOH0]ZCHECKFLG<2
     Call VIREBOUT(CHAINE,"2BG") From GOBJET
  Endif
#SON02不審核,SON03,SON04,SON05類型的銷售訂單并且金額小于200休弃，部門經(jīng)理審核
 If [M:SOH0]SOHTYP<>'SON' & [M:SOH0]ZCHECK0<>2 & [M:SOH0]SOHTYP<>'SON01' & [M:SOH0]SOHTYP<>'SON02' & [F:AUS1]CCE(1)=[M:SOH1]ZAUDITOR1 & [M:SOH0]ZCHECKFLG=2
     Call VIREBOUT(CHAINE,"2G8") From GOBJET
  Endif
#總經(jīng)理不可見部門經(jīng)理審核按鈕
 If [M:SOH0]SOHTYP<>'SON' & [M:SOH0]ZCHECK0<>2 & [M:SOH0]SOHTYP<>'SON01' & [M:SOH0]SOHTYP<>'SON02' & [F:AUS1]CCE(1)<>[M:SOH1]ZAUDITOR1
     Call VIREBOUT(CHAINE,"B2G") From GOBJET
  Endif

#SON03,SON04,SON05類型的銷售訂單并且金額小于200桥帆，部門經(jīng)理審核之后隱藏按鈕(部門經(jīng)理和總經(jīng)理審核按鈕)
If [M:SOH0]SOHTYP<>'SON' & [M:SOH0]ZCHECK0 = 2 & [M:SOH0]SOHTYP<>'SON01' & [M:SOH4]ZSUMAMT< 200  & [M:SOH0]SOHTYP<>'SON02' 
     Call VIREBOUT(CHAINE,"B8G") From GOBJET
Endif
#SON03,SON04,SON05類型的銷售訂單并且金額大于等于200祈匙，部門經(jīng)理審核之后隱藏部門經(jīng)理審核按鈕,顯示總經(jīng)理審核按鈕
If [M:SOH0]SOHTYP<>'SON' & [M:SOH0]ZCHECK0 = 2 & [M:SOH0]SOHTYP<>'SON01' & [M:SOH4]ZSUMAMT>= 200  & [M:SOH0]SOHTYP<>'SON02' & [M:SOH0]ZCHECK1 <> 2  & GUSER = 'LGQ' 
     Call VIREBOUT(CHAINE,"2B8") From GOBJET
Endif
#部門經(jīng)理不可見總經(jīng)理審核按鈕
If [M:SOH0]SOHTYP<>'SON' & [M:SOH0]ZCHECK0 = 2 & [M:SOH0]SOHTYP<>'SON01' & [M:SOH4]ZSUMAMT>= 200  & [M:SOH0]SOHTYP<>'SON02' & GUSER <> 'LGQ'
     Call VIREBOUT(CHAINE,"28G") From GOBJET
Endif
#總經(jīng)理隱藏提交按鈕
If  [M:SOH0]ZCHECKFLG=1 & GUSER = 'LGQ'
     Call VIREBOUT(CHAINE,"2BG8") From GOBJET
Endif
#銷售訂單類型為SON01的直接總經(jīng)理審核
If [M:SOH0]SOHTYP='SON01' & [M:SOH0]ZCHECK1 <>2 & GUSER = 'LGQ' & [M:SOH0]ZCHECKFLG=2
     Call VIREBOUT(CHAINE,"2B") From GOBJET
Endif
#部門經(jīng)理不可見總經(jīng)理審核按鈕
If [M:SOH0]SOHTYP='SON01' & [M:SOH0]ZCHECK1 <>2 & GUSER <> 'LGQ'
     Call VIREBOUT(CHAINE,"G2B") From GOBJET
Endif
#總經(jīng)理審核之后伞剑，按鈕置灰
If  [M:SOH0]ZCHECK1 = 2 | [M:SOH1]ORDSTA =2
     Call VIREBOUT(CHAINE,"GB8") From GOBJET
Endif

Return


$EXEBOUT
     If BOUT = '8'
    Local Integer YESNO : YESNO = 2 :# Yes
    Call AVERTIRT("確定提交贈送訂單”！", YESNO ) From GESECRAN
       If YESNO = 2
          If !clalev([F:SOH1]): Local File SORDER [F:SOH1] : Endif
            [M:SOH0]ZCHECKFLG = 2
            Update [F:SOH1] Where [F:SOH1]SOHNUM = [M:SOH0]SOHNUM  With [F:SOH1]ZCHECKFLG = '2'
           Affzo [M:SOH0]0-99
        Endif
     Endif
    If BOUT = 'B'
    Local Integer YESNO : YESNO = 2 :# Yes
    Call AVERTIRT("確定訂單審核通過點(diǎn)擊“確定”，不通過點(diǎn)擊“取消”！", YESNO ) From GESECRAN
       If YESNO = 2
          If !clalev([F:SOH1]): Local File SORDER [F:SOH1] : Endif
            [M:SOH0]ZCHECK0 = 2
            [M:SOH0]ZCHECKFLG = 3
            Update [F:SOH1] Where [F:SOH1]SOHNUM = [M:SOH0]SOHNUM  With [F:SOH1]ZCHECK0 = '2'
            Update [F:SOH1] Where [F:SOH1]SOHNUM = [M:SOH0]SOHNUM  With [F:SOH1]ZCHECKFLG = '3'
           Affzo [M:SOH0]0-99
        Endif
        If YESNO = 1
          If !clalev([F:SOH1]): Local File SORDER [F:SOH1] : Endif
            [M:SOH0]ZCHECK0 = 1
            [M:SOH0]ZCHECKFLG = 2
            Update [F:SOH1] Where [F:SOH1]SOHNUM = [M:SOH0]SOHNUM  With [F:SOH1]ZCHECK0 = '1'
            Update [F:SOH1] Where [F:SOH1]SOHNUM = [M:SOH0]SOHNUM  With [F:SOH1]ZCHECKFLG = '2'
           Affzo [M:SOH0]0-99
        Endif
     Endif
  If BOUT = 'G'
    Local Integer YESNO : YESNO = 2 :# Yes
    Call AVERTIRT("確定訂單審核通過點(diǎn)擊“確定”呆抑，不通過點(diǎn)擊“取消”侈咕！", YESNO ) From GESECRAN
       If YESNO = 2
          If !clalev([F:SOH1]): Local File SORDER [F:SOH1] : Endif
            [M:SOH0]ZCHECK1 = 2
            [M:SOH0]ZCHECKFLG = 5
            Update [F:SOH1] Where [F:SOH1]SOHNUM = [M:SOH0]SOHNUM  With [F:SOH1]ZCHECK1 = '2'
            Update [F:SOH1] Where [F:SOH1]SOHNUM = [M:SOH0]SOHNUM  With [F:SOH1]ZCHECKFLG = '5'
           Affzo [M:SOH0]0-99
        Endif
     If YESNO = 1
          If !clalev([F:SOH1]): Local File SORDER [F:SOH1] : Endif
            [M:SOH0]ZCHECK1 = 1
            [M:SOH0]ZCHECK0 = 1
            [M:SOH0]ZCHECKFLG = 2
            Update [F:SOH1] Where [F:SOH1]SOHNUM = [M:SOH0]SOHNUM  With [F:SOH1]ZCHECK1 = '1'
            Update [F:SOH1] Where [F:SOH1]SOHNUM = [M:SOH0]SOHNUM  With [F:SOH1]ZCHECK0 = '1'
            Update [F:SOH1] Where [F:SOH1]SOHNUM = [M:SOH0]SOHNUM  With [F:SOH1]ZCHECKFLG = '2'
           Affzo [M:SOH0]0-99
        Endif
     Endif
  Affzo [M:SOH0]0-99
Return


Subprog IB_NBLIG
End


######################################################################################

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 SOH0) 2015/09/07 17:30:02 (SAGE)
######################################################################################
Subprog AM_SOHTYP(VALEUR)
    Variable Char    VALEUR()
    [M:SOH3]CCE(6) = [M:SOH0]SOHTYP
    Affzo [M:SOH3]CCE(6)
End

Subprog AM_BPCORD(VALEUR)
Variable Char    VALEUR()
   [M:SOH3]CCE(6) = [M:SOH0]SOHTYP
   Affzo [M:SOH3]CCE(6)
    ##預(yù)收客戶額度
  If !clalev([F:BPC2]) : Local File BPCUSTOMER [BPC2] : Endif
  If !clalev([F:ZBP2]) Local File ZPAYBSUM2 [ZBP2] : Endif
  Read [F:BPC2]BPC0 = VALEUR
  Read [F:ZBP2]ZPB2 = VALEUR
  If  [F:BPC2]ZPAYFLG = 2
      [M:SOH4]ZLIMIT = [F:ZBP2]ENDAMT
       Affzo [M:SOH4]ZLIMIT
        Endif
  If  [F:BPC2]ZPAYFLG = 1
      [M:SOH4]ZLIMIT = 0
       Affzo [M:SOH4]ZLIMIT
   Endif

      If !clalev([F:BPD1]):Local File BPDLVCUST [F:BPD1] : Endif
      If !clalev([F:BPC1]):Local File BPCUSTOMER [F:BPC1] : Endif
      If !clalev([F:ZBF1]):Local File ZBPCFCY [F:ZBF1] : Endif
      Read [F:BPC1]BPC0 = VALEUR
      Read [F:ZBF1]ZBF0 = VALEUR;[M:SOH0]SALFCY
      [M:SOH0]ZTSCCOD = [F:ZBF1]ZTSCCOD1
     If !fstat
       For [F:BPD1] Where  BPCNUM  = VALEUR & BPAADD = [F:BPC1]BPDADD
          [M:SOH1]ZTCLCOD = [F:BPD1]ZTCLCOD
          [M:SOH2]ZDRN = [F:BPD1]ZDRN
          Break
#          [M:SOH0]ZTSCCOD = [F:BPC1]TSCCOD(1)
      Next
     Endif
    Affzo [M:SOH1]0-99
    Affzo [M:SOH2]0-99
    Affzo [M:SOH0]0-99
End


######################################################################################



######################################################################################

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 SOH2) 2015/09/09 11:17:27 (SAGE)
######################################################################################
Subprog AV_STOFCY(VALEUR)
Variable Char    VALEUR()
  If VALEUR <> [M:SOH0]SALFCY
    VALEUR = [M:SOH0]SALFCY
  Endif
End



####################################################################################################


Subprog C_ZFL(VALEUR)
Variable Decimal VALEUR
    Call C_ZFL(VALEUR) From XX002
End

Subprog AM_ZFL(VALEUR)
Variable Decimal VALEUR
    Call AM_ZFL(VALEUR) From XX002
End
####################################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 SOH0) 2015/10/20 09:31:52 (ZERO),用于將屏幕表頭的品牌帶到開票頁簽中的品牌。
####################################################################################################
Subprog AM_ZAX3(VALEUR)
Variable Char    VALEUR()
   [M:SOH3]CCE(2) = VALEUR
   Affzo[M:SOH3]0-99

   If !clalev([F:CCE1]):Local File CACCE [F:CCE1] : Endif
   Read [F:CCE1]CCE1 = VALEUR
   If !fstat 
     [M:SOH1]ZAUDITOR1 = [F:CCE1]DEFCCE(0)
  Endif
  Affzo [M:SOH1]0-99
   Call AM_ZAX3(VALEUR) From XX002
End


######################################################################################


######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 SOH4) 2015/10/26 16:31:06 (ZERO)
######################################################################################
Subprog AM_QTY(VALEUR)
Variable Decimal VALEUR
Local Integer R : R = 0
Local Decimal VATVAL: VATVAL=0
    If !clalev([TRA1]): Local File TABRATVAT [TRA1] : Endif
    If !clalev([FCY1]): Local File FACILITY [FCY1] : Endif
    Read [FCY1]FCY0 = [M:SOH0]SALFCY
    If !fstat
        For [TRA1] Where (CPY=''|CPY=[FCY1]LEGCPY) and (STRDAT=[0/0/0]|date$>=STRDAT) and [TRA1]VAT =  [M:SOH4]VAT1(nolign-1)
           VATVAL += [F:TRA1]VATRAT/[F:TRA1]DEDRAT
        Next
    Endif
     [M:SOH4]ZPRIAMT1(nolign-1) = arr(([M:SOH4]GROPRI(nolign-1)*VALEUR/(1+VATVAL)),0.0001)

  R = [M:SOH4]NBLIG
  [M:SOH4]ZSOHQTY = 0
  For Y = 0 To R-1
   If Y<>nolign-1
     [M:SOH4]ZSOHQTY = [M:SOH4]ZSOHQTY +[M:SOH4]QTY(Y)
    Endif
  Next
  [M:SOH4]ZSOHQTY += VALEUR
 # [M:SOH4]GROPRI(nolign-1) = arr([M:SOH4]GROPRI(nolign-1),4)
 Affzo [M:SOH4]0-99
End


######################################################################################


######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 SOH1) 2015/11/02 14:32:09 (ZERO)
######################################################################################
Subprog AM_BPAADD(VALEUR)
Variable Char    VALEUR()
      If !clalev([F:BPD1]):Local File BPDLVCUST [F:BPD1] : Endif

      For [F:BPD1] Where BPAADD = VALEUR & BPCNUM = [M:SOH0]BPCORD
            [M:SOH1]ZTCLCOD = [F:BPD1]ZTCLCOD
            [M:SOH2]ZDRN = [F:BPD1]ZDRN
      Next

   Affzo [M:SOH1]ZTCLCOD
   Affzo [M:SOH2]0-99
End


######################################################################################
###################################################取數(shù)量肮蛹、返利缓苛、促銷冬耿、費(fèi)用、產(chǎn)品價格沒有定義的不能保存
$VERIF_CRE
    Local Integer R : R = 0

  R = [M:SOH4]NBLIG
 [M:SOH4]ZSOHQTY = 0
 [M:SOH4]ZSUMAMT = 0
 [M:SOH4]ZSUMAMT1 = 0
 [M:SOH4]ZFY1 = 0
 [M:SOH4]ZFY = 0
 [M:SOH4]ZCX = 0
  X = 0
  For Y = 0 To R-1
  #計(jì)算每行產(chǎn)品的原始不含稅行金額
   Local Decimal VATVAL: VATVAL=0
     If !clalev([TRA1]): Local File TABRATVAT [TRA1] : Endif
     If !clalev([FCY1]): Local File FACILITY [FCY1] : Endif
     Read [FCY1]FCY0 = [M:SOH0]SALFCY
     If !fstat
         For [TRA1] Where (CPY=''|CPY=[FCY1]LEGCPY) and (STRDAT=[0/0/0]|date$>=STRDAT) and [TRA1]VAT =  [M:SOH4]VAT1(Y)
          VATVAL += [F:TRA1]VATRAT/[F:TRA1]DEDRAT
          [M:SOH4]ZPRIAMT1(Y) = arr(([M:SOH4]QTY(Y)*[M:SOH4]GROPRI(Y)/(1+VATVAL)),0.01)
          [M:SOH4]ZPRIAMT(Y) = arr(([M:SOH4]QTY(Y)*[M:SOH4]GROPRI(Y)),0.01)
           Affzo [M:SOH4]0-99
        Next
     Endif

     [M:SOH4]ZSOHQTY = [M:SOH4]ZSOHQTY +[M:SOH4]QTY(Y)
     [M:SOH4]ZSUMAMT = arr(([M:SOH4]ZSUMAMT +[M:SOH4]ZPRIAMT(Y)),0.01)
     [M:SOH4]ZSUMAMT1 = arr(([M:SOH4]ZSUMAMT1 +[M:SOH4]ZPRIAMT1(Y)),0.01)
     [M:SOH4]ZFY1 = [M:SOH4]ZFY1 +[M:SOH4]DISCRGVAL6(Y)
     [M:SOH4]ZCX = [M:SOH4]ZCX +[M:SOH4]DISCRGVAL4(Y)
     [M:SOH4]ZFY = [M:SOH4]ZFY +[M:SOH4]DISCRGVAL5(Y)
     #[M:SOH4]GROPRI(Y) = arr([M:SOH4]GROPRI(Y),0.0001)
   [M:SOH4]NETPRI(Y) = arr((arr([M:SOH4]GROPRI(Y),0.0001)*(1-([M:SOH4]DISCRGVAL1(Y)+[M:SOH4]DISCRGVAL2(Y)+[M:SOH4]DISCRGVAL7(Y))*0.01)*[M:SOH4]QTY(Y)-([M:SOH4]DISCRGVAL3(Y)+[M:SOH4]DISCRGVAL4(Y)+[M:
& SOH4]DISCRGVAL5(Y)+[M:SOH4]DISCRGVAL6(Y)))/[M:SOH4]QTY(Y),0.000000001)

     If [M:SOH4]GROPRI(Y) = 0 & [M:SOH4]XPGNUM(Y) = ''
        X = X+1
     Endif
  Next
  Affzo [M:SOH4]ZSOHQTY,ZSUMAMT,ZSUMAMT,ZFL,ZCX,ZFY
#####非贈送產(chǎn)品價格為0提示
 If [M:SOH0]SOHTYP = 'SON' &   X>=1
    GERR = 1 : GMESSAGE =  '產(chǎn)品價格沒有定義'
   OK = 0
 Endif
#######審核人2
   
       [M:SOH1]ZAUDITOR2 = "LGQ9305"
       
Affzo [M:SOH1]0-99
Return

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 SOH2) 2015/12/07 19:03:13 (ZERO)
######################################################################################
Subprog AM_ZDRN(VALEUR)
Variable Char    VALEUR()
End


######################################################################################

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 SOH4) 2015/12/16 09:09:53 (ZERO)
######################################################################################
Subprog AM_SAU(VALEUR)
Variable Char    VALEUR()

End


######################################################################################

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 SOH4) 2015/12/17 20:19:28 (ZERO)
######################################################################################
Subprog AM_GROPRI(VALEUR)
Variable Decimal VALEUR
If GWEBSERV>0
Endif
End


######################################################################################

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 SOH4) 2015/12/18 14:52:19 (ZERO)
######################################################################################
Subprog AM_ITMREF(VALEUR)
Variable Char    VALEUR()
    If clalev([F:ITM1])=0 : Local File ITMMASTER  [F:ITM1] : Endif
    Read  [F:ITM1]ITM0 =VALEUR
    If !fstat
        [M:SOH4]ZITMDES2(nolign-1) = [F:ITM1]ITMDES2
    Endif
    Affzo [M:SOH4]ZITMDES2
    [M:SOH4]CCE7(nolign-1) = [M:SOH0]SOHTYP
    Affzo [M:SOH4]CCE7(nolign-1)
End


######################################################################################

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 SOH1) 2015/12/19 10:42:24 (SAGE)
######################################################################################
Subprog AM_REP(VALEUR)
Variable Char    VALEUR()
End


######################################################################################


######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 SOH4) 2016/01/08 19:12:01 (SAGE)
######################################################################################
Subprog AV_GROPRI(VALEUR)
Variable Decimal VALEUR

End


######################################################################################


######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 SOH4) 2016/01/12 18:35:04 (SAGE)
######################################################################################
Subprog AV_DISCRGVAL2(VALEUR)
Variable Decimal VALEUR
    If [M:SOH0]SOHTYP <> 'SON'
      VALEUR = 100
    Endif
End


######################################################################################


######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 SOH4) 2016/01/13 15:01:47 (SAGE)
######################################################################################
Subprog AV_DISCRGVAL1(VALEUR)
Variable Decimal VALEUR
    If [M:SOH0]SOHTYP <> 'SON'
      VALEUR = 0
    Endif
End


######################################################################################


######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 SOH0) 2016/02/13 03:05:15 (SAGE)
######################################################################################
Subprog AM_SALFCY(VALEUR)
Variable Char    VALEUR()
    [M:SOH3]CCE(6) = [M:SOH0]SOHTYP
    Affzo [M:SOH3]CCE(6)
End


######################################################################################

代碼文件: SPEXPG

#<AdxTL>@(#)0.0.0.0 $Revision$ 促銷政策
#
# 日期 (SAGE)
#
$ACTION
#Infbox ACTION
Case ACTION
  When "OUVRE"        :  Gosub OUVRE
  When "FILTRE"       :  Gosub FILTRE
  When "CREATION"     :  Gosub CREATION
  When "APRES_CRE"    :  Gosub APRES_CRE
  When "LIENS"        :  Gosub LIENS
  When "MODIF"        :  Gosub MODIF
  When "APRES_MOD"    :  Gosub APRES_MOD
  When "ANNULE"       :  Gosub ANNULE
  When "DEFLIG"       :  Gosub DEFLIG
  When "INICRE_LIG"   :  Gosub INI_LIG
  When "INIMOD_LIG"   :  Gosub INI_LIG
  When "INICRE"       :  Gosub INICRE
  When "SETBOUT"      :  Gosub SETBOUT
  When "EXEBOUT"      :  Gosub EXEBOUT
  When "RAZDUP"       :  Gosub RAZDUP
  When "RAZCRE"         : Gosub RAZCRE
#  When "CREATION"   : Gosub CREATION
  When "INIMOD"     : Gosub INIMOD
  When "AVANT_MOD"           : Gosub AVANT_MOD
    When "FILGAUCHE"    : Gosub FILGAUCHE
    Endcase
Return

$FILGAUCHE
    If currbox = "GAU_CHE"
        CRITERE = "[F:XPG]TRSFLG=GFLAG"
    ENDIF
Return

$RAZCRE
    Diszo [M:XPG0]XPGNUM
Return

$OUVRE
  Gosub DECLARE From TABLEAUX
  If !clalev([F:XLO]) : Local File XLINOBJ [F:XLO] : Endif
  Local Char    AUZFCY(15)
  Local Integer ACCFCY
  Local Char ZFCY(10)
  If !clalev([F:ZCPY]) : Local File COMPANY [ZCPY] : Endif

Return

$FILTRE
  Default File [XPG]
Return

$CREATION
  Gosub CREATION From TABLEAUX #處理主從表的模塊
  If GOK < 1 Return Endif
  Gosub INIMOD
Return

$INIMOD
   Delete [F:XLO] Where XPGNUM = [M:XPG0]XPGNUM
#  For II = 0 To [M:XPG1]NBLIGD -1
#    [F:XLO]OBJ ='ITM'
#    [F:XLO]VCRNUM = [M:XPG1]DCBITM(II)
#    [F:XLO]XPGNUM = [M:XPG0]XPGNUM
#    [F:XLO]XLOLIN = (II+1)*1000
#    Write [F:XLO]
#  Next
  For II = 0 To [M:XPG1]NBLIGA -1
    [F:XLO]OBJ ='CCE'
    [F:XLO]XPGNUM = [M:XPG0]XPGNUM
    [F:XLO]VCRNUM = [M:XPG1]ZCCE1(II)
    [F:XLO]XLOLIN = (II+1)*1000
    Write [F:XLO]
  Next
  For II = 0 To [M:XPG1]NBLIGB -1
    [F:XLO]OBJ ='ADI'
    [F:XLO]XPGNUM = [M:XPG0]XPGNUM
    [F:XLO]VCRNUM = [M:XPG1]ZCCE2(II)
    [F:XLO]XLOLIN = (II+1)*1000
    Write [F:XLO]
  Next
  For II = 0 To [M:XPG1]NBLIGC -1
    [F:XLO]OBJ ='BPC'
    [F:XLO]XPGNUM = [M:XPG0]XPGNUM
    [F:XLO]VCRNUM = [M:XPG1]ZCCE3(II)
    [F:XLO]XLOLIN = (II+1)*1000
    Write [F:XLO]
  Next
Return

$APRES_CRE
  Gosub LIENS From TABLEAUX
Return

$LIENS
  Gosub LIENS From TABLEAUX
    For II = 0 To 9
        If [F:XPG]DCBITM(II)<>""
            [M:XPG1]DCBITM(II) = [F:XPG]DCBITM(II)
        Else
            Break
        Endif
    Next
    If II>0
          [M:XPG1]NBLIGD = II
    Endif
    II =0
    For [XLO] Where [XLO]XPGNUM = [M:XPG0]XPGNUM and OBJ='CCE'
        [M:XPG1]ZCCE1(II) = [F:XLO]VCRNUM
        II+=1
    Next
    If II>0
          [M:XPG1]NBLIGA = II
    Endif
    II =0
    For [XLO] Where [XLO]XPGNUM = [M:XPG0]XPGNUM and OBJ='ADI'
        [M:XPG1]ZCCE2(II) = [F:XLO]VCRNUM
        II+=1
    Next
    If II>0
          [M:XPG1]NBLIGB = II
    Endif
        II =0
    For [XLO] Where [XLO]XPGNUM = [M:XPG0]XPGNUM and OBJ='BPC'
        [M:XPG1]ZCCE3(II) = [F:XLO]VCRNUM
        II+=1
    Next
    If II>0
          [M:XPG1]NBLIGC = II
    Endif
        Affzo [M:XPG1]0-99
Return

$MODIF
  Gosub MODIF From TABLEAUX
  If GOK < 1 Return Endif
Return
$AVANT_MOD
  If [M:XPG0]XPGFLG >1
    OK = 0
  Endif
Return
$APRES_MOD
  Gosub LIENS From TABLEAUX

Return

$ANNULE
  Gosub ANNULE From TABLEAUX
  If GOK < 1 Return Endif
  Delete [F:XLO] Where [F:XLO]XPGNUM = [M:XPG0]XPGNUM
Return

$DEFLIG
  Default Mask [M:XPG1]
  Default File [XPL]
  #從表單號=主屏單
  CRIT ='[F:XPL]XPGNUM="'+[M:XPG0]XPGNUM+'"'
  # 從表名  從表縮寫
  FICLIG = "XPROITMLIS" : ABLIG ="XPL"
  #  從表行號
  ZONLIG = "XPGLIN"
Return

$INI_LIG
# 從表單號=主表單號
  [F:XPL]XPGNUM = [F:XPG]XPGNUM
Return

$INICRE
    Local Integer STAT
    Read [F:ZCPY]CPY0 = [M:XPG1]CPY
    If !fstat
        ZFCY = [F:ZCPY]MAIFCY
    Endif
    #生成序列號
    Call NUMERO ('XPG',ZFCY,date$,"",[M:XPG0]XPGNUM,STAT) From SUBANM
    If STAT = 0
        [F:XPG]XPGNUM= [M:XPG0]XPGNUM
        Affzo [M:XPG0]XPGNUM
    Else
       GERR=1:GMESSAGE = mess(60,199,1) : GOK=0 : Return
    Endif
    Gosub INIMOD
Return

$SETBOUT
  Call DROITSITE([M]FCY,[L]AUZFCY,[L]ACCFCY) From CPTSUB
#  Infbox AUZFCY

  # If !instr(1,[L]AUZFCY,"1") | find(GREP,'C','M','S') | [M:XPG0]XPGFLG<>1
     #  Call VIREBOUT(CHAINE,"1") From GOBJET
 #  Endif
 #  If !instr(1,[L]AUZFCY,"2") | find(GREP,'C','M','S') | [M:XPG0]XPGFLG<>2
    #   Call VIREBOUT(CHAINE,"2") From GOBJET
 #  Endif
If !clalev([F:AUS1]):Local File AUTILIS [F:AUS1] : Endif
   Read [F:AUS1]CODUSR =  GUSER
#非自己的促銷政策單子不能提交萌壳、關(guān)閉、修改燎斩、刪除等
 If   [M:XPG0]CREUSR <> GUSER & [F:AUS1]CCE(1)<>[M:XPG1]MANAX3 & GUSER <>'LGQ'
      Call VIREBOUT(CHAINE,"2A1M34") From GOBJET
  Endif
#品牌經(jīng)理可以修改刪除自己品牌下的促銷政策
If   [F:AUS1]CCE(1)=[M:XPG1]MANAX3 
      Call VIREBOUT(CHAINE,"124") From GOBJET
  Endif
#草稿狀態(tài)的促銷政策單子可以提交
 If  [M:XPG0]XPGFLG=1 
      Call VIREBOUT(CHAINE,"123") From GOBJET
  Endif
#品牌經(jīng)理只能看到自己品牌的促銷政策的審核按鈕
 If  [M:XPG0]XPGFLG=4 & [F:AUS1]CCE(1)=[M:XPG1]MANAX3
      Call VIREBOUT(CHAINE,"41") From GOBJET
  Endif
#品牌經(jīng)理不能看到其他品牌的促銷政策的審核按鈕
 If  [M:XPG0]XPGFLG=4 & [F:AUS1]CCE(1)<>[M:XPG1]MANAX3
      Call VIREBOUT(CHAINE,"341") From GOBJET
  Endif
#總經(jīng)理賬號才能看到總經(jīng)理審核按鈕
 If  [M:XPG0]XPGFLG=5 & GUSER='LGQ'
      Call VIREBOUT(CHAINE,"34") From GOBJET
  Endif
#
 If  [M:XPG0]XPGFLG=5 & GUSER<>'LGQ'
      Call VIREBOUT(CHAINE,"341") From GOBJET
  Endif
 If  [M:XPG0]XPGFLG=2 | [M:XPG0]XPGFLG=3
      Call VIREBOUT(CHAINE,"341") From GOBJET
  Endif
Return

$EXEBOUT
    Case BOUT
        When "1" :
            [F:XPG]XPGFLG = 2
            Rewrite [F:XPG]
            [M:XPG0]XPGFLG =2
            Affzo [M:XPG0]0-99
            Gosub LIENS #From SPEXPG
            Gosub SETBOUT
        When "2" :
            [F:XPG]XPGFLG = 3
            Rewrite [F:XPG]
            [M:XPG0]XPGFLG =3
            Affzo [M:XPG0]XPGFLG
            Gosub LIENS #From SPEXPG
            Gosub SETBOUT
   
      When "3" :
            [F:XPG]XPGFLG =5
            Rewrite [F:XPG]
            [M:XPG0]XPGFLG =5
            Affzo [M:XPG0]XPGFLG
            Gosub LIENS #From SPEXPG
            Gosub SETBOUT

   When "4" :
            [F:XPG]XPGFLG =4
            Rewrite [F:XPG]
            [M:XPG0]XPGFLG =4
            Affzo [M:XPG0]XPGFLG
            Gosub LIENS #From SPEXPG
            Gosub SETBOUT
    Endcase
Return

$RAZDUP
    [M:XPG0]XPGFLG = 1
Return
#

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 XPG1) 2015/08/25 12:37:20 (ZERO)
######################################################################################
Subprog C_ENDDAT(VALEUR)
Variable Date    VALEUR
    If VALEUR <[M:XPG1]STRDAT
        Call ECR_TRACE('結(jié)束日期<開始日期', 0) From GESECRAN
        mkstat = 2
    Endif
End

Subprog AM_LIMITNUM(VALEUR)
Variable Decimal VALEUR
    [M:XPG1]USENUM = VALEUR
    Affzo [M:XPG1]USENUM
End


######################################################################################

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 XPG1) 2015/08/25 12:42:12 (ZERO)
######################################################################################
Subprog C_DCBITM(VALEUR)
Variable Char    VALEUR()
    For II = 0  To [M:XPG1]NBLIGD -1
 #       Infbox(num$(nolign))
        If nolign <> II+1 and [M:XPG1]DCBITM(II) = VALEUR
            Call ECR_TRACE('行:'+num$(II+1)+' 已經(jīng)存在的產(chǎn)品', 0) From GESECRAN
            mkstat = 2
            Break
        Endif
    Next

End

Subprog C_ZCCE1(VALEUR)
Variable Char    VALEUR()
    For II = 0  To [M:XPG1]NBLIGA -1
        If nolign <> II+1 and [M:XPG1]ZCCE1(II) = VALEUR
            Call ECR_TRACE('行:'+num$(II+1)+' 已經(jīng)存在的渠道', 0) From GESECRAN
            mkstat = 2
            Break
        Endif
    Next
End

Subprog C_ZCCE2(VALEUR)
Variable Char    VALEUR()
    For II = 0  To [M:XPG1]NBLIGB -1
        If nolign <> II+1 and [M:XPG1]ZCCE2(II) = VALEUR
            Call ECR_TRACE('行:'+num$(II+1)+' 已經(jīng)存在的區(qū)域', 0) From GESECRAN
            mkstat = 2
            Break
        Endif
    Next
End

Subprog C_ZCCE3(VALEUR)
Variable Char    VALEUR()
    For II = 0  To [M:XPG1]NBLIGC -1
        If nolign <> II+1 and [M:XPG1]ZCCE3(II) = VALEUR
            Call ECR_TRACE('行:'+num$(II+1)+' 已經(jīng)存在的客戶', 0) From GESECRAN
            mkstat = 2
            Break
        Endif
    Next
End


######################################################################################

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 XPG1) 2015/08/25 13:18:16 (ZERO)
######################################################################################
Subprog C_ITMREF(VALEUR)
Variable Char    VALEUR()
    For II = 0  To [M:XPG1]NBLIG -1
        If nolign <> II+1 and [M:XPG1]ITMREF(II) = VALEUR
            Call ECR_TRACE('行:'+num$(II+1)+' 已經(jīng)存在的產(chǎn)品', 0) From GESECRAN
            mkstat = 2
            Break
        Endif
    Next
End


######################################################################################

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 XPG1) 2015/08/25 15:34:27 (ZERO)
######################################################################################
Subprog S_ITMREF(VALEUR)
Variable Char    VALEUR()
End


######################################################################################

代碼文件: XTRTFROBPC

#<AdxTL>@(#)0.0.0.0 $Revision$
$ACTION
    Case ACTION
        When "INIT"     : Gosub INIT
        When "EXEC"     : Gosub EXEC
        When "INIT_DIA" : Gosub INIT_DIA
        When Default
    Endcase
Return

$INIT
Return

$CLECX
    For II =  [M:SOH4]NBLIG - 1 To 0 Step -1
        nolign = II + 1
        #如果是買贈,則刪除行
        If [M:SOH4]XPGNUM(II)<>"" and [M:SOH4]GROPRI(II)=0
              Call AVANT_NBLIG From W1SOH4
              status=65
              Dela II,1,[M:SOH4]NBLIG-1 [M:SOH4]NBLIG
              Call APRES_NBLIG From W1SOH4
              [M:SOH4]NBLIG -= 1
              Affzo [M:SOH4]0-99
        Endif

    Next
Return

$EXEC
    Local Decimal LAMT : LAMT = 0
    Local Decimal CAMT : CAMT = 0
    Local Decimal TAMT : TAMT = 0
    If !clalev([F:ITM]) : Local File ITMMASTER [F:ITM] : Endif
    If !clalev([F:ITS]) : Local File ITMSALES [F:ITS] : Endif

    Default Mask [M:SOH0]
    Default Mask [M:SOH1]
    Default Mask [M:SOH4]


    #處理之前的折扣
    Gosub CLECX
    #處理折扣


    #處理買贈
    Local Char LSAU :Raz LSAU
    For II = 0 To  [M:XFB1]NBLIG - 1
        If [M:XFB1]ISSEL(II) = 2 and [M:XFB1]USENUM(II) > 0#如果勾選了該策略 #如果買贈
                LAMT = [M:XFB1]USENUM(II)
                nolign = [M:SOH4]NBLIG+1
                Call IB_NBLIG From W1SOH4
                Call AV_NBLIG From W1SOH4
                Call C_NBLIG From W1SOH4
                Call AVANT_NBLIG From W1SOH4
                Call APRES_NBLIG From W1SOH4

                Read [F:ITM]ITM0 = [M:XFB1]XDCBITM(II)
                Read [F:ITS]ITS0 = [M:XFB1]XDCBITM(II)
                Call IB_ITMREF([M:XFB1]XDCBITM(II)) From W1SOH4
                Call AV_ITMREF([M:XFB1]XDCBITM(II)) From SUBSOH
                Call AS_ITMREF([M:XFB1]XDCBITM(II)) From W1SOH4
                Call C_ITMREF([M:XFB1]XDCBITM(II)) From W1SOH4
                Call AM_ITMREF([M:XFB1]XDCBITM(II)) From W1SOH4
                [M:SOH4]ITMREF(nolign - 1)  =   [M:XFB1]XDCBITM(II)
                LSAU = [M:SOH4]STU(nolign-1)
                If [M:XFB1]ZFROUOM(II) = 2
                    Call AM_SAU(LSAU) From W1SOH4

                    [M:SOH4]SAU(nolign-1) = [M:SOH4]STU(nolign-1)
                    [M:SOH4]SAUSTUCOE(nolign-1) = 1
                    Call AM_SAUSTUCOE([M:SOH4]SAUSTUCOE(nolign-1)) From W1SOH4

                Endif
                Call AP_QTY(LAMT) From W1SOH4
                Call AM_QTY(LAMT) From W1SOH4
                [M:SOH4]QTY(nolign - 1)     =   LAMT
                CAMT = 0
                Call AM_GROPRI(CAMT) From W1SOH4
                [M:SOH4]GROPRI(nolign - 1)  =   0

                Call APRES_NBLIG From W1SOH4
                [M:SOH4]XPGNUM(nolign - 1)  =   [M:XFB1]XPGNUM(II)
                [M:SOH4]NBLIG += 1
        Endif
    Next

Affzo [M:SOH4]0-99
IMOD =1

Return

$INIT_DIA

    If !clalev([F:XPG1]) : Local File XPRMITMGRP [F:XPG1] : Endif
    If !clalev([F:XIRL])  : Local File XITMREFLIST [F:XIRL] :Endif
    nolign = 1
    For [F:XIRL] Where BPCORD = [M:SOH0]BPCORD & USABLE>USEQTY# and ([F:XPG1]USENUM<[F:XPG1]LIMITNUM or [F:XPG1]LIMITNUM=0)
        #查找客戶當(dāng)前已經(jīng)使用的額度和次數(shù)
        Read [F:XPG1]XPG0 = [F:XIRL]XPGNUM
        If !fstat
            [M:XFB1] = [F:XPG1]
            [M:XFB1]USABLE(nolign-1) = [F:XIRL]USABLE-[F:XIRL]USEQTY
            [M:XFB1]XDCBITM(nolign-1) = [F:XPG1]DCBITM(0)
            For II =  1 To 9
#             Infbox "-"+ [F:XPG1]DCBITM(1)+"-"
                If [F:XPG1]DCBITM(II)<>''
                    nolign += 1
                    [M:XFB1] = [F:XPG1]
                    [M:XFB1]USABLE(nolign-1) = [F:XIRL]USABLE-[F:XIRL]USEQTY
                    [M:XFB1]XDCBITM(nolign-1) = [F:XPG1]DCBITM(II)
                Endif
            Next
            nolign += 1
        Endif


    Next
    [M:XFB1]NBLIG = nolign-1
    Affzo [M:XFB1]0-20
#    Infbox num$(nolign)
Return

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 XFS1) 2015/08/31 20:44:31 (ZERO)
######################################################################################
Subprog AM_ISSEL(VALEUR)
Variable Integer VALEUR

 #   Affzo [M]0-99
End


######################################################################################

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 XFS1) 2015/09/06 17:49:50 (ZERO)
######################################################################################
Subprog IB_XPGNUM
End

Subprog AV_CPY(VALEUR)
Variable Char    VALEUR()
End

Subprog AS_DES(VALEUR)
Variable Char    VALEUR()
End

Subprog C_ZAX3(VALEUR)
Variable Char    VALEUR()
End

Subprog AP_XPGTYP(VALEUR)
Variable Integer VALEUR
End


######################################################################################

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 XFS1) 2015/09/06 17:51:51 (ZERO)
######################################################################################
Subprog D_SALAMT(VALEUR)
Variable Decimal VALEUR
End


######################################################################################

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 XFS1) 2016/01/21 09:30:40 (ZERO)
######################################################################################
Subprog IB_LIMITAMT
End


######################################################################################

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 XFB1) 2016/05/05 22:28:16 (ZERO)
######################################################################################
Subprog C_USENUM(VALEUR)
Variable Decimal VALEUR
  Local Decimal TSNUM : Raz TSNUM
  TSNUM = sigma(I=0,[M:XFB1]NBLIG-1,(I<>nolign-1)*([M:XFB1]XPGNUM(I)=[M:XFB1]XPGNUM(nolign-1))*[M:XFB1]USENUM(I))+VALEUR
  If TSNUM>[M:XFB1]USABLE(nolign-1)
    mkstat = 2
    GERR =1 : GMESSAGE="同一促銷不同產(chǎn)品的使用數(shù)量之和不能超過可用數(shù)量"
    End :
  Endif
  If VALEUR>0
    [M:XFB1]ISSEL(nolign-1) =2
    Affzo     [M:XFB1]ISSEL(nolign-1)
  Endif
End


######################################################################################

代碼文件: XTRTFROSOH

#<AdxTL>@(#)0.0.0.0 $Revision$ 
$ACTION
    Case ACTION
        When "INIT"     : Gosub INIT
        When "EXEC"     : Gosub EXEC
        When "INIT_DIA" : Gosub INIT_DIA
        When Default
    Endcase
Return

$INIT
Return

$CLECX
    For II =  [M:SOH4]NBLIG - 1 To 0 Step -1
        nolign = II + 1
        #如果是買贈,則刪除行
        If [M:SOH4]XPGNUM(II)<>"" and [M:SOH4]GROPRI(II)=0
              Call AVANT_NBLIG From W1SOH4
              status=65
              Dela II,1,[M:SOH4]NBLIG-1 [M:SOH4]NBLIG
              Call APRES_NBLIG From W1SOH4
              [M:SOH4]NBLIG -= 1
              Affzo [M:SOH4]0-99
        Endif
        #如果是折扣,則去掉折扣
        If [M:SOH4]XPGNUM(II)<>""

            Call AVANT_NBLIG From W1SOH4
            Call ="AM_DISCRGVAL"+num$(PRSNUM+1)+"" With TAMT From W1SOH4
            Assign "[M:SOH4]DISCRGVAL"+num$(PRSNUM+1)+"(II)" With 0
            [M:SOH4]XPGNUM(II)  = ""
            Call APRES_NBLIG From W1SOH4
        Endif
    Next
Return

$EXEC
    Local Decimal LAMT : LAMT = 0
    Local Decimal CAMT : CAMT = 0
    Local Decimal TAMT : TAMT = 0
    If !clalev([F:ITM]) : Local File ITMMASTER [F:ITM] : Endif
    If !clalev([F:ITS]) : Local File ITMSALES [F:ITS] : Endif
    If !clalev([F:PRS1]) : Local File PRICSTRUCT [F:PRS1] : Endif
    Local Integer PRSNUM : PRSNUM = -1
    Default Mask [M:SOH0]
    Default Mask [M:SOH1]
    Default Mask [M:SOH4]
    #取得促銷對應(yīng)的價格結(jié)構(gòu)
    For [PRS1] Where BPCBPS=1
        For I = 0  To 8
            If [PRS1]XEXT(I) = 3
                PRSNUM = I
                Break 2
            Endif
        Next I
    Next
    #如果沒有價格結(jié)構(gòu)使用促銷政策,直接結(jié)束
    If PRSNUM = -1
        Return
    Endif
    #處理之前的折扣
    Gosub CLECX
    #處理折扣

    For II = 0 To  [M:XFS1]NBLIG - 1
        If [M:XFS1]ISSEL(II) = 2 and [M:XFS1]XPGTYP(II) = 1#如果勾選了該策略 #如果是折扣返
            If [M:XFS1]SALAMT(II)>0 #如果滿 >0
                # int(訂單金額/滿 )* 減 > 限額
                If int([M:XFS1]COUAMT(II)/[M:XFS1]SALAMT(II))*[M:XFS1]DCBAMT(II)>[M:XFS1]LIMITAMT(II)
& and [M:XFS1]LIMITAMT(II)>0
                    LAMT = [M:XFS1]LIMITAMT(II)
                Else
                    # int(訂單金額/滿 )* 減
                    LAMT = int([M:XFS1]COUAMT(II)/[M:XFS1]SALAMT(II))*[M:XFS1]DCBAMT(II)
                Endif
#                If [M:XFS1]XPGTYP(II) = 1 #如果是折扣返
                For JJ = 0 To [M:SOH4]NBLIG - 1
                    #折扣3 = 數(shù)量*凈價* 折扣額/訂單總額
                    nolign = JJ+1
                    Call AVANT_NBLIG From W1SOH4
                    If JJ =  [M:SOH4]NBLIG - 1
                        #如果是最后一行 為剩余折扣
                        TAMT = LAMT - CAMT
                    Else
                        #折扣為 數(shù)量*凈價* 折扣額/訂單總額
                        TAMT = ar2([M:SOH4]LINORDATI(JJ)*LAMT/[M:SOH4]ORDINVATI)
                        #CAMT 為處理尾差
                        CAMT += TAMT
                    Endif
                    Call ="AM_DISCRGVAL"+num$(PRSNUM+1)+"" With TAMT From W1SOH4
                    Assign "[M:SOH4]DISCRGVAL"+num$(PRSNUM+1)+"(JJ)" With TAMT

                    [M:SOH4]XPGNUM(JJ) = [M:XFS1]XPGNUM(II)
                    Call APRES_NBLIG From W1SOH4
                Next

            Endif
        Endif
    Next
    #處理買贈
    Local Char LSAU :Raz LSAU
    For II = 0 To  [M:XFS1]NBLIG - 1
        If [M:XFS1]ISSEL(II) = 2 and [M:XFS1]XPGTYP(II) = 2#如果勾選了該策略 #如果買贈
            If [M:XFS1]SALAMT(II)>0 #如果滿 >0
                If int([M:XFS1]COUAMT(II)/[M:XFS1]SALAMT(II))*[M:XFS1]DCBAMT(II)>[M:XFS1]LIMITAMT(II)
& and [M:XFS1]LIMITAMT(II)>0
                    LAMT = [M:XFS1]LIMITAMT(II)
                Else
                    # int(訂單金額/滿 )* 減
                    LAMT = int([M:XFS1]COUAMT(II)/[M:XFS1]SALAMT(II))*[M:XFS1]DCBAMT(II)
                Endif
                nolign = [M:SOH4]NBLIG+1
                Call IB_NBLIG From W1SOH4
                Call AV_NBLIG From W1SOH4
                Call C_NBLIG From W1SOH4
                Call AVANT_NBLIG From W1SOH4
                Call APRES_NBLIG From W1SOH4

                Read [F:ITM]ITM0 = [M:XFS1]XDCBITM(II)
                Read [F:ITS]ITS0 = [M:XFS1]XDCBITM(II)
                Call IB_ITMREF([M:XFS1]XDCBITM(II)) From W1SOH4
                Call AV_ITMREF([M:XFS1]XDCBITM(II)) From SUBSOH
                Call AS_ITMREF([M:XFS1]XDCBITM(II)) From W1SOH4
                Call C_ITMREF([M:XFS1]XDCBITM(II)) From W1SOH4
                Call AM_ITMREF([M:XFS1]XDCBITM(II)) From W1SOH4
                [M:SOH4]ITMREF(nolign - 1)  =   [M:XFS1]XDCBITM(II)
                LSAU = [M:SOH4]STU(nolign-1)
                If [M:XFS1]ZFROUOM(II) = 2
                    Call AM_SAU(LSAU) From W1SOH4

                    [M:SOH4]SAU(nolign-1) = [M:SOH4]STU(nolign-1)
                    [M:SOH4]SAUSTUCOE(nolign-1) = 1
                    Call AM_SAUSTUCOE([M:SOH4]SAUSTUCOE(nolign-1)) From W1SOH4

                Endif
                Call AP_QTY(LAMT) From W1SOH4
                Call AM_QTY(LAMT) From W1SOH4
                [M:SOH4]QTY(nolign - 1)     =   LAMT
                CAMT = 0
                Call AM_GROPRI(CAMT) From W1SOH4
                [M:SOH4]GROPRI(nolign - 1)  =   0

                Call APRES_NBLIG From W1SOH4
                [M:SOH4]XPGNUM(nolign - 1)  =   [M:XFS1]XPGNUM(II)
                [M:SOH4]NBLIG += 1
            Endif
        Endif
    Next
Dbgaff
Affzo [M:SOH4]0-99
IMOD =1

Return

$INIT_DIA

    If !clalev([F:XFS0]) : Local File XPGFORSOH [XFS0] : Endif
    If !clalev([F:XPU])  : Local File XBPCUSEXPG [XPU] :Endif
    nolign = 0
    For [F:XFS0] Where SOHNUM = [M:SOH0]SOHNUM and ([F:XFS0]USENUM<[F:XFS0]LIMITNUM or [F:XFS0]LIMITNUM=0)
        #查找客戶當(dāng)前已經(jīng)使用的額度和次數(shù)
        Read [F:XPU]XPU0 = [F:XFS0]XPGNUM;[M:SOH0]BPCORD;[F:XFS0]CPY
        If !fstat
            If [F:XFS0]XPGTYP = 1
                If ([XPU]COUAMT>=[F:XFS0]LIMITAMT and [F:XFS0]LIMITAMT>0)
& or ([XPU]COUNUM>=[F:XFS0]LIMITNUM and [F:XFS0]LIMITNUM>0)
                    #跳出本次循環(huán)
                    Goto CONTINUE
                Endif
                        nolign +=1
                [M:XFS1]USEAMT(nolign - 1) = [XPU]COUAMT
                [M:XFS1]USENUM(nolign - 1) = [XPU]COUNUM
            Else
                If ([XPU]QTY>=[F:XFS0]LIMITAMT and [F:XFS0]LIMITAMT>0)
& or ([XPU]COUNUM>=[F:XFS0]LIMITNUM and [F:XFS0]LIMITNUM>0)
                    #跳出本次循環(huán)
                    Goto CONTINUE
                Endif
                nolign +=1
                [M:XFS1]USEAMT(nolign - 1) = [XPU]QTY
                [M:XFS1]USENUM(nolign - 1) = [XPU]COUNUM
            Endif
        Else
            nolign +=1
        Endif
        [M:XFS1] = [F:XFS0]
        [M:XFS1]XDCBITM(nolign-1) = [F:XFS0]DCBITM(0)
        For II =  1 To 9
            If [F:XFS0]DCBITM(II)<>''
                nolign += 1
                [M:XFS1] = [F:XFS0]
                [M:XFS1]XDCBITM(nolign-1) = [F:XFS0]DCBITM(II)
            Endif
        Next
        CONTINUE
    Next
    [M:XFS1]NBLIG = nolign
    Affzo [M:XFS1]0-20
#    Infbox num$(nolign)
Return

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 XFS1) 2015/08/31 20:44:31 (ZERO)
######################################################################################
Subprog AM_ISSEL(VALEUR)
Variable Integer VALEUR
    Local Integer XTYP :  XTYP = [M:XFS1]XPGTYP(nolign -1)
    For II= 0 To [M:XFS1]NBLIG -1
        If II<> nolign-1 and [M:XFS1]XPGTYP(II) = XTYP and VALEUR =2
            [M:XFS1]ISSEL(II) = 1
            Affzo [M:XFS1]ISSEL(II)
        Endif
    Next
 #   Affzo [M]0-99
End


######################################################################################

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 XFS1) 2015/09/06 17:49:50 (ZERO)
######################################################################################
Subprog IB_XPGNUM
End

Subprog AV_CPY(VALEUR)
Variable Char    VALEUR()
End

Subprog AS_DES(VALEUR)
Variable Char    VALEUR()
End

Subprog C_ZAX3(VALEUR)
Variable Char    VALEUR()
End

Subprog AP_XPGTYP(VALEUR)
Variable Integer VALEUR
End


######################################################################################

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 XFS1) 2015/09/06 17:51:51 (ZERO)
######################################################################################
Subprog D_SALAMT(VALEUR)
Variable Decimal VALEUR
End


######################################################################################

######################################################################################
## 由系統(tǒng)管理員添加的標(biāo)簽 (屏幕 XFS1) 2016/01/21 09:30:40 (ZERO)
######################################################################################
Subprog IB_LIMITAMT
End


######################################################################################

操作: CONSXIR 貨返計(jì)算

項(xiàng)目	值
查詢	XIR
模板	查詢
類型	DCSSMRC
主窗體
標(biāo)準(zhǔn)窗體
初始錄入	沒有初始錄入
標(biāo)準(zhǔn)過程
特殊過程
子程序

參數(shù)
| 參數(shù) | 參數(shù)描述 | 變量類型 |
|-|-|

操作: XTRTFROBPC 客戶期間貨返

項(xiàng)目	值
查詢
模板	標(biāo)準(zhǔn)處理
類型	其他
主窗體
標(biāo)準(zhǔn)窗體	XOFB
初始錄入	對話框
標(biāo)準(zhǔn)過程
特殊過程	XTRTFROBPC
子程序

參數(shù)
| 參數(shù) | 參數(shù)描述 | 變量類型 |
|-|-|

操作: XTRTFROSOH 訂單相關(guān)促銷策略

項(xiàng)目	值
查詢
模板	標(biāo)準(zhǔn)處理
類型	其他
主窗體
標(biāo)準(zhǔn)窗體	XOFS
初始錄入	對話框
標(biāo)準(zhǔn)過程
特殊過程	XTRTFROSOH
子程序

參數(shù)
| 參數(shù) | 參數(shù)描述 | 變量類型 |
|-|-|

功能: CONSXIR 貨返計(jì)算

項(xiàng)目	值
對象類型	否
地點(diǎn)授權(quán)	否

選項(xiàng)
| 代碼| 名稱|
|-|-|
操作 CONSXIR 參數(shù)
| 參數(shù) | 參數(shù)描述 | 參數(shù)值 |
|-|-|

功能: GESXITM 產(chǎn)品

項(xiàng)目	值
對象類型	是
地點(diǎn)授權(quán)	否

選項(xiàng)
| 代碼| 名稱|
|-|-|
操作 GOBJET 參數(shù)
| 參數(shù) | 參數(shù)描述 | 參數(shù)值 |
|-|-|
| OBJZON | | "" |
| | | |

功能: GESXPG 促銷政策

項(xiàng)目	值
對象類型	是
地點(diǎn)授權(quán)	是

選項(xiàng)
| 代碼| 名稱|
|-|-|
操作 GOBJET 參數(shù)
| 參數(shù) | 參數(shù)描述 | 參數(shù)值 |
|-|-|
| OBJZON | | "" |
| | | |

功能: GESZITM 產(chǎn)品

項(xiàng)目	值
對象類型	是
地點(diǎn)授權(quán)	否

選項(xiàng)
| 代碼| 名稱|
|-|-|
操作 GOBJET 參數(shù)
| 參數(shù) | 參數(shù)描述 | 參數(shù)值 |
|-|-|
| OBJZON | | "" |
| | | |

數(shù)據(jù)類型: XITM 產(chǎn)品參考

表: PRICSTRUCT 價格結(jié)構(gòu) (Cust/Supp)

字段
| 代碼 | 描述| 數(shù)據(jù)類型 | 長度 | 分析元 | 業(yè)務(wù)代碼 | 是否必填 |
|-|-|-|-|-|
| XEXT | 擴(kuò)展功能接口 | M( 4004 ) | 15| 9 | XX003 | 否 |
索引
| 代碼 | 描述符 | 重復(fù) | 業(yè)務(wù)代碼 |
|-|-|-|

表: SORDERP 銷售訂單價格

字段
| 代碼 | 描述| 數(shù)據(jù)類型 | 長度 | 分析元 | 業(yè)務(wù)代碼 | 是否必填 |
|-|-|-|-|-|
| XPGNUM | 促銷策略編號 | VCR | 0| 1 | XX003 | 否 |
索引
| 代碼 | 描述符 | 重復(fù) | 業(yè)務(wù)代碼 |
|-|-|-|

表: XITMREFLIST 貨返列表

置零: 是
標(biāo)題:
字段
| 代碼 | 描述| 數(shù)據(jù)類型 | 長度 | 分析元 | 業(yè)務(wù)代碼 | 是否必填 |
|-|-|-|-|-|
| XPGNUM | 編號 | VCR | 0| 1 | | 否 |
| BPCORD | 訂單客戶 | BPR | 0| 1 | | 是 |
| USABLE | 可用 | DCB | 9.2| 1 | | 否 |
| USEQTY | 已消耗數(shù)量 | DCB | 9.2| 1 | | 否 |
| CREDATTIM | 日期時間 | ADATIM | 0| 1 | | 否 |
| UPDDATTIM | 日期時間 | ADATIM | 0| 1 | | 否 |
| AUUID | 唯一識別碼 | AUUID | 0| 1 | | 否 |
| CREUSR | 用戶 | AUS | 0| 1 | | 否 |
| UPDUSR | 用戶 | AUS | 0| 1 | | 否 |
索引
| 代碼 | 描述符 | 重復(fù) | 業(yè)務(wù)代碼 |
|-|-|-|
| XIRL0 | XPGNUM+BPCORD | 否 | |

表: XLINOBJ 促銷政策相關(guān)表

置零: 是
標(biāo)題:
字段
| 代碼 | 描述| 數(shù)據(jù)類型 | 長度 | 分析元 | 業(yè)務(wù)代碼 | 是否必填 |
|-|-|-|-|-|
| OBJ | 對象 | A | 5| 1 | | 否 |
| VCRNUM | 憑證 | VCR | 0| 1 | | 否 |
| XLOLIN | | L | 8| 1 | | 否 |
| XPGNUM | 編號 | VCR | 0| 1 | | 否 |
| CREDATTIM | 日期時間 | ADATIM | 0| 1 | | 否 |
| UPDDATTIM | 日期時間 | ADATIM | 0| 1 | | 否 |
| AUUID | 唯一識別碼 | AUUID | 0| 1 | | 否 |
| CREUSR | 用戶 | AUS | 0| 1 | | 否 |
| UPDUSR | 用戶 | AUS | 0| 1 | | 否 |
索引
| 代碼 | 描述符 | 重復(fù) | 業(yè)務(wù)代碼 |
|-|-|-|
| XLO0 | OBJ+XPGNUM+XLOLIN | 否 | |

表: XPRMITMGRP 促銷政策

置零: 是
標(biāo)題: DES
字段
| 代碼 | 描述| 數(shù)據(jù)類型 | 長度 | 分析元 | 業(yè)務(wù)代碼 | 是否必填 |
|-|-|-|-|-|
| TRSFLG | 交易類型 | A | 10| 1 | | 否 |
| XPGNUM | 編號 | VCR | 0| 1 | | 否 |
| CPY | 公司 | CPY | 0| 1 | | 否 |
| FCY | 地點(diǎn) | FCY | 0| 1 | | 是 |
| DES | 描述 | DES | 0| 1 | | 否 |
| XPGTYP | 促銷方式 | M( 4000 ) | 15| 1 | | 否 |
| XPGFLG | 狀態(tài) | M( 4002 ) | 15| 1 | | 否 |
| ZAX3 | 品牌 | CCE | 0| 1 | | 否 |
| STRDAT | 開始日期 | D | 0| 1 | | 否 |
| ENDDAT | 結(jié)束日期 | D | 0| 1 | | 否 |
| XPGPRO | 政策說明 | A | 200| 1 | | 否 |
| LIMITAMT | 每客戶限額 | DCB | 9.2| 1 | | 否 |
| LIMITNUM | 每客戶限次 | DCB | 9.2| 1 | | 否 |
| USENUM | 已用次數(shù) | DCB | 9.2| 1 | | 否 |
| SALAMT | 滿 | DCB | 9.2| 1 | | 否 |
| DCBAMT | 減(贈) | DCB | 9.2| 1 | | 否 |
| DCDTYP | 扣減依據(jù) | M( 4001 ) | 15| 1 | | 否 |
| DCBITM | 免費(fèi)產(chǎn)品 | ITM | 0| 10 | | 否 |
| ISNOTBPC | 客戶列表為排除客戶 | M( 1 ) | 4| 1 | | 否 |
| ISITMLIS | 只有列表產(chǎn)品生效 | M( 1 ) | 4| 1 | | 否 |
| CREDATTIM | 日期時間 | ADATIM | 0| 1 | | 否 |
| UPDDATTIM | 日期時間 | ADATIM | 0| 1 | | 否 |
| AUUID | 唯一識別碼 | AUUID | 0| 1 | | 否 |
| CREUSR | 用戶 | AUS | 0| 1 | | 否 |
| UPDUSR | 用戶 | AUS | 0| 1 | | 否 |
| ZRATE | 廠家承擔(dān)比例 | DCB | 9.4| 1 | | 否 |
| ZFROUOM | 以存貨單位計(jì)算 | M( 1 ) | 4| 1 | | 否 |
| MANAX3 | 品牌經(jīng)理 | CCE | 0| 1 | | 否 |
索引
| 代碼 | 描述符 | 重復(fù) | 業(yè)務(wù)代碼 |
|-|-|-|
| XPG0 | XPGNUM | 否 | |

表: XPROITMLIS 參加促銷的產(chǎn)品

置零: 是
標(biāo)題:
字段
| 代碼 | 描述| 數(shù)據(jù)類型 | 長度 | 分析元 | 業(yè)務(wù)代碼 | 是否必填 |
|-|-|-|-|-|
| ZTSICOD | 系列 | ADI | 0| 1 | | 否 |
| ITMREF | 產(chǎn)品 | ITM | 0| 1 | | 是 |
| ITMDES1 | 描述 | DES | 0| 1 | | 否 |
| XPGNUM | 編號 | VCR | 0| 1 | | 否 |
| XPGLIN | | L | 8| 1 | | 否 |
| NESCHK | 必選 | M( 1 ) | 4| 1 | | 否 |
| MINAMT | 最小值 | MD1 | 0| 1 | | 否 |
| CREDATTIM | 日期時間 | ADATIM | 0| 1 | | 否 |
| UPDDATTIM | 日期時間 | ADATIM | 0| 1 | | 否 |
| AUUID | 唯一識別碼 | AUUID | 0| 1 | | 否 |
| CREUSR | 用戶 | AUS | 0| 1 | | 否 |
| UPDUSR | 用戶 | AUS | 0| 1 | | 否 |
索引
| 代碼 | 描述符 | 重復(fù) | 業(yè)務(wù)代碼 |
|-|-|-|
| XPL0 | XPGNUM+XPGLIN | 否 | |

視圖: XBPCUSEXPG 客戶訂單策略使用匯總

SELECT CPY_0,XPGNUM_0,BPCORD_0,SUM(QTY),SUM(COUAMT),SUM(COUNUM) ,'','',1 FROM (
SELECT P.CPY_0,P.SOHNUM_0,P.BPCORD_0,P.XPGNUM_0,SUM(Q.QTYSTU_0/I.SAUSTUCOE_0) QTY,SUM(DISCRGVAL3_0) COUAMT,1 COUNUM  FROM
SORDERP P INNER JOIN SORDERQ Q ON P.SOHNUM_0=Q.SOHNUM_0 AND P.SOPLIN_0=Q.SOPLIN_0 AND P.SOPSEQ_0=Q.SOQSEQ_0
INNER JOIN  ITMMASTER I ON I.ITMREF_0=Q.ITMREF_0
WHERE P.XPGNUM_0<>' '
GROUP BY P.CPY_0,P.SOHNUM_0,P.BPCORD_0,P.XPGNUM_0) A
GROUP BY CPY_0,XPGNUM_0,BPCORD_0

索引
| 代碼 | 描述符 | 重復(fù) | 業(yè)務(wù)代碼 |
|-|-|-|
| XPU0 | XPGNUM+BPCORD+CPY | 否 | |
字段
| 字段 | 標(biāo)題 | 數(shù)據(jù)類型 | 長度 | 業(yè)務(wù)代碼 |
|-|-|-|
| CPY | 公司 | CPY | 0 | |
| XPGNUM | 促銷策略 | VCR | 0 | |
| BPCORD | 客戶 | BPC | 0 | |
| QTY | 數(shù)量 | DCB | 9.2 | |
| COUAMT | 折扣金額 | DCB | 9.2 | |
| COUNUM | 折扣次數(shù) | DCB | 9.2 | |
| ZUSERID | 業(yè)務(wù)員 | REP | 0 | |
| ZAREA | 區(qū)域 | A | 10 | |
| ZRESPO | 角色 | M( 50 ) | 15 | |

視圖: XPGFORBPC 訂單促銷策略(貨返)

SELECT E.XPGNUM_0,E.CPY_0,E.FCY_0,E.DES_0,E.SALAMT_0, ' ',F.BPCORD_0,
    CASE WHEN E.DCDTYP_0=1 THEN 
      AMT_0
    ELSE
      CASE WHEN E.ZFROUOM_0=2 THEN
         QTYSTU_0
      ELSE
        QTY_0
      END
    END
COUAMT_0,E.XPGTYP_0,E.DCBITM_0
,E.DCBITM_1,E.DCBITM_2,E.DCBITM_3,E.DCBITM_4,E.DCBITM_5,E.DCBITM_6,E.DCBITM_7,E.DCBITM_8,E.DCBITM_9
,E.ZAX3_0,E.DCBAMT_0,E.LIMITAMT_0,E.LIMITNUM_0,0 USENUM,'','',1,E.ZFROUOM_0,E.ENDDAT_0,E.DCDTYP_0,
ROUND((CASE WHEN E.DCDTYP_0=1 THEN 
      F.AMT_0
    ELSE
      CASE WHEN E.ZFROUOM_0=2 THEN
         F.QTYSTU_0
      ELSE
        F.QTY_0
      END
    END)/E.SALAMT_0,0) * E.DCBAMT_0
 FROM (SELECT A.XPGNUM_0,Q.BPCORD_0
,SUM(Q.SALAMT_0) AMT_0,SUM(Q.QTYSTU_0/Q.SAUSTUCOE_0) QTY_0,SUM(Q.QTYSTU_0) QTYSTU_0
FROM XPRMITMGRP A 
INNER JOIN XVWSALLIS Q
  ON Q.CPY_0=A.CPY_0 AND (Q.SALFCY_0=A.FCY_0 or A.FCY_0=' ') AND Q.ORDDAT_0>= A.STRDAT_0 AND Q.ORDDAT_0<=A.ENDDAT_0
INNER JOIN  ITMMASTER I ON I.ITMREF_0=Q.ITMREF_0 AND I.CCE_1=A.ZAX3_0
INNER JOIN XPROITMLIS B  ON (B.ITMREF_0=Q.ITMREF_0 OR B.ZTSICOD_0=I.TSICOD_1) AND A.XPGNUM_0=B.XPGNUM_0
INNER JOIN BPCUSTOMER G ON G.BPCNUM_0 = Q.BPCORD_0
LEFT JOIN XLINOBJ X2 ON X2.OBJ_0='CCE' AND X2.XPGNUM_0=A.XPGNUM_0
LEFT JOIN XLINOBJ X3 ON X3.OBJ_0='ADI' AND X3.XPGNUM_0=A.XPGNUM_0

WHERE 
(X2.VCRNUM_0=G.CCE_0 OR X2.VCRNUM_0 IS NULL)
AND (X3.VCRNUM_0=G.TSCCOD_0 OR X3.VCRNUM_0 IS NULL)
AND ( 
  (A.ISNOTBPC_0=2 AND Q.BPCORD_0 NOT IN (SELECT X1.VCRNUM_0 FROM XLINOBJ X1 WHERE X1.OBJ_0='BPC' AND X1.XPGNUM_0=A.XPGNUM_0))
  OR
  (A.ISNOTBPC_0<2 AND Q.BPCORD_0 IN (SELECT X1.VCRNUM_0 FROM XLINOBJ X1 WHERE X1.OBJ_0='BPC' AND X1.XPGNUM_0=A.XPGNUM_0))
  OR
  (SELECT COUNT(X1.VCRNUM_0) FROM XLINOBJ X1 WHERE X1.OBJ_0='BPC' AND X1.XPGNUM_0=A.XPGNUM_0) =0
)
AND A.TRSFLG_0='BPC'
GROUP BY A.XPGNUM_0,Q.BPCORD_0
) F INNER JOIN XPRMITMGRP E ON E.XPGNUM_0=F.XPGNUM_0
LEFT JOIN XITMREFLIST X ON X.XPGNUM_0=F.XPGNUM_0 AND F.BPCORD_0=X.BPCORD_0
WHERE     (CASE WHEN E.DCDTYP_0=1 THEN 
      AMT_0
    ELSE
      CASE WHEN E.ZFROUOM_0=2 THEN
         QTYSTU_0
      ELSE
        QTY_0
      END
    END)>= E.SALAMT_0 AND X.XPGNUM_0 IS NULL

索引
| 代碼 | 描述符 | 重復(fù) | 業(yè)務(wù)代碼 |
|-|-|-|
| XFS0 | XPGNUM+SOHNUM+BPCORD | 是 | |
字段
| 字段 | 標(biāo)題 | 數(shù)據(jù)類型 | 長度 | 業(yè)務(wù)代碼 |
|-|-|-|
| XPGNUM | | VCR | 0 | |
| CPY | 公司 | CPY | 0 | |
| FCY | 地點(diǎn) | FCY | 0 | |
| DES | 政策說明 | DES | 0 | |
| SALAMT | 銷售金額 | DCB | 9.2 | |
| SOHNUM | 訂單號 | VCR | 0 | |
| BPCORD | 客戶 | BPC | 0 | |
| COUAMT | 訂單金額 | DCB | 9.2 | |
| XPGTYP | | M( 4000 ) | 15 | |
| DCBITM | 免費(fèi) | ITM | 0 | |
| ZAX3 | 品牌 | CCE | 0 | |
| DCBAMT | 減(贈) | DCB | 9.2 | |
| LIMITAMT | 限額 | DCB | 9.2 | |
| LIMITNUM | 限次 | DCB | 9.2 | |
| USENUM | 已用次數(shù) | DCB | 9.2 | |
| ZUSERID | 業(yè)務(wù)員 | REP | 0 | |
| ZAREA | 區(qū)域 | A | 10 | |
| ZRESPO | 角色 | M( 50 ) | 15 | |
| ZFROUOM | 使用存貨單位 | M( 1 ) | 4 | |
| ENDDAT | 結(jié)束日期 | D | 0 | |
| DCDTYP | 扣減依據(jù) | M( 4001 ) | 15 | |
| DCBNUM | 贈送數(shù)量 | DCB | 9.2 | |

視圖: XPGFORSOH 訂單促銷策略

SELECT E.XPGNUM_0,E.CPY_0,E.FCY_0,E.DES_0,E.SALAMT_0, F.SOHNUM_0,F.BPCORD_0,F.COUAMT_0,E.XPGTYP_0,E.DCBITM_0
,E.DCBITM_1,E.DCBITM_2,E.DCBITM_3,E.DCBITM_4,E.DCBITM_5,E.DCBITM_6,E.DCBITM_7,E.DCBITM_8,E.DCBITM_9
,E.ZAX3_0,E.DCBAMT_0,E.LIMITAMT_0,E.LIMITNUM_0,(
  SELECT COUNT(*) FROM SORDER S1 WHERE SOHNUM_0 IN ( SELECT SOHNUM_0 FROM SORDERP WHERE XPGNUM_0=E.XPGNUM_0 ) AND S1.BPCORD_0=F.BPCORD_0
) USENUM,'','',1,E.ZFROUOM_0
FROM XPRMITMGRP  E INNER JOIN 
(

  SELECT A.XPGNUM_0,C.SOHNUM_0,C.BPCORD_0,SUM(
    CASE WHEN A.DCDTYP_0=1 THEN 
      CASE WHEN AMT_0>=ISNULL(MINAMT_0,0)  THEN AMT_0 ELSE 0 END
    ELSE
      CASE WHEN A.ZFROUOM_0=2 THEN
        CASE WHEN QTYSTU_0>=ISNULL(MINAMT_0,0)  THEN QTYSTU_0 ELSE 0 END
      ELSE
        CASE WHEN QTY_0>=ISNULL(MINAMT_0,0)  THEN QTY_0 ELSE 0 END
      END
    END
  ) COUAMT_0
  FROM XPRMITMGRP A 
  INNER JOIN 
  (
    SELECT Q.CPY_0,Q.SALFCY_0,P.SOHNUM_0,P.BPCORD_0,P.ITMREF_0,SUM(P.NETPRIATI_0*Q.QTY_0) AMT_0,Q.ORDDAT_0,SUM(Q.QTYSTU_0/I.SAUSTUCOE_0) QTY_0,SUM(Q.QTYSTU_0) QTYSTU_0,I.CCE_1
    FROM SORDERP P 
    INNER JOIN SORDERQ Q 
    ON P.SOHNUM_0=Q.SOHNUM_0 AND P.SOPLIN_0 = Q.SOPLIN_0 AND Q.SOQSEQ_0=P.SOPSEQ_0
    INNER JOIN  ITMMASTER I ON I.ITMREF_0=Q.ITMREF_0
    GROUP BY Q.CPY_0,Q.SALFCY_0,P.SOHNUM_0,P.ITMREF_0,P.BPCORD_0,Q.ORDDAT_0,I.CCE_1
  ) C 
  ON  C.CPY_0=A.CPY_0 
  AND (C.SALFCY_0=A.FCY_0 or A.FCY_0=' ') AND C.ORDDAT_0>= A.STRDAT_0 AND C.ORDDAT_0<=A.ENDDAT_0
  AND C.CCE_1=A.ZAX3_0
  LEFT JOIN XPROITMLIS B  ON B.ITMREF_0=C.ITMREF_0 AND A.XPGNUM_0=B.XPGNUM_0

  WHERE ((A.ISITMLIS_0=2 AND B.ITMREF_0 IS NOT NULL) OR (A.ISITMLIS_0<2)) 
/* AND A.XPGFLG_0=2  */ 
  AND A.TRSFLG_0='SOH'
  GROUP BY A.XPGNUM_0,C.SOHNUM_0,C.BPCORD_0
) AS F
ON E.XPGNUM_0=F.XPGNUM_0
INNER JOIN BPCUSTOMER G ON G.BPCNUM_0 = F.BPCORD_0
LEFT JOIN XLINOBJ X2 ON X2.OBJ_0='CCE' AND X2.XPGNUM_0=E.XPGNUM_0
LEFT JOIN XLINOBJ X3 ON X3.OBJ_0='ADI' AND X3.XPGNUM_0=E.XPGNUM_0
WHERE (

    SELECT COUNT(*) FROM XPROITMLIS I LEFT JOIN 
    SORDERP S ON I.ITMREF_0=S.ITMREF_0 AND S.SOHNUM_0=F.SOHNUM_0
    WHERE I.XPGNUM_0=E.XPGNUM_0 AND S.SOHNUM_0 IS NULL AND I.NESCHK_0=2 
)=0
AND F.COUAMT_0>=E.SALAMT_0
AND (X2.VCRNUM_0=G.CCE_0 OR X2.VCRNUM_0 IS NULL)
AND (X3.VCRNUM_0=G.TSCCOD_0 OR X3.VCRNUM_0 IS NULL)
AND ( 
  (E.ISNOTBPC_0=2 AND F.BPCORD_0 NOT IN (SELECT X1.VCRNUM_0 FROM XLINOBJ X1 WHERE X1.OBJ_0='BPC' AND X1.XPGNUM_0=E.XPGNUM_0))
  OR
  (E.ISNOTBPC_0<2 AND F.BPCORD_0 IN (SELECT X1.VCRNUM_0 FROM XLINOBJ X1 WHERE X1.OBJ_0='BPC' AND X1.XPGNUM_0=E.XPGNUM_0))
  OR
  (SELECT COUNT(X1.VCRNUM_0) FROM XLINOBJ X1 WHERE X1.OBJ_0='BPC' AND X1.XPGNUM_0=E.XPGNUM_0) =0
)
  AND E.TRSFLG_0='SOH'

/* AND E.XPGFLG_0=2 */

索引
| 代碼 | 描述符 | 重復(fù) | 業(yè)務(wù)代碼 |
|-|-|-|
| XFS0 | XPGNUM+SOHNUM+BPCORD | 是 | |
字段
| 字段 | 標(biāo)題 | 數(shù)據(jù)類型 | 長度 | 業(yè)務(wù)代碼 |
|-|-|-|
| XPGNUM | | VCR | 0 | |
| CPY | 公司 | CPY | 0 | |
| FCY | 地點(diǎn) | FCY | 0 | |
| DES | 政策說明 | DES | 0 | |
| SALAMT | 銷售金額 | DCB | 9.2 | |
| SOHNUM | 訂單號 | VCR | 0 | |
| BPCORD | 客戶 | BPC | 0 | |
| COUAMT | 訂單金額 | DCB | 9.2 | |
| XPGTYP | | M( 4000 ) | 15 | |
| DCBITM | 免費(fèi) | ITM | 0 | |
| ZAX3 | 品牌 | CCE | 0 | |
| DCBAMT | 減(贈) | DCB | 9.2 | |
| LIMITAMT | 限額 | DCB | 9.2 | |
| LIMITNUM | 限次 | DCB | 9.2 | |
| USENUM | 已用次數(shù) | DCB | 9.2 | |
| ZUSERID | 業(yè)務(wù)員 | REP | 0 | |
| ZAREA | 區(qū)域 | A | 10 | |
| ZRESPO | 角色 | M( 50 ) | 15 | |
| ZFROUOM | 使用存貨單位 | M( 1 ) | 4 | |

視圖: XPGFORSOH1 訂單促銷策略

SELECT E.XPGNUM_0,E.CPY_0,E.FCY_0,E.DES_0,E.SALAMT_0, F.SOHNUM_0,F.BPCORD_0,F.COUAMT_0,E.XPGTYP_0,E.DCBITM_0
,E.DCBITM_1,E.DCBITM_2,E.DCBITM_3,E.DCBITM_4,E.DCBITM_5,E.DCBITM_6,E.DCBITM_7,E.DCBITM_8,E.DCBITM_9
,E.ZAX3_0,E.DCBAMT_0,E.LIMITAMT_0,E.LIMITNUM_0,(
  SELECT COUNT(*) FROM SORDER S1 WHERE SOHNUM_0 IN ( SELECT SOHNUM_0 FROM SORDERP WHERE XPGNUM_0=E.XPGNUM_0 ) AND S1.BPCORD_0=F.BPCORD_0
) USENUM,'','',1
FROM XPRMITMGRP  E INNER JOIN 
(

  SELECT A.XPGNUM_0,C.SOHNUM_0,C.BPCORD_0,SUM(
    CASE WHEN A.DCDTYP_0=1 THEN 
    CASE WHEN AMT_0>=ISNULL(MINAMT_0,0)  THEN AMT_0 ELSE 0 END
    ELSE 
    CASE WHEN QTY_0>=ISNULL(MINAMT_0,0)  THEN QTY_0 ELSE 0 END
    END
  ) COUAMT_0
  FROM XPRMITMGRP A 
  INNER JOIN 
  (
    SELECT Q.CPY_0,Q.SALFCY_0,P.SOHNUM_0,P.BPCORD_0,P.ITMREF_0,SUM(P.NETPRIATI_0*Q.QTY_0) AMT_0,Q.ORDDAT_0,SUM(Q.QTYSTU_0/I.SAUSTUCOE_0) QTY_0,I.CCE_1
    FROM SORDERP P 
    INNER JOIN SORDERQ Q 
    ON P.SOHNUM_0=Q.SOHNUM_0 AND P.SOPLIN_0 = Q.SOPLIN_0 AND Q.SOQSEQ_0=P.SOPSEQ_0
    INNER JOIN  ITMMASTER I ON I.ITMREF_0=Q.ITMREF_0
    GROUP BY Q.CPY_0,Q.SALFCY_0,P.SOHNUM_0,P.ITMREF_0,P.BPCORD_0,Q.ORDDAT_0,I.CCE_1
  ) C 
  ON  C.CPY_0=A.CPY_0 
  AND (C.SALFCY_0=A.FCY_0 or A.FCY_0=' ') AND C.ORDDAT_0>= A.STRDAT_0 AND C.ORDDAT_0<=A.ENDDAT_0
  AND C.CCE_1=A.ZAX3_0
  LEFT JOIN XPROITMLIS B  ON B.ITMREF_0=C.ITMREF_0 AND A.XPGNUM_0=B.XPGNUM_0

  WHERE ((A.ISITMLIS_0=2 AND B.ITMREF_0 IS NOT NULL) OR (A.ISITMLIS_0<2))  
  GROUP BY A.XPGNUM_0,C.SOHNUM_0,C.BPCORD_0
) AS F
ON E.XPGNUM_0=F.XPGNUM_0
INNER JOIN BPCUSTOMER G ON G.BPCNUM_0 = F.BPCORD_0
LEFT JOIN XLINOBJ X2 ON X2.OBJ_0='CCE' AND X2.XPGNUM_0=E.XPGNUM_0
LEFT JOIN XLINOBJ X3 ON X3.OBJ_0='ADI' AND X3.XPGNUM_0=E.XPGNUM_0
WHERE (

    SELECT COUNT(*) FROM XPROITMLIS I LEFT JOIN 
    SORDERP S ON I.ITMREF_0=S.ITMREF_0 AND S.SOHNUM_0=F.SOHNUM_0
    WHERE I.XPGNUM_0=E.XPGNUM_0 AND S.SOHNUM_0 IS NULL AND I.NESCHK_0=2 
)=0
AND F.COUAMT_0>=E.SALAMT_0
AND (X2.VCRNUM_0=G.CCE_0 OR X2.VCRNUM_0 IS NULL)
AND (X3.VCRNUM_0=G.TSCCOD_0 OR X3.VCRNUM_0 IS NULL)
AND ( 
  (E.ISNOTBPC_0=2 AND F.BPCORD_0 NOT IN (SELECT X1.VCRNUM_0 FROM XLINOBJ X1 WHERE X1.OBJ_0='BPC' AND X1.XPGNUM_0=E.XPGNUM_0))
  OR
  (E.ISNOTBPC_0<2 AND F.BPCORD_0 IN (SELECT X1.VCRNUM_0 FROM XLINOBJ X1 WHERE X1.OBJ_0='BPC' AND X1.XPGNUM_0=E.XPGNUM_0))
  OR
  (SELECT COUNT(X1.VCRNUM_0) FROM XLINOBJ X1 WHERE X1.OBJ_0='BPC' AND X1.XPGNUM_0=E.XPGNUM_0) =0
)

索引
| 代碼 | 描述符 | 重復(fù) | 業(yè)務(wù)代碼 |
|-|-|-|
| XFS0 | XPGNUM+SOHNUM+BPCORD | 是 | |
字段
| 字段 | 標(biāo)題 | 數(shù)據(jù)類型 | 長度 | 業(yè)務(wù)代碼 |
|-|-|-|
| XPGNUM | | VCR | 0 | |
| CPY | 公司 | CPY | 0 | |
| FCY | 地點(diǎn) | FCY | 0 | |
| DES | 政策說明 | DES | 0 | |
| SALAMT | 銷售金額 | DCB | 9.2 | |
| SOHNUM | 訂單號 | VCR | 0 | |
| BPCORD | 客戶 | BPC | 0 | |
| COUAMT | 訂單金額 | DCB | 9.2 | |
| XPGTYP | | M( 4000 ) | 15 | |
| DCBITM | 免費(fèi) | ITM | 0 | |
| ZAX3 | 品牌 | CCE | 0 | |
| DCBAMT | 減(贈) | DCB | 9.2 | |
| LIMITAMT | 限額 | DCB | 9.2 | |
| LIMITNUM | 限次 | DCB | 9.2 | |
| USENUM | 已用次數(shù) | DCB | 9.2 | |
| ZUSERID | 業(yè)務(wù)員 | REP | 0 | |
| ZAREA | 區(qū)域 | A | 10 | |
| ZRESPO | 角色 | M( 50 ) | 15 | |

視圖: XPGLIST 促銷政策列表

SELECT XP.XPGNUM_0,XP.DES_0,XP.CPY_0,CY.CPYNAM_0,XP.FCY_0,FY.FCYNAM_0,XP.ZAX3_0,AX3.DES_0,STRDAT_0,ENDDAT_0,XPGPRO_0,Z.REPNUM_0,'',1
 FROM XPRMITMGRP XP
LEFT JOIN COMPANY CY ON CY.CPY_0 = XP.CPY_0
LEFT JOIN FACILITY FY ON FY.FCY_0 = XP.FCY_0
LEFT JOIN CACCE AX3 ON AX3.CCE_0 = XP.ZAX3_0
LEFT JOIN ZREPAX3 Z ON Z.AX3_0 = XP.ZAX3_0
/*WHERE XPGFLG_0 = 2*/

索引
| 代碼 | 描述符 | 重復(fù) | 業(yè)務(wù)代碼 |
|-|-|-|
字段
| 字段 | 標(biāo)題 | 數(shù)據(jù)類型 | 長度 | 業(yè)務(wù)代碼 |
|-|-|-|
| XPGNUM | 政策編號 | VCR | 0 | |
| DES | 描述 | DES | 0 | |
| CPY | 公司 | CPY | 0 | |
| CPYNAM | 公司名稱 | NAM | 0 | |
| FCY | 地點(diǎn) | FCY | 0 | |
| FCYNAM | 地點(diǎn)名稱 | NAM | 0 | |
| ZAX3 | 品牌 | CCE | 0 | |
| ZAX3DES | 品牌名稱 | DES | 0 | |
| STRDAT | 開始日期 | D | 0 | |
| ENDDAT | 結(jié)束日期 | D | 0 | |
| XPGPRO | 詳細(xì)描述 | A | 200 | |
| ZUSERID | | REP | 0 | |
| ZAREA | | A | 10 | |
| ZRESPO | | M( 50 ) | 15 | |

視圖: XPGSOH 訂單促銷策略使用

SELECT A.XPGNUM_0, A.CPY_0, FCY_0, DES_0, SALAMT_0, SOHNUM_0, A.BPCORD_0, A.COUAMT_0, 
XPGTYP_0, DCBITM_0, DCBITM_1, DCBITM_2, DCBITM_3, DCBITM_4, DCBITM_5, DCBITM_6, 
DCBITM_7, DCBITM_8, DCBITM_9, ZAX3_0, DCBAMT_0, LIMITAMT_0, LIMITNUM_0, USENUM_0, 
A.ZUSERID_0, A.ZAREA_0, A.ZRESPO_0,ISNULL(B.QTY_0,0) USEQTY,ISNULL(B.COUAMT_0,0) USEAMT,ISNULL(B.COUNUM_0,0) COUNUM,
I.ITMDES1_0,CASE WHEN A.ZFROUOM_0 = 2 THEN I.STU_0 ELSE I.SAU_0 END SAU,U.TEXTE_0,
CASE WHEN A.XPGTYP_0 = 1 THEN(CASE WHEN A.LIMITAMT_0 = 0 THEN FLOOR(A.COUAMT_0/A.SALAMT_0) * DCBAMT_0 
                              WHEN A.LIMITAMT_0 > 0 AND A.LIMITAMT_0 - ISNULL(B.COUAMT_0,0) >= FLOOR(A.COUAMT_0/A.SALAMT_0) * DCBAMT_0 THEN FLOOR(A.COUAMT_0/A.SALAMT_0) * DCBAMT_0
                WHEN A.LIMITAMT_0 > 0 AND A.LIMITAMT_0 - ISNULL(B.COUAMT_0,0) < FLOOR(A.COUAMT_0/A.SALAMT_0) * DCBAMT_0 THEN A.LIMITAMT_0 - ISNULL(B.COUAMT_0,0) END)
     ELSE 0 END AMT,
CASE WHEN A.XPGTYP_0 = 2 THEN(CASE WHEN A.LIMITAMT_0 = 0 THEN FLOOR(A.COUAMT_0/A.SALAMT_0) * DCBAMT_0 
                              WHEN A.LIMITAMT_0 > 0 AND A.LIMITAMT_0 - ISNULL(B.QTY_0,0) >= FLOOR(A.COUAMT_0/A.SALAMT_0) * DCBAMT_0 THEN FLOOR(A.COUAMT_0/A.SALAMT_0) * DCBAMT_0
                WHEN A.LIMITAMT_0 > 0 AND A.LIMITAMT_0 - ISNULL(B.QTY_0,0) < FLOOR(A.COUAMT_0/A.SALAMT_0) * DCBAMT_0 THEN A.LIMITAMT_0 - ISNULL(B.QTY_0,0) END)
     ELSE 0 END QTY
FROM XPGFORSOH A
LEFT JOIN ITMMASTER I ON A.DCBITM_0 = I.ITMREF_0
LEFT JOIN (SELECT IDENT1_0,TEXTE_0 FROM ATEXTRA 
WHERE CODFIC_0 = 'TABUNIT' AND ZONE_0 = 'DES' AND LANGUE_0 = 'CHI') U ON CASE WHEN A.ZFROUOM_0 = 2 THEN I.STU_0 ELSE I.SAU_0 END = U.IDENT1_0
LEFT JOIN XBPCUSEXPG B ON A.CPY_0 = B.CPY_0 AND A.XPGNUM_0 = B.XPGNUM_0 AND A.BPCORD_0 = B.BPCORD_0
WHERE (A.LIMITNUM_0 = 0 OR A.LIMITNUM_0 > A.USENUM_0) AND (A.LIMITAMT_0 = 0 OR A.LIMITAMT_0 > (CASE A.XPGTYP_0 WHEN 1 THEN ISNULL(B.COUAMT_0,0) ELSE ISNULL(B.QTY_0,0) END))

索引
| 代碼 | 描述符 | 重復(fù) | 業(yè)務(wù)代碼 |
|-|-|-|
| XFS0 | XPGNUM+SOHNUM+BPCORD | 是 | |
字段
| 字段 | 標(biāo)題 | 數(shù)據(jù)類型 | 長度 | 業(yè)務(wù)代碼 |
|-|-|-|
| XPGNUM | 促銷政策號 | VCR | 0 | |
| CPY | 公司 | CPY | 0 | |
| FCY | 地點(diǎn) | FCY | 0 | |
| DES | 政策說明 | DES | 0 | |
| SALAMT | 銷售金額 | DCB | 9.2 | |
| SOHNUM | 訂單號 | VCR | 0 | |
| BPCORD | 客戶 | BPC | 0 | |
| COUAMT | 訂單金額 | DCB | 9.2 | |
| XPGTYP | 促銷類型(1折扣2買贈) | M( 4000 ) | 15 | |
| DCBITM | 免費(fèi) | ITM | 0 | |
| ZAX3 | 品牌 | CCE | 0 | |
| DCBAMT | 減(贈) | DCB | 9.2 | |
| LIMITAMT | 限額 | DCB | 9.2 | |
| LIMITNUM | 限次 | DCB | 9.2 | |
| USENUM | 已用次數(shù) | DCB | 9.2 | |
| ZUSERID | 業(yè)務(wù)員 | REP | 0 | |
| ZAREA | 區(qū)域 | A | 10 | |
| ZRESPO | 角色 | M( 50 ) | 15 | |
| USEQTY | 已使用數(shù)量 | DCB | 9.2 | |
| USEAMT | 已使用金額 | DCB | 9.2 | |
| COUNUM | 已使用次數(shù) | DCB | 9.2 | |
| ITMDES1 | 產(chǎn)品名稱 | DES | 0 | |
| SAU | 銷售單位 | UOM | 0 | |
| SAUNAM | 銷售單位名稱 | A | 30 | |
| AMT | 本單折扣金額 | DCB | 9.2 | |
| QTY | 本單贈送數(shù)量 | DCB | 9.2 | |

屏幕: PRS1 價目表結(jié)構(gòu)

模塊
| 名稱 | 類型 | 位置 | 行 | 選項(xiàng) | 參數(shù)|
|-|-|
字段
| 字段 | 描述| 模塊 | 數(shù)據(jù)類型 |錄入| 必填 | 默認(rèn)值 | 錄入條件
|-|-|-|-|-|
| XEXT| 擴(kuò)展功能接口| 2- 14| M( 4004 ): 15(9)| 錄入| 否| |

屏幕: SOH4 訂單管理

模塊
| 名稱 | 類型 | 位置 | 行 | 選項(xiàng) | 參數(shù)|
|-|-|
字段
| 字段 | 描述| 模塊 | 數(shù)據(jù)類型 |錄入| 必填 | 默認(rèn)值 | 錄入條件
|-|-|-|-|-|
| XPGNUM| 促銷策略編號| 1- 20.5| VCR: 0(0)| 錄入| 否| | GWEBSERV>0

屏幕: WK2ALL4 訂單管理

模塊
| 名稱 | 類型 | 位置 | 行 | 選項(xiàng) | 參數(shù)|
|-|-|
字段
| 字段 | 描述| 模塊 | 數(shù)據(jù)類型 |錄入| 必填 | 默認(rèn)值 | 錄入條件
|-|-|-|-|-|
| XPGNUM| 促銷策略編號| 1- 20.5| VCR: 0(0)| 錄入| 否| | GWEBSERV>0

屏幕: WK2SAL4 訂單管理

模塊
| 名稱 | 類型 | 位置 | 行 | 選項(xiàng) | 參數(shù)|
|-|-|
字段
| 字段 | 描述| 模塊 | 數(shù)據(jù)類型 |錄入| 必填 | 默認(rèn)值 | 錄入條件
|-|-|-|-|-|
| XPGNUM| 促銷策略編號| 1- 20.5| VCR: 0(0)| 錄入| 否| | GWEBSERV>0

屏幕: WK2STD4 訂單管理

模塊
| 名稱 | 類型 | 位置 | 行 | 選項(xiàng) | 參數(shù)|
|-|-|
字段
| 字段 | 描述| 模塊 | 數(shù)據(jù)類型 |錄入| 必填 | 默認(rèn)值 | 錄入條件
|-|-|-|-|-|
| XPGNUM| 促銷策略編號| 1- 20.5| VCR: 0(0)| 錄入| 否| | GWEBSERV>0

屏幕: WK2WSV4 訂單管理

模塊
| 名稱 | 類型 | 位置 | 行 | 選項(xiàng) | 參數(shù)|
|-|-|
字段
| 字段 | 描述| 模塊 | 數(shù)據(jù)類型 |錄入| 必填 | 默認(rèn)值 | 錄入條件
|-|-|-|-|-|
| XPGNUM| 促銷策略編號| 1- 20.5| VCR: 0(0)| 錄入| 否| | GWEBSERV>0

屏幕: XFB1 客戶期間貨返

常規(guī)
| 項(xiàng)目| 值 | 項(xiàng)目| 值|
|-|-|
| 縮寫 | XFB1 | 尺寸 | 標(biāo)簽 ( 12 * 50 )|
| 標(biāo)準(zhǔn)腳本 | SUBXFB | 垂直腳本 | |
| 特殊腳本 | XTRTFROBPC | | |
模塊
| 名稱 | 類型 | 位置 | 行 | 選項(xiàng) | 參數(shù)|
|-|-|
| | TLPXIFBMEFG | 0| 0 | | |
字段
| 字段 | 描述| 模塊 | 數(shù)據(jù)類型 |錄入| 必填 | 默認(rèn)值 | 錄入條件
|-|-|-|-|-|
| CPY| 公司| 1- 3| CPY: 0(200)| 隱藏| NO| |
||--|事件| 字段前| SPE| | 無
| DCBAMT| 減(贈)| 1- 7| DCB: 9.2(200)| 隱藏| NO| |
| DCDTYP| 扣減依據(jù)| 1- 5| M( 4001 ): 15(200)| 隱藏| NO| |
| DES| 描述| 1- 4| DES: 0(200)| 顯示| NO| |
||--|事件| 錄入前| SPE| | 無
| ISSEL| | 1- 2| M( 1 ): 5(200)| 錄入| 否| |
||--|事件| 修改后| SPE| | 無
| NBLIG| | 1- 1| ABS: 0(0)| 錄入| NO| |
| SALAMT| 滿| 1- 6| DCB: 9.2(200)| 隱藏| NO| |
||--|事件| 開始| SPE| | 無
| USABLE| 可用| 1- 9| DCB: 9.2(200)| 顯示| NO| |
| USENUM| 使用數(shù)量| 1- 9| DCB: 9.2(200)| 錄入| 否| |
||--|事件| 控制| SPE| | 無
| XDCBITM| 免費(fèi)產(chǎn)品| 1- 8| ITM: 0(200)| 顯示| NO| |
| XPGNUM| 編號| 1- 2| VCR: 0(200)| 顯示| NO| |
||--|事件| 開始按鈕| SPE| | 無
||--|--|參數(shù)| OBJZON|值| ""
| ZAX3| 品牌| 1- 4| CCE: 0(200)| 顯示| NO| |
||--|事件| 控制| SPE| | 無
||--|--|參數(shù)| CCE|值| "AX3"
| ZFROUOM| 以存貨單位計(jì)算| 1- 10| M( 1 ): 4(200)| 顯示| NO| |

屏幕: XFS1 訂單相關(guān)促銷策略

常規(guī)
| 項(xiàng)目| 值 | 項(xiàng)目| 值|
|-|-|
| 縮寫 | XFS1 | 尺寸 | 標(biāo)簽 ( 12 * 50 )|
| 標(biāo)準(zhǔn)腳本 | SUBXFS | 垂直腳本 | |
| 特殊腳本 | XTRTFROSOH | | |
模塊
| 名稱 | 類型 | 位置 | 行 | 選項(xiàng) | 參數(shù)|
|-|-|
| | TLPXIFBMEFG | 0| 0 | | |
字段
| 字段 | 描述| 模塊 | 數(shù)據(jù)類型 |錄入| 必填 | 默認(rèn)值 | 錄入條件
|-|-|-|-|-|
| COUAMT| 訂單金額| 1- 10| DCB: 9.2(50)| 顯示| NO| |
| CPY| 公司| 1- 3| CPY: 0(50)| 顯示| NO| |
||--|事件| 字段前| SPE| | 無
| DCBAMT| 減(贈)| 1- 7| DCB: 9.2(50)| 顯示| NO| |
| DES| 描述| 1- 4| DES: 0(50)| 顯示| NO| |
||--|事件| 錄入前| SPE| | 無
| ISSEL| | 1- 2| M( 1 ): 5(50)| 錄入| 否| |
||--|事件| 修改后| SPE| | 無
| LIMITAMT| 每客戶限額| 1- 11| DCB: 9.2(50)| 顯示| NO| |
||--|事件| 開始按鈕| SPE| | 無
| NBLIG| | 1- 1| ABS: 0(0)| 錄入| NO| |
| SALAMT| 滿| 1- 6| DCB: 9.2(50)| 顯示| NO| |
||--|事件| 開始| SPE| | 無
| USEAMT| 已用額度| 1- 9| DCB: 9.2(50)| 顯示| NO| |
| USENUM| 已用次數(shù)| 1- 9| DCB: 9.2(50)| 顯示| NO| |
| XDCBITM| 免費(fèi)產(chǎn)品| 1- 8| ITM: 0(50)| 顯示| NO| |
| XPGNUM| 編號| 1- 2| VCR: 0(50)| 顯示| NO| |
||--|事件| 開始按鈕| SPE| | 無
||--|--|參數(shù)| OBJZON|值| ""
| XPGTYP| 促銷方式| 1- 5| M( 4000 ): 15(50)| 顯示| NO| |
||--|事件| 字段后| SPE| | 無
| ZAX3| 品牌| 1- 4| CCE: 0(50)| 顯示| NO| |
||--|事件| 控制| SPE| | 無
||--|--|參數(shù)| CCE|值| "AX3"
| ZFROUOM| 以存貨單位計(jì)算| 1- 12| M( 1 ): 4(50)| 顯示| NO| |

屏幕: XIR1 貨返計(jì)算

常規(guī)
| 項(xiàng)目| 值 | 項(xiàng)目| 值|
|-|-|
| 縮寫 | XIR1 | 尺寸 | 標(biāo)簽 ( 12 * 50 )|
| 標(biāo)準(zhǔn)腳本 | SUBXIR | 垂直腳本 | |
| 特殊腳本 | CNSXIRSPE | | |
模塊
| 名稱 | 類型 | 位置 | 行 | 選項(xiàng) | 參數(shù)|
|-|-|
| | TLPXIFBMEFG | 0| 0 | | |
字段
| 字段 | 描述| 模塊 | 數(shù)據(jù)類型 |錄入| 必填 | 默認(rèn)值 | 錄入條件
|-|-|-|-|-|
| BPCORD| 訂單客戶| 1- 5| BPC: 0(500)| 顯示| NO| |
| COUAMT| 計(jì)算金額| 1- 10| DCB: 9.2(500)| 顯示| NO| |
| CPY| 公司| 1- 3| CPY: 0(500)| 顯示| NO| |
||--|事件| 字段前| SPE| | 無
| DCBAMT| 減(贈)| 1- 7| DCB: 9.2(500)| 顯示| NO| |
| DCBNUM| 贈送數(shù)量| 1- 9| DCB: 9.2(500)| 顯示| NO| |
| DCDTYP| 扣減依據(jù)| 1- 6| M( 4001 ): 15(500)| 錄入| 否| |
| DES| 描述| 1- 4| DES: 0(500)| 顯示| NO| |
||--|事件| 錄入前| SPE| | 無
| ISSEL| | 1- 2| M( 1 ): 5(500)| 錄入| 否| 2|
||--|事件| 修改后| SPE| | 無
| NBLIG| | 1- 1| ABS: 0(0)| 錄入| NO| |
| SALAMT| 滿| 1- 6| DCB: 9.2(500)| 顯示| NO| |
||--|事件| 開始| SPE| | 無
| XDCBITM| 免費(fèi)產(chǎn)品| 1- 8| ITM: 0(500)| 顯示| NO| |
| XPGNUM| 編號| 1- 2| VCR: 0(500)| 顯示| NO| |
||--|事件| 開始按鈕| SPE| | 無
||--|--|參數(shù)| OBJZON|值| ""
| XPGTYP| 促銷方式| 1- 5| M( 4000 ): 15(500)| 顯示| NO| |
||--|事件| 字段后| SPE| | 無
| ZAX3| 品牌| 1- 4| CCE: 0(500)| 顯示| NO| |
||--|事件| 控制| SPE| | 無
||--|--|參數(shù)| CCE|值| "AX3"
| ZFROUOM| 以存貨單位計(jì)算| 1- 12| M( 1 ): 4(500)| 顯示| NO| |

屏幕: XITMRET 貨返計(jì)算

常規(guī)
| 項(xiàng)目| 值 | 項(xiàng)目| 值|
|-|-|
| 縮寫 | XIR0 | 尺寸 | 表頭 ( 2 * 120 )|
| 標(biāo)準(zhǔn)腳本 | SUBXIR | 垂直腳本 | |
| 特殊腳本 | CNSXIRSPE | | |
模塊
| 名稱 | 類型 | 位置 | 行 | 選項(xiàng) | 參數(shù)|
|-|-|
| | TLPXIFBMEFG | 0| 0 | | |
字段
| 字段 | 描述| 模塊 | 數(shù)據(jù)類型 |錄入| 必填 | 默認(rèn)值 | 錄入條件
|-|-|-|-|-|
| BPR| 商業(yè)伙伴| 1- 1.1| BPR: 0(1)| 錄入| 否| |
| BPRCOM| 公司| 1- 1| CPY: 0(1)| 錄入| 是| |
| XCTTYP| 合同狀態(tài)| 1- 1.5| M( 1579 ): 4(1)| 隱藏| NO| 2|
||--|事件| 開始按鈕| SPE| | 無
| XENDDATBEG| 合同結(jié)束日期范圍| 1- 1.3| D: 0(1)| 錄入| 否| |
| XENDDATEND| | 1- 1.4| D: 0(1)| 錄入| 否| |
| ZAX3| 品牌| 1- 1.2| CCE: 0(1)| 錄入| 否| |

屏幕: XPG0 促銷政策

常規(guī)
| 項(xiàng)目| 值 | 項(xiàng)目| 值|
|-|-|
| 縮寫 | XPG0 | 尺寸 | 表頭 ( 2 * 80 )|
| 標(biāo)準(zhǔn)腳本 | SUBXPG | 垂直腳本 | |
| 特殊腳本 | SPEXPG | | |
模塊
| 名稱 | 類型 | 位置 | 行 | 選項(xiàng) | 參數(shù)|
|-|-|
| | TLPXIFBMEFG | 0| 0 | | |
字段
| 字段 | 描述| 模塊 | 數(shù)據(jù)類型 |錄入| 必填 | 默認(rèn)值 | 錄入條件
|-|-|-|-|-|
| CREUSR| 創(chuàng)建用戶| 1- 1.7| AUS: 0(1)| 顯示| NO| |
| DES| 描述| 1- 1.3| DES: 0(1)| 錄入| 否| |
| TRSFLG| 交易類型| 1- 1| A: 10(1)| 顯示| NO| GFLAG|
| XPGFLG| 狀態(tài)| 1- 1.5| M( 4002 ): 15(1)| 顯示| NO| |
| XPGNUM| 編號| 1- 1| VCR: 0(1)| 錄入| 否| |
| XRATE| 廠家承擔(dān)比例| 1- 1.6| DCB: 9.4(1)| 錄入| 否| 100|

屏幕: XPG1 促銷政策

常規(guī)
| 項(xiàng)目| 值 | 項(xiàng)目| 值|
|-|-|
| 縮寫 | XPG1 | 尺寸 | 標(biāo)簽 ( 23 * 80 )|
| 標(biāo)準(zhǔn)腳本 | SUBXPG | 垂直腳本 | |
| 特殊腳本 | SPEXPG | | |
模塊
| 名稱 | 類型 | 位置 | 行 | 選項(xiàng) | 參數(shù)|
|-|-|
| 產(chǎn)品列表 | 表格 | 2.1| 10 | D+IRA | NBLIG |
| | 列表 | 3.1| 0 | | |
| 免費(fèi)產(chǎn)品 | 表格 | 4.1| 10 | D+IRA | NBLIGD |
| 渠道列表 | 表格 | 4.2| 50 | D+IRA | NBLIGA |
| 區(qū)域列表 | 表格 | 5.1| 50 | D+IRA | NBLIGB |
| 客戶列表 | 表格 | 5.2| 50 | D+IRA | NBLIGC |
| | TLPXIFBMEFG | 0| 0 | | |
字段
| 字段 | 描述| 模塊 | 數(shù)據(jù)類型 |錄入| 必填 | 默認(rèn)值 | 錄入條件
|-|-|-|-|-|
| CPY| 公司| 1- 1| CPY: 0(1)| 錄入| 是| |
| CREFLG| 創(chuàng)建標(biāo)識| 2- 7| C: 4(10)| 隱藏| NO| |
| DCBAMT| 減(贈)| 3- 1.6| DCB: 9.2(1)| 錄入| 是| |
| DCBITM| 免費(fèi)產(chǎn)品| 4- 2| XITM: 0(10)| 錄入| 是| |
||--|事件| 控制| SPE| | 無
| DCDTYP| 扣減依據(jù)| 3- 1.2| M( 4001 ): 15(1)| 錄入| 否| |
| ENDDAT| 有效期(結(jié)束)| 1- 2.5| D: 0(1)| 錄入| 是| |
||--|事件| 控制| SPE| | 無
| FCY| 地點(diǎn)| 1- 1.3| FCY: 0(1)| 錄入| 否| |
||--|事件| 選擇| SELFCY| | 無
||--|--|參數(shù)| FILTRE|值| "[M]CPY='' | [F]LEGCPY=[M]CPY"
||--|--|參數(shù)| FILTRE|值| "[M]CPY='' | [F]LEGCPY=[M]CPY"
||--|--|參數(shù)| FILTRE|值| "[M]CPY='' | [F]LEGCPY=[M]CPY"
| ISITMLIS| 只有產(chǎn)品列表上的產(chǎn)品有效| 3- 2.3| M( 1 ): 4(1)| 錄入| 否| |
| ISNOTBPC| 客戶列表為排除客戶| 3- 2.3| M( 1 ): 4(1)| 錄入| 否| |
| ITMREF| 產(chǎn)品| 2- 3| XITM: 0(10)| 錄入| 是| |
||--|事件| 控制| SPE| | 無
| LIMITAMT| 每客戶限額| 3- 2| DCB: 9.2(1)| 錄入| 否| |
| LIMITNUM| 每客戶限次| 3- 2.2| DCB: 9.2(1)| 錄入| 否| |
||--|事件| 修改后| SPE| | 無
| MANAX3| 品牌經(jīng)理| 1- 2.2| CCE: 0(1)| 顯示| NO| |
| MINAMT| 最小值(金額/數(shù)量)| 2- 5| MD1: 0(10)| 錄入| 否| |
| NBLIG| | 2- 1| ABS: 0(0)| 錄入| NO| |
||--|事件| 控制| DIVLINCONT| | ASVT
||--|--|參數(shù)| LIG|值| "XPGLIN"
||--|事件| 行后| DIVLINNUM| | ASVT
||--|--|參數(shù)| LIG|值| "XPGLIN"
| NBLIGA| | 5- 1| ABS: 0(0)| 錄入| NO| |
| NBLIGB| | 6- 1| ABS: 0(0)| 錄入| NO| |
| NBLIGC| | 7- 1| ABS: 0(0)| 錄入| NO| |
| NBLIGD| | 4- 1| ABS: 0(0)| 錄入| NO| |
| NESCHK| 必選| 2- 4| M( 1 ): 4(10)| 錄入| 否| |
| SALAMT| 滿| 3- 1.4| DCB: 9.2(1)| 錄入| 是| |
| STRDAT| 有效期(開始)| 1- 2.3| D: 0(1)| 錄入| 是| |
| UPDFLG| 更新| 2- 6| M( 385 ): 4(10)| 隱藏| NO| |
| USENUM| 已用次數(shù)| 3- 2.4| DCB: 9.2(1)| 隱藏| NO| |
| XPGLIN| | 2- 2| L: 8(10)| 隱藏| NO| |
| XPGPRO| 政策說明| 1- 3| A: 200(1)| 錄入| 否| |
| XPGTYP| 促銷方式| 3- 1| M( 4000 ): 15(1)| 錄入| 否| |
| ZAX3| 品牌| 1- 2.1| CCE: 0(1)| 錄入| 否| |
| ZCCE1| 渠道| 5- 2| CCE: 0(50)| 錄入| 是| |
||--|事件| 控制| SPE| | 無
||--|--|參數(shù)| CCE|值| "AX4"
| ZCCE2| 區(qū)域| 6- 2| ADI: 0(50)| 錄入| 是| |
||--|事件| 控制| SPE| | 無
||--|--|參數(shù)| ADI|值| "30"
| ZCCE3| 客戶| 7- 2| BPC: 0(50)| 錄入| 是| |
||--|事件| 控制| SPE| | 無
||--|--|參數(shù)| CNSOPT|值| ""
| ZFROUOM| 以存貨單位計(jì)算| 3- 1.3| M( 1 ): 4(1)| 錄入| 否| | [M]DCDTYP=2
| ZTSICOD| 系列| 2- 2.5| ADI: 8(10)| 隱藏| NO| |

屏幕: XPGBPC1 促銷政策

常規(guī)
| 項(xiàng)目| 值 | 項(xiàng)目| 值|
|-|-|
| 縮寫 | XPG1 | 尺寸 | 標(biāo)簽 ( 23 * 80 )|
| 標(biāo)準(zhǔn)腳本 | SUBXPG | 垂直腳本 | |
| 特殊腳本 | SPEXPG | | |
模塊
| 名稱 | 類型 | 位置 | 行 | 選項(xiàng) | 參數(shù)|
|-|-|
| 產(chǎn)品列表 | 表格 | 2.1| 10 | D+IRA | NBLIG |
| | 列表 | 3.1| 0 | | |
| 免費(fèi)產(chǎn)品 | 表格 | 4.1| 10 | D+IRA | NBLIGD |
| 渠道列表 | 表格 | 4.2| 50 | D+IRA | NBLIGA |
| 區(qū)域列表 | 表格 | 5.1| 50 | D+IRA | NBLIGB |
| 客戶列表 | 表格 | 5.2| 50 | D+IRA | NBLIGC |
| | TLPXIFBMEFG | 0| 0 | | |
字段
| 字段 | 描述| 模塊 | 數(shù)據(jù)類型 |錄入| 必填 | 默認(rèn)值 | 錄入條件
|-|-|-|-|-|
| CPY| 公司| 1- 1| CPY: 0(1)| 錄入| 是| |
| CREFLG| 創(chuàng)建標(biāo)識| 2- 7| C: 4(10)| 隱藏| NO| |
| DCBAMT| 減(贈)| 3- 1.6| DCB: 9.2(1)| 錄入| 是| |
| DCBITM| 免費(fèi)產(chǎn)品| 4- 2| XITM: 0(10)| 錄入| 是| |
||--|事件| 控制| SPE| | 無
| DCDTYP| 扣減依據(jù)| 3- 1.2| M( 4001 ): 15(1)| 錄入| 否| |
| ENDDAT| 有效期(結(jié)束)| 1- 2.5| D: 0(1)| 錄入| 是| |
||--|事件| 控制| SPE| | 無
| FCY| 地點(diǎn)| 1- 1.3| FCY: 0(1)| 錄入| 否| |
||--|事件| 選擇| SELFCY| | 無
||--|--|參數(shù)| FILTRE|值| "[M]CPY='' | [F]LEGCPY=[M]CPY"
||--|--|參數(shù)| FILTRE|值| "[M]CPY='' | [F]LEGCPY=[M]CPY"
||--|--|參數(shù)| FILTRE|值| "[M]CPY='' | [F]LEGCPY=[M]CPY"
| ISITMLIS| 只有產(chǎn)品列表上的產(chǎn)品有效| 3- 2.3| M( 1 ): 4(1)| 隱藏| NO| |
| ISNOTBPC| 客戶列表為排除客戶| 3- 2.3| M( 1 ): 4(1)| 錄入| 否| |
| ITMREF| 產(chǎn)品| 2- 3| XITM: 0(10)| 錄入| 否| |
||--|事件| 控制| SPE| | 無
| LIMITAMT| 每客戶限額| 3- 2| DCB: 9.2(1)| 錄入| 否| |
| LIMITNUM| 每客戶限次| 3- 2.2| DCB: 9.2(1)| 隱藏| NO| |
||--|事件| 修改后| SPE| | 無
| MINAMT| 最小值(金額/數(shù)量)| 2- 5| MD1: 0(10)| 隱藏| NO| |
| NBLIG| | 2- 1| ABS: 0(0)| 錄入| NO| |
||--|事件| 控制| DIVLINCONT| | ASVT
||--|--|參數(shù)| LIG|值| "XPGLIN"
||--|事件| 行后| DIVLINNUM| | ASVT
||--|--|參數(shù)| LIG|值| "XPGLIN"
| NBLIGA| | 5- 1| ABS: 0(0)| 錄入| NO| |
| NBLIGB| | 6- 1| ABS: 0(0)| 錄入| NO| |
| NBLIGC| | 7- 1| ABS: 0(0)| 錄入| NO| |
| NBLIGD| | 4- 1| ABS: 0(0)| 錄入| NO| |
| NESCHK| 必選| 2- 4| M( 1 ): 4(10)| 隱藏| NO| |
| SALAMT| 滿| 3- 1.4| DCB: 9.2(1)| 錄入| 是| |
| STRDAT| 有效期(開始)| 1- 2.3| D: 0(1)| 錄入| 是| |
| UPDFLG| 更新| 2- 6| M( 385 ): 4(10)| 隱藏| NO| |
| USENUM| 已用次數(shù)| 3- 2.4| DCB: 9.2(1)| 隱藏| NO| |
| XPGLIN| | 2- 2| L: 8(10)| 隱藏| NO| |
| XPGPRO| 政策說明| 1- 3| A: 200(1)| 錄入| 否| |
| XPGTYP| 促銷方式| 3- 1| M( 4000 ): 15(1)| 顯示| NO| 2|
| ZAX3| 品牌| 1- 2| CCE: 0(1)| 錄入| 否| |
| ZCCE1| 渠道| 5- 2| CCE: 0(50)| 錄入| 是| |
||--|事件| 控制| SPE| | 無
||--|--|參數(shù)| CCE|值| "AX4"
| ZCCE2| 區(qū)域| 6- 2| ADI: 0(50)| 錄入| 是| |
||--|事件| 控制| SPE| | 無
||--|--|參數(shù)| ADI|值| "30"
| ZCCE3| 客戶| 7- 2| BPC: 0(50)| 錄入| 是| |
||--|事件| 控制| SPE| | 無
||--|--|參數(shù)| CNSOPT|值| ""
| ZFROUOM| 以存貨單位計(jì)算| 3- 1.3| M( 1 ): 4(1)| 錄入| 否| | [M]DCDTYP=2
| ZTSICOD| 系列| 2- 2.5| ADI: 8(10)| 錄入| 否| |

表: XITM 產(chǎn)品

常規(guī)
- 關(guān)聯(lián)表 : ITMMASTER
- 地點(diǎn)字段 : 訪問代碼字段 :
- 管理類型 : 單獨(dú) 導(dǎo)入 : ITMMASTER
- 垂直腳本 : 特殊腳本 :
選擇選項(xiàng)
| 選項(xiàng)| 代碼 | 條件 | 錯誤信息 |
|-|-|
| 激活的| A| ITMSTA=1| 非業(yè)務(wù)產(chǎn)品 |
| 采購的| B| PURFLG = 2 | 非采購產(chǎn)品 |
| 生產(chǎn)的| C| MFGFLG = 2| 非生產(chǎn)產(chǎn)品 |
| 外協(xié)的| D| SCPFLG = 2 | 非分包產(chǎn)品 |
| 外協(xié)| E| SCSFLG = 2 | 非分包產(chǎn)品 |
| 虛擬件| F| PHAFLG = 2| 非虛擬件 |
| 通用| G| GENFLG = 2| 非一般產(chǎn)品 |
| 工具| H| TOOFLG = 2| 非工具 |
| 存貨管理產(chǎn)品| I| STOMGTCOD > 1| 非存貨中管理 |
| 非存貨中管理| J| STOMGTCOD < 2| 存貨管理 |
| 已售出產(chǎn)品| K| SALFLG = 2| 未售出產(chǎn)品 |
| 品牌| L| CCE(1)=[M]ZAX3| 請選擇該品牌的產(chǎn)品 |
| 地址類型| M| TCLCOD = [M]ZTCLCOD| 請選擇與該地址相關(guān)的產(chǎn)品 |
選擇屏幕
| 表| 字段 | 標(biāo)題 | 表述 |類型|
|-|-|
| ITMMASTER| ITMREF| 產(chǎn)品編碼| | |
| | | 產(chǎn)品名稱| string$(1, [F:AXX]TEXTE) + string$(len([F:AXX]TEXTE)=0, [F:ITM]ITMDES1)| DES |
| ITMMASTER| ITMDES2| 條形碼| | |
| ITMMASTER| TCLCOD| | | |
| ITMMASTER| ITMSTA| | | |
環(huán)境
| 表| 索引 | 連接表述 | 縮寫|
|-|-|
| ITMSALES| | [F:ITM]ITMREF| ITS |
| BPARTNER| | | BPR |
| ITMBPS| | | ITP |
| ITMBPC| | | ITU |
| CBLOB| | | |
| ACCES| | | |
| TABUNIT| | | |
| ITMCATEG| | | |
| ACODNUM| | | |
| ATEXTRA| | "ITMMASTER";"DES1AXX";GLANGUE;[F:ITM]ITMREF;""| |
| UNITOFTIME| | | |
| PITDEB| | | |
| CONTTEMPL| | | |
| GACCCODE| | | |
| GDIE| | | |
| CADIEDEF| | | |
| FACILITY| | | |
| ATEXTRA| | "ITMMASTER";"DES2AXX";GLANGUE;ITMREF;""| AX3 |
| ATEXTRA| | "ITMMASTER";"DES3AXX";GLANGUE;ITMREF;""| AX4 |

表: XPG 促銷政策

常規(guī)
- 關(guān)聯(lián)表 : XPRMITMGRP
- 地點(diǎn)字段 : FCY 訪問代碼字段 :
- 管理類型 : 單獨(dú) 導(dǎo)入 : XPRMITMGRP
- 垂直腳本 : 特殊腳本 : SPEXPG
選擇選項(xiàng)
| 選項(xiàng)| 代碼 | 條件 | 錯誤信息 |
|-|-|
選擇屏幕
| 表| 字段 | 標(biāo)題 | 表述 |類型|
|-|-|
| XPRMITMGRP| DES| 描述| | |
| XPRMITMGRP| STRDAT| 開始日期| | |
| XPRMITMGRP| ENDDAT| 結(jié)束| | |
| XPRMITMGRP| XPGNUM| 促銷政策| | |
| XPRMITMGRP| XPGFLG| 狀態(tài)| | |
| XPRMITMGRP| XPGTYP| 促銷方式| | |
環(huán)境
| 表| 索引 | 連接表述 | 縮寫|
|-|-|
| XPROITMLIS| | | |
| XLINOBJ| | | |

系統(tǒng)參數(shù): ZDISCXPG 促銷策略對應(yīng)的價格結(jié)構(gòu)

常規(guī)
- 組 : MIS
- 項(xiàng)目 : TC
- 級別 : 賬套
- 值類型 : 字母及數(shù)字的 0
- 對象 :
- 修改條件 :

窗體: OSOH 訂單管理

頁簽
| 頁簽| 頁簽名稱 | 可見 |
|-|-|
窗體按鈕
| 類型 |代碼 |標(biāo)題 | 操作 |
|-|-|
| 按鈕| 7| 選擇促銷策略| XTRTFROSOH |
| 按鈕| s| 使用貨返| XTRTFROBPC |
瀏覽器
|對象|標(biāo)題|索引|方向 |列表類型 |縮寫|
|-|-|
| SOH| 訂單| SOH0| 降序| 簡單的| |

窗體: WOSOHSAL 訂單管理

頁簽
| 頁簽| 頁簽名稱 | 可見 |
|-|-|
窗體按鈕
| 類型 |代碼 |標(biāo)題 | 操作 |
|-|-|
| 按鈕| 7| 選擇促銷策略| XTRTFROSOH |
| 按鈕| s| 使用貨返| XTRTFROBPC |
瀏覽器
|對象|標(biāo)題|索引|方向 |列表類型 |縮寫|
|-|-|
| SOH| 訂單| SOH0| 降序| 簡單的| |

窗體: WOSOHSTD 訂單管理

頁簽
| 頁簽| 頁簽名稱 | 可見 |
|-|-|
窗體按鈕
| 類型 |代碼 |標(biāo)題 | 操作 |
|-|-|
| 按鈕| 7| 選擇促銷策略| XTRTFROSOH |
| 按鈕| s| 使用貨返| XTRTFROBPC |
瀏覽器
|對象|標(biāo)題|索引|方向 |列表類型 |縮寫|
|-|-|
| SOH| 訂單| SOH0| 降序| 簡單的| |

窗體: WOSOHWSV 訂單管理

頁簽
| 頁簽| 頁簽名稱 | 可見 |
|-|-|
窗體按鈕
| 類型 |代碼 |標(biāo)題 | 操作 |
|-|-|
| 按鈕| 7| 選擇促銷策略| XTRTFROSOH |
| 按鈕| s| 使用貨返| XTRTFROBPC |
瀏覽器
|對象|標(biāo)題|索引|方向 |列表類型 |縮寫|
|-|-|
| SOH| 訂單| SOH0| 降序| 簡單的| |

窗體: XOFB 客戶期間貨返

常規(guī)
- 窗體類型 : 雜項(xiàng)
- 顯示 : 消息框
- 對象 :
- 查詢 :
- 業(yè)務(wù) :
- 表頭屏幕 :
頁簽
| 頁簽| 頁簽名稱 | 可見 |
|-|-|
| XFB1| | 是* 瀏覽器
|對象|標(biāo)題|索引|方向 |列表類型 |縮寫|
|-|-|
| | | | AD| 1234P| |

窗體: XOFS 訂單相關(guān)促銷策略

常規(guī)
- 窗體類型 : 雜項(xiàng)
- 顯示 : 消息框
- 對象 :
- 查詢 :
- 業(yè)務(wù) :
- 表頭屏幕 :
頁簽
| 頁簽| 頁簽名稱 | 可見 |
|-|-|
| XFS1| | 是* 瀏覽器
|對象|標(biāo)題|索引|方向 |列表類型 |縮寫|
|-|-|
| | | | AD| 1234P| |

窗體: XOIR 貨返計(jì)算

常規(guī)
- 窗體類型 : 查詢
- 顯示 : 全屏幕
- 對象 :
- 查詢 : XIR
- 業(yè)務(wù) :
- 表頭屏幕 : XITMRET
頁簽
| 頁簽| 頁簽名稱 | 可見 |
|-|-|
| XIR1| | 是* 窗體按鈕
| 類型 |代碼 |標(biāo)題 | 操作 |
|-|-|
| 按鈕| j| 確認(rèn)| |
瀏覽器
|對象|標(biāo)題|索引|方向 |列表類型 |縮寫|
|-|-|
| | | | AD| 1234P| |

窗體: XOPGBPC 促銷政策

常規(guī)
- 窗體類型 : 對象
- 顯示 : 全屏幕
- 對象 : 期間返貨
- 查詢 :
- 業(yè)務(wù) : BPC 期間返貨
- 表頭屏幕 : XPG0
頁簽
| 頁簽| 頁簽名稱 | 可見 |
|-|-|
| XPGBPC1| | 是* 窗體按鈕
| 類型 |代碼 |標(biāo)題 | 操作 |
|-|-|
| 按鈕| 4| 提交| |
| 按鈕| 3| 品牌經(jīng)理審核| |
| 按鈕| 1| 總經(jīng)理審核| |
| 按鈕| 2| 關(guān)閉| |
瀏覽器
|對象|標(biāo)題|索引|方向 |列表類型 |縮寫|
|-|-|
| XPG| 促銷政策| XPG0| 降序| 簡單的| |

查詢: XIR 貨返計(jì)算

常規(guī)
- 主窗體 :
- 標(biāo)準(zhǔn)窗體 :
- 默認(rèn)屏幕代碼 :
- 標(biāo)準(zhǔn)腳本 :
- 特殊腳本 :

最后編輯于：2017.12.03 04:29:29

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者

人面猴
序言：七十年代末赴邻，一起剝皮案震驚了整個濱河市，隨后出現(xiàn)的幾起案子嫂拴，更是在濱河造成了極大的恐慌寒跳，老刑警劉巖，帶你破解...
沈念sama閱讀 211,194評論 6贊 490
死咒
序言：濱河連續(xù)發(fā)生了三起死亡事件，死亡現(xiàn)場離奇詭異，居然都是意外死亡十籍，警方通過查閱死者的電腦和手機(jī)，發(fā)現(xiàn)死者居然都...
沈念sama閱讀 90,058評論 2贊 385
救了他兩次的神仙讓他今天三更去死
文/潘曉璐我一進(jìn)店門馒过，熙熙樓的掌柜王于貴愁眉苦臉地迎上來米同，“玉大人，你說我怎么就攤上這事冗恨。” “怎么了？”我有些...
開封第一講書人閱讀 156,780評論 0贊 346
道士緝兇錄：失蹤的賣姜人
文/不壞的土叔我叫張陵喧枷，是天一觀的道長蒂教。經(jīng)常有香客問我退子，道長涛菠，這世上最難降的妖魔是什么色罚？我笑而不...
開封第一講書人閱讀 56,388評論 1贊 283
?港島之戀（遺憾婚禮）
正文為了忘掉前任重付，我火速辦了婚禮橘蜜，結(jié)果婚禮上潮瓶，老公的妹妹穿的比我還像新娘婚温。我一直安慰自己梁肿，他們只是感情好，可當(dāng)我...
茶點(diǎn)故事閱讀 65,430評論 5贊 384
惡毒庶女頂嫁案：這布局不是一般人想出來的
文/花漫我一把揭開白布觅彰。她就那樣靜靜地躺著吩蔑，像睡著了一般。火紅的嫁衣襯著肌膚如雪填抬。梳的紋絲不亂的頭發(fā)上烛芬，一...
開封第一講書人閱讀 49,764評論 1贊 290
城市分裂傳說
那天，我揣著相機(jī)與錄音，去河邊找鬼赘娄。笑死仆潮，一個胖子當(dāng)著我的面吹牛，可吹牛的內(nèi)容都是我干的擅憔。我是一名探鬼主播鸵闪，決...
沈念sama閱讀 38,907評論 3贊 406
雙鴛鴦連環(huán)套：你想象不到人心有多黑
文/蒼蘭香墨我猛地睜開眼，長吁一口氣：“原來是場噩夢啊……” “哼暑诸！你這毒婦竟也來了蚌讼？” 一聲冷哼從身側(cè)響起，我...
開封第一講書人閱讀 37,679評論 0贊 266
萬榮殺人案實(shí)錄
序言：老撾萬榮一對情侶失蹤个榕，失蹤者是張志新（化名）和其女友劉穎篡石，沒想到半個月后，有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體西采，經(jīng)...
沈念sama閱讀 44,122評論 1贊 303
?護(hù)林員之死
正文獨(dú)居荒郊野嶺守林人離奇死亡凰萨，尸身上長有42處帶血的膿包…… 初始之章·張勛以下內(nèi)容為張勛視角年9月15日...
茶點(diǎn)故事閱讀 36,459評論 2贊 325
?白月光啟示錄
正文我和宋清朗相戀三年，在試婚紗的時候發(fā)現(xiàn)自己被綠了械馆。大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片胖眷。...
茶點(diǎn)故事閱讀 38,605評論 1贊 340
活死人
序言：一個原本活蹦亂跳的男人離奇死亡，死狀恐怖霹崎，靈堂內(nèi)的尸體忽然破棺而出珊搀，到底是詐尸還是另有隱情，我是刑警寧澤尾菇，帶...
沈念sama閱讀 34,270評論 4贊 329
?日本核電站爆炸內(nèi)幕
正文年R本政府宣布境析，位于F島的核電站，受9級特大地震影響派诬，放射性物質(zhì)發(fā)生泄漏劳淆。R本人自食惡果不足惜，卻給世界環(huán)境...
茶點(diǎn)故事閱讀 39,867評論 3贊 312
男人毒藥：我在死后第九天來索命
文/蒙蒙一默赂、第九天我趴在偏房一處隱蔽的房頂上張望沛鸵。院中可真熱鬧，春花似錦缆八、人聲如沸谒臼。這莊子的主人今日做“春日...
開封第一講書人閱讀 30,734評論 0贊 21
一樁弒父案耀里，背后竟有這般陰謀
文/蒼蘭香墨我抬頭看了看天上的太陽。三九已至拾氓，卻和暖如春冯挎，著一層夾襖步出監(jiān)牢的瞬間，已是汗流浹背。一陣腳步聲響...
開封第一講書人閱讀 31,961評論 1贊 265
情欲美人皮
我被黑心中介騙來泰國打工房官，沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留趾徽，地道東北人。一個月前我還...
沈念sama閱讀 46,297評論 2贊 360
代替公主和親
正文我出身青樓翰守，卻偏偏與公主長得像孵奶，于是被迫代替她去往敵國和親。傳聞我的和親對象是個殘疾皇子蜡峰，可洞房花燭夜當(dāng)晚...
茶點(diǎn)故事閱讀 43,472評論 2贊 348

測試

業(yè)務(wù)代碼: XX003

代碼文件: CNSXIRSPE

代碼文件: SPESOH

代碼文件: SPEXPG

代碼文件: XTRTFROBPC

代碼文件: XTRTFROSOH

操作: CONSXIR 貨返計(jì)算

操作: XTRTFROBPC 客戶期間貨返

操作: XTRTFROSOH 訂單相關(guān)促銷策略

功能: CONSXIR 貨返計(jì)算

功能: GESXITM 產(chǎn)品

功能: GESXPG 促銷政策

功能: GESZITM 產(chǎn)品

數(shù)據(jù)類型: XITM 產(chǎn)品參考

表: PRICSTRUCT 價格結(jié)構(gòu) (Cust/Supp)

表: SORDERP 銷售訂單價格

表: XITMREFLIST 貨返列表

表: XLINOBJ 促銷政策相關(guān)表

表: XPRMITMGRP 促銷政策

表: XPROITMLIS 參加促銷的產(chǎn)品

視圖: XBPCUSEXPG 客戶訂單策略使用匯總

視圖: XPGFORBPC 訂單促銷策略(貨返)

視圖: XPGFORSOH 訂單促銷策略

視圖: XPGFORSOH1 訂單促銷策略

視圖: XPGLIST 促銷政策列表

視圖: XPGSOH 訂單促銷策略使用

屏幕: PRS1 價目表結(jié)構(gòu)

屏幕: SOH4 訂單管理

屏幕: WK2ALL4 訂單管理

屏幕: WK2SAL4 訂單管理

屏幕: WK2STD4 訂單管理

屏幕: WK2WSV4 訂單管理

屏幕: XFB1 客戶期間貨返

屏幕: XFS1 訂單相關(guān)促銷策略

屏幕: XIR1 貨返計(jì)算

屏幕: XITMRET 貨返計(jì)算

屏幕: XPG0 促銷政策

屏幕: XPG1 促銷政策

屏幕: XPGBPC1 促銷政策

表: XITM 產(chǎn)品

表: XPG 促銷政策

系統(tǒng)參數(shù): ZDISCXPG 促銷策略對應(yīng)的價格結(jié)構(gòu)

窗體: OSOH 訂單管理

窗體: WOSOHSAL 訂單管理

窗體: WOSOHSTD 訂單管理

窗體: WOSOHWSV 訂單管理

窗體: XOFB 客戶期間貨返

窗體: XOFS 訂單相關(guān)促銷策略

窗體: XOIR 貨返計(jì)算

窗體: XOPGBPC 促銷政策

查詢: XIR 貨返計(jì)算

推薦閱讀更多精彩內(nèi)容