去年的今天正式离开了上家公司，同时也离开了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/>
