project BLF > class Database Component > method StoreState

Description

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


Parameters


icDescriptioninputcharacterDescription for the draft instance.
icUIClassinputcharacterShortname of the user interface class used to open the draft instance with.
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method database.MaintainByDatasetWithOutput

QadFinancials
method BAddressType.ApiStdMaintainTT
method BBankEntry.ApiStdMaintainTT
method BBankNumber.ApiStdMaintainTT
method BBLWICountry.ApiStdMaintainTT
method BBusinessRelation.ApiStdMaintainTT
method BCDocument.ApiStdMaintainTT
method BCInvoice.ApiStdMaintainTTV01
method BCompany.ApiStdMaintainTT
method BCostCentre.ApiStdMaintainTT
method BCountry.ApiStdMaintainTT
method BCreditor.ApiStdMaintainTTV01
method BCurrency.ApiStdMaintainTT
method BDDocument.ApiStdMaintainTT
method BDebtor.ApiStdMaintainTT
method BDebtorEndUser.ApiStdMaintainTT
method BDInvoice.ApiStdMaintainTT
method BDInvoice.StdMaintainTT
method BDivision.ApiStdMaintainTT
method BExchangeRate.ApiStdMaintainTT
method BFixedAssetAsset.ApiStdMaintainTT
method BGL.ApiStdMaintainTT
method BGLMask.ApiStdMaintainTT
method BJournal.ApiStdMaintainTT
method BPosting.ApiStdMaintainTT
method BPosting.StdMaintainTT
method BLayer.ApiStdMaintainTT
method BPaymentCondition.ApiStdMaintainTT
method BPeriod.ApiStdMaintainTT
method BProfile.ApiStdMaintainTT
method BProject.ApiStdMaintainTT
method BProjectGroup.ApiStdMaintainTT
method BProjectStatus.ApiStdMaintainTT
method BSaf.ApiStdMaintainTT
method BSafConcept.ApiStdMaintainTT
method BSafStructure.ApiStdMaintainTT
method BSafStructureLink.ApiStdMaintainTT
method BVAT.ApiStdMaintainTT
method BVATGroup.ApiStdMaintainTT
method BYearClosing.ApiStdMaintainTT


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>