project QadFinancials > class BBusinessRelation > method GetAutoNumber

Description

This method will retrieve an automatic number for the Business Relation (if an active autonumber record was created for BusinessRelation)


Parameters


icRowidinputcharacter
ocBusinessRelationCodeoutputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BBusinessRelation.ValidateComponentPre


program code (program6/bbusinessrelation.p)

/* ===================================================================================== */
/* This method will retrieve an automatic number for the Business Relation               */
/* (if an active autonumber record was created for BusinessRelation)                     */
/* ===================================================================================== */
assign oiReturnStatus      = -98
       viLocalReturnStatus = 0.

find tBusinessRelation where
     tBusinessRelation.tc_Rowid  = icRowid and
     tBusinessRelation.tc_Status = 'N':U
     no-error.
if not available tBusinessRelation
then do:
    assign vcMessage      = trim(#T-3'The system cannot find a business relation record with status N for this row ID.':100(63993)t-3#) + chr(10) +
                            trim(substitute(#T-4'Row IDs: &1.':200(20468)T-4#, trim(icRowid)))
           oiReturnStatus = -3.
    <M-1 run SetMessage
       (input  vcMessage (icMessage), 
        input  '':U (icArguments), 
        input  '':U (icFieldName), 
        input  '':U (icFieldValue), 
        input  'E':U (icType), 
        input  3 (iiSeverity), 
        input  icRowid (icRowid), 
        input  'QadFin-6630':U (icFcMsgNumber), 
        input  '':U (icFcExplanation), 
        input  '':U (icFcIdentification), 
        input  '':U (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BBusinessRelation>
    return.
end. /* if not available tBusinessRelation */

assign vhFcComponent = ?.
<M-2 run GetAutoNumber
   (input  0 (iiDomainID), 
    input  '':U (icDomainCode), 
    input  0 (iiSharedSetID), 
    input  '':U (icSharedSetCode), 
    input  {&AUTONUMBERTYPE-BUSINESSRELATION} (icAutoNumberType), 
    output ocBusinessRelationCode (ocAutoNumberNextNumber), 
    output viFcReturnSuper (oiReturnStatus)) in BAutoNumber>
if viFcReturnSuper <> 0
then do:
    assign viLocalReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0
    then do:
        assign oiReturnStatus = viLocalReturnStatus.
        return.
    end. /* if viFcReturnSuper < 0 */
end. /* if viFcReturnSuper <> 0 */

assign oiReturnStatus = viLocalReturnStatus.