'-- first generate a unique transaction key
         Dim lcTransactionKey As String = AES.BOL.Base.Utils.NewSeqGuid().ToString
         Try
             TransactionBegin(Me.OPPaymentDetail.DataSourceKey, lcTransactionKey, IsolationLevel.ReadCommitted)
             '-- First save data to the contact information table - This save Fails
             If Me.OPPaymentDetail.Save(True, lcTransactionKey) = MicroFour.StrataFrame.Data.SaveUndoResult.Success Then
                 '-- next get the primary key value and save to ACH detail table - This save Succeeds
                 Me.OPACHInfoBO.ah_op_Key = Me.OPPaymentDetail.GetPostSavePrimaryKeyValue(-1).ToString
                 Me.OPACHInfoBO.Save(True, lcTransactionKey)
             End If

             TransactionCommit(Me.OPPaymentDetail.DataSourceKey, lcTransactionKey)
             Return True
         Catch ex As Exception
             TransactionRollback(Me.OPPaymentDetail.DataSourceKey, lcTransactionKey)
             Me.SendTransactionReportError()
             Return False
         End Try