Socooooroo, o q tem de errado? Não está deixando salvar
12/05/2003
0
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?
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?
Thoor Cobain
Curtir tópico
+ 0
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.
Antes de gerar as parcelas, dê um Post na tabela Master.
Responder
Clique aqui para fazer login e interagir na Comunidade :)