Botão gravar dando erro em tudo

30/08/2021

4

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;
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