用挂操作的方式写右键选择事件

用在XP0415帐套中，物流费用等级功能。

$ACTION
    Case ACTION
        When "SEL_TABLE"     : Gosub SEL_TABLE  #在选项窗口显示之前
        When "VERF_TABLE"    : Gosub VERF_TABLE  #在用户选择一个记录之后
        When Default
    Endcase
Return


$SEL_TABLE
Case TABLE
    When "SELYPF"    : Gosub S_YPF
Endcase
Return


$VERF_TABLE
Case TABLE
    When "SELYPF"    : Gosub VERF_YPF
Endcase
Return


$S_YPF
If !clalev([YBPR]) : Local File BPARTNER [YBPR] : Endif  #商业伙伴表
    #3-销售装运
If val(PARAM(1)) = 3
    If !clalev([YSDH]) : Local File SDELIVERY [YSDH] : Endif  #3-销售装运
    Local Char CODFIC     
    TIT(0)= "销售装运选择"
    NBCOL=0 
    CODFIC = "SDELIVERY"
    NBCOL +=1 : COL(NBCOL)="SDHNUM"    : Gosub TEXTE
    NBCOL +=1 : COL(NBCOL)="BPCORD"     : Gosub TEXTE
    CODFIC = "BPARTNER"
    NBCOL +=1 : COL(NBCOL)="[F:YBPR]BPRSHO"    : Call TEXTFIC("BPARTNER", "BPRSHO", 1, TIT(NBCOL)) From OBJDIV
    CODFIC = "SDELIVERY"
    NBCOL +=1 : COL(NBCOL)="SHIDAT"    : Gosub TEXTE
    
    
    CRITERE="YREGFIN=1 "
    
    ORDRE   = "[F:YSDH]SDHNUM"
    START   = "[F:YSDH]SDHNUM"
    DEFPAG  = 1
    Link [YSDH] With [YBPR]BPR0=[YSDH]BPCORD  As [YSDX]
    Default File [YSDX]


#2-采购收货
Elsif   val(PARAM(1)) = 2


    If !clalev([YPTH]) : Local File PRECEIPT  [YPTH] : Endif  #2-采购收货
    Local Char CODFIC     
    TIT(0)= "采购收货选择"
    NBCOL=0 
    CODFIC = "PRECEIPT"
    NBCOL +=1 : COL(NBCOL)="PTHNUM"    : Gosub TEXTE
    NBCOL +=1 : COL(NBCOL)="BPSNUM"     : Gosub TEXTE
    CODFIC = "BPARTNER"
    NBCOL +=1 : COL(NBCOL)="[F:YBPR]BPRSHO"    : Call TEXTFIC("BPARTNER", "BPRSHO", 1, TIT(NBCOL)) From OBJDIV
    CODFIC = "PRECEIPT"
    NBCOL +=1 : COL(NBCOL)="RCPDAT"    : Gosub TEXTE
    
    
    CRITERE="YREGFIN=1 "
    
    ORDRE   = "[F:YPTH]PTHNUM"
    START   = "[F:YPTH]PTHNUM"
    DEFPAG  = 1
    Link [YPTH] With [YBPR]BPR0=[YPTH]BPSNUM  As [YPTX]
    Default File [YPTX]


#5-采购退货
Elsif   val(PARAM(1)) = 5


    If !clalev([YPNH]) : Local File PRETURN   [YPNH] : Endif  #5-采购退货
    Local Char CODFIC     
    TIT(0)= "采购退货选择"
    NBCOL=0 
    CODFIC = "PRETURN"
    NBCOL +=1 : COL(NBCOL)="PNHNUM"    : Gosub TEXTE
    NBCOL +=1 : COL(NBCOL)="BPSNUM"     : Gosub TEXTE
    CODFIC = "BPARTNER"
    NBCOL +=1 : COL(NBCOL)="[F:YBPR]BPRSHO"    : Call TEXTFIC("BPARTNER", "BPRSHO", 1, TIT(NBCOL)) From OBJDIV
    CODFIC = "PRETURN"
    NBCOL +=1 : COL(NBCOL)="RTNDAT"    : Gosub TEXTE
    
    
    CRITERE="YREGFIN=1 "
    
    ORDRE   = "[F:YPNH]PNHNUM"
    START   = "[F:YPNH]PNHNUM"
    DEFPAG  = 1
    Link [YPNH] With [YBPR]BPR0=[YPNH]BPSNUM  As [YPNX]
    Default File [YPNX]




#6-销售退货
Elsif   val(PARAM(1)) = 6


    If !clalev([YSRH]) : Local File SRETURN   [YSRH] : Endif  #6-销售退货
    Local Char CODFIC     
    TIT(0)= "销售退货选择"
    NBCOL=0 
    CODFIC = "SRETURN"
    NBCOL +=1 : COL(NBCOL)="SRHNUM"    : Gosub TEXTE
    NBCOL +=1 : COL(NBCOL)="BPCORD"     : Gosub TEXTE
    CODFIC = "BPARTNER"
    NBCOL +=1 : COL(NBCOL)="[F:YBPR]BPRSHO"    : Call TEXTFIC("BPARTNER", "BPRSHO", 1, TIT(NBCOL)) From OBJDIV
    CODFIC = "SRETURN"
    NBCOL +=1 : COL(NBCOL)="DLVDAT"    : Gosub TEXTE
    
    
    CRITERE="YREGFIN=1 "
    
    ORDRE   = "[F:YSRH]SRHNUM"
    START   = "[F:YSRH]SRHNUM"
    DEFPAG  = 1
    Link [YSRH] With [YBPR]BPR0=[YSRH]BPCORD  As [YSRX]
    Default File [YSRX]


#4-异地库调拨
Elsif   val(PARAM(1)) = 4


    If !clalev([LOC]) : Local File STOLOC [LOC] : Endif  #库位名称表
    If !clalev([YST]) : Local File STOJOU [YST] : Endif  #
    If !clalev([YSCS]) : Local File SCHGH     [YSCS] : Endif  #4-异地库调拨
    If !clalev([YSGD]) : Local File SCHGD    [YSGD] : Endif  #4-异地库调拨
    
    #声明列表字段
    Local Char CODFIC                 
    TIT(0)= "销售退货选择"
    NBCOL=0 
    CODFIC = "SCHGH"
    NBCOL +=1 : COL(NBCOL)="VCRNUM"     : Gosub TEXTE                    
    NBCOL +=1 : COL(NBCOL)="[F:YSCS]BPCNUM"     : Call TEXTFIC("SCHGH", "BPCNUM", 1, TIT(NBCOL)) From OBJDIV    #当该字段为关联表字段时中文显示要用该写法
    CODFIC = "BPARTNER"
    NBCOL +=1 : COL(NBCOL)="[F:YBPR]BPRSHO"    : Call TEXTFIC("BPARTNER", "BPRSHO", 1, TIT(NBCOL)) From OBJDIV
    CODFIC = "SCHGH"
    NBCOL +=1 : COL(NBCOL)="IPTDAT"    : Gosub TEXTE
    CODFIC = "STOLOC"
    NBCOL +=1 : COL(NBCOL)="[F:LOC]LOCTYP"    : Call TEXTFIC("STOLOC", "LOCTYP", 1, TIT(NBCOL)) From OBJDIV
    CODFIC = "STOJOU"
    NBCOL +=1 : COL(NBCOL)="[F:YST]LOC"    : Call TEXTFIC("STOJOU", "LOC", 1, TIT(NBCOL)) From OBJDIV
    CODFIC = "STOLOC"
    NBCOL +=1 : COL(NBCOL)="[F:LOC]ZLOC01"    : Call TEXTFIC("STOLOC", "ZLOC01", 1, TIT(NBCOL)) From OBJDIV








    #过滤条件
    CRITERE="[YSCS]YREGFIN=1  and [YSCS]TRSCOD='CH2' and [YST]QTYPCU>0 "
    
    
    ORDRE   = "[F:YSCS]VCRNUM"
    START   = "[F:YSCS]VCRNUM"
    DEFPAG  = 1    #分页
    #链接多个表
    Link [YST] With [YSGD]SGD0=[YST]VCRNUM;[YST]VCRLIN,[YBPR]BPR0=[YSCS]BPCNUM,[YSCS]SGH0=[YSGD]VCRNUM,[LOC]STC0=[M:YPF0]FCY;[YST]LOC As [YSCX]
    Default File [YSCX]
Endif
##########################################
Return




$TEXTE 
Call TEXTFIC(CODFIC, COL(NBCOL), 1, TIT(NBCOL)) From OBJDIV  
Return


$VERF_YPF
    If val(PARAM(1)) = 3            #3-销售装运
        VALEUR = [YSDX]SDHNUM
    Elsif val(PARAM(1)) = 2        #2-采购收货
        VALEUR = [YPTH]PTHNUM
    Elsif val(PARAM(1)) = 5        #5-采购退货
        VALEUR = [YPNH]PNHNUM
    Elsif val(PARAM(1)) = 6        #6-销售退货
        VALEUR = [YSRH]SRHNUM
    Elsif val(PARAM(1)) = 4        #4-销售退货
        VALEUR = [YSCS]VCRNUM
    Endif
Return