Jump to content

device

Members
  • Content count

    11
  • Joined

  • Last visited

Community Reputation

0 Comum

About device

  • Birthday 07/31/1952

Informações Pessoais

  • Sexo
    Masculino
  • Localização
    São Carlos SP
  1. device

    Somar campos de uma tabela com critérios

    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
  2. device

    Somar campos de uma tabela com critérios

    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.
  3. device

    Somar campos de uma tabela com critérios

    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.
  4. device

    Somar campos de uma tabela com critérios

    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
  5. 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?
  6. device

    Senhas Firebir e Delphi7

    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
  7. device

    Problemas com IBQuery

    Olá pessoal. Estou usando o Delphi 7 , e o Firebird, com os componentes da Aba IB (Delphi banco de dados). Já usei em outras aplicações, sem problemas. Se começo uma aplicação nova, dá erro na linha Query1.Open, que a tabela não foi encontrada, mas ela está lá. Se ligo o DataSet direto no Grid e na tabela, aparece tudo, então a tabela existe. Se coloco uma Query e monto uma SQL, dá esse erro, 204 que não está encontrando a tabela. Pensei ser o Delphi e reinstalei em 2 máquinas.... mesmo erro ocorre. MAs o interessante é que se carrego uma aplicação já feita algum tempo, não dá ero nessa linha, (Query1.Open) Não sei para onde correr, porque verifiquei todas as propriedades da aplicação antiga e as propriedades da aplicação nova estão iguais. Outra coisa.... Sei fazer filtros com SQL, mostrando em um campo edit. Agora estou levando uma surra para para filtrar. Numa tabela Movimentosd, tenho vários pessoas com seus RGs. Um RG, pode ter mais que um registro repetido.. Ex. RG111.... arruelas RG222 porcas RG333 parafusos RG111 porcas. Quando preencher num Edit o RG111, o Grid deve filtrar e mostrar somente os componentes do RG. Aqui, seria De digitar o RG111, apareceria assim no Edit RG111 arruelas RG111 porcas... Se digitar o RG333 deve filtrar para o Grid RG333 parafusos... Podem ar uma ajuda como ersolvo o problema da SQL (estou ficando careca) e como montar a SQL para dar esse efeito? Agradeço a ajuda
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.