protected override void AfterAdd(DataRow row)
{
CLAS.WritHistoryRow dr = (CLAS.WritHistoryRow)row;
string ObjectName = this.myWritHistoryDT.TableName;
dr.WritHistoryID = this.myA.AtMng.PKIDGet(ObjectName, 1);
}
public void ApplyWritHistorySecurity(DataRow dr)
{
if (dr != null)
{
CLAS.WritHistoryRow jr = (CLAS.WritHistoryRow)dr;
UIHelper.EnableControls(atriumDB_WritHistoryDataTableBindingSource, FM.GetCLASMng().GetWritHistory().CanEdit(jr));
}
}
protected override void BeforeChange(DataColumn dc, DataRow ddr)
{
CLAS.WritHistoryRow dr = (CLAS.WritHistoryRow)ddr;
switch (dc.ColumnName)
{
default:
break;
}
}
private void writHistoryBindingSource_CurrentChanged(object sender, EventArgs e)
{
try
{
CLAS.WritHistoryRow dr = CurrentRowWritHistory();
ApplyWritHistorySecurity(dr);
}
catch (Exception x)
{
UIHelper.HandleUIException(x);
}
}
public override bool CanDelete(DataRow dr)
{
bool ok = false;
CLAS.WritHistoryRow fo = (CLAS.WritHistoryRow)dr;
atSecurity.SecurityManager.LevelPermissions perm = myA.AtMng.SecurityManager.CanDelete(myA.FM.CurrentFileId, atSecurity.SecurityManager.Features.WritHistory);
if (perm != atSecurity.SecurityManager.LevelPermissions.No)
{
ok = true;
}
return(ok);
}
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
}
