VDLR

Micheus, beleza. Cara vou dar uma olhada e qualquer coisa e posto. Abraço Valdecir

Pessoal estou precisando de ajuda para montagem de um gráfico. O caso é o seguinte, preciso montar um gráfico onde o eixo X seja composto de data e hora e o eixo Y suba de acordo com o tempo marcado no eixo X. Exemplo: Eixo X recebe os seguintes valores 25/02/08 – 23:40 26/02/08 – 01:40 26/02/08 – 03:40 26/02/08 – 05:40 26/02/08 – 07:40 etc. Eixo Y receba os seguintes valores 1º linha 300 400 500 600 700 2º linha 250 350 450 550 650 Etc. Abraços Valdecir :wacko: :wacko:

Jhonas, obrigado pela atenção. Verificando melhor, achei um erro na procedure, faltou acrescentar esta linha Com isto parou de dar o erro Abraço Valdecir ;)

Alguém poderia me ajudar a resolver este erro... A procedure é esta procedure TFRalteapi6a.btgravaClick(Sender: TObject); var m_SQL: String; m_SQL1: String; m_SQL2: String; m_SQL3: String; m_SQL4: String; m_SQL5: String; m_SQL6: String; m_SQL7: String; m_SQL8: String; m_SQL9: String; data_rtt: String; data_aprov: String; begin data_rtt := DateToStr(DateTimePicker1.Date); data_aprov := DateToStr(DateTimePicker2.Date); m_SQL := 'UPDATE cadrttapi6a SET cliente="'+EDcliente.Text+'",data=DATE_FORMAT("'+data_rtt+'","%e,%c,%y"),nf="'+EDnf.Text+'",os="'+EDos.Text+'",certificado="'+Edcert.Text+'",quantidade="'+EDquant.Text+'",peso="'+EDpeso.Text+'",material="'+EDmaterial.Text+'",descricao="'+Memo1.Text+'",identificacao="'+EDidentif.Text+'",norma="'+EDnorma.Text+'",'; m_SQL1 := 'tratamento1="'+TBtrat1.Caption+'",tratamento1ingles="'+EDinglestrat1.Text+'",corrida1="'+EDcorrtrat1.Text+'",forno1="'+EDfornotrat1.Text+'",registro1="'+EDregistrat1.Text+'",entidadecalibradora1="'+EDentidadetrat1.Text+'",validade1="'+EDvalidtrat1.Text+'",taxainicial1="'+EDtxinitrat1esp.Text+'",taxaaquecim1="'+EDtxaquectrat1esp.Text+'",temperatpatamar1="'+EDtemppattrat1esp.Text+'",tempoencharque1="'+EDtpenchartrat1esp.Text+'",taxaresfr1="'+EDtxresfrtrat1esp.Text+'",meioresfr1="'+EDmeioresfrtrat1esp.Text+'",tempresfrinicio1="'+EDtriniciotrtat1esp.Text+'",tempresfrfim1="'+EDtrfimtrtat1esp.Text+'",'; m_SQL2 := 'tratamento2="'+TBtrat2.Caption+'",tratamento2ingles="'+EDinglestrat2.Text+'",corrida2="'+EDcorrtrat2.Text+'",forno2="'+EDfornotrat2.Text+'",registro2="'+EDregistrat2.Text+'",entidadecalibradora2="'+EDentidadetrat2.Text+'",validade2="'+EDvalidtrat2.Text+'",taxainicial2="'+EDtxinitrat2esp.Text+'",taxaaquecim2="'+EDtxaquectrat2esp.Text+'",temperatpatamar2="'+EDtemppattrat2esp.Text+'",tempoencharque2="'+EDtpenchartrat2esp.Text+'",taxaresfr2="'+EDtxresfrtrat2esp.Text+'",meioresfr2="'+EDmeioresfrtrat2esp.Text+'",tempresfrinicio2="'+EDtriniciotrtat2esp.Text+'",tempresfrfim2="'+EDtrfimtrtat2esp.Text+'",'; m_SQL3 := 'tratamento3="'+TBtrat3.Caption+'",tratamento3ingles="'+EDinglestrat3.Text+'",corrida3="'+EDcorrtrat3.Text+'",forno3="'+EDfornotrat3.Text+'",registro3="'+EDregistrat3.Text+'",entidadecalibradora3="'+EDentidadetrat3.Text+'",validade3="'+EDvalidtrat3.Text+'",taxainicial3="'+EDtxinitrat3esp.Text+'",taxaaquecim3="'+EDtxaquectrat3esp.Text+'",temperatpatamar3="'+EDtemppattrat3esp.Text+'",tempoencharque3="'+EDtpenchartrat3esp.Text+'",taxaresfr3="'+EDtxresfrtrat3esp.Text+'",meioresfr3="'+EDmeioresfrtrat3esp.Text+'",tempresfrinicio3="'+EDtriniciotrtat3esp.Text+'",tempresfrfim3="'+EDtrfimtrtat3esp.Text+'",'; m_SQL4 := 'tratamento4="'+TBtrat4.Caption+'",tratamento4ingles="'+EDinglestrat4.Text+'",corrida4="'+EDcorrtrat4.Text+'",forno4="'+EDfornotrat4.Text+'",registro4="'+EDregistrat4.Text+'",entidadecalibradora4="'+EDentidadetrat4.Text+'",validade4="'+EDvalidtrat4.Text+'",taxainicial4="'+EDtxinitrat4esp.Text+'",taxaaquecim4="'+EDtxaquectrat4esp.Text+'",temperatpatamar4="'+EDtemppattrat4esp.Text+'",tempoencharque4="'+EDtpenchartrat4esp.Text+'",taxaresfr4="'+EDtxresfrtrat4esp.Text+'",meioresfr4="'+EDmeioresfrtrat4esp.Text+'",tempresfrinicio4="'+EDtriniciotrtat4esp.Text+'",tempresfrfim4="'+EDtrfimtrtat4esp.Text+'",'; m_SQL5 := 'durezaespecificada="'+EDdurespec.Text+'",durezaobtida="'+EDdurobtida.Text+'",equiputilizado="'+EDequiputil.Text+'",certificadoequip="'+EDcertequip.Text+'",validadecertifiequip="'+EDvalidcertifeqip.Text+'",relatensaiomecanico="'+EDrelensmec.Text+'",resultadoensaiomecan="'+EDresultensmec.Text+'",resultadoensaiomecaningles="'+EDresultensmecingl.Text+'",elaborado="'+EDelabor.Text+'",dataelab=DATE_FORMAT("'+data_aprov+'","%e,%c,%y"),analise="'+EDanalise.Text+'",dataanalise=DATE_FORMAT("'+data_aprov+'","%e,%c,%y"),aprovado="'+EDaprovado.Text+'",dataaprov=DATE_FORMAT("'+data_aprov+'","%e,%c,%y"),rttnr="'+EDnrrtt.Text+'",'; m_SQL6 := 'taxainicial1exe="'+EDtxinitrat1exe.Text+'",taxaaquecim1exe="'+EDtxaquectrat1exe.Text+'",temperatpatamar1exe="'+EDtemppattrat1exe.Text+'",tempoencharque1exe="'+EDtpenchartrat1exe.Text+'",taxaresfr1exe="'+EDtxresfrtrat1exe.Text+'",meioresfr1exe="'+EDmeioresfrtrat1exe.Text+'",tempresfrinicio1exe="'+EDtriniciotrtat1exe.Text+'",tempresfrfim1exe="'+EDtrfimtrtat1exe.Text+'",'; m_SQL7 := 'taxainicial2exe="'+EDtxinitrat2exe.Text+'",taxaaquecim2exe="'+EDtxaquectrat2exe.Text+'",temperatpatamar2exe="'+EDtemppattrat2exe.Text+'",tempoencharque2exe="'+EDtpenchartrat2exe.Text+'",taxaresfr2exe="'+EDtxresfrtrat2exe.Text+'",meioresfr2exe="'+EDmeioresfrtrat2exe.Text+'",tempresfrinicio2exe="'+EDtriniciotrtat2exe.Text+'",tempresfrfim2exe="'+EDtrfimtrtat2exe.Text+'",'; m_SQL8 := 'taxainicial3exe="'+EDtxinitrat3exe.Text+'",taxaaquecim3exe="'+EDtxaquectrat3exe.Text+'",temperatpatamar3exe="'+EDtemppattrat3exe.Text+'",tempoencharque3exe="'+EDtpenchartrat3exe.Text+'",taxaresfr3exe="'+EDtxresfrtrat3exe.Text+'",meioresfr3exe="'+EDmeioresfrtrat3exe.Text+'",tempresfrinicio3exe="'+EDtriniciotrtat3exe.Text+'",tempresfrfim3exe="'+EDtrfimtrtat3exe.Text+'",'; m_SQL9 := 'taxainicial4exe="'+EDtxinitrat4exe.Text+'",taxaaquecim4exe="'+EDtxaquectrat4exe.Text+'",temperatpatamar4exe="'+EDtemppattrat4exe.Text+'",tempoencharque4exe="'+EDtpenchartrat4exe.Text+'",taxaresfr4exe="'+EDtxresfrtrat4exe.Text+'",meioresfr4exe="'+EDmeioresfrtrat4exe.Text+'",tempresfrinicio4exe="'+EDtriniciotrtat4exe.Text+'",tempresfrfim4exe="'+EDtrfimtrtat4exe.Text+'",'; FRcadrtt.Query1.Close; FRcadrtt.Query1.SQL.Clear; FRcadrtt.Query1.SQL.Add(m_SQL+m_SQL1+m_SQL2+m_SQL3+m_SQL4+m_SQL5+m_SQL6+m_SQL7+m_SQL8+m_SQL9); FRcadrtt.Query1.ExecSQL; end; Abraço Valdecir :unsure:

Micheus, beleza. Essa parte funcionou, porém surgiu outro problema: Estou usando isto na tela de cadastro e ao clicar no botão para inserir um novo cadastro, o grid esta ficando em branco, já tentei e não consegui acertar isto. você poderia me dar uma luz. Abraço Valdecir

Micheus, tudo bem Fiz isto mas dá erro Query1.Sql.Clear; Query1.Sql.Add('SELECT MAX(rttnr) FROM cadrttapi6a'); Query1.Open; NovoCod := Query1.FieldByName('rttnr').AsInteger + 1; Recebo esse erro ao clicar no botão Query1 : Field 'Cliente' not found Abraço Valdecir :rolleyes:

Micheus, beleza. Poxa, aquela função que tenho funciona com DataSet, neste caso de só Query com BDE não teu certo. Abraço Valdecir :blink:

Jhonas, beleza Onde eu colocaria isto na Query e como eu pego este valor numa variável Abraço Valdecir ;)

Alguém poderia me ajudar neste problema. Preciso pegar o máximo de um determinado campo e jogar em um Edit adicionando + 1 Estou trabalhando com BDE, Query e Banco MySql. Abraço Valdecir

Micheus, beleza. Baixei o código porém só tinha este arquivo RelTeste Atualizei a IBQuery do código que eu tinha aqui conforme o anexo do post#20, porém agora ao clicar no botão ou tentar ativar a mesma da o seguinte erro: Poxa, será que tem solução........... Abraço Valdecir

Micheus, beleza Substitui o código, só que agora ao clicar no botão para exibir o relatório recebo a seguinte mensagem de erro. IBQuery1: Parameter 'DAT_INICIAL' not found. Precisa fazer alguma alteração nesta procedure procedure TForm2.ShowReport(DateRef :TDateTime); begin IBQuery1.ParamByName('DAT_INICIAL').AsDateTime := StartOfTheYear(DateRef); IBQuery1.ParamByName('DAT_FINAL').AsDateTime := EndOfTheYear(DateRef); IBQuery1.Open; try QuickRep1.Preview; finally IBQuery1.Close; end; end; Ao tentar ativar a Query dá este erro. Dynamic SQL error SQL Error cod = -104 Token Unknown - Line 2, char 30 AS. Desculpe a demora. Abraço Valdecir

Micheus, beleza. No exemplo que você passou. Abraço. Valdecir

Micheus, tudo bem ? Consegui fazer o download e testar o sistema, porém estou recebendo o seguinte erro quando clico no botão para exibir o relatório ou tento ativar a Query. Não sei o que fazer :unsure: Abraço Valdecir

Micheus, beleza. Não consegui abrir o exemplo, no download não tem nenhuma unit. Abraço Valdecir

Micheus beleza. Estou usando o INTERBASE. Micheus será que você poderia passar + ou - o que eu preciso fazer ??? ;) Abraços Valdecir

Micheus. beleza. Olhei o post mas fiquei com algumas dúvidas. ;) No post ele fala no período de uma semana, seleciona o periodo e vem somando os dias certo? No meu caso, como eu faria para somar meses de uma tabela de faturamento ? Ex. período de 01/01/2007 a 31/08/2007 Como faço a soma dos meses jan, fev, mar, abr, mai, jun, jul, ago ? :o Como eu saberia o mês dentro do período ?? :blink: Abraço Valdecir

Micheus beleza. " UM ANO " esta bom demais, alias seria o ideal. Abraço Valdecir

Micheus beleza. Cara é isto mesmo, eu só não sei como eu faço para dividir o relatório ref. os meses solicitados. Tem com dar uma força ???? Abraço Valdecir

Alexandre beleza. Cara a minha dívido é como após fazer a consultar de um determinado período separar ele no relatório Ex. Janeiro Fevereiro Março Abraços Valdecir

Pessoal alguém poderia me dar uma luz de como montar este tipo de relatório. O usuário solicita um determinado período. exemplo 01/01/07 a 30/03/07 Tipo do relatório Faturamento por período Cliente Janeiro Fevereiro Março XXXX 150,00 250,00 260,00 YYYY 140,00 130,00 120,00 Total 290,00 380,00 380,00 Abraços Valdecir

Micheus muito obrigado. Funcionou, valeu mesmo cara.... Abraço Valdecir :D :D :D

Poxa Micheus desculpe, mas não consegui. Tenho esta função que faz parte do que você me passou. (pelo menos penso que sim....) function TFRCadRim.GetNewFieldCod(TableName, FieldName :string) :LongInt; begin DMdados.SQLDataSetMax.CommandType := ctQuery; DMdados.SQLDataSetMax.CommandText := 'SELECT (MAX('+FieldName+')) AS '+FieldName+' FROM '+TableName; DMdados.SQLDataSetMax.Open; Result := DMdados.SQLDataSetMax.FieldByName(FieldName).AsInteger +1; DMdados.SQLDataSetMax.Close; end; Mas não consegui colocar esta condição Tem como você me ajudar Abraço Valdecir

É isso ai Micheus o ID sequencialmente e o Contr_RIM a cada ano a contagem reinicia e vai adicionando mais 1. Tem como ?? Estou usando o BD MySql com DBexpress e ClientDataset Abraço Valdecir

Cara acho que isto deve de ajudar procedure TFRCadRim.BTexcluirClick(Sender: TObject); begin If Application.MessageBox('Confirma Exclusão ?','Cuidado !!!',MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2) = IDYES Then DMdados.TBCadRim.Delete; DMdados.TBCadRim.ApplyUpdates(-1); end; Abraço

Jonas obrigado pela atenção. Cara eu não entendi muito bem o que você postol ( não entendo sql) 1º onde entra o campo que eu desejo incrementar ? (o que eu presciso e incrementar sempre o ultimo lançamento da tabela) 2º Edit1.text := intTOstr(Inc_gen(‘Generator_desejada’)) que generator é este ? Abraço Valdecir ;)