_CKJEAsDouble
rd_theSL=m_drNum
rd_theJE=m_drCash
dsSQL="select*fromSFC_MXA3whereCLBH='"&m_CLBH&"'"
SetdsRec=AppCN.Execute(dsSQL&"ANDMonth(KDRQ)="&m_Month&"ANDYear(KDRQ)="&m_Year)
IfdsRec.EOFThen
'MsgBox"无效的材料编号!"
ExitSub
EndIf
I=1
SetitmX=LstView.ListItems.Add(,,A&I)
itmX.SubItems(1)=dsRec.Fields("KDRQ").Value
itmX.SubItems(3)="期初数量"
itmX.SubItems(10)=rd_theSL
itmX.SubItems(11)=Format(m_drCash,"##,##0.00")
DoWhileNotdsRec.EOF
I=I+1
SetitmX=LstView.ListItems.Add(,,A&I)
rd_RKJE=IIf(dsRec.Fields("RKJE").Value="",0,dsRec.Fields("RKJE").Value)
rd_CKJE=IIf(dsRec.Fields("CKJE").Value="",0,dsRec.Fields("CKJE").Value)
rd_theSL=rd_theSL+Val(dsRec.Fields("RKSL"))-Val(dsRec.Fields("CKSL"))
m_drCash=m_drCash+rd_RKJE-rd_CKJE
itmX.SubItems(1)=dsRec.Fields("KDRQ").Value
itmX.SubItems(2)=dsRec.Fields("DHDH").Value
itmX.SubItems(3)=dsRec.Fields("CBXM").Value
itmX.SubItems(4)=dsRec.Fields("RKSL").Value
itmX.SubItems(5)=IIf(dsRec.Fields("RKDJ").Value="","",Format(dsRec.Fields("RKDJ").Value,"##,##0.00"))
itmX.SubItems(6)=IIf(dsRec.Fields("RKJE").Value="","",Format(dsRec.Fields("RKJE").Value,"##,##0.00"))'
itmX.SubItems(7)=dsRec.Fields("CKSL").Value
itmX.SubItems(8)=IIf(dsRec.Fields("CKDJ").Value="","",Format(dsRec.Fields("CKDJ").Value,"##,##0.00"))
itmX.SubItems(9)=IIf(dsRec.Fields("CKJE").Value="","",Format(dsRec.Fields("CKJE").Value,"##,##0.00"))'
itmX.SubItems(10)=rd_theSL
itmX.SubItems(11)=Format(m_drCash,"##,##0.00")
dsRec.MoveNext
Loop
EndSub
PrivateSubDoStyle()
DimintWidAsInteger
intWid=1200
LstView.ColumnHeaders.Add,,"序号",600
LstView.ColumnHeaders.Add,,"日期",1000,lvwColumnRight
LstView.ColumnHeaders.Add,,"凭证编号",intWid,lvwColumnRight
LstView.ColumnHeaders.Add,,"摘要",intWid,lvwColumnRight
LstView.ColumnHeaders.Add,,"收入数量",intWid,lvwColumnRight
LstView.ColumnHeaders.Add,,"收入单价",intWid,lvwColumnRight
LstView.ColumnHeaders.Add,,"收入金额",intWid,lvwColumnRight
LstView.ColumnHeaders.Add,,"发出数量",intWid,lvwColumnRight
LstView.ColumnHeaders.Add,,"发出单价",intWid,lvwColumnRight
LstView.ColumnHeaders.Add,,"发出金额",intWid,lvwColumnRight
LstView.ColumnHeaders.Add,,"结存数量",intWid,lvwColumnRight
LstView.ColumnHeaders.Add,,"结存金额",intWid,lvwColumnRight
EndSub
PrivateSubForm_Resize()
ResumeNext
LstView.Move0,100+500+50,Me.ScaleWidth,Me.ScaleHeight-Me.StatusBar1.Height-650
EndSub
PrivateFunctionGetInitData(m_giNumAsSingle,m_giCashAsDouble)AsBoolean
DimdrRec_1AsADODB.Recordset
DimdrRec_2AsADODB.Recordset
DimdrSQLAsString
GetInitData=True
m_giNum=-2002.1994
m_giCash=-2002.1994
drSQL="select*fromT_SFCWhereBHBH='"&m_CLBH&"'"
drSQL=drSQL&"ANDMonth(YFYF)="&m_Month&"ANDYear(YFYF)="&m_Year
SetdrRec_1=AppCN.Execute(drSQL)
IfdrRec_1.EOFThen
drSQL="select*fromT_SFC_QCWhereBHBH='"&m_CLBH&"'"
drSQL=drSQL&"ANDMonth(YFYF)="&m_Month&"ANDYear(YFYF)="&m_Year
SetdrRec_2=AppCN.Execute(drSQL)
IfdrRec_2.EOFThen
MsgBox"没有盘点,没有期初期末数据!"
GetInitData=False
Else
m_giNum=drRec_2.Fields("QCSL").Value
m_giCash=drRec_2.Fields("QCJE").Value
EndIf
drRec_2.Close:SetdrRec_2=Nothing
Else
m_giNum=drRec_1.Fields("QCSL").Value
m_giCash=drRec_1.Fields("QCJE").Value
EndIf
drRec_1.Close:SetdrRec_1=Nothing
EndFunction
PrivateSubForm_Unload(CancelAsInteger)
m_CLBH=""
m_Month=0
m_Year=0
EndSub
PrivateSubDoRemain(m_drNumAsSingle,m_drCashAsDouble)
Dimrd_theSLAsSingle
Dimrd_theJEAsDouble
Dimrd_RKJEAsDouble,rd_CKJEAsDouble
rd_theSL=m_drNum
rd_theJE=m_drCash
ForI=1ToMe.LstView.ListItems.Count
rd_theSL=rd_theSL+Val(LstView.ListItems(I).SubItems(4))-Val(LstView.ListItems(I).SubItems(7))
LstView.ListItems(I).SubItems(10)=rd_theSL
Ifrd_theSL<>0Then
rd_RKJE=Val(Format(LstView.ListItems(I).SubItems(6),"###0.00"))
rd_CKJE=Val(Format(LstView.ListItems(I).SubItems(9),"###0.00"))
rd_theJE=rd_theJE+rd_RKJE-rd_CKJE
Else
rd_theJE=0
EndIf
LstView.ListItems(I).SubItems(11)=Format(rd_theJE,"##,##0.00")
Next
EndSub
7.2程序界面:
1、仓库材料消耗汇总(车间):
功能:按领料单中的领用车间进行每月金额消耗汇总统计,并按照材料大分类类型进行小计,最后总计。
今日动态-成品:
如下图_23_Jin所示,显示所有销售订单的订货类型、数量、出货数、当天入出库数、当日结余、生产欠数和所欠金额;
图_23_Jin
7.3测试用例
单一材料单价金额计算测试用例:
编号
日期
入库
出库
实际应该数值
电脑计算数值
数量
单价
金额
数量
数量
单价
金额
数量
单价
金额
盘点
100
2
200
100
2
200
6.2
100
5
500
20
180
3.5
630
180
3.5
630
6.11
50
130
3.5
455
130
3.5
455
6.14
100
4
400
50
180
3.67
660.6
180
3.67
660.6
6.18
100
10
1000
40
240
5.25
1260
240
5.25
1260
盘点
240
5.25
1260
240
5.25
1260
7.2
100
140
5.25
735
140
5.25
735
7.5
100
12
1200
240
0
0
7.24
0
0
7.24
第八章结束语
8.1总结
随着经济的全球化以及中国经济改革的逐渐深化,制造业面临着越来越激烈的竞争,改善企业内部以及整个供应链各个环节的管理、调度及资源配置,迅速适应客户的新需求和市场新机遇的能力,是中国企业赢得竞争胜利的决定性因素,而快速有效地实施企业资源计划(ERP)系统是被实践证明了的提高企业竞争力的最有效的方法之一。从根本上说,企业就是一个利用资源(人、财、物、时间),为客户创造价值的组织,ERP就是对这些资源进行计划、调度、控制、衡量、改进的管理技术和信息系统。现今的企业并不只是人力资源、资金和产品的组合,它还应该包括供应、销售、市场营销、客户服务、需求预测,以及其他更多的东西。如果一个ERP系统真正想要最大限度地提高其生产能力,它必须能够非常融洽地和其他关键性的商务领域进行交流。
当前,随着经济的全球化以及中国经济改革的逐渐深化,制造业面临着越来越激烈
上一篇:
超市管理系统vb(论文和程序)
下一篇:
js循环滚动切换首页焦点图幻灯代码