erro na hora de gravar

[Wilke1 0]

ola pessoal eo seguinte utilizando esse codigo pra confirmar a gravação , mas ele dar o error 02291 no oracle. ele dar erro na linha Qrypromotorfornec.ApplyUpdates;voces tem alguma ideia , ou um exemplo de como eu posso fazer.

 

IF (QRYHORARIOPROMOTOR.STATE = DSINSERT) THEN BEGIN Qryhorariopromotor.FieldByName('CD_PROMOTOR').AsInteger:= Qrypromotores.FieldByName('CD_PROMOTOR').AsInteger; QryPromotorFORNEC.FieldByName('CD_PROMOTOR').AsInteger:= Qryhorariopromotor.FieldByName('CD_PROMOTOR').AsInteger; Qrypromotorfornec.FieldByName('cd_fornecedor').AsInteger:=Qrydivisao.FieldByName('CD_FORNECEDOR').AsInteger; Qrypromotorfornec.FieldByName('cd_DIVISAO').AsInteger:=Qrydivisao.FieldByName('CD_DIVISAO').AsInteger; end; fmprincipal.database1.startTransaction; try Qrypromotores.ApplyUpdates; Qrypromotores.CommitUpdates; Qryhorariopromotor.ApplyUpdates; Qryhorariopromotor.CommitUpdates; Qrypromotorfornec.ApplyUpdates; Qrypromotorfornec.CommitUpdates; Fmprincipal.Database1.commit; except FMPrincipal.Database1.Rollback; RAISE; end;

[Wilke1 0]

ola pessoal eo seguinte utilizando esse codigo pra confirmar a gravação , mas ele dar o error 02291 no oracle. ele dar erro na linha Qrypromotorfornec.ApplyUpdates;voces tem alguma ideia , ou um exemplo de como eu posso fazer.

 

IF (QRYHORARIOPROMOTOR.STATE = DSINSERT) THEN BEGIN Qryhorariopromotor.FieldByName('CD_PROMOTOR').AsInteger:= Qrypromotores.FieldByName('CD_PROMOTOR').AsInteger; QryPromotorFORNEC.FieldByName('CD_PROMOTOR').AsInteger:= Qryhorariopromotor.FieldByName('CD_PROMOTOR').AsInteger; Qrypromotorfornec.FieldByName('cd_fornecedor').AsInteger:=Qrydivisao.FieldByName('CD_FORNECEDOR').AsInteger; Qrypromotorfornec.FieldByName('cd_DIVISAO').AsInteger:=Qrydivisao.FieldByName('CD_DIVISAO').AsInteger; end; fmprincipal.database1.startTransaction; try Qrypromotores.ApplyUpdates; Qrypromotores.CommitUpdates; Qryhorariopromotor.ApplyUpdates; Qryhorariopromotor.CommitUpdates; Qrypromotorfornec.ApplyUpdates; Qrypromotorfornec.CommitUpdates; Fmprincipal.Database1.commit; except FMPrincipal.Database1.Rollback; RAISE; end;

RESOLVIDOera que Qrypromotorfornec, não estava recebendo o valor da tabela paivaleu pessoal