valSistemasDelphi

preciso somar valores que aparecem em FrxReport tipo Sub-Total geral. São valores das vendas que faço no caixa do sistema. quem poder me ajudar desde já agradeço.

Iae jhonas beleza.. já coloquei varios tipos de códigos nesses DatesPicker e nada da certo... Invez de ser DatesPicker não teria outro componente que eu possa colocar para visualizar a data... Ou simplesmente com Edits será que não daria certo.. ???

Estou usando dois TDateTimePicker um para data de e o outro para a data ate.. Coloquei este código que visualizei aqui com pesquisas .. estou com dúvida se este mesmo código e colocado no outro dataPicker.. procedure TForm1.DateTimePicker1Change(Sender: TObject); begin VData := datetostr(DateTimePicker1.Date); if (Diário.Checked = true) then begin //pegar a data clicada no DateTimerPicker Mensal.Checked := false; // desabilitar o Mensal Ibtable1.Active := false; Ibtable1.filter := 'DATA_VENDA = ' + '''' + VData + ''''; Ibtable1.Active := true; Ibtable1.filtered := true; FRXReport1.LoadFromFile('E:\ProjetoCadastro\Nova Lanchonete\VendaCaixa.fp3'); FrxReport1.ShowReport() ; procedure TForm1.DateTimePicker2Change(Sender: TObject);if (Mensal.Checked= true) then begin //pegar o periodo da data clicada no DateTimerPicker (-30) dias Diário.Checked := false; /// desabilitar o Diário Ibtable1.Active := false; Ibtable1.filter := 'DATA_VENDA >= ' + '''' + datetostr(strtodate(VData)-30) + '''' + ' and ' + 'DATA_VENDA <= ' + '''' + VData + ''''; Ibtable1.Active := true; ibtable1.filtered := true; FRXReport1.LoadFromFile('E:\ProjetoCadastro\Nova Lanchonete\VendaCaixa.fp3'); FrxReport1.ShowReport() ;

Olá jhonas preciso de ajuda aqui com 2 DateTimePicker... preciso que quando o usuário escolher a data inicial de vendas ate a outra data final apareça em um FrxReport... Olhei alguns videos mais nada com tabelas e sim com Query.. Desde já agradeço por responder..

ola jhonas obrigado por responder consegui aqui fazer de outra maneira que ele faz tudo isto que te falei.. Código;; if((edit1.Text = 'FUNCIONÁRIO') and (edit2.Text = '123')) then begin ShowMessage('Funcionário Bem Vindo Ao Caixa!!'); edit1.Text:=''; edit2.Text:=''; Form1.Visible:=False; Form4.ShowModal; end else begin for i := 1 to Form3.IBTable1.recordcount do if (Form1.Edit1.Text = Form3.IBTable1.FieldByName('Cad_Usuario').AsString) and (Form1.Edit2.Text = Form3.IBTable1.FieldByName('Cad_Senha').AsString) then // Aqui que consegui ajuntar os dois.. begin //if Form1.Edit2.Text = Form3.IBTable1.FieldByName('Cad_Senha').AsString then ShowMessage('Administrador Bem Vindo Ao Sistema!!'); Form2.ShowModal; end else ShowMessage('Usuários Ou Senha Incorretos!!'); edit1.Text:=''; edit2.Text:=''; Form1.Visible:=True; Edit1.SetFocus; Amostra a mensagem e tudo se o usuário e o login são diferetes... Só que ele pega só um Administrador e senha do datasourse com o código 1... os outros ele já informa que os campos estão vazios.... vou pesquisar mais um pouco.. mais o sistema vai ter somente um unico administrador pois e ele quem vai fazer as analises de vendas e de relatórios...Acho que por enquanto não precisa mais de um Administrador... Só que se quiser mudar tera que apagar primeiro do banco o que estava armazenando e armazenar outro em seu lugar só isto... Vou ajuntar suas ideias que tu passou e vou tentar deixar elas bem enxutas para o sistema aqui... Desde já agradeço pela ajuda Amigo... Abraço..

jhonas obrigado pela dica... Mais ainda não deu certo aqui... ele abre só se for funcionário.... O administrador ele não abre... e quando eu digito usuário e senha diferentes ele apenas apaga e da o foco no Edit e não amostra a mensagem ('Usuário ou senha invalidos'); consegui resolver deste jeito if((edit1.Text = 'FUNCIONÁRIO') and (edit2.Text = '123')) then begin ShowMessage('Funcionário Bem Vindo Ao Caixa!!'); edit1.Text:=''; edit2.Text:=''; Form1.Visible:=False; Form4.ShowModal; end else begin for i := 1 to Form3.IBTable1.recordcount do if Form1.Edit1.Text = Form3.IBTable1.FieldByName('Cad_Usuario').AsString then if Form1.Edit2.Text = Form3.IBTable1.FieldByName('Cad_Senha').AsString then ShowMessage('Administrador Bem Vindo Ao Sistema!!'); Form2.ShowModal; Mais se eu digitar qualquer coisa ele entra no sistema sozinho...

Jhonas obrigado pela explicação... me ajudou muito aqui cara.. Pensei em fazer o seguinte... Como eu dividi o sistema em duas partes .. Funcionários e o Administrador... Tive a ideia de fazer assim... Criei um novo Código aqui... Da seguinte forma.. procedure TForm1.BitBtn1Click(Sender: TObject); var login, senha: string; I: Integer; Cod: Integer; begin if((edit1.Text = 'FUNCIONÁRIO') and (edit2.Text = '123')) then begin ShowMessage('Funcionário Bem Vindo Ao Caixa!!'); //edit1.Text:=''; //edit2.Text:=''; Form1.Visible:=false; Form4.ShowModal; end else begin for i := 1 to Form3.IBTable1.recordcount do if Form1.Edit1.Text = Form3.IBTable1.FieldByName('Cad_Usuario').asString then if Form1.Edit2.Text = Form3.IBTable1.FieldByName('Cad_Senha').AsString then ShowMessage('Administrador Bem Vindo Ao Sistema!!'); Form2.ShowModal; Desta forma está dando certinho do jeito que eu quero... Só que queria tmbm que quando o usuário digite o login errado aparecesse uma mensagem... e não estou conseguindo fazer isto.. Coloquei este código logo embaixo do Form2.ShowModal; end else begin ShowMessage('Usuários Ou Senha Incorretos!!'); edit1.Text:=''; edit2.Text:=''; Form1.Visible:=True; Edit1.SetFocus; Mais sempre da erro neste senão (Else) sei que parece muito infantil minha pergunta mais e de total importância para mim aprender mais e mais sobre programação e tirar minhas dúvidas aqui neste fantastico site....Será que tem como fazer de outra forma;... Desde já agradeço pela resposta..

Olá preciso tirar uma dúvida.. Consegui criar um cadastro de usuários para entrar no sistema... Código:::: if Form1.Edit3.Text = Form3.IBTable1.FieldByName('Cad_Codigo').AsString then begin if Form1.Edit1.Text = Form3.IBTable1.FieldByName('Cad_Usuario').AsString then begin if Form1.Edit2.Text = Form3.IBTable1.FieldByName('Cad_Senha').AsString then Form4.ShowModal; Só que ele so entra com o primeiro cadastro que estiver no banco de dados com o codigo 1. Se for já com o codigo 2 já não entra... Preciso de tua ajuda... neste caso e um laço de repetição que devo fazer para funcionar com o código do cadastro?? Desde já agradeç pela ajuda..

Olá amigos do forum, estou desenvolvendo um sistema em delphixe7... criei uma tela de login só que sem banco de dados. Preciso criar um cadastro de usuário com banco de dados..uso o firebird .. Tenho um form onde faço o cadastro do usuário e respectivamente senha... Mais não sei como fazer isso para o banco de dados. se poderem me ajudar... desde já agradeço..

Iae jhonas fiquei meio sumido aqui do forum.. Consegui resolver bastante problemas que eu estava encontrando em meu sistema.... Estou com uma dúvida a respeito de restauração no sistema.. Por exemplo no meu caixa_Venda tem a opção de apagar todos os dados ali inseridos de venda de uma só vez. Queria uma opção de restauração para que quando o usuário apagasse tudo tivesse um button com a opção de voltar todos os dados do db grid.. Já pesquisei mais não achei nada para fazer isto no delphi xe7... Se poder me ajudar agradeço...

jhonas se eu entendi eu vou escolher as datas que eu quero no DatetimerPicher beleza até ai... Ai vou lá em diário por exemplo ai ele aparecerá das datas que eu coloquei no Datetimerpicker e isso mesmo?? A mesma coisa pro mensal então... Porque eu vi num vídeo aqui que o cara só coloca as datas no DateTimerPicker.. ai aparece as datas no relatório direto sem clicar em Diário ou mensal.... Desculpe pelos questionamentos... Se poder me tirar essa dúvida.. Desde te agradeço..

jhonas desculpe mais não entendi muito bem esta lógica deste código.. Se poder me explicar para eu poder entender mais.. Coloquei este código mais não está executando nada...

Obrigado pela resposta jhonas vou aplicar em meu Sistema aqui... Obrigado desde já pela ajuda... Qualquer dúvida posto... !!!!!!

iae jhonas coloquei este mesmo código so que está dando um erro converssion error from string ai aparece uma data especifica.... tem que converter no caso... desculpa jhonas mais não entendi muito bem este código... porque eu quero que apareça as datas que eu colocar no tDatetimerPicker.... Ai eu fiz o seguinte.. Renomei o datetimerpicker em inicio e final.... Ai coloquei este código ... if (DataInicial.Checked = True) then begin //pegar a data clicada no DateTimerPicker Ibtable1.Active := false; Ibtable1.filter := 'DATA_VENDA = ' + VData; Ibtable1.Active := true; Ibtable1.filtered := true; FRXReport1.LoadFromFile('E:\ProjetoCadastro\Nova Lanchonete\VendaCaixa.fp3'); FrxReport1.ShowReport() ; Exit; end; if (DataFinal.Checked = True) then begin //pegar a data clicada no DateTimerPicker Ibtable1.Active := false; Ibtable1.filter := 'DATA_VENDA = ' + VData; Ibtable1.Active := true; Ibtable1.filtered := true; FRXReport1.LoadFromFile('E:\ProjetoCadastro\Nova Lanchonete\VendaCaixa.fp3'); FrxReport1.ShowReport() ; Só que da o erro que mensionei em cima... Se poder me ajudar com esta dúvida.. Desde já te agradeço

Jhonas obrigado pela resposta... Está dando este erro Conversion error from String e a Data 24/06/2015....

iae jhonas. Consegui resolver a questão das datas Diárias e mensal... Demorou mais consegui agora não estou conseguindo resolver a questão das datas no DateTimerPicker.. você tem alguma sugestão ou explicação para eu entender como se faz ... desde já te agradeço pela ajuda....

Jhonas no meu Diário está funcionando como programado... Mais no mensal não está aparecendo nenhum valor.... E outro problema quando eu entro no Form do Caixa... Todos os valores de vendas que estavam no Grid Somem... Isso acontece só quando eu vou la no Form de Relatório e peço para abrir o relatório Mensal... Percebi que quando clico no Diário não somem nenhum valor mais já no mensal some tudo... Confesso que estava me acostumando a desenvolver esses relatórios mais agora está me confundindo em tudo... E outra dúvida em um Form está dois FrxReport.. um está funcionando muito bem... Mais o outro na parte lá de MasterData não aparece nenhum valor... Já olhei tudo mais não achei aonde eu estou errando ou se eu estou errando.... Se ficar com muitos problemas vou ver se inventou outra coisa em vez de Relatórios Pois estou com muitra dificuldade poius já estou com quase 1 Mês e meio Desenvolvendo estes relatórios e muito pouco do que programei está funcionando.. Será que tem outra coisa que posso fazer invez desses relatóriuois mais que pareça com eles.. Ou seja muda o geito mais não a essência.. Fico no aguardoi de sua resposta... Jhonas estou com o componente TDateTimePicker como funciona esse componente para escolher as datas determinadas?...

Bom Jhonas agora coloquei este código que você postou e está amostrando somente com a data da venda por exemplo hoje... Só que quando vou no form do caixa o que acontece!!! Os dados das outras datas de vendas somem e só fica da venda que foi feita hoje.. Será que alguma lógica errada no Código meu... if (Diário.Checked = true) then begin //pegar o periodo da data atual menos (-) 30 dias Ibtable1.Active := True; Form4.Ibtable1.filter := 'DATA_VENDA = ' +''''+ DateToStr(Now)+''''; Form4.Ibtable1.filtered := true; Form4.Ibtable1.Active := true; Ibtable1.filtered := true; IBTable1.Active := true; FRXReport1.LoadFromFile('E:\ProjetoCadastro\Nova Lanchonete\VendaCaixa.fp3'); FrxReport1.ShowReport() ; exit; //Forçar a sair da rotina, ou vai executar os ifs após o else...} //********************************************************************* end else if (Mensal.Checked= true) then begin {Form4.Ibtable1.Active := True; Form4.IBtable1.Filter := 'DATA_Venda = ' + ''''+datetostr(now)+'''';// pegar a data atual do micro IBtable1.filtered := true;} Ibtable1.Active := TRue; Form4.Ibtable1.filter := 'DATA_VENDA = ' +''''+ DateToStr(Now)+''''; Form4.Ibtable1.filtered := true; Form4.Ibtable1.Active := true; Ibtable1.filtered := true; IBTable1.Active := true; FRXReport1.LoadFromFile('E:\ProjetoCadastro\Nova Lanchonete\VendaCaixa.fp3'); FrxReport1.ShowReport() ;

Jhonas Confesso que Fazer Relatório dá trabalho como qualquer outra coisa!! Mais esses meus Relatórios meus aqui Estão dando dor de cabeça... Fiz do jeito que você disse mais está misturando tudo... E por exemplo quando chega no Indice de venda 14.. Fica tudo em ordem 1,2,3,4....................... ate 14.... Mais quando coloco outra venda com o indice 15.... Fica dando um bug esquisito.... Quando vou no Form do Relatório ele parece que esta saindo da sequencia dos numeros e fica la no meio bagunçado... Não sei se e no banco que está acontecendo isso.... Desde já agradeço pela resposta.. O jhonas ele ta quase fazendo o que eu quero no Diário quando eu acrescento uma data de venda de hoje ele já fica na frente dos outros... Só que está aparecendo ainda as outras datas......

Iae Jhonas Consegui resolver meu problema no Analisador Léxico, Juntamente com uns colegas que programam em Delphi também aqui na facu... Analisando todo o código... o erro estava em uma referência no meu Código... type Ttoken = array [0..8] of String; const listtoken : Ttoken = (';', ':', ')', '(', '.', ']', '[', ':=', ','); for I := 0 to length(listToken) do Bom eu fiz essa função Length que até então eu achava que o erro estava nele.. Pois deixei essa parte como texto //... Ai funcionava ... Só que ele não declarava todos os Tokens so o Begin... Ai descobrimos que essa função serve para dar referência a alguma Variável no Código... Que no nosso caso e o i.... Depois que colocamos o entre chaves para fazer referencia deu certo.... Justamente com o Break que conseguimos localizar o Problema... Obrigado Pela Resposta Jhonas.......Abraço..

Valeu pela resposta Jhonas vou testar Aqui na minha aplicação....... Demorei um pouco para responder por esses dias... Peguei Um programa para desenvolver... Um Analisador Léxico.. Está funcionando ele amostra os tokens do texto no StringGrid..... Só que ele mostra uma mensagem;; Access Violation.... Já pesquisei de tudo aqui.... Já olhei o Código........ Mais não consegui achar aonde está o problema... Não sei se foi alguma instancia que apaguei e agora o programa salvou na memoria e como ele não encontra da o erro... Sabe mais do que eu que vida de programador não e fácil ne... Tamo desenvolvendo um App... Ai surge outro...Mais e assim mesmo... Desculpa se estou misturando Dúvidas de outro Programa... Mais como você têm me ajudado muito tirando as dúvidas... Já fiz pesquisa aqui de tudo... Algumas coisas falam de Despejo de Memória.. Não sei ao certo... Se você poder me ajudar em mais essa.. Jhonas...

Bom Jhonas Estou usando um banco de dados feito em Firebird juntamente com Ibexpert para a administração do banco.... Na minha aplicação estou usando Ibtable do caixa... No form relatório conectei o relatório neste mesmo Banco do caixa... Será que esse o problema??? Não sei,, vou fazer mais testes aqui...

iae jhonas obrigado pela resposta seu código deu certo está abrindo o relatório.. Mais ele não está separando a data... Por exemplo a data diária que vendeu Hoje, tá ficando junta com a data mensal... Eu quero que a Diária fique so com as datas que o funcionário fez as vendas por exmplo hoje... Se poder me dar mais uma dica sobre isso... Desculpe se estou colando muitas perguntas em bem pouco tempo.. Mais no começo e assim surgem muitas dúvidas, e eu passo mais ou menos 10 horas por dia trabalhando no meu Sistema.. Valeu pela atenção Deus lhe pague."Amigo".....

Jhonas já tentei converter para DateToStr, Mais não está dando certo...... Sempre dá este erro... [dcc32 Error] Unit10.pas(109): E2010 Incompatible types: 'string' and 'TDateTime' E estou com outra Dúvida .... Esse Comando Date (Now)... Não precisaria de Um Timer...Surgiu esta Dúvida Agora... Se poder Me Explicar.... Tentei mudar e colocar Assim ...DateToStr +(Now) -30 + DateToStr +(Now); Mais não deu certo....

To com uma duvida coloquei do jeito que você postou... Mais fiquei meio confuso... Posso colocar este código em um button.. Por exemplo... To meio confuso agora pois e a primeira vez que faço relatório, e sempre no começo sempre surge muitas dúvidas.. Já olhei aqui diversos videos contando em me ajudar mais não consegui incrementar nenhum código aqui para que possa abrir o Relatório com as vendas Diárias... Por Enquanto Estou vendo um vídeo que monstra exatamente o que eu quero mais e só um video de demonstração de um sistema já pronto.. Tentando entender aqui a lógica de como foi feito... Não sei se e por Código ou por Data... Acho que seria mais por Data... Filtrar a Data,,, mais ainda estou estudando aqui como vou Resolver meu problema.... Se você conseguir me explicar ou conseguir achar alguma pesquisa ai... Eu me viro aqui para conseguir solucionar meu problema.... Valeu ai jhonas.... Por que assim eu vou pegar essas datas do Form Do Caixa que esta em outro formulário, onde eu faço Todas as minhas Vendas... Se tiver um jeito de filtrar essas datas de la para meu Form de RelatórioDeVendaDoCaixa... Eu tenho Três Radio Button Diário Mensal e Por Escolha De Data... e um SpeedButton = Exibir Relatório... Eu Queria que ele abrice o relatório com as vendas diárias por exemplo sem eu digitar nenhuma data... Simplismente altomatico....