Fórum inclusão do registro trás -1 no campo do código com alto incremento do firebird #595817
30/07/2018
0
Bom dia a todos.
Tenho a seguinte situação:
Quando vou inserir um registro no Delphi meu campo dbedit do campo ID da tabela trás o valor -1 estou usando um generator e uma trriguer para o auto incremento, minha conexão e firedac, funciona perfeitamente, mas gostaria se alguém soubesse como faço pra aparecer no campo ID o valor do código criado pelo generator ou não trazer nenhum valor naquele campo. aqui está meu código do botão incluir
procedure TFrmPadrao.BtnIncluirClick(Sender: TObject);
begin
PgcPadrao.ActivePage:=TabShetFicha;
StaBarPadrao.Panels[2].Text:=''Incluir Novo Registro'';
PnlFicha.Enabled:=True;
Executar:=desabilitaBotoes;
with Dm.fdqryPadrao do
begin
Open;
Append;
FieldByName(''MARCA'').AsString :=''N'';
FieldByName(''STATUS'').AsString :=''N'';
FieldByName(''DATA_INC'').AsDateTime:=Date;
end;
dbedtID.Enabled:=False;
dbedtNOME.SetFocus;
end;
Tenho a seguinte situação:
Quando vou inserir um registro no Delphi meu campo dbedit do campo ID da tabela trás o valor -1 estou usando um generator e uma trriguer para o auto incremento, minha conexão e firedac, funciona perfeitamente, mas gostaria se alguém soubesse como faço pra aparecer no campo ID o valor do código criado pelo generator ou não trazer nenhum valor naquele campo. aqui está meu código do botão incluir
procedure TFrmPadrao.BtnIncluirClick(Sender: TObject);
begin
PgcPadrao.ActivePage:=TabShetFicha;
StaBarPadrao.Panels[2].Text:=''Incluir Novo Registro'';
PnlFicha.Enabled:=True;
Executar:=desabilitaBotoes;
with Dm.fdqryPadrao do
begin
Open;
Append;
FieldByName(''MARCA'').AsString :=''N'';
FieldByName(''STATUS'').AsString :=''N'';
FieldByName(''DATA_INC'').AsDateTime:=Date;
end;
dbedtID.Enabled:=False;
dbedtNOME.SetFocus;
end;
Gustavo Silva
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)