进销存vba代码怎么写？快速掌握实用技巧指南

业务流程模块：入库与出库

Option Explicit

Function NewDocNo(prefix As String) As String
    Dim dt As String
    dt = Format(Date, "yyyymmdd")
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("DocSeq")
    Dim seq As Long
    seq = ws.Range("A1").Value + 1
    ws.Range("A1").Value = seq
    NewDocNo = prefix & "-" & dt & "-" & Format(seq, "0000")
End Function

Sub CreateInbound(supplierID As String, itemID As String, qty As Double, unitCost As Double, operatorName As String)
    If Not ExistsItem(itemID) Then Err.Raise vbObjectError + 1002, "CreateInbound", "不存在的商品: " & itemID
    Dim docNo As String
    docNo = NewDocNo("IN")
    Dim values(6) As Variant
    values(0) = docNo
    values(1) = Date
    values(2) = supplierID
    values(3) = itemID
    values(4) = qty
    values(5) = unitCost
    values(6) = operatorName
    Call AppendRow("Inbound", values)
End Sub

Sub CreateOutbound(customerID As String, itemID As String, qty As Double, unitPrice As Double, operatorName As String)
    If Not ExistsItem(itemID) Then Err.Raise vbObjectError + 1003, "CreateOutbound", "不存在的商品: " & itemID
    If Not ExistsCustomer(customerID) Then Err.Raise vbObjectError + 1004, "CreateOutbound", "不存在的客户: " & customerID
    Call EnsureStock(itemID, qty)
    Dim docNo As String
    docNo = NewDocNo("OUT")
    Dim values(6) As Variant
    values(0) = docNo
    values(1) = Date
    values(2) = customerID
    values(3) = itemID
    values(4) = qty
    values(5) = unitPrice
    values(6) = operatorName
    Call AppendRow("Outbound", values)
End Sub