Fórum VERIFICAÇÃO DE DUPLICIDADE DE CODIGO #371575

ESTOU FAZENDO UM CADASTRO DE ESTOQUE .DEPOIS DE CADASTRAR UM PRODUTO, CODIGO 1, ETC... E GRAVO.QUANDO VOU CADASTRAR UM NOVO PRODUTO COM UM OUTRO CODIGO, A MENSAGEM DE PRODUTO JA EXISTENTE APARECE.COMO POSSO RESOLVER ISSO.OBRIGADO.

procedure TFrmCadEst.BitBtn1Click(Sender: TObject);
begin
DmDados.TbEstoque.IndexName := ´id_codprod´;
if MessageDlg(´Confirma Cadastro do Produto´,mtConfirmation,[mbYES,mbNO],0)=idYES then
begin
if DmDados.TbEstoque.Locate(´CODPROD´, DBEdit1.Text, []) then
Begin
MessageDlg(´Produto já cadastrado´,mtInformation,[mbOK],0);
DBEdit1.SetFocus ;
end
else
if (DBEdit3.Text=´´) or (DBEdit4.Text=´´) or (DBEdit8.Text=´´) then
Begin
ShowMessage(´Não é Possivel Fazer o Cadastro´+Chr(13)+´Peencha os Campos Corretamente para depois poder Cadastrá - los´);
DBEdit1.SetFocus ;
end
else
begin
DmDados.TbTrib.Edit;
DmDados.TbClas.Edit;
DmDados.TbFabric.Edit;
DmDados.TbEstoque.Insert;
DmDados.TbEstoque.FieldByName (´CODPROD´).AsString := DBEdit1.Text;
DmDados.TbEstoque.FieldByName (´NOMPROD´).AsString := DBEdit2.Text;
DmDados.TbEstoque.FieldByName (´UNIDADE´).AsString := DBEdit3.Text;
DmDados.TbEstoque.FieldByName (´QUANTIDADE´).AsString := DBEdit4.Text;
DmDados.TbEstoque.FieldByName (´CUSTO´).AsString := DBEdit15.Text;
DmDados.TbEstoque.FieldByName (´LUCRO´).AsString := DBEdit16.Text;
DmDados.TbEstoque.FieldByName (´VENDA´).AsFloat := StrToFloat(DBEdit17.Text);

DmDados.TbEstoque.FieldByName (´CODCLAS´).AsString := DmDados.TbClas.FieldByName(´CODCLAS´).AsString;
DmDados.TbEstoque.FieldByName (´CLASSIF´).AsString := DmDados.TbClas.FieldByName(´NOMECLAS´).AsString;
DmDados.TbEstoque.FieldByName (´CODFAB´).AsString := DmDados.TbFabric.FieldByName(´CODFAB´).AsString;
DmDados.TbEstoque.FieldByName (´NOMFAB´).AsString := DmDados.TbFabric.FieldByName(´NOMFAB´).AsString;
DmDados.TbEstoque.FieldByName (´ENDFAB´).AsString := DmDados.TbFabric.FieldByName(´ENDFAB´).AsString;
DmDados.TbEstoque.FieldByName (´CIDFAB´).AsString := DmDados.TbFabric.FieldByName(´CIDFAB´).AsString;
DmDados.TbEstoque.FieldByName (´UFFAB´).AsString := DmDados.TbFabric.FieldByName(´UF´).AsString;
DmDados.TbEstoque.FieldByName (´CGCFAB´).AsString := DmDados.TbFabric.FieldByName(´CGCFAB´).AsString;
DmDados.TbEstoque.FieldByName (´BAIFAB´).AsString := DmDados.TbFabric.FieldByName(´BAIFAB´).AsString;
DmDados.TbEstoque.FieldByName (´EMAILFAB´).AsString := DmDados.TbFabric.FieldByName(´EMAILFAB´).AsString;
DmDados.TbEstoque.FieldByName (´CODTRIB´).AsString := DmDados.TbTrib.FieldByName(´CODTRIB´).AsString;
DmDados.TbEstoque.FieldByName (´TRIBUTA´).AsString := DmDados.TbTrib.FieldByName(´TRIBUTA´).AsString;
DmDados.TbEstoque.FieldByName (´VALORTRIB´).AsString := DmDados.TbTrib.FieldByName(´VALORTRIB´).AsString;
DmDados.TbEstoque.Post;
DmDados.TbTrib.Post;
DmDados.TbFabric.Post;
DmDados.TbClas.Post;
end;
end;