Botão gravar dando erro em tudo

30/08/2021

0

Tenho que gravar dados e sempre da esse erro


An error occurred while applying the updates in a record: TIBConnection : Execute :
-violation of PRIMARY or UNIQUE KEY constraint "PK_UF_ICMS" on table "UF_ICMS"
-Problematic key value is ("UF" = ''', "COD_EMP" = 1).


esse é o código

qryTributacaoRegra.Open;
qryTributacaoRegra.UpdateRecord;
qryTributacaoRegra.Edit;
qryDadosTributacao.Open;
qryDadosTributacao.UpdateRecord;
qryDadosTributacao.Edit;
if qryTributacaoRegraUF_SEQ.AsInteger <= 0 then
begin
DM.qryGerador.Close;
DM.qryGerador.SQL.Text:= ''''''''SELECT gen_id (GEN_UF_SEQ, 1) as gerador FROM RDB$DATABASE'''''''';
DM.qryGerador.Open;
qryTributacaoRegra.Edit;
qryTributacaoRegraUF_SEQ.AsInteger:= DM.qryGerador.FieldByName(''''''''GERADOR'''''''').AsInteger;
end;

cod:= dbeFilial.Text;
aql:= dbeAliquotaICMS.Text;

qryTributacaoRegra.Insert;
qryDadosTributacao.Insert;
qryDadosTributacaoCOD_EMP.AsInteger := StrToInt(cod);
qryDadosTributacaoALIQ_ICMS.AsInteger := StrToInt(aql);
qryDadosTributacaoUF.AsString:= dbeUF.Text;
qryTributacaoRegraUF.AsString := dbeUF.Text;
//qryDadosTributacao.Post;
qryDadosTributacao.Next;

try
if (qryDadosTributacao.State in dsEditModes) then
qryDadosTributacao.Post;
qryDadosTributacao.ApplyUpdates(0);
qryDadosTributacao.SQLTransaction.CommitRetaining;

if (qryTributacaoRegra.State in dsEditModes) then
qryTributacaoRegra.Post;
qryTributacaoRegra.ApplyUpdates(0);
qryTributacaoRegra.SQLTransaction.CommitRetaining;

ShowMessage(''''''''Gravdo com sucesso!'''''''');
finally
ControlarBotoes(False);
end;
Luiz

Luiz

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar