Erro de KEY primaria

Lazarus

30/08/2021

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

Curtidas 0
POSTAR