'定義 billevent 介面. 必須具有的宣告, 以此來獲得事件
private withevents m_billinte***ce as k3classevents.billevent
'private withevents m_objlistinte***ce as k3classevents.listevents
public sub show(byval objinte***ce as object)
'billevent 介面實現
'注意: 此方法必須存在, 請勿修改
'select case vba.ucase$(typename(objinte***ce))
'case 「billevent」
set m_billinte***ce = objinte***ce
'case 「listevents」
'set m_objlistinte***ce = objinte***ce
'case else
'end select
'end if
end sub
private sub class_terminate()
'釋放介面物件
'注意: 此方法必須存在, 請勿修改
set m_billinte***ce = nothing
'set m_billinte***ce1 = nothing
private sub m_billinte***ce_beginedit(byval dct as kfo.dictionary, byval col as long, byval row as long)
if dct(「fkey」) = 「fmaintainnumber」 then
m_billinte***ce.menubar.bostools(「mnudatalookup」).enabled = true
end if
end sub
private sub m_billinte***ce_menubarclick(byval bostool as k3classevents.bostool, cancel as boolean)
dim dct as dictionary
dim lclasstypeid as long
dim row as long
dim col as long
lclasstypeid = 1002112
m_billinte***ce.getactivefield dct, col, row
if bostool.toolname = 「mnudatalookup」 and dct(「fkey」) = 「fmaintainnumber」 then
showf7 lclasstypeid
end if
end sub
硬碟下裝f7
最近在忙著搞什麼linux，新手啊，為了不被忘卻的主搶走我的記憶和這點可憐的知識 還是寫下我裝linux f7的經歷！在硬碟下裝f7 終於在官網上下下了我夢中的f7，馬上開工，又下個grub，什麼鳥東西我就不說他是用來引導我裝linux的傢伙了啊。step1 解壓grub到c 然後右擊了我的電腦,在...
給F7空間賦值
bizbox.setdisplayformat number bizbox.seteditformat number bizbox.setcommitformat number name bizbox.setvalue value row.getcell depot seteditor new kd...
F7調出組織多選
系統有個物料收發事務彙總報表，f7選庫存組織的時候，出現以下介面 其實系統已經實現，並不需要我們自己多開發，以下是反編譯出來的 宣告 private scmrptmultiorgsf7 f7 中bizstorageorgunit是個f7 this.f7 new scmrptmultiorgsf7 t...