valSistemasDelphi

Membros
  • Content Count

    221
  • Joined

  • Last visited

Community Reputation

0 Neutro

2 Followers

About valSistemasDelphi

Recent Profile Visitors

1025 profile views
  1. Galera espero que vocês me ajudem!!!! Estou em 5 grupos aqui de Delphi No TeleGram e Whatsapp, mais parece que o pessoal nunca fez esse procedimento no FASTREPORT!!!Deixa Explicar melhor meu problema!Tenho um relatório de, Entradas e Saídas!No Relatório De Movimentação preciso que Apareça os Valores..... Exemplo:*Total Saídas = 500,00*Total Entradas = 1000*Total Saldo = R$500,00Só que está assim!!!!TIPO VALOREntrada 500,00Saída 50,00Entrada 20,00Saída 10,00Entrada 20,00Como eu faço uma função para ele pegar Aquele valor Especifico Do CAMPO correspondente a Entrada?Como eu faço uma função para ele pegar Aquele valor Especifico Do CAMPO Saída?Que seria pelo Campo!!! Acho que deve ser a "SUM" mais não tenho idéia como fazer!!Caso alguém pergunte, eu Uso Banco de Dados "Firebird"!Uso componentes da paleta "INTERBASE"!!Espero ter sido claro!!!!
  2. Galera e o seguinte! Tenho uma tela de relatório! Lança e aparece todos os produtos e valores, Mais não estou conseguindo Fazer A Soma Total dos valores. Exemplo. Tipo Valores Entrada R$200,00 Saida R$200,00 Entrda R$200,00 Total = Aparece tudo assim.... "200,00200.001" To usando a função "SUM", mais não dá certo a soma.. [SUM(<frxDBDataset1."VALOR">,MasterData1)] Estes valores estão no Banco de Dados Como "String" VarChar!!! Uso Fireribe.... Componentes da Paleta... InterBase!!
  3. tem um metódo para num form com o Grid esse mesmo grid filtrar Dados dessas duas Tabelas? Esse Exemplo
  4. não ficou muito claro! jhonas. No caso vou fazer uma seleção dos dados através das Datas?
  5. Bem amigos vou Explicar! Tenho no sistema um Form para lançar Entradas de dinheiro e o outro para saídas de dinheiro! e tenho um form que e o de Movimentação, neste aqui tenho 2 DatetimerPicker, e um DbGrid que vai receber as informações Das Saidas e Entradas! quero que por meio desses dois datetimerpicker eu faça o filtro de Das Informações! Essa ideia nunca fiz, somente vi num vídeo aqui na internet e achei interessante implementar no meu sistema!
  6. Como instalar o Fast Report No Delphi Rio 10.3, não estou conseguindo !! Alguém me ajuda?
  7. Jhonas esta versão da para ser instalado no Delphi 10.3 Rio!! Por motivos de haver muitos bugs na versão tokio .. Estou utilizando agora a versao Rio 10.3
  8. Instalei recentemente o Delphi Tokio 10.2, mais não veio com componentes para relatório. não encontro link para download desses componentes! alguém me ajuda ai?
  9. A parte de somar consegui resolver... To Desenvolvendo um sistema para Restaurante! Controle De Mesas, a pessoa escreve qual mesa ela quer Fechar o pedido > O código e um filtro onde só vai aparecer a Mesa que ela Escolheu, Os valores somados aparecem em um Edit! Conclusão Quero que quando a pessoa fazer o Filtro No BD! Apareça no Edit Somente os Valores que ela Filtrou no Banco! Tem como solucionar isso! procedure TForm13.FormShow(Sender: TObject); var somar:Currency; begin Label3.Caption:= inttostr(Form13.IBTable1.RecordCount); Inherited; Somar:=0; With Ibtable1 do begin Ibtable1.DisableControls; Ibtable1.First; while not Ibtable1.eof do begin Somar:=(Somar + Ibtable1.FieldByName('Valor').AsCurrency); Ibtable1.Next; end; Ibtable1.EnableControls; Edit2.Text:=FormatFloat('#,#R$#0.00' ,Somar); Código que estou usando e está somando tudo e esse!!!!
  10. if Form9.Ibtable1.Locate('Produto',Form3.DbLookupcomboBox2.Text,[LopartialKey])then //if DbLookupComboBox2.Text = Form9.IBTable1.FieldByName('Produto').AsString then begin Form9.IBTable1.Edit; Vend := StrToFloat(edit3.Text); Prod := StrToFloat(Form9.Ibtable1Qtde.Text); Form9.Ibtable1Qtde.Text := FloatToStr(Prod+Vend); //esse é para somar no estoque(tbproduto), para diminuir troque o sinal de + para - Form9.IBTable1.ApplyUpdates; end else if DbLookupComboBox2.Text <> Form9.IBTable1.FieldByName('Produto').AsString then begin Form9.ibtable1.insert; Form9.IBTable1.FieldByName('Produto').AsString:=Form3.Edit6.Text; Form9.IBTable1.FieldByName('Preco_Venda').AsString:=Form3.Edit8.Text; Form9.IBTable1.FieldByName('Qtde').AsString:=Form3.Edit7.Text; Form9.IBTable1.FieldByName('Data_Venda').AsString:=Form3.Label3.Caption; //Form9.IBTable1.ApplyUpdates; Form9.IBTable1.ApplyUpdates; Fiz uma gambiarra, Quero opinião de quem tem mais tempo com programação!!! Está dando certo dessa forma!! Se ele localizar o produto no Banco, O Banco vai entrar em estado de edição!!! Caso contrário ele adiciona o produto que não tem no Banco.. E começa todo o processo novamente!!!
  11. Exemplo Quero que o Sistema Contabilize a Qtde que vendeu daquele certo produto!!! Fiz essa ganbiarra, mais ele não esta somando e sim jogando o valor por valor das Qtdes dentro do Banco!!!! if Form9.IBTable1.FieldByName('Produto').Value = DbLookupComboBox2.Text then if Form9.IBTable1.FieldByName('Qtde').Value <> '' then begin Form9.IBTable1.Edit; Form9.IBTable1.FieldByName('Qtde').Value := Form9.IBTable1.FieldByName('Qtde').Value + Form9.IBTable1.FieldByName('Qtde').Value; Form9.IBTable1.ApplyUpdates; Espero a ajuda De alguém!!