Socooooroo, o q tem de errado? Não está deixando salvar

12/05/2003

2

O q tem de errado aqui?

procedure TcadMatriculasF.BitBtn1Click(Sender: TObject);
var NrParcela:Integer;
begin
inherited;

NrParcela := prBase.fieldByName(´QT_PAGAMENTO´).asInteger;
tbParcelas.Active := False;
tbParcelas.Active := True;

while NrParcela > 0 do begin
tbParcelas.Insert;
tbParcelas.FieldByName(´NR_PARCELA´).asInteger := 1; tbParcelas.FieldByName(´BO_SITUACAO´).AsString := ´N´;
tbParcelas.FieldByName(´DT_VENCIMENTO´).AsDateTime := StrToDateTime(DBEditData1.Text) + 30;
tbParcelas.FieldByName(´VL_PARCELA´).AsCurrency := 10;
NrParcela := 0;
tbParcelas.Post;
end;

end;


Eu debuguei, e quando xega no -> TbParcelas.Post; ele dá este erro:

PROJECT TESTE.exe raised exception EDBEngineError with message ´ Master record missing. violation of FOREIGN KEU constraint ´R_11´ on table ´PARCELASPAGAR´

PORQ ACONTECE ISSO?


Responder

Posts

12/05/2003

Marcelo.c

A primeira vista, parece que você está tentando gravar dados da tabela Detalhe antes de gravar a tabela Master. Então o Registro detalhe não pode ser gravado por não possuir Registro Master Correspondente.

Antes de gerar as parcelas, dê um Post na tabela Master.


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar