project QadFinancials > class BBill > method ExitInstance

Description

This method can be extended with code to execute when an instance of a business class is stopped.

Standard functionality in this method is
- Clean up instance data in the fcInstance table.
- Create or update a draft instance if applicable.

plus transaction handling
- Remove the instance from the transaction if it was added to a transaction in InitInstance.
- Abort the transaction if one was started from inside the business code.

PreCondition

This method is executed when :
- A business instance is stopped (release object + delete instance data)
(icDraftReference = "" + viCurrentDraftInstanceId = 0)
- A business instance is saved as a draft (release object + create draft)
(icDraftReference <> "")
- A draft instance is stopped (release object, delete copy of draft, release original draft)
(icDraftReference = "" + viCurrentDraftInstanceId <> 0)

This method is NOT run when a business instance is only closed (release object + keep instance data).


Parameters


icDraftReferenceinputcharacterDescription for the draft instance.
This parameter will have a value when creating a draft instance.
icDraftFormNameinputcharacterThis parameter will have a value when creating a draft instance.
ilDraftIsSharedinputlogicalThis parameter will have a value when creating a draft instance.
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program/bbill.p)

<ANCESTOR-CODE>

for each tBill where tBill.tc_Status = "N":U and 
         tBill.BillNumber <> 0 and
         tBill.BillNumber <> ? :
    assign vhFcComponent = ?.
    if icDraftReference = "":U
    then do:
        <M-35 run ReleaseNumber
           (input  tBill.Company_ID (iiCompanyId), 
            input  tBill.BillYear (iiNumbrYear), 
            input  'BILLING' (icNumbrType), 
            input  tBill.BillNumber (iiNumbr), 
            input  viFcCurrentInstanceId (iiInstanceId), 
            input  vcFcComponentName (icClassName), 
            output viFcReturnSuper (oiReturnStatus)) in BNumber>  
    end.
    else do:
         <M-37 run StoreNumber
            (input  tBill.Company_ID (iiCompanyID), 
             input  tBill.BillYear (iiNumbrYear), 
             input  'BILLING' (icNumbrType), 
             input  tBill.BillNumber (iiNumbr), 
             output viFcReturnSuper (oiReturnStatus)) in BNumber>
    end.
    if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0)
    then assign oiReturnStatus = viFcReturnSuper.
    if oiReturnStatus < 0
    then return.
End.