【導讀】可是隨著企業(yè)的發(fā)展，客戶數量的的為斷增多，財務工作繁雜化，庫存產品零亂等一系列問題也接踵而至，給企業(yè)經營者運作帶來了很大的困擾。信息技術的迅猛發(fā)展，科學經營管理觀念的迅速傳播，使中小企業(yè)經營者逐漸認識到轉變企業(yè)經營管理理念，改善企業(yè)經營管理模式是企業(yè)適應時代的發(fā)展急需解決的問題。因此倉庫進銷存管理系統(tǒng)的全面應用，規(guī)范業(yè)務流程、提高了企業(yè)的管理水平，提高資金流動的透明度，加快商品資金周轉速度，進而全面提高了企業(yè)的經營水平、進而全面提升了企業(yè)的經濟效益。企業(yè)資源計劃應用將許許多多的商務過程自動化并集成在一起，從而有助于企業(yè)保持競爭優(yōu)勢；數字內容管理應用有效地控制存儲、檢索和資源的再利用，從而理順了各種操作，有助于避免冗余；供應鏈管理就是對供應鏈中的貨物和服務、信息、以及金錢以電子方式進行規(guī)劃和實行流控制，提高系統(tǒng)的智能化程度，產、供、銷、財務形成一個統(tǒng)一的整體。

　　

【正文】 如果是領料則在摘要中寫明成本項目。計算出每次操作之后的結存數量及金額。Private Sub CmdMe_Click(Index As Integer)If Index = 0 ThenCall PrintLstv(, LoadResString(804), 材料[ amp。 m_CLBH amp。 ] 收發(fā)存明細A, 1, 1)ElseUnload MeEnd IfEnd SubPrivate Sub DoGroupCube(SlCol As String, JeCol As String)Dim arrSlCol() As StringDim arrJeCol() As StringDim k As IntegerDim total As DoubleCall ON_GetArray(SlCol, arrSlCol)Call ON_GetArray(JeCol, arrJeCol) , , ().SubItems(1) = 總計For k = 0 To UBound(arrSlCol) total = 0 For J = 1 To total = total + Val((J).SubItems(Val(arrSlCol(k)))) Next ().SubItems(Val(arrSlCol(k))) = total NextFor k = 0 To UBound(arrJeCol) total = 0 For J = 1 To total = total + Val((J).SubItems(Val(arrJeCol(k)))) Next ().SubItems(Val(arrJeCol(k))) = Format(total, )NextEnd SubPrivate Sub Form_Load()Dim fl_Num As SingleDim fl_Cash As Double = LoadResPicture(101, vbResIcon) ( ) / 2, ( ) / 4 = 查看[ amp。 m_CLBH amp。 ] 的明細情況Call DoStyleIf GetInitData(fl_Num, fl_Cash) = True Then Call DoShow(fl_Num, fl_Cash)39。 Call DoRemain(fl_Num, fl_Cash)End IfEnd SubPrivate Sub DoShow(m_drNum As Single, m_drCash As Double)Dim dsRec As Dim dsSQL As StringDim I As IntegerDim itmXDim rd_theSL As SingleDim rd_theJE As DoubleDim rd_RKJE As Double, rd_CKJE As Doublerd_theSL = m_drNumrd_theJE = m_drCashdsSQL = select * from SFC_MXA3 where CLBH=39。 amp。 m_CLBH amp。 39。Set dsRec = (dsSQL amp。 AND Month(KDRQ)= amp。 m_Month amp。 AND Year(KDRQ)= amp。 m_Year)If Then39。 MsgBox 無效的材料編號！ Exit SubEnd IfI = 1Set itmX = (, , A amp。 I) (1) = (KDRQ).Value (3) = 期初數量 (10) = rd_theSL (11) = Format(m_drCash, ,)Do While Not I = I + 1 Set itmX = (, , A amp。 I) rd_RKJE = IIf((RKJE).Value = , 0, (RKJE).Value) rd_CKJE = IIf((CKJE).Value = , 0, (CKJE).Value) rd_theSL = rd_theSL + Val((RKSL)) Val((CKSL)) m_drCash = m_drCash + rd_RKJE rd_CKJE (1) = (KDRQ).Value (2) = (DHDH).Value (3) = (CBXM).Value (4) = (RKSL).Value (5) = IIf((RKDJ).Value = , , Format((RKDJ).Value, ,)) (6) = IIf((RKJE).Value = , , Format((RKJE).Value, ,)) 39。 (7) = (CKSL).Value (8) = IIf((CKDJ).Value = , , Format((CKDJ).Value, ,)) (9) = IIf((CKJE).Value = , , Format((CKJE).Value, ,)) 39。 (10) = rd_theSL (11) = Format(m_drCash, ,) LoopEnd SubPrivate Sub DoStyle()Dim intWid As IntegerintWid = 1200 , , 序號, 600 , , 日期, 1000, lvwColumnRight , , 憑證編號, intWid, lvwColumnRight , , 摘要, intWid, lvwColumnRight , , 收入數量, intWid, lvwColumnRight , , 收入單價, intWid, lvwColumnRight , , 收入金額, intWid, lvwColumnRight , , 發(fā)出數量, intWid, lvwColumnRight , , 發(fā)出單價, intWid, lvwColumnRight , , 發(fā)出金額, intWid, lvwColumnRight , , 結存數量, intWid, lvwColumnRight , , 結存金額, intWid, lvwColumnRightEnd SubPrivate Sub Form_Resize()On Error Resume Next 0, 100 + 500 + 50, , 650End SubPrivate Function GetInitData(m_giNum As Single, m_giCash As Double) As BooleanDim drRec_1 As Dim drRec_2 As Dim drSQL As StringGetInitData = Truem_giNum = m_giCash = drSQL = select * from T_SFC Where BHBH=39。 amp。 m_CLBH amp。 39。drSQL = drSQL amp。 AND Month(YFYF)= amp。 m_Month amp。 AND Year(YFYF)= amp。 m_YearSet drRec_1 = (drSQL)If Then drSQL = select * from T_SFC_QC Where BHBH=39。 amp。 m_CLBH amp。 39。 drSQL = drSQL amp。 AND Month(YFYF)= amp。 m_Month amp。 AND Year(YFYF)= amp。 m_Year Set drRec_2 = (drSQL) If Then MsgBox 沒有盤點，沒有期初期末數據！ GetInitData = False Else m_giNum = (QCSL).Value m_giCash = (QCJE).Value End If : Set drRec_2 = NothingElse m_giNum = (QCSL).Value m_giCash = (QCJE).ValueEnd If: Set drRec_1 = NothingEnd FunctionPrivate Sub Form_Unload(Cancel As Integer)m_CLBH = m_Month = 0m_Year = 0End SubPrivate Sub DoRemain(m_drNum As Single, m_drCash As Double)Dim rd_theSL As SingleDim rd_theJE As DoubleDim rd_RKJE As Double, rd_CKJE As Doublerd_theSL = m_drNumrd_theJE = m_drCashFor I = 1 To rd_theSL = rd_theSL + Val((I).SubItems(4)) Val((I).SubItems(7)) (I).SubItems(10) = rd_theSL If rd_theSL 0 Then rd_CKJE = Val(Format((I).SubItems(9), )) rd_theJE = rd_theJE + rd_RKJE rd_CKJE Else rd_theJE = 0 End If(I).SubItems(11) = Format(rd_theJE, ,)NextEnd Sub第 43 頁 (共 44頁