在单据上显示即时库存列!（精编版）

1、在单据上显示即时库存列！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)'接口实现'注意 :此方法必须存在,请勿修改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'判断采购订单每一条分录对应的采购申请单分录数量是否有超出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