Erro de KEY primaria
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;
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
Curtidas 0