Socooooroo, o q tem de errado? Não está deixando salvar
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
Curtidas 0
Respostas
Marcelo.c
12/05/2003
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.
GOSTEI 0