Append + Post não grava em banco

23/11/2020

6

Estou com o seguinte problema, ao deburrar meu code, ele passa pelo append e pelo post, porem não grava em banco, mas o code sequencial continua a se implementar, já troquei o post pelo insert, mas deu na mesma, não faço ideia do que possa ser
Utilizo o banco SQLite
Se alguem poder me auxiliar fico grato
Responder

Post mais votado

23/11/2020

posta seu código ai para o povo analisar...
Responder

Mais Posts

23/11/2020

Ramboli

posta seu código ai para o povo analisar...


essa parte faço o Append
procedure TfEndEntrega.CarregaDados;
var
xSeqEnt : Integer;
begin

xSeqEnt := StrToIntDef(eSeqEnt.Text,0);
QryE085ENT.Close;
QryE085ENT.SQL.Text := ''SELECT * FROM E085ENT WHERE REPREG = :REPREG AND SITREG IN (''''A'''',''''I'''') AND CODCLI = :CODCLI AND SEQENT = :SEQENT AND SEQEXP = 0'';
QryE085ENT.ParamByName(''REPREG'').AsLargeInt := dm.E999CFG.FindField(''CODREP'').AsLargeInt;
QryE085ENT.FindParam(''CODCLI'').AsLargeInt := FCodCli;
QryE085ENT.FindParam(''SEQENT'').Value := xSeqEnt;
QryE085ENT.Open;

if (QryE085ENT.RecordCount = 0) then
begin
eSeqEnt.Text := IntToStr(xSeqEnt);
QryE085ENT.Post;
QryE085ENT.FindField(''codcli'').AsLargeInt := FCodCli;
QryE085ENT.FindField(''SEQENT'').AsInteger := GetMaxCod(''E085ENT'',''SEQENT'',''REPREG =''+IntToStr(dm.E999CFG.FindField(''CODREP'').AsLargeInt)+'' AND CODCLI = '' +eCodCli.Value.ToString);
end
else
begin
QryE085ENT.Edit;
end;
btnSalvar.Enabled := True;
btnCancelar.Enabled := True;
eSeqEnt.Enabled:=false;

if (QryE085ENT.RecordCount > 0) then
btnExcluir.Enabled := True;

end;

esse é o evento do botão

procedure TfEndEntrega.btnSalvarClick(Sender: TObject);
begin
try
QryE085ENT.Post;
StatusCampos(true);
StatusChave(true);
ClearCampos;

eSeqEnt.Enabled:=true;
eSeqEnt.SetFocus;

if (QryE085ENT.RecordCount > 0) then
btnExcluir.Enabled := True;
eSeqEnt.SetFocus;
except
on e : Exception do
Application.ShowException(e);

end;
end;



Responder

23/11/2020

Ramboli

Opa, consegui resolver aqui, se algum moderador poder encerrar o topico fico grato
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