'-- 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
            Me.OPPaymentDetail.Save(True, lcTransactionKey)
           
            '-- 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)


            TransactionCommit(Me.OPPaymentDetail.DataSourceKey, lcTransactionKey)
 
            Return True
        Catch ex As Exception

            TransactionRollback(Me.OPPaymentDetail.DataSourceKey, lcTransactionKey)

            Me.SendTransactionReportError()
            Return False
        End Try