validation procedure
Parameters
icJournalCode | input | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program6/bmasslayertransfer.p)
/* ================== */
/* Exception handling */
/* ================== */
assign oiReturnStatus = -98
viLocalReturnStatus = 0.
assign vhFcComponent = ?.
<M-46 run CheckJournalRole
(input viUsrId (iiUserID),
input ? (icUserCode),
input ? (iiJournalID),
input icJournalCode (icJournalCode),
input viCompanyId (iiCompanyID),
input ? (icCompanyCode),
input viSessionID (iiSessionID),
output vcMessage (ocErrorMessage),
output vlJournalAccessAllowed (olJournalAccessAllowed),
output viFcReturnSuper (oiReturnStatus)) in TJournalRole>
if viFcReturnSuper <> 0
then assign viLocalReturnStatus = viFcReturnSuper.
run gipr_DeleteProcedure in vhFcComponent.
delete procedure vhFcComponent.
if viLocalReturnStatus <> 0
then do:
<M-77 run SetMessage
(input vcMessage (icMessage),
input '':U (icArguments),
input 'JournalCode':U (icFieldName),
input icJournalCode (icFieldValue),
input 'E':U (icType),
input 1 (iiSeverity),
input '':U (icRowid),
input 'QadFin-816790':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BMassLayerTransfer>
end.
if vlJournalAccessAllowed <> true
then do:
assign vcMessage = #T-34'You are not authorized to use daybook &1':100(783126376)T-34#
vcMessage = substitute(vcMessage, icJournalCode).
<M-72 run SetMessage
(input vcMessage (icMessage),
input '':U (icArguments),
input 'JournalCode':U (icFieldName),
input icJournalCode (icFieldValue),
input 'E':U (icType),
input 1 (iiSeverity),
input '':U (icRowid),
input 'QadFin-348408':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BMassLayerTransfer>
assign viLocalReturnStatus = -1.
end.
/* ================== */
/* Return */
/* ================== */
assign oiReturnStatus = viLocalReturnStatus.