project BLF > class Persistence (Progress) > method GetNextDecimalValue

function returns decimal

Description

Alternative for method GetNextValue for sequences that return a decimal value.


Parameters


icsequenceinputcharacter


Internal usage


BLF
method Progress.WriteCopy

QadFinancials
method MfgDatabaseComponent.GetNextOidValue


program code (program1/progress.p)

if can-do ({&TARGETPROCEDURE}:internal-entries,"Next":U + icsequence)
then do:
    run value ("Next":U + icsequence) in {&TARGETPROCEDURE}
       (output vdValue).
    return vdValue.
end.
else return ?.