I know, grrrr

Bob Worsley wrote:
> An "alias problem" will occur on any lock, reread or begin_transaction
> Bob
>
> "Dan Walsh" <danwalsh46@bellsouth.net> wrote in message
> news:dby2iuKVJHA.4924@dacmail.dataaccess.com...
>> Both are 0 and I've checked all of my DD classes for alias tables. An
>> alias related problem wouldn't need begin_transaction to cause a problem
>> though, correct?
>>
>> John Tuohy wrote:
>>> Dennis suggested this might be a DD operation rentrancy issue. What is
>>> the value of Operation_Mode (or Operation_Origin) global variable right
>>> before the begin_transaction? (hint: the correct answer is 0).
>>>
>>> -John
>>>
>>> "Dan Walsh" <danwalsh46@bellsouth.net> wrote in message
>>> news:Ju8ZOKKVJHA.6356@dacmail.dataaccess.com...
>>>> I recompiled in 14.0 and have the same problem. There are no new alias
>>>> files in the system. Whatever it is, I've introduced it very recently.
>>>> The view works fine with the Begin/end_transaction commented out.
>>>>
>>>> John Tuohy wrote:
>>>>> Dan,
>>>>>
>>>>> I don't think we changed anything in this area (at least not on
>>>>> purpose). Are you sure this is new to 14.1? In what prior version are
>>>>> you sure it worked in?
>>>>>
>>>>> -John
>>>>>
>>>>> "Dan Walsh" <danwalsh46@bellsouth.net> wrote in message
>>>>> news:1ExuqZJVJHA.4924@dacmail.dataaccess.com...
>>>>>> This is old code. FWIW, the DD class is a subclass that existed and
>>>>>> worked fine going back a long time. The program hangs on the
>>>>>> Begin_Transaction statement.
>>>>>>
>>>>>>
>>>>>> Procedure Request_Save
>>>>>> tGeneralLedgerCreate tGLCreate
>>>>>> //
>>>>>> Boolean bCancel bError
>>>>>> Integer iYear iPeriod iAccount iLine iCase iCats iType
>>>>>> String sOperator sMemo sToFrom
>>>>>> Number nCosts nFees nTpfees nCharges nTpcharges nDeducted
>>>>>> nDebit nCredit
>>>>>> Handle hoDD
>>>>>> Date dPost
>>>>>> //
>>>>>> Get psUsr to sOperator
>>>>>> Get Server to hoDD
>>>>>> //
>>>>>> If (Current_Record(hoDD)) Begin
>>>>>> Procedure_Return
>>>>>> End
>>>>>> //
>>>>>> If (not(Current_Record(Chart_DD(Self)))) Begin
>>>>>> send Stop_Box "Cash Account not selected."
>>>>>> procedure_return
>>>>>> End
>>>>>> //
>>>>>> If (not(Current_Record(Cases_DD(Self)))) Begin
>>>>>> send Stop_Box "Client & Case not selected."
>>>>>> procedure_return
>>>>>> End
>>>>>> //
>>>>>> Move Glsys.Current_year to iYear
>>>>>> Move Glsys.Auto_period to
>>>>>> iPeriod
>>>>>> Get CheckPeriodStatus of oGLPostProcess iYear iPeriod to
>>>>>> bCancel
>>>>>> If (bCancel) Begin
>>>>>> Procedure_Return
>>>>>> End
>>>>>> //
>>>>>> Send Refind_Records of hoDD
>>>>>> //
>>>>>> Set Field_Changed_Value of hoDD Field CSLEDGER.OPERATOR to
>>>>>> sOperator
>>>>>> Set Field_Changed_Value of hoDD Field CSLEDGER.YEAR to
>>>>>> iYear
>>>>>> Set Field_Changed_Value of hoDD Field CSLEDGER.PERIOD to
>>>>>> iPeriod
>>>>>> //
>>>>>> If (Casetype.TYPE = "S" and Sysfile.Ss_post_award) Begin
>>>>>> get IsFeeType of oFeeTypeDialog to iType
>>>>>> Set piFeeType of hoDD to iType
>>>>>> end
>>>>>> Begin_Transaction
>>>>>> Forward Send Request_Save
>>>>>> If ((Err) or Should_Save(Self)) Begin
>>>>>> Move True to bError
>>>>>> End
>>>>>> If (not(bError)) Begin
>>>>>> // post debit
>>>>>> Get CheckAccountStatus of oGLPostProcess
>>>>>> Csledger.ACCOUNT iYear to iAccount
>>>>>> If (not(iAccount)) Begin
>>>>>> Move True to bError
>>>>>> Error 300 "Account Missing"
>>>>>> End
>>>>>> If (bError) Break
>>>>>> //
>>>>>> Send Refind_Records of hoDD
>>>>>> Move Csledger.Debit to nDebit
>>>>>> Move 0 to nCredit
>>>>>> Move Csledger.Date to dPost
>>>>>> Get DoLedgerPost of oGLPostProcess iYear iPeriod
>>>>>> iAccount dPost nDebit nCredit to bError
>>>>>> If (bError) Break
>>>>>> //
>>>>>> Move Csledger.Case to iCase
>>>>>> Move Csledger.TO_FROM to sToFrom
>>>>>> Move Csledger.Memo to sMemo
>>>>>> Move Csledger.Costs_recovered to nCosts
>>>>>> Move Csledger.Fees_received to nFees
>>>>>> Move Csledger.Tp_fees_rec to nTpfees
>>>>>> Move Csledger.Fees_charged to nCharges
>>>>>> Move Csledger.Tp_fees_chg to nTpcharges
>>>>>> Move Csledger.Line_num to iLine
>>>>>> //
>>>>>> Move Csledger.Client to tGLCreate.sClient
>>>>>> Move Csledger.Case to tGLCreate.iCase
>>>>>> Move Cases.Case_type to tGLCreate.sCaseType
>>>>>> Move dPost to tGLCreate.dPost
>>>>>> Move Csledger.TO_FROM to tGLCreate.sToFrom
>>>>>> Move Csledger.Memo to tGLCreate.sMemo
>>>>>> Move Csledger.SOURCE to tGLCreate.sSource
>>>>>> Move "G" to tGLCreate.sItemType
>>>>>> Move Csledger.TRANS_NUM to tGLCreate.iTrans
>>>>>> Move iYear to tGLCreate.iYear
>>>>>> Move iPeriod to tGLCreate.iPeriod
>>>>>> Move Cases.Office_code to tGLCreate.sOffice
>>>>>> Move Cases.Attorney to tGLCreate.sAttorney
>>>>>> Move sOperator to tGLCreate.sOperator
>>>>>> // create costs recovered credit offset
>>>>>> If (nCosts) Begin
>>>>>> Increment iLine
>>>>>> Move 0 to nDebit
>>>>>> Move nCosts to nCredit
>>>>>> Move nDebit to tGLCreate.nDebit
>>>>>> Move nCredit to tGLCreate.nCredit
>>>>>> Move "CR" to tGLCreate.sSubsidiary
>>>>>> Move Casetype.Cor_acct to tGLCreate.sAccount
>>>>>> Move iLine to tGLCreate.iLine
>>>>>> //
>>>>>> Get CheckAccountStatus of oGLPostProcess
>>>>>> Casetype.Cor_acct iYear to iAccount
>>>>>> If (not(iAccount)) Begin
>>>>>> Move True to bError
>>>>>> Error 300 "Transaction aborted."
>>>>>> End
>>>>>> If (bError) Break
>>>>>> //
>>>>>> Get DoCreateLedger of oGLCreateProcess
>>>>>> tGLCreate to bError
>>>>>> If (bError) Break
>>>>>> //
>>>>>> Get DoLedgerPost of oGLPostProcess iYear iPeriod
>>>>>> iAccount dPost nDebit nCredit to bError
>>>>>> End // if (nCosts) begin
>>>>>> If (bError) Break
>>>>>> // create fees received credit offset
>>>>>> If (nFees + nTpfees) Begin
>>>>>> Increment iLine
>>>>>> Move 0 to nDebit
>>>>>> Move (nFees + nTpfees) to nCredit
>>>>>> Move nDebit to tGLCreate.nDebit
>>>>>> Move nCredit to tGLCreate.nCredit
>>>>>> Move "FR" to tGLCreate.sSubsidiary
>>>>>> Move Casetype.Rev_acct to tGLCreate.sAccount
>>>>>> Move iLine to tGLCreate.iLine
>>>>>> //
>>>>>> Get CheckAccountStatus of oGLPostProcess
>>>>>> Casetype.Rev_acct iYear to iAccount
>>>>>> If (not(iAccount)) Begin
>>>>>> Move True to bError
>>>>>> Error 300 "Transaction aborted."
>>>>>> End
>>>>>> If (bError) Break
>>>>>> //
>>>>>> Get DoCreateLedger of oGLCreateProcess
>>>>>> tGLCreate to bError
>>>>>> If (bError) Break
>>>>>> //
>>>>>> Get DoLedgerPost of oGLPostProcess iYear iPeriod
>>>>>> iAccount dPost nDebit nCredit to bError
>>>>>> End // if (nFees + nTpFees) begin
>>>>>> If (bError) Break
>>>>>> // deduct net charges
>>>>>> Move ((nFees + nTpfees) - (nCharges + nTpcharges)) to
>>>>>> nDeducted
>>>>>> If (nDeducted) Begin
>>>>>> // first a debit
>>>>>> Increment iLine
>>>>>> Move nDeducted to nDebit
>>>>>> Move 0 to nCredit
>>>>>> Move nDebit to tGLCreate.nDebit
>>>>>> Move nCredit to tGLCreate.nCredit
>>>>>> Move "PF" to tGLCreate.sSubsidiary
>>>>>> Move Glsys.Auth_fees_r to tGLCreate.sAccount
>>>>>> Move iLine to tGLCreate.iLine
>>>>>> //
>>>>>> Get CheckAccountStatus of oGLPostProcess
>>>>>> Glsys.Auth_fees_r iYear to iAccount
>>>>>> If (not(iAccount)) Begin
>>>>>> Move True to bError
>>>>>> Error 300 "Transaction aborted."
>>>>>> End
>>>>>> If (bError) Break
>>>>>> //
>>>>>> Get DoCreateLedger of oGLCreateProcess
>>>>>> tGLCreate to bError
>>>>>> If (bError) Break
>>>>>> //
>>>>>> Get DoLedgerPost of oGLPostProcess iYear iPeriod
>>>>>> iAccount dPost nDebit nCredit to bError
>>>>>> If (bError) Break
>>>>>> // then a credit
>>>>>> Increment iLine
>>>>>> Move 0 to nDebit
>>>>>> Move nDeducted to nCredit
>>>>>> Move nDebit to tGLCreate.nDebit
>>>>>> Move nCredit to tGLCreate.nCredit
>>>>>> Move "PF" to tGLCreate.sSubsidiary
>>>>>> Move Glsys.Auth_fees_a to tGLCreate.sAccount
>>>>>> Move iLine to tGLCreate.iLine
>>>>>> //
>>>>>> Get CheckAccountStatus of oGLPostProcess
>>>>>> Glsys.Auth_fees_a iYear to iAccount
>>>>>> If (not(iAccount)) Begin
>>>>>> Move True to bError
>>>>>> Error 300 "Transaction aborted."
>>>>>> End
>>>>>> If (bError) Break
>>>>>> //
>>>>>> Get DoCreateLedger of oGLCreateProcess
>>>>>> tGLCreate to bError
>>>>>> If (bError) Break
>>>>>> //
>>>>>> Get DoLedgerPost of oGLPostProcess iYear iPeriod
>>>>>> iAccount dPost nDebit nCredit to bError
>>>>>> End // if (nDeducted) begin
>>>>>> End // If (not(bError)) Begin
>>>>>>
>>>>>> End_Transaction
>>>>>> //
>>>>>> If (bError) Begin
>>>>>> Send Stop_Box "Posting Error"
>>>>>> Procedure_Return
>>>>>> End
>>>>>> //
>>>>>> If (Sysfile.Cash_rec_flag) Get CreateOpFundsReceiptCats of
>>>>>> CreateCatsProcess ;
>>>>>> iCase ;
>>>>>> sToFrom ;
>>>>>> nCosts ;
>>>>>> (nFees + nTpfees) ;
>>>>>> sOperator ;
>>>>>> sMemo ;
>>>>>> to iCats
>>>>>> //
>>>>>> Send Refind_Records of hoDD
>>>>>> end_procedure // Request_Save
>>>>>>

>
>