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
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>