Progr'amador

Olá Ivano, você está usando algum código especifico pra imprimir? Abs. Progr'amador.

Eu pensei em sugerir isso mas lembrava que em SQL as strings eram entre aspas duplas. E lembrando também que duas aspas simples numa constante string é igual a uma aspas simples. Igual a -> 'SELECT * FROM PROTOCOLO WHERE (TITULONATUREZAABR = '+#39+'DMI'+#39+')' Há banco que aceita numa select aspa duplas, no entanto, tem banco que não aceita, na verdade a maioria não aceita. ABs. Progr'amador.

Olá hencker e Thales, Nesse caso usa-se duas aspa símples em vez de uma aspa dupla: SQL.Add('SELECT * FROM PROTOCOLO WHERE TITULONATUREZAABR = ''DMI'' '); Abs. Progr'amador. B)

Olá hencker, você pode fazer essa soma diretamente na Query. with DMRelatos do begin QBase.Close; QBase.SQL.Clear; QBase.SQL.Add('SELECT Sum(CAMPO) as CAMPO FROM DIPROTOCOLO WHERE ProtocoloData > 31/5/2005 AND DistribuicaoCartorio = "TabeliÒo de Protesto de Letras e TÝtulos" AND TituloNaturezaAbr="DMI"'); QBase.Active := True; end; ou então usando a while: with DMRelatos do begin QBase.Close; QBase.SQL.Clear; QBase.SQL.Add('SELECT * FROM DIPROTOCOLO WHERE ProtocoloData > 31/5/2005 AND DistribuicaoCartorio = "TabeliÒo de Protesto de Letras e TÝtulos" AND TituloNaturezaAbr="DMI"'); QBase.Active := True; while not QBase.EOF do begin Valor := Valor + QBase.FieldbyName('Valor').value; QBase.Next; end; end; Abs. Progr'amador. B)

Ola hencker, Assim é meio dificil entender, poderia da um exemplo de como seria esse resultado. Abs. Progr'amador. B)

Olá galera do fórum, Teremos um novo moderador aqui, o nosso amigo Churc. Tenho certeza que é um grange nome para esta função, tem ajudado bastante aqui e tem sido muito responsável em seus posts e levado a serio essa comunidade. E fica aqui as minhas boas vindas, que juntos venhamos fazer um bom trabalho. P.S. Meu post de nº 1.000, não poderia ser melhor, rs! :D Abs. Progr'amdor. B)

Como assim?? Não entendi! Espliqeu-se melhor, da um exemplo pratico do você quer. Abs. Progr'amador. B)

Olá schaukoski, esse "tracinho" na verdade seria mascara e se aplica diretamente no Campo de sua tabela atravez de um TTable ou TQuery. Dê dois cliques no seu Table ou query, na janela que abre clique com o direito e escolha a opção Add Fields..., adicione todos os campos necessários de sua tabela, na lista procure o campo desejado e no object inspector, na opção EditMask coloque: 0000\-0000;1;_ Abs. Progr'amador. B)

Vixi, esse negoço de esplicação eu só meio ruim, eu num tenho aquela linguagem tecnicas dos caras aí, sou autodidata :D O QuickReport abre o relatório em um especie de loop, ou seja, ele abre um funcionario em seguida os registros de horas, outro funcionario e os registros, etc..., então cada print (before ou after) do band dos funcioario ele retorna o valor de i = 1, aí é spó execultar aquele IF i = 1. funcionario 1 i = 1 i = 2 i = 3 i = 4 ------- funcionario 2 i = 1 i = 2 i = 3 i = 4 na verdade a váriavel i é simplesmente pra identificar o inicio de cada funcionario entende, i := 1, só pra indicar a primeira linha, já que a primeira hora extra não é calculado a porcentagem. Hehe, eu acho deu pra entender! ou não!?? Abs. Progr'amador. B)

Olá schaukoski, Que banco você está usando? Dependendo do banco você pode usar o MAX ou LIMIT 1, e pode até incrementar + 1 na propria select Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('Select Max(Codigo) + 1 as Codigo From Tabela'); Query1.Open; variavel := Query.FieldByName('Codigo').Value; ou Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('Select Codigo + 1 As Codigo From Tabela Order By Codigo Desc Limit 1'); Query1.Open; variavel := Query.FieldByName('Codigo').Value; Abs. Progr'amador. B)

Eder, quanto ao erro da divisão, é só colocar um if TForm1.QRLabel1Print(sender: TObject; var Value: String); begin if i = 1 then begin Value := '0,00%'; vlAnt := Query1.FieldByName('QtdHorasExtras').Value; inc(i); end else begin if Query1.FieldByName('QtdHorasExtras').Value > 0 then begin Porc := (Query1.FieldByName('QtdHorasExtras').Value - vlAnt) / vlAnt * 100; Value := FormatFloat('0.00',Porc)+'%'; end else Value := '0,00%'; vlAnt := Query1.FieldByName('QtdHorasExtras').Value; end; end; E quanto ao outro problema, se você usar um QRBand Detail pra exibir os funcionarios e um QRSubDetail para exibir as horas é só você colocar no evento BeforePrint ou AfterPrint do QRBand Detail o código pra zerar o valor de i da mesma forma como fiz no QRBand Title aí você pode até tirar esse código do Band Title. Entendeu??? Abs. Progr'amador. B)

Olá Hunter, tenta usar o DISTINCT SELECT DISTINCT lance.codAnimal, animal.nome as animal, leilao.nome as leilao, lance.data, lance.hora from animal, lance, leilao WHERE lance.codAnimal = animal.codAnimal AND lance.codLeilao = leilao.codLeilao Order by data desc, hora desc Abs. Progr'amador. B)

Olá Eder, faz assim: declare tres variaveis, uma integer e duas Real: var Form1: TForm1; i : integer; Porc, vlAnt : Real; seu relatório deve ter um QRBand Title, correto? no evento BeforePrint desse band coloque: procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin i := 1; end; Pra exibir o valor da porcentagem, use um QRLabel, e no evento OnPrint coloque: procedure TForm1.QRLabel1Print(sender: TObject; var Value: String); begin if i = 1 then begin Value := '100,00%'; vlAnt := Query1.FieldByName('QtdHorasExtras').Value; inc(i); end else begin Porc := (Query1.FieldByName('QtdHorasExtras').Value - vlAnt) / vlAnt * 100; vlAnt := Query1.FieldByName('QtdHorasExtras').Value; Value := FormatFloat('0.00',Porc)+'%'; end; end; Entedeu? Abs. Propr'amador. B)

Olá, você tera que usar o MySQL Connector/ODBC você encontra facil na net e a ultima versão é a 3.51 MySQL Connector/ODBC 3.51 Abs. Progr'amador. B)

Olá, você pode usar o Locate: Table1.Locate('CAMPO_DA_TABELA',Edit1.text,[LoPartialKey]); isso tanto pra Query quanto pra Table é a mesma coisa. Abs. Progr'amador. B)

Simples, TreeView1.Items.Clear; Abs. Progr'amador. B)

Olá, Adicione um ADOQuery E no onChange coloque: with dmData.ADOQuery do begin SQL.Clear; SQL.Add('select * from NOME_DA_TABELA Where CAMPO_NOME Like '+''''+Trim(Edit1.Text)+'%'+''''+''); SQL.Add('Order By CAMPO_NOME'); Open; end; E levando em consideração a ideia do colega tiagojacomini, acredito que realmente você possa usar o LOCATE sim. Abs. Progr'amador. B)

Olá tiagojacomini, O Locate não filtra os registros, ele apenas leva o foco ao primeiro que ele encontra de acordo com a pesquisa. Ele poderia usar o ADOQuery mesmo. schaukoski,então coloque o nome de sua tabela, nome dos campos, ect... pra fazer do jeito que tem que ser. Abs. Progr'amador. B)

Olá kartter, Trabalhar com data sempre foi um problema mesmo, no caso faz o seguinte, crie duas variaveis do tipo string pra pegar essa data do DateTimePicker pra passar como parametro, e no caso de buscar ser por intervalode data você pode usar o comando BETWEEN. var datainicio, datafim : string; begin datainicio := DateToStr(DateTimePicker1.Date); datafim := DateToStr(DateTimePicker2.Date); IBQuery.Close; IBQuery.Sql.Clear; IBQuery.Sql.Add('select * from cadcli where data between cast('+''''+datainicio+''''+' AS DATE) and cast('+''''+datafim+''''+' AS DATE)'); IBQuery.Open; Abs. Progr'amador. B)

Ola Carol, de uma olhada nesse Tópico O Exemplo é em paradox mas a ideia é a mesma. P.S. Se você for em Busca, você tambem vai encontrar muitos tópicos sobre isso. E se você tiver dificuldade para implementar em seu código, posta aí, que ajudaremos você. Abs. Progr'amador. ;)

Valdecir, você consegue abrir normal depois que o windows é iniciado??? Abs. Progr'amador. ;)

Pow, foi mal, vacilei Cara aí eu já num sei o que fazer :huh: Mas fica o apelo aos grandes... S, M, T :) B) Abs. Progr'amador. ;)

Então em vez de usar um parametro use uma variável dentro da select ' AND c.status = ''F''' + #13#10 + ' AND ios.data_real BETWEEN to_date('+''''+datainicio+''''+', ''DD/MM/YYYY hh24:mi'')'+ #13#10 + ' AND to_date('+''''+datafim+''''+', ''DD/MM/YYYY hh24:mi'')'+ #13#10 + Abs. Progr'amador. ;)

Estranho! Certifique-se que realmente não esta lá, abre o msconfig (no execultar digite msconfig), na guia Inicializar Porque, eu entendo que esse Inicializar do menu Programa inicia depois do iniciar do registro e o Interbase está no registro, ou não? P.S. Valdecir, que tal você se Registrar aqui no SB. Abs. Progr'amador. ;)

Certo, mas você apagou o que está no registro??? pra ficar somente com o do Inicilalizar Abs. Progr'amador. ;)