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

12/05/2003

1

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