project BLF > class BNumber > method StoreNumber

Description

Store a sequence number for a draft instance to prevent housekeeping from releasing it.


Parameters


iiCompanyIDinputinteger
iiNumbrYearinputinteger
icNumbrTypeinputcharacter
iiNumbrinputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BBankEntry.ExitInstance
method BBill.ExitInstance
method BCCollection.ExitInstance
method BCDocument.ExitInstance
method BCInvoice.ExitInstance
method BDCollection.ExitInstance
method BDDocument.ExitInstance
method BDInvoice.ExitInstance
method BExpenseNote.ExitInstance
method BFixedAssetAsset.ExitInstance
method BPosting.ExitInstance
method BOpenItemAdjustment.ExitInstance
method BRevaluation.ExitInstance


program code (program1/bnumber.p)

assign vcWhere = "for each Numbr where Numbr.Company_ID = ":U + string(iiCompanyId)
               + " and Numbr.NumbrYear = ":U + string(iiNumbrYear)
               + " and Numbr.NumbrType = '":U + icNumbrType
               + "' and Numbr.Numbr = ":U + string(iiNumbr).

<M-1 run StartPersistence
   (output vhFcComponent (ohPersistence), 
    output oiReturnStatus (oiReturnStatus)) in BNumber>
if oiReturnStatus <> 0
then return.

/* Save date and time in UTC */
session:timezone = 0.

<M-3 run WriteDirect
   (input  'Numbr':U (icTableName), 
    input  vcWhere (icPrepare), 
    input  'NumbrStatus,LastModifiedDate,LastModifiedTime,LastModifiedUser':U (icFieldList), 
    input  'c,t,i,c':U (icFieldListDataTypes), 
    input  {&NUMBERSTATUS-DRAFT} + chr(2) + string(today) + chr(2) + string(time) + chr(2) + vcUserLogin (icAbsolute), 
    input  '' (icIncremental), 
    input  {&TARGETPROCEDURE} (ihClass), 
    input  vcUserLogin (icUserLogin), 
    output oiReturnStatus (oiReturnStatus)) in persistence>

session:timezone = viTimeOffset.