project BLF > class Business Component > method SetPublicData

Description

Procedure for updating the value of public data items, except temp-tables and datasets.


Parameters


icDataListinputcharacterComma seperated list of public data item names to set (full name, including prefix).
Data items with extent and temp-tables are not supported.
icValueListinputcharacterchr(3) seperated list of the values to set.
Format of the values:
decimal = use decimal point, replace comma with a point
date = YYYYMMDD
logical = true / false
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method business.SetPublicData
method BScanDaemonPerfWorkItem.ApiProcessSingleScanDaemonQueue
method BXmlDaemonProcessor.LoadXmlDocument
method RPCRequestService.ProcessDS
method Transaction.InitInstance

QadFinancials
method BBankEntry.AdditionalUpdates
method BBankEntry.CreatePostingHeader
method BCDocument.AdditionalUpdatesPostingCrossCy
method BCDocumentReport.CDocumentReportCheque
method BCInvoice.AdditionalUpdatesAll
method BCInvoice.AdditionalUpdatesAllCreateSCRounding
method BCInvoiceJournalEntry.ApiStdMaintainTTV01
method BDInvoice.AdditionalUpdatesAll
method BDInvoiceJournalEntry.ApiStdMaintainTT
method BDInvoiceMultiCy.UpdateDeductionDetailCy
method BDInvoiceMultiCy.UpdateDeductionDetailCyV01
method BGLOpenItemProcessor.GLOpenItemInitialization
method BJournalEntryMultiCy.CreateMultiCyPostings
method BOpenItemAdjustment.OIAdjCommitSub
method BOpenItemAdjustment.OIAdjCreatePosting
method BQCrossCyPosting.ApiProcessQCrossCyPosting
method BQCrossCyPosting.ApiProcessQCrossCyPostingForReverse


program code (program1/business.p)

<I-1 {bFcRun
     &PARAMETERS           = "input icDataList, input icValueList, output oiReturnStatus"
     &PROCEDURE            = "gipr_SetPublicData"}>

if can-do(icDataList, "vcActivityCode")
then do:
    if  viTransactionID   <> 0 and
        vcFcComponentName <> "transaction"
    then do:
        <I-2 {bFcOpenInstance
             &CLASS           = "Transaction"}>

        <M-3 run SetPublicData
           (input  'vcActivityCode' (icDataList), 
            input  (if vcactivityCode = '' then '' else 'MENU|' + vcfccomponentName + '|' + vcactivityCode) (icValueList), 
            output viFcReturnSuper (oiReturnStatus)) in Transaction>

        <I-4 {bFcCloseInstance
             &CLASS           = "Transaction"}>
    end.
end.

if can-do(icDataList, "vcCustomComponent") and
   vcFcComponentName = "BCustom"
then assign vcFcComponentName = vcFcComponentName + "[" + entry(lookup("vcCustomComponent", icDataList), icValueList, chr(3)) + "]".