iERP5.2采购接收/验收对IMA_OnHandQty的影响

去年的今天正式离开了上家公司,同时也离开了IERP5.2(全名Intuitiv ERP 5.2,现在已经是Intuitiv ERP 7.2了),原来的写过一些学习的笔记放在了旧的blog,借今天的机会把这些内容重新整理到这里,希望对还在使用这套系统的朋友们有所帮助。
备注:
1、如果和新版本有所出入,请不要骂我误人子弟。
2、版权所有,转载请注明出处:[URL=http://www.cuiwenyuan.com/sh/]http://www.cuiwenyuan.com/sh/[/URL]
3、如果内容有不同意见,欢迎留言或直接Email联系我,恭候您的来信。
4、官方网站:[URL=http://www.intuitivemfg.com]http://www.intuitivemfg.com[/URL]
5、iERP的实施在国内基本上都是一家叫做[URL=http://www.grapecity.com/]GrapeCity[/URL]的公司来实施,上海这里的就是:[URL=http://www.grapecity.com/china/]葡萄城[/URL]。他同时还在做Microsoft® Axapta和Microsoft® Navision的实施和咨询。

当采购单采购的物料需要验收的时候就不会更新IMA_OnHandQty而只是更新IMA_PurInspQty。

Private Function Update_IMA(ItemID As String) As Boolean<br/>   On Error GoTo Err_Handler<br/>   <br/>   Dim cmdADO As IMSDataObjects.clsADOCommand<br/>   <br/>   Set cmdADO = New IMSDataObjects.clsADOCommand<br/>   With cmdADO<br/>      .Initialize "IMA", mcnxADO, moEventInfo<br/>      SQL = "UPDATE IMA SET "<br/>      SQL = SQL & "IMA_LastPOReceivedDate = ?, "<br/>      .AddParameter "IMA_LastPOReceivedDate", Date<br/>      If Not rsPORec!POI_InspectionFlag Then<br/>         SQL = SQL & "IMA_OnHandQty = IMA_OnHandQty + ? "<br/>         .AddParameter "IMA_OnHandQty", Round((rstmpPOReceipts!RcvdQty * rsPORec!POI_PurConvFactor), 4)<br/>      Else<br/>         SQL = SQL & "IMA_PurInspQty = IMA_PurInspQty + ? "<br/>         .AddParameter "IMA_PurInspQty", Round((rstmpPOReceipts!RcvdQty * rsPORec!POI_PurConvFactor), 4)<br/>      End If<br/>      SQL = SQL & "WHERE IMA_ItemID = ?"<br/>      .AddParameter "IMA_ItemID", ItemID<br/>      .CommandText = SQL<br/>      .Execute<br/>   End With<br/>   ' following line originally in Create_ITR.  Moved here because WriteInvAcctGLT() needs<br/>   ' to know which tmpLoc records its looking for. 11.20.96 bw<br/>  ' mlngTransCounter = mlngTransCounter + 1<br/>   Update_IMA = True<br/>   <br/>Exit_Function:<br/>   Set cmdADO = Nothing<br/>   Exit Function<br/>Err_Handler:<br/>   Call moEventInfo.NewEvent(Me.Name, "Update_IMA", Err, Error, Errors, mcnxADO)<br/>   Err.Raise eiEventRaised, , eiEventRaisedDesc<br/>End Function

Private Function Update_IMA_old() As Boolean<br/>   On Error GoTo Err_Handler<br/><br/>   Set cmdADO = New IMSDataObjects.clsADOCommand<br/>   With cmdADO<br/>      .Initialize "IMA", mcnxADO, mobjEventInfo<br/>      .CommandText = "UPDATE IMA SET IMA_OnHandQty = IMA_OnHandQty + ?, IMA_PurInspQty = IMA_PurInspQty - ? WHERE IMA_ItemID = ?"<br/>      .AddParameter "IMA_OnHandQty", CDbl(Me.txtAcceptQty)<br/>      .AddParameter "IMA_PurInspQty", CDbl(Me.txtAcceptQty + Me.txtRejectQty + Me.txtScrapQty)<br/>      .AddParameter "IMA_ItemID", Me.txtItemID<br/>      .Execute<br/>      Update_IMA_old = .RecordsAffected<br/>   End With<br/><br/>Exit_Function:<br/>   Exit Function<br/>Err_Handler:<br/>   mobjEventInfo.NewEvent Me.Name, "Update_IMA_old", Err.Number, Err.Description<br/>   Err.Raise eiEventRaised, , eiEventRaisedDesc<br/>End Function<br/><br/><br/>Private Function Update_IMA() As Boolean<br/>   On Error GoTo Err_Handler<br/>   <br/>   Dim dblQty As Double<br/>   <br/>   If Me.txtAcceptQty = dblAcceptQtyBeforeEdit Then<br/>      If IsEdit Then<br/>         dblQty = 0<br/>      Else<br/>         dblQty = Me.txtAcceptQty<br/>      End If<br/>   Else<br/>      dblQty = Me.txtAcceptQty - dblAcceptQtyBeforeEdit<br/>   End If<br/>   Set cmdADO = New IMSDataObjects.clsADOCommand<br/>   With cmdADO<br/>      .Initialize "IMA", mcnxADO, mobjEventInfo<br/>      .CommandText = "UPDATE IMA SET IMA_OnHandQty = IMA_OnHandQty + ?, IMA_PurInspQty = IMA_PurInspQty - ? WHERE IMA_ItemID = ?"<br/>      .AddParameter "IMA_OnHandQty", dblQty<br/>      .AddParameter "IMA_PurInspQty", dblQty<br/>      .AddParameter "IMA_ItemID", Me.txtItemID<br/>      .Execute<br/>      Update_IMA = .RecordsAffected<br/>   End With<br/>   <br/>Exit_Function:<br/>   l_ims.Terminate cmdADO<br/>   Exit Function<br/>Err_Handler:<br/>   mobjEventInfo.NewEvent Me.Name, "Update_IMA", Err.Number, Err.Description, Errors, mcnxADO<br/>   l_ims.Terminate cmdADO<br/>   Err.Raise eiEventRaised, , eiEventRaisedDesc<br/>End Function<br/>
 <br/>

发表评论

您的电子邮箱地址不会被公开。

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据