Me sale una pantalla de error, en la que me indica: error 606 referencia no existe. Lo único que quiero es insertar un registro

Holla,

Uno de los campos del registro tu está intentando insertar en la tabla refiere a otra tabla y el valor del campo no está en esta otra tabla. Por ejemplo: Si quieres insertar una orden de venta para un cliente, este cliente debe existir en la tabla del cliente.

Yo lo he comprobado y los datos sí que están en la otra tabla.

function read.main.table()
{
long count

db.retry.point()

select tfgld022.*
from tfgld022
where tfgld022._index1 inrange {:leac.f}
and {:leac.t}
order by tfgld022._index1
selectdo
select tfgld008.*
from tfgld008 |for update
where tfgld008.leac = :tfgld022.leac
selectdo
tfgld008.leac = tfgld022.leac1
tfgld008.desc = tfgld022.desc1
tfgld008.plac = tfgld022.plac
tfgld008.subl = tfgld008.subl
tfgld008.atyp = tfgld008.atyp
tfgld008.skey = tfgld008.skey
tfgld008.dim1 = tfgld008.dim1
tfgld008.dim2 = tfgld008.dim2
tfgld008.dim3 = tfgld008.dim3
tfgld008.dim4 = tfgld008.dim4
tfgld008.dim5 = tfgld008.dim5
tfgld008.ifas = tfgld008.ifas
tfgld008.iprj = tfgld008.iprj
tfgld008.loco = tfgld008.loco
tfgld008.icom = tfgld008.icom
tfgld008.pseq = tfgld008.pseq
tfgld008.icur = tfgld008.icur
tfgld008.uni1 = tfgld008.uni1
tfgld008.uni2 = tfgld008.uni2
tfgld008.bloc = tfgld008.bloc
tfgld008.bfdt = tfgld008.bfdt
tfgld008.budt = tfgld008.budt
tfgld008.nocu = tfgld008.nocu
tfgld008.nosu = tfgld008.nosu
tfgld008.cvat = tfgld008.cvat
tfgld008.perc = tfgld008.perc
tfgld008.dbcr = tfgld008.dbcr
tfgld008.lela = tfgld008.lela
db.insert(ttfgld008, db.retry)
commit.transaction()
endselect
endselect
}

Este es el trozo de código, lo único que quiero hacer es insertar un registro nuevo en la tfgld008 desde la tfgld022

Hola,

Si el tfgld022.plac no es vacío, después debe también existir en tfgld008.