project BLF > class BNumber > method StoreNumber
Description
Store a sequence number for a draft instance to prevent housekeeping from releasing it.
Parameters
iiCompanyID | input | integer | |
iiNumbrYear | input | integer | |
icNumbrType | input | character | |
iiNumbr | input | integer | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.