device

Obrigado Felipe... Foi esclarecedor....É verdade... sou novato mesmo. Eu tinha tentato isso abaixo. Deveria funcionar, mas não está indo para o proximo registro.. veja abaixo. Vou seguir seu exemplo, mas so queria entender onde está o erro na procedure abaixo. Veja procedure somar; //Click Botãobeginvsomavalor:=0; //Zerar VarTableEntradas.Open; // Abrir TabelaTableEntradas.First //ir para o primeiro registrowhile not(TableEntradas.Eof)do //Enquanto não chegar o fim da tabela. fazer...beginif (TableEntradas.locate('MES;ANO;ITEM',VararrayOf([EditMes.Text, EditAno.Text, EditItem.Text]),[]))then //MES, ANO, ITEM, ex:mes 01, ano:2019, Item: Mercado //Na tabela há MES, ANO, ITEM e VALOR.... beginvvalor:=strtofloat(TableEntradas.FiedldByname('VALOR').Asstring; //Se achar o registro, coloca o valor em vValorvsomaValor:=vsomaValor+Vvalor; Vai somando todos os regiostros do MES e ANO (ex 01/2019) com ITEM "Mercado" e pega o campo VALOR desse registroTableEntradas.Next; //......Não está indo para o registro seguinte pra ver se acha o mesmo Item e soma-los

Olá Mota....Ainda tomando uma surra. Coisas simples, até sai Mas essa somatória por critérios está matando. Veja abaixo Tenho uma tabela no Firebird (chars) com os itens: mes, ano, item, valor Através de campos edit, coloco o mes, ano e item (farmácia, mercado,por exemplo) e ele apresenta a soma do mes ano do item informado. Uso Delphi7 e Firebird. Filtro com varios ítens já busquei em todos os cantos e não encontrei nada parecido. Em montei um Locate com vários campos (arrays) para ler o banco do começo ao fim Assim. Vai pro começo da tabela e roda esse locate dentro de um While. Encontra o campo que prenche os requisitos dos edits e pega o valor e coloca em uma var (strtofloat) Vai pro proximo registro e le. Se encontrar todos os requisitos, soma a essa var, senão vai pro proximo. (next) Mas não roda... fica pulando do while para o locate e não finaliza a rotina. Deveria ir até o fim essa procedure,mas não sei o que está errado.

Ola Mota... Eu sou novato nisso. Alguns comandos soam estranhos para mim e gostaria de entende-los melhor. NA Tabela vou ter meses de janeiro a dezembro em MES, Em ANO vou ter ANOS de 2019, 2020, 2021, etc No campo Item vou ter PrestCasa, Iptu, Alimento, Agua, Gas, Farmácia, etc Se eu crial duas SQLs, uma filtra todos os campos que obedeças aos critérios acima, tudo no MES e ANO de Farmácia, por exemplo A outra converte e soma os valores de cada item e o total de cada mes, dentro de determinado ano. Minha cabeça está dado um nó. Fiz no Excel, mas fica muito ruim de organizar.

Olá Mota, Te agradeço muito as dicas. Os campos no BDE estão em formato string. Para somar, deveriam estar em float. Ai essa rotina ficaria bem diferente não? Segundo o exemplo abaixo, a minha deveria ficar assim (acho) SELECT Tipo, Fabricante, SUM(Quantidade) AS 'Quantidade em Estoque' FROM Produtos GROUP BY Tipo, Fabricante *************************************************************************** Select Mes, Ano, Item, sum(valor)as 'aqui não sei o que colocaria' From Nome do Banco Group By Tipo,Item

Olá pessoal. Bom dia... Preciso somar campos de uma tabela, mas de acordo com critérios que estão na base de dados Lá tenho lançado valores como segue. MES - ANO - ITEM - VALOR O campo mes vai de Janeiro a dezembro, setados em Combobox O campo ANO, ITEM selecionados tb em ComboBox e Valor preenchido em campo Edit Agora é o problema. Preciso filtrar a soma de acordo com o MES, ANO e ITEM e somar seus valores que estão nos campos Edit Por exemplo. Somar todos os Valores, de acordo com o MES, ANO e ITEM (farmácia ou mercado) por exemplo e colocar em uma var. O Combobox ITEM, assim como mes de 30 dias e Ano de 2019 à 20xx, tem itens, como Farmacia, mercado, medico, dentista, exames, etc Alguma santa alma poderia dar uma ajuda?

Fiz varias aplicações no win XP + Delphi7+Firebird+IBExpress. Agora, com micro de 64 bits, tive que colocar tudo em máquina virtual por problemas de compatibilidade. Ok... Faço o banco de dados com senha SYSDBA e password: masterkey (default) No Delphi 7, componentes IBdatabase e IBtransation, nos campos Param/strings coloco o user_name e password, como sempre fiz. e sempre funcionou PROBLEMA. Se vou carregar a aplkicação, fica pedindo senha Se vou compilar (F9) pede a senha de novo Como resolvo isso??? Não sei o que está ocorrendo aqui Agradeço a ajuda