project BLF > class Database Component > method GetOriginalRowid

function returns character


Parameters


icNewRowidinputcharacter


Internal usage


BLF
method database.SetMessage
method persistence.ErrorMessage


program code (program1/database.p)

find first tFcRowidConvert
    where tFcRowidConvert.tcFcNewRowid = icNewRowid no-error.

if available tFcRowidConvert then
    return tFcRowidConvert.tcFcOldRowid.
else
    return icNewRowid.