Fórum Busca na Tabela #376810

Utilize o Locate do ClientDataSet para procurar pelo registro "Hamburger", caso o Locate lhe retornar True, você edita o arquivo, caso contrário inclui.

Espero ter colaborado.

ajudo bastante vlw msm

Post a solução para os colegas de fórum terem a possibilidade de aprenderem também.

VAR VLUNIT,QTDN,MULT:DOUBLE; C:STRING; BEGIN              IF DATAMODULE1.Tablevenda.RecordCount>0 THEN
                BEGIN
                    C:=DBEDIT6.Text;//CODIGO PRODUTO
                    DATAMODULE1.Tablevenda.Cancel;
                    datamodule1.Tablevenda.Locate('CODPRODUTO',C, [loCaseInsensitive, loPartialKey]);
                    IF DATAMODULE1.TablevendaCODPRODUTO.AsString=C THEN
                       BEGIN
                           VLUNIT:=0.00;
                           QTDN:=0.00;
                           MULT:=0.00;
                           VLUNIT:=STRTOFLOAT(DATAMODULE1.TablevendaQUANT.AsString); //QUANT. PARA EDITAR
                           DATAMODULE1.Tablevenda.Edit;
                           datamodule1.tablevendaquant.value := 1;
                       END
                           DATAMODULE1.Tablevenda.Append;
                           DBEDIT6.Text:=C;
                       END;               END; END;     PRONTO!!! QUALQUER DÚVIDA ESTAMOS AÍ ...... UM ABRAÇO