public WritHistoryBE GetWritHistory() { if (myWritHistory == null) { myWritHistory = new WritHistoryBE(this); } return(myWritHistory); }
protected override void BeforeUpdate(DataRow row) { CLAS.WritRow dr = (CLAS.WritRow)row; this.BeforeChange(dr.Table.Columns["OfficeID"], dr); this.BeforeChange(dr.Table.Columns["IssueRenewalDate"], dr); this.BeforeChange(dr.Table.Columns["ExecutionorRegistrationNumber"], dr); if (!bEditOnly && dr.HasVersion(DataRowVersion.Original)) { WritHistoryBE wh = this.myA.GetWritHistory(); CLAS.WritHistoryRow whr = (CLAS.WritHistoryRow)wh.Add(row); whr.BeginEdit(); whr.FileID = dr.FileID; whr.ExpiryDate = Convert.ToDateTime(dr["ExpiryDate", DataRowVersion.Original]); whr.IssueRenewalDate = Convert.ToDateTime(dr["IssueRenewalDate", DataRowVersion.Original]); whr.OfficeID = Convert.ToInt32(dr["OfficeID", DataRowVersion.Original]); whr.EndEdit(); } // Public Sub Save(Optional bEditOnly As Boolean) // On Error GoTo Error_Trap // // Dim nErrNum As Long // Dim sErrDesc As String // Dim bWHGen As Boolean // // With moDataMan // If mbDirty Then // Validate csAgentID // Validate csIssueRenewalDate // Validate csExecutionorRegistrationNumber // // .BeginTrans // // If Not bEditOnly Then // bWHGen = CAGen() // End If // // .UpdateRecord mrst // UpdateXMLToc // // If bWHGen Then // WHGen // End If // WHValuesCache // // .CommitTrans // Else // If Not (mrst.EOF Or mrst.BOF) Then mrst.CancelUpdate // End If // End With // // mbDirty = False // // Exit Sub // //Error_Trap: // nErrNum = Err.Number // sErrDesc = Err.Description // GetCLASMate(Me).ErrMessage = Err.Description // moDataMan.RollbackTrans // Select Case nErrNum // Case secInvalidDataType // Err.Raise secInvalidDataType, csObjectName & csSave, sErrDesc // Case Else // Err.Raise nErrNum, csObjectName & csSave, sErrDesc // End Select // //End Sub }