在單據(jù)上顯示即時庫存列!（精編版）

1、在單據(jù)上顯示即時庫存列！version 1.0 class beginmultiuse = -1'truepersistable = 0'notpersistable databindingbehavior = 0'vbnone datasourcebehavior= 0'vbnone mtstransactionmode= 0'notanmtsobjectendattribute vb_name = "getbillinfo" attribute vb_globalnamespace = false attribute vb_cre

2、atable = trueattribute vb_predeclaredid = falseattribute vb_exposed = trueattribute vb_description = "this is industry bill interface class, made by k3bospluginswizaed"'定義插件對象接口.必須具有的聲明,以此來獲得事件private withevents m_billtransferas k3billtransfer.bill attribute m_billtransfer.vb_varhelpid

3、 = -1public sub show(byval obilltransfer as object)'接口實現(xiàn)'注意 :此方法必須存在,請勿修改set m_billtransfer = obilltransferend subprivate sub class_terminate()'釋放接口對象'注意 :此方法必須存在,請勿修改set m_billtransfer = nothing end subprivate sub m_billtransfer_loadbillend(byval showtype as long)dim fitemidcol as i

4、nteger dim fstockqtycol as integer dim sqlstr as string * 300dim fnumberstr as string * 100 dim stockqty as integerdim stockqtyshow as integerdim tentryctl as variantmsgbox "此程序在正常運行！ ！ "tentryctl = m_billtransfer.entryctl '找到物料所在列位置for j = 1 to ubound(tentryctl)if ucase(tentryctl(j).f

5、ieldname) = ucase("fitemid") thenfitemidcol = j exit forend ifnextwith m_billtransfer.billform.vsentrys.row = 0for i = 1 to .maxcolsif .text = "即時庫存 " then fstockqtycol = iexit forend if msgboxm_billtransfer.billform.vsentrys.textnext end with'判斷采購訂單每一條分錄對應的采購申請單分錄數(shù)量是否有超出for

6、i = 1 to ubound(tentryctl(fitemidcol).dinterid) dim rs as adodb.recordsetset rs = new adodb.recordsetfnumberstr = m_billtransfer.getgridtext(i, fitemidcol)sqlstr = "select sum(a.fqty) as qty from icinventory a , t_icitem bwhere a.fitemid = b.fitemid and fnumber = " & "'" & fnumberstr & "'"rs.open sqlstr, m_billtransfer.cnnstring, 0, 1if not rs.eof thenm_billtransfer.setgridtext i,fstockqtycol, val(rs.fields(0).value) & ""msgbox val(rs.fields(0).value) & "|" & fstockqtycol &am