method StoreState

Description

Store current instance as a draft instance in the application database (fcDraftInstance table)

Parameters

icDescription	input	character	Description for the draft instance.
icUIClass	input	character	Shortname of the user interface class used to open the draft instance with.
oiReturnStatus	output	integer	Return status of the method.

Internal usage

BLF

method database.MaintainByDatasetWithOutput

QadFinancials

program code (program/database.p)

/* ================================================================= */
/* Check if drafts are available for this component.                 */
/* ================================================================= */
if vlDraftsActive
then do:
    <Q-3 assign vlFcQueryRecordsAvailable = BusActivityPrim (NoCache)
       (input 0, (BusActivityID)
        input 'BrowseDrafts':U, (BusActivityCode)
        input vcFcComponentName, (BusComponentCode)) in BBusinessComponent >
    if vlFcQueryRecordsAvailable = no
    then do:
        <M-2 run SetMessage
           (input  #T-1'This component is not enabled for drafts.':255(8896)T-1# (icMessage), 
            input  '' (icArguments), 
            input  '' (icFieldName), 
            input  '' (icFieldValue), 
            input  'E':U (icType), 
            input  3 (iiSeverity), 
            input  '' (icRowid), 
            input  'BLF-317':U (icFcMsgNumber), 
            input  '' (icFcExplanation), 
            input  '' (icFcIdentification), 
            input  '' (icFcContext), 
            output viFcReturnSuper (oiReturnStatus)) in database>
        assign oiReturnStatus = -1.
        return.
    end.
end.

/* ================================================================= */
/* Check if drafts are available.                                    */
/* ================================================================= */
if vlDraftsActive = no
then do:
    <M-4 run SetMessage
       (input  #T-2'No drafts can be created : system setting Draft Instances is not enabled.':255(8906)T-2# (icMessage), 
        input  '' (icArguments), 
        input  '' (icFieldName), 
        input  '' (icFieldValue), 
        input  'E':U (icType), 
        input  3 (iiSeverity), 
        input  '' (icRowid), 
        input  'BLF-212':U (icFcMsgNumber), 
        input  '' (icFcExplanation), 
        input  '' (icFcIdentification), 
        input  '' (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in database>
    assign oiReturnStatus = -3.
    return.
end.

<ANCESTOR-CODE>