新增文章

文章标题分类内容

Private Sub m_BillInterface_CommandClick(ByVal CommandName As String, bCancel As Boolean)
'------------------------------------------------------------------------------------------------------------
' 按钮名称
  
    Select Case CommandName
  '---------------------------------------------------------------------
      Case Is = "FCreate":  Call aFill   '填写数据
    '---------------------------------------------------------------------
      Case Else
    End Select
    
 End Sub

Private Sub aFill()  '填写数据

Dim aRow As Long, i As Long, aSql As String, aRecordset As ADODB.Recordset
  '------------------------------------------------------------------------------------------------------------
    aRow = m_BillInterface.Data("Page2").UBound
    
    If aRow > 1 Then
        aMsg = MsgBox("已存在数据，确定要 重新生成 吗 ？", vbYesNo + vbExclamation, " 一星提示")
        
        If aMsg = vbNo Then
            Exit Sub
        End If
    End If
    
  '------------------------------------------------------------------------------------------------------------
    aFDate = m_BillInterface.GetDataFldbyKey("FDate")("FFLD")  '【字段值】 单据日期 FDate
    
    If Val(aFDate) = 0 Then
        MsgBox "【单据日期】 必须填写 ！", vbOKOnly, " 一星提示": Exit Sub
    End If
    
  '------------------------------------------------------------------------------------------------------------
    aFStockId2 = Val(m_BillInterface.GetDataFldbyKey("FStockId2")("FFLD"))  '【字段值】 选择仓库 FStockId2
    
    If aFStockId2 = 0 Then
        MsgBox "请先 【选择仓库】 ！", vbOKOnly, " 一星提示": Exit Sub
    End If
    
    aFStockNo = m_BillInterface.GetDataFldbyKey("FStockId2")("FFND")
  '------------------------------------------------------------------------------------------------------------
  '批量填写

'   select FItemNo,FLtNo,FLpNo,FAuxPropNo,FItemName2,FStockNo,FUnitStockNo,sum(FQtyCal) FQtyCal  from a_StockList  where FCancellation != 1 and FDate <= '2023/8/31' and FStockNo = 'B.01'
   
'   group by FItemNo,FLtNo,FLpNo,FAuxPropNo,FItemName2,FStockNo,FUnitStockNo
'   having sum(FQtyCal) != 0

'   order by FItemNo,FLtNo,FLpNo,FAuxPropNo,FItemName2,FStockNo,FUnitStockNo
   
    aSql = ""
    aSql = aSql + " select FItemNo,FLtNo,FLpNo,FAuxPropNo,FItemName2,FStockNo,FUnitStockNo,sum(FQtyCal) FQtyCal "
    aSql = aSql + "  from a_StockList "
    aSql = aSql + " where FCancellation != 1 and FDate <= '" & aFDate & "' and FStockNo = '" & aFStockNo & "' "
    aSql = aSql + " group by FItemNo,FLtNo,FLpNo,FAuxPropNo,FItemName2,FStockNo,FUnitStockNo "
    aSql = aSql + " having sum(FQtyCal) != 0 "
    aSql = aSql + " order by FItemNo,FLtNo,FLpNo,FAuxPropNo,FItemName2,FStockNo,FUnitStockNo "
    
    Set aRecordset = m_BillInterface.K3Lib.GetData(aSql)
    
    If aRecordset.RecordCount = 0 Then
        MsgBox "没有库存 ！", vbOKOnly, " 一星提示": Exit Sub
    End If

'------------------------------------------------------------------------------------------------------------
    m_BillInterface.DeleteEntryData 2
    
    For i = 1 To aRecordset.RecordCount
        
        aFStockNo = aRecordset("FStockNo")
        aFItemNo = aRecordset("FItemNo")
        aFLtNo = aRecordset("FLtNo")
        aFLpNo = aRecordset("FLpNo")
        aFAuxPropNo = aRecordset("FAuxPropNo")
        aFItemName2 = aRecordset("FItemName2")
        aFUnitStockNo = aRecordset("FUnitStockNo")
        aFQtyCal = aRecordset("FQtyCal")
        
        aFQtyCal2 = IIf(aFQtyCal < 0, 0, aFQtyCal)   '计算生成 FTypeCreate
        
        m_BillInterface.InsertNewRowAndFill 2, i, "FTypeCreate", 1, "FStockId", aFStockNo, "FItemId", aFItemNo, "FLtId", aFLtNo, "FLpId", aFLpNo, "FAuxPropId", aFAuxPropNo, "FItemName", aFItemName2, "FUnitStock", aFUnitStockNo, "FQtyMust", aFQtyCal, "FQtyStockRemain", aFQtyCal2
        
        aRecordset.MoveNext
    Next
    
    Set aRecordset = Nothing
End Sub