Res: [delphi-br] Sum(Item)
Tem duas formas, uma é renomeando as colunas e outra é pelo indice da coluna:
Primeira:
Select Sum(BcITEM) AS SOMA1, Sum(VR_ITEM) AS SOMA2
From ITENS
Where Codigo5
Group by Aliquota
Order By Aliquota
variavel1 := qry.fieldbyname('soma1').asFloat;
variavel2 := qry.fieldbyname('soma2').asFloat;
Segunda:
Select Sum(BcITEM) , Sum(VR_ITEM)
From ITENS
Where Codigo5
Group by Aliquota
Order By Aliquota
variavel1 := qry.fields[0].asFloat;
variavel2 := qry.fields[1].asFloat;
Particularmente, não gosto da segunda solução por causa do risco de incluir uma
nova coluna antes da atuais e isso vai alterar o índice, e automaticamente o
código de recuperação dos valores. Tem que ficar tomando cuidado redobrado.
Luciano Calenzani Simões
- Mensagem original
De: Bollasette [EMAIL PROTECTED]
Para: [EMAIL PROTECTED]; [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 20 de Agosto de 2008 17:54:48
Assunto: [delphi-br] Sum(Item)
Select Sum(BcITEM), Sum(VR_ITEM)
From ITENS
Where Codigo5
Group by Aliquota
Order By Aliquota
Olá, saudações a todos.
Meus amigos, como posso 'pegar' o reultado da soma no código acima ?
[ ]sss
Henrique
www.guardalivro. cnt.br
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF] Para desenvolvedores de Maringá-PR
Pessoal, Estamos com uma vaga para desenvolvedor Delphi, *que conheça a linguagem*. Quem tiver interesse, pode entrar em contato comigo pelo e-mail, ou pelo GTalk. []'s -- /* * Edson Marco Ferrari Junior * [EMAIL PROTECTED] * http://www.edmafer.com.br */ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema ao compilar - Duplicate resource(s):
Esse erro e devido ao tentar acrescentar um componente com o mesmo nome de um ja instalado, vc deve remover a package deste componente e seu path. inacio_mecena escreveu: Ola pessoal to com o seguinte erro abaixo: [Error] WARNING. Duplicate resource(s): [Error] Type 2 (BITMAP), ID CEDITBMP: [Error] File C:\Projetos\ rxlib-2.7. 6\Units\CurrEdit .R32 resource kept; file C:\Projetos\ rxlib-2.7. 6\Units\rxCurrEd it.R32 resource discarded. [Error] Type 2 (BITMAP), ID DBN_CANCEL: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_DELETE: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_EDIT: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_FIRST: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_INSERT:[ Error] File c:\arquivos de programas\borland\ delphi6\Lib\ QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_LAST: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_NEXT: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_POST: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_PRIOR: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_REFRESH: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DEDITBMP: [Error] File C:\Projetos\ rxlib-2.7. 6\Units\rxToolEd it.R32 resource kept; file C:\Projetos\ rxlib-2.7. 6\Units\ToolEdit .R32 resource discarded. [Error] Type 2 (BITMAP), ID FEDITBMP: [Error] File C:\Projetos\ rxlib-2.7. 6\Units\rxToolEd it.R32 resource kept; file C:\Projetos\ rxlib-2.7. 6\Units\ToolEdit .R32 resource discarded. [Error] Type 2 (BITMAP), ID NEXT1: [Error] File C:\Projetos\ rxlib-2.7. 6\Units\rxPickDa te.R32 resource kept; file C:\Projetos\ rxlib-2.7. 6\Units\PickDate .R32 resource discarded. [Error] Type 2 (BITMAP), ID NEXT2: [Error] File C:\Projetos\ rxlib-2.7. 6\Units\rxPickDa te.R32 resource kept; file C:\Projetos\ rxlib-2.7. 6\Units\PickDate .R32 resource discarded. [Error] Type 2 (BITMAP), ID PREV1: [Error] File C:\Projetos\ rxlib-2.7. 6\Units\rxPickDa te.R32 resource kept; file C:\Projetos\ rxlib-2.7. 6\Units\PickDate .R32 resource discarded. [Error] Type 2 (BITMAP), ID PREV2: [Error] File C:\Projetos\ rxlib-2.7. 6\Units\rxPickDa te.R32 resource kept; file C:\Projetos\ rxlib-2.7. 6\Units\PickDate .R32 resource discarded. [Error] Type 2 (BITMAP), ID SEDITBMP: [Error] File C:\Projetos\ rxlib-2.7. 6\Units\rxToolEd it.R32 resource kept; file C:\Projetos\ rxlib-2.7. 6\Units\ToolEdit .R32 resource discarded. [Error] Type 10 (RCDATA), ID TLOGINDIALOG: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBLogDlg. xfm resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ DBLOGDLG. dfm resource discarded. [Error] Type 10 (RCDATA), ID TPASSWORDDIALOG: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBPWDlg. xfm resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ DbPWDlg.dfm resource discarded. Att.. Inácio Mecena
RES: [delphi-br] Sum(item)
Amigo quando vc utiliza apenas funções no select vc não precisa utilizar o group by. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Bollasette Enviada em: quarta-feira, 20 de agosto de 2008 23:00 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Sum(item) Select Sum(BcITEM),Sum(VR_ITEM) From ITENS Where Codigo5 Group by Aliquota Order By Aliquota Olá, saudações a todos. Meus amigos, como posso 'pegar' o reultado da soma no código acima ? [ ]sss Henrique www.guardalivro.cnt.br __ Information from ESET Smart Security, version of virus signature database 3325 (20080804) __ The message was checked by ESET Smart Security. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Oportunidade Freelance Delphi Porto Alegre-RS
Olá pessoal. Aqui na empresa estamos precisando de um programador Delphi pra fazer um freela. O que precisamos é o desenvolvimento de uma DLL para comunicação através de Socket. Os únicos requisitos são o conhecimento da tecnologia Sockets, e a manipulação de Array de Bytes no Delphi, assim como o esclarecimento de signed, unsigned, decimal, hexa, binário, etc. interessados, favor entrar em contato comigo. Att -- Rafael Quines [EMAIL PROTECTED] cel: +55(51)8132-1443 http://rafaelquines.com
RES: [delphi-br] Sum(item)
Amigo geralmente na query q está este select vai aparecer os fiels F1,F2. Daí vc pode pegar assim: Edit1.text := query1.fieldbyname(F1).asstring; Espero tem ajudado. Um abraço. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Bollasette Enviada em: quarta-feira, 20 de agosto de 2008 23:00 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Sum(item) Select Sum(BcITEM),Sum(VR_ITEM) From ITENS Where Codigo5 Group by Aliquota Order By Aliquota Olá, saudações a todos. Meus amigos, como posso 'pegar' o reultado da soma no código acima ? [ ]sss Henrique www.guardalivro.cnt.br __ Information from ESET Smart Security, version of virus signature database 3325 (20080804) __ The message was checked by ESET Smart Security. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Extrato bancário
Estou precisando fazer uma espécie de extrato bancário, Na tabela valores tenho os campos tbCredito, tbdebito, etc Gostaria de saber como posso mostrar no formato abaixo Credito Debito Saldo Data 1000,00 Null 1000,00 05/08/2008 Null 200,00800,00 06/08/2008 300,00 Null 1100,00 10/08/2008 Eu não tenho o campo SALDO na tabela. Como posso fazer isso?
RES: [delphi-br] Sum(item)
Alessandro, depende do resultado esperado. Se não colocar o GROUP BY ALIQUOTA ele fará uma soma geral, no caso do colega, parece que ele está querendo soma por alíquota. Mesmo quando o campo não é exibido será agrupadamente normalmente pelo campo que está no GROUP BY. Luciano Calenzani Simões - Mensagem original De: Alessandro Pichiteli [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 20 de Agosto de 2008 23:56:46 Assunto: RES: [delphi-br] Sum(item) Amigo quando vc utiliza apenas funções no select vc não precisa utilizar o group by. Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Extrato bancário
Basta adaptar a setença abaixo para os nomes de tabela e campos que estão no seu banco. Essa setença foi testada em Sybase SQL Anywhere 9. Outra coisa, se o campo de valor do débito já estiver com o sinal de negativo, basta trocar os - (sinal de subtração) por um + (sinal de adição). select data, coalesce(sum(debito), 0) debito, coalesce(sum(credito),0) credito, coalesce((select sum(credito) - sum(debito) from teste as testesaldo where data teste.data ), 0) - debito + credito as saldo from teste group by data order by data Luciano Calenzani Simões - Mensagem original De: oscarnjr [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 21 de Agosto de 2008 9:25:32 Assunto: [delphi-br] Extrato bancário Estou precisando fazer uma espécie de extrato bancário, Na tabela valores tenho os campos tbCredito, tbdebito, etc Gostaria de saber como posso mostrar no formato abaixo Credito Debito Saldo Data 1000,00 Null 1000,00 05/08/2008 Null 200,00800,00 06/08/2008 300,00 Null 1100,00 10/08/2008 Eu não tenho o campo SALDO na tabela. Como posso fazer isso? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Extrato bancário
Bom dia. No próprio select vc pode mondar uma coluna com o nome de saldo. faça assim: select credito, debito, (credito-debito) as saldo, data from nome da tabela que conta os atibutos 2008/8/21 oscarnjr [EMAIL PROTECTED] Estou precisando fazer uma espécie de extrato bancário, Na tabela valores tenho os campos tbCredito, tbdebito, etc Gostaria de saber como posso mostrar no formato abaixo Credito Debito Saldo Data 1000,00 Null 1000,00 05/08/2008 Null 200,00 800,00 06/08/2008 300,00 Null 1100,00 10/08/2008 Eu não tenho o campo SALDO na tabela. Como posso fazer isso? [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Extrato bancário
Alison, o saldo que o colega citou, é igual a um extrato de conta corrente, são os valores do dia somados aos valores de todos os dias anteriores. Da forma que você sugeriu, só será exibido a soma dos lançamentos do dia. Luciano Calenzani Simões - Mensagem original De: Alison Zen [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 21 de Agosto de 2008 9:51:46 Assunto: Re: [delphi-br] Extrato bancário Bom dia. No próprio select vc pode mondar uma coluna com o nome de saldo. faça assim: select credito, debito, (credito-debito) as saldo, data from nome da tabela que conta os atibutos Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Extrato bancário
Primeira coisa, qual o seu banco de dados? É que podemos usar recursos do banco pra te ajudar. No sqlanywhere, seria bem fácil. Zote http://gofrom.us De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de oscarnjr Enviada em: quinta-feira, 21 de agosto de 2008 09:26 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Extrato bancário Estou precisando fazer uma espécie de extrato bancário, Na tabela valores tenho os campos tbCredito, tbdebito, etc Gostaria de saber como posso mostrar no formato abaixo Credito Debito Saldo Data 1000,00 Null 1000,00 05/08/2008 Null 200,00 800,00 06/08/2008 300,00 Null 1100,00 10/08/2008 Eu não tenho o campo SALDO na tabela. Como posso fazer isso? [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Extrato bancário
Aproveitando que o Luciano também usa o ASA, montei o exemplo abaixo usando a versão 9. Nele, faço union all na mesma tabela (mas separando as linhas) pra simular o uso de 2 tabelas conforme foi descrito. Esse union, gera uma view virtual, chamada de f. Depois faço no select nesta view usando as funções de OLAP. select data, deb, cred, sum(coalesce(deb, cred)) over (order by id range between unbounded preceding and current row) as saldo from ( select id, data, null deb, valor cred from Movimentos where valor = 100.0 union all select id, data, valor * -1 deb, null cred from Movimentos where valor 100.0 ) f Para testar, basta criar uma tabela com esta estrutura e fazer alguns inserts: Create table Movimentos ( id integer not null default autoincrement, Data date not null default current date, Valor numeric(10,2) not null default 0, Primary key (id) ) Abraço -- José Henrique (Zote) Analista de TI Bludata Software De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luciano Calenzani Simões Enviada em: quinta-feira, 21 de agosto de 2008 09:49 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Extrato bancário Basta adaptar a setença abaixo para os nomes de tabela e campos que estão no seu banco. Essa setença foi testada em Sybase SQL Anywhere 9. Outra coisa, se o campo de valor do débito já estiver com o sinal de negativo, basta trocar os - (sinal de subtração) por um + (sinal de adição). select data, coalesce(sum(debito), 0) debito, coalesce(sum(credito),0) credito, coalesce((select sum(credito) - sum(debito) from teste as testesaldo where data teste.data ), 0) - debito + credito as saldo from teste group by data order by data Luciano Calenzani Simões - Mensagem original De: oscarnjr [EMAIL PROTECTED] mailto:oscarnjr%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 21 de Agosto de 2008 9:25:32 Assunto: [delphi-br] Extrato bancário Estou precisando fazer uma espécie de extrato bancário, Na tabela valores tenho os campos tbCredito, tbdebito, etc Gostaria de saber como posso mostrar no formato abaixo Credito Debito Saldo Data 1000,00 Null 1000,00 05/08/2008 Null 200,00 800,00 06/08/2008 300,00 Null 1100,00 10/08/2008 Eu não tenho o campo SALDO na tabela. Como posso fazer isso? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sum(item)
Isso mesmo Luciano, tive que manter a cláusula GROUP BY para a seleção por alíquotas. [ ]s, Henrique - Original Message - From: Luciano Calenzani Simões To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 21, 2008 9:30 AM Subject: RES: [delphi-br] Sum(item) Alessandro, depende do resultado esperado. Se não colocar o GROUP BY ALIQUOTA ele fará uma soma geral, no caso do colega, parece que ele está querendo soma por alíquota. Mesmo quando o campo não é exibido será agrupadamente normalmente pelo campo que está no GROUP BY. Luciano Calenzani Simões - Mensagem original De: Alessandro Pichiteli [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 20 de Agosto de 2008 23:56:46 Assunto: RES: [delphi-br] Sum(item) Amigo quando vc utiliza apenas funções no select vc não precisa utilizar o group by. Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.138 / Virus Database: 270.6.6/1624 - Release Date: 20-08-2008 19:11 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sum(item)
Engraçado que, se eliminar AS SOMA1 da cláusula
posso pegar o valor total assim:
sFloat:=dataset.fieldbyname('SUM(BC_ITEM)').AsFloat;
[ ]s, Henrique
- Original Message -
From: Bollasette
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, August 21, 2008 12:35 PM
Subject: Re: [delphi-br] Sum(item)
Isso mesmo Luciano, tive que manter a cláusula GROUP BY para
a seleção por alíquotas.
[ ]s, Henrique
- Original Message -
From: Luciano Calenzani Simões
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, August 21, 2008 9:30 AM
Subject: RES: [delphi-br] Sum(item)
Alessandro, depende do resultado esperado. Se não colocar o GROUP BY ALIQUOTA
ele fará uma soma geral, no caso do colega, parece que ele está querendo soma
por alíquota. Mesmo quando o campo não é exibido será agrupadamente normalmente
pelo campo que está no GROUP BY.
Luciano Calenzani Simões
- Mensagem original
De: Alessandro Pichiteli [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 20 de Agosto de 2008 23:56:46
Assunto: RES: [delphi-br] Sum(item)
Amigo quando vc utiliza apenas funções no select vc não precisa utilizar o
group by.
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara
@ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.6.6/1624 - Release Date: 20-08-2008
19:11
[As partes desta mensagem que não continham texto foram removidas]
No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.6.6/1624 - Release Date: 20-08-2008 19:11
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Sum(item)
Sim. Se você rodar essa sentença (sem os alias) em um editor de comandos SQL, vai notar que o nome da coluna será o própria função agregada, mas não é aconselhável, imagine uma função agregada com um alto grau de complexidade ou uma subquery. Luciano Calenzani Simões - Mensagem original De: Bollasette [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 21 de Agosto de 2008 12:55:57 Assunto: Re: [delphi-br] Sum(item) Engraçado que, se eliminar AS SOMA1 da cláusula posso pegar o valor total assim: sFloat:=dataset. fieldbyname( 'SUM(BC_ITEM) ').AsFloat; [ ]s, Henrique - Original Message - From: Bollasette To: [EMAIL PROTECTED] os.com.br Sent: Thursday, August 21, 2008 12:35 PM Subject: Re: [delphi-br] Sum(item) Isso mesmo Luciano, tive que manter a cláusula GROUP BY para a seleção por alíquotas. [ ]s, Henrique Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: RES: [delphi-br] Extrato bancário
Olá pessoal!
Estou apanhando de um componente ListView que estou utilizando para mostrar um
mapa de mesas no meu sistema. O que ocorre é que eu utilizava o código abaixo
para formulár o mapa a cada alteração que uma mesa era adicionada ou alterada:
procedure TfrmFrente.CompoeMapa(Sender: TObject);
Var
List: TStringList;
List2: TStringList;
Var
NewItem: TListItem;
I: Integer;
begin
// MONTAGEM DO ARQUIVO DE TEXTO
sqlMapaMesasIni('N', '%');
sqlMapaMesas.First;
List := TStringList.Create;
While Not (sqlMapaMesas.Eof) do
begin
List.Add(sqlMapaMesas.FieldByName('MESA_CARTAO').AsString);
If ((Time = (sqlMapaMesas.FieldByName('ULTIMO_LANCAMENTO').Value +
dm.sqlConfig.FieldByName('CT_MINUTOS_ALERTA').Value))) then
// se o tempo sem atendimento for igual ou maior que o definido no config
begin
If (vPassada 1) then
// se for a passada 1 coloca os ícones normais
begin
If (sqlMapaMesas.FieldByName('STATUS').AsString = 'A') then
List.Add('@' + IntToStr(1))
else
List.Add('@' + IntToStr(0));
end
else
// caso contrário coloca o ícone em branco
begin
List.Add('@' + IntToStr(3));
end;
// se houver mesas agrupadas... adiciona no mapa
If Not (sqlMapaAgrupadas.IsEmpty) then
begin
While Not (sqlMapaAgrupadas.Eof) do
begin
// se para agrupadas também for passada 1 coloca ícone padrão
de agrupamento
If (vPassada 1) then
begin
List.Add(sqlMapaAgrupadas.FieldByName('MESA').AsString);
List.Add('@' + IntToStr(2));
end
else
// caso contrário ícone branco
begin
List.Add(sqlMapaAgrupadas.FieldByName('MESA').AsString);
List.Add('@' + IntToStr(3));
end;
sqlMapaAgrupadas.Next;
end;
end;
//sqlMapaMesas.Next;
end
else
// se não tiver excedido o tempo limite do config
begin
If (sqlMapaMesas.FieldByName('STATUS').AsString = 'A') then
List.Add('@' + IntToStr(1))
else
List.Add('@' + IntToStr(0));
// se houver mesas agrupadas... adiciona no mapa
If Not (sqlMapaAgrupadas.IsEmpty) then
begin
While Not (sqlMapaAgrupadas.Eof) do
begin
List.Add(sqlMapaAgrupadas.FieldByName('MESA').AsString);
List.Add('@' + IntToStr(2));
sqlMapaAgrupadas.Next;
end;
end;
//sqlMapaMesas.Next;
end;
sqlMapaMesas.Next;
end;
If (vPassada 2) then
vPassada := 2
else
vPassada := 1;
List.SaveToFile(ExtractFilePath(Application.ExeName) + 'Mapa.txt');
List.Free;
// MONTAGEM DO MAPA NA TELA
lvMesas.Items.Clear;
lvMesas.ViewStyle := vsIcon;
sqlMapaMesasIni('N', '%');
//***
// aqui ele configura o listview
//***
NewItem := Nil;
lvMesas.Items.Clear;
List2 := TStringList.Create;
Try
List2.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Mapa.txt');
For I := 0 to List2.Count - 1 do
If (List2[I][1] = #9) then
NewItem.SubItems.Add(Trim(List2[I]))
else if (List2[I][1] = '@') then
NewItem.ImageIndex := StrToIntDef(List2[I][2], 0)
else
begin
NewItem := lvMesas.Items.Add;
NewItem.Caption := List2[I];
end;
Finally
List2.Free;
end;
end;
Acontece que agora quero fazer com que uma mesa que esteja sem atendimento a X
minutos seja apresentada com o ícone intermitente, e confesso que toh apanhando.
Minha idéia era utilizar um Timer que a cada 500 (ciclo de tempo) faria a
conferência das mesas abertas e apenas trocaria o ícone representantes por uma
imagem em branco dando o efeito de intermitência. Mas não tah dando muito certo.
Se alguém puder me dar uma luz, fico agradecido.
Leonardo Vinicius Freitag
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Retornar numero de meses entre duas datas
Olá sou novo no delphi e estou com o seguinte problema, tenho 2 datas, uma inicial e outra final, gostaria que o programa me retornasse o numero de meses entre essas duas datas, ja tentei a função MonthsBetween sendo que a mesma me retorna valores totalmente fora da realidade, se alguem puder me ajudar eu ficarei muito agradecido ! -- Antonio Mateus Estudante de Sistemas de Informação [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Oportunidade Desenvolvedor Delphi Win32 e .NET - São P aulo
Galera, Tenho três vagas imediatas e cinco em análise para desenvolvedor Delphi Win32/.NET. Não é uma vaga para estágio e nem para iniciantes. É necessário conhecimento em .NET e banco de dados relacional. Interessados e maiores detalhes devem mandar email com currículo para [EMAIL PROTECTED] . Abraços, BL [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Retornar numero de meses entre duas datas
DataInicial:=MonthCalendar1.date; DataFinal:=MonthCalendar2.date; selecionei 01/08/2008 no primeiro calendario e 01/12/2008 no segundo calendario e coloquei ShowMessage(DatetoStr(MonthsBetween(DataInicial, DataFinal))); e a caixa de dialago me manda o valor 01/01/1900... nao entendi esse resultado... 2008/8/21 Rubem Nascimento da Rocha [EMAIL PROTECTED] Como estão sendo passadas essas datas? Que valor é esse errado que a função retorna pra vc? Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mateus.santana%40gmail.com Date: Thu, 21 Aug 2008 15:28:54 -0300 Subject: [delphi-br] Retornar numero de meses entre duas datas Olá sou novo no delphi e estou com o seguinte problema, tenho 2 datas, uma inicial e outra final, gostaria que o programa me retornasse o numero de meses entre essas duas datas, ja tentei a função MonthsBetween sendo que a mesma me retorna valores totalmente fora da realidade, se alguem puder me ajudar eu ficarei muito agradecido ! -- Antonio Mateus Estudante de Sistemas de Informação __ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ -- Antonio Mateus Estudante de Sistemas de Informação 5º Periodo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Retornar numero de meses entre duas datas
Tem uma Unit chamada DateUtils que tem várias funções para manipulação de datas. Podes utilizar a função IncMonth da seguinte forma: procedure ContaMesesEntreDatas(DataInicial, DataFinal: TDate) : integer; var DataAuxiliar : TDate; begin NroDeMeses := 0; DataAuxiliar := DataInicial; while IncMonth(DataAuxiliar,1)DataFinal do begin Inc(NroDeMeses); DataAuxiliar := IncMonth(DataAuxiliar,1); end; result := NroDeMeses; end; Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br (53) 3233-7118 - Original Message - From: Antonio Mateus To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 21, 2008 3:28 PM Subject: [delphi-br] Retornar numero de meses entre duas datas Olá sou novo no delphi e estou com o seguinte problema, tenho 2 datas, uma inicial e outra final, gostaria que o programa me retornasse o numero de meses entre essas duas datas, ja tentei a função MonthsBetween sendo que a mesma me retorna valores totalmente fora da realidade, se alguem puder me ajudar eu ficarei muito agradecido ! -- Antonio Mateus Estudante de Sistemas de Informação [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,48adb3fc84571742216817 [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Retornar numero de meses entre duas datas
Dá uma olhada nestes dois textos, neles você vai ter a solução do seu problema e entender mais sobre datas no Delphi. http://dn.codegear.com/article/33729 http://www.devmedia.com.br/articles/viewcomp.asp?comp=356 Mas não deixe de ler o help do Delphi que explica o porque o MonthsBetween está retornando valores totalmente fora da realidade: Returns the approximate number of months between two specified TDateTime values. Call MonthsBetween to obtain the difference, in months, between two TDateTime values. Because months are not all the same length, MonthsBetween returns an approximation based on an assumption of 30.4375 days per month. Fractional months are not counted. Thus, for example, MonthsBetween reports the difference between Feb 1 and Mar 1 as 0. Depois dá uma olhada na função MonthSpan. Olha o que informa o help: Returns the approximate number of months, including fractions, between two specified TDateTime values. Call MonthSpan to obtain the difference, in months, between two TDateTime values. Because months are not all the same length, MonthsBetween returns an approximation based on an assumption of 30.4375 days per month. Unlike the MonthsBetween function, which does not report fractional months, MonthSpan reports incomplete months as a fraction of an entire month Na verdade a solução vai depender da sua necessidade. Luciano Calenzani Simões - Mensagem original De: Antonio Mateus [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 21 de Agosto de 2008 15:28:54 Assunto: [delphi-br] Retornar numero de meses entre duas datas Olá sou novo no delphi e estou com o seguinte problema, tenho 2 datas, uma inicial e outra final, gostaria que o programa me retornasse o numero de meses entre essas duas datas, ja tentei a função MonthsBetween sendo que a mesma me retorna valores totalmente fora da realidade, se alguem puder me ajudar eu ficarei muito agradecido ! -- Antonio Mateus Estudante de Sistemas de Informação Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Sum(item)
No caso de separar por alíquota e não somar tudo ele usaria um DISTINCT em vez do group by não seria? Não tenho certeza mas acho q seria. Me desculpe se eu estiver enganado amigo. Um abraço. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luciano Calenzani Simões Enviada em: quinta-feira, 21 de agosto de 2008 09:30 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Sum(item) Alessandro, depende do resultado esperado. Se não colocar o GROUP BY ALIQUOTA ele fará uma soma geral, no caso do colega, parece que ele está querendo soma por alíquota. Mesmo quando o campo não é exibido será agrupadamente normalmente pelo campo que está no GROUP BY. Luciano Calenzani Simões - Mensagem original De: Alessandro Pichiteli [EMAIL PROTECTED] mailto:alessandro%40cgworks.com.br com.br Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Enviadas: Quarta-feira, 20 de Agosto de 2008 23:56:46 Assunto: RES: [delphi-br] Sum(item) Amigo quando vc utiliza apenas funções no select vc não precisa utilizar o group by. Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new. http://br.new.mail.yahoo.com/addresses mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sum(item)
Query.close;
query.sql.clear;
query.sql.add('Select Sum(BcITEM) AS BC, Sum(VR_ITEM) AS VR From ITENS Where
Codigo5 Group by Aliquota Order By Aliquota');
query.open;
label1.caption := query.fieldbyname('bc').text;
label2.caption := query.fieldbyname('vr').text;
Ats,
Alcione Guimarães
Piracaia Soft
(11)4036-6299
(11)9515-8707
- Original Message -
From: Bollasette
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, August 20, 2008 10:59 PM
Subject: [delphi-br] Sum(item)
Select Sum(BcITEM),Sum(VR_ITEM)
From ITENS
Where Codigo5
Group by Aliquota
Order By Aliquota
Olá, saudações a todos.
Meus amigos, como posso 'pegar' o reultado da soma no código acima ?
[ ]sss
Henrique
www.guardalivro.cnt.br
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Extrato bancário
muito boa essa dica ... Cícero Fernandes Eng. Eletricista Eng. de Segurança do Trabalho CREA-SC 27.958-0 P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alison Zen Enviada em: quinta-feira, 21 de agosto de 2008 09:52 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Extrato bancário Bom dia. No próprio select vc pode mondar uma coluna com o nome de saldo. faça assim: select credito, debito, (credito-debito) as saldo, data from nome da tabela que conta os atibutos 2008/8/21 oscarnjr [EMAIL PROTECTED] mailto:oscarnjr%40yahoo.com.br com.br Estou precisando fazer uma espécie de extrato bancário, Na tabela valores tenho os campos tbCredito, tbdebito, etc Gostaria de saber como posso mostrar no formato abaixo Credito Debito Saldo Data 1000,00 Null 1000,00 05/08/2008 Null 200,00 800,00 06/08/2008 300,00 Null 1100,00 10/08/2008 Eu não tenho o campo SALDO na tabela. Como posso fazer isso? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [Ajuda] Edit
BOm dia pessoal, Estou precisando da seguinte ajuda, Tenho um edit e nele coloco na propriedade text, dd/mm/, por exemplo,gostaria que quando o usuário clicasse nesse edit esse texto sumisse ou então ficasse todo selecionado facilitando assim a inserção de dados do usuário. Alguém tem como me ajudar e fora isso tem outra sugestão?
RES: [delphi-br] Retornar numero de meses entre duas datas
Ola Antonio, Observer que a função MonthsBetween retorna um valor inteiro. Corrigindo ShowMessage(IntToStr(MonthsBetween(DataInicial, DataFinal))) Att.: _ Fernando Leal mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] Programador de Sistemas Coordenadoria de Informática Centro Universitário UNIFEMM 55(0xx31)2106-2114 http://www.unifemm.edu.br/ www.unifemm.edu.br _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Antonio Mateus Enviada em: quinta-feira, 21 de agosto de 2008 15:41 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Retornar numero de meses entre duas datas DataInicial:=MonthCalendar1.date; DataFinal:=MonthCalendar2.date; selecionei 01/08/2008 no primeiro calendario e 01/12/2008 no segundo calendario e coloquei ShowMessage(DatetoStr(MonthsBetween(DataInicial, DataFinal))); e a caixa de dialago me manda o valor 01/01/1900... nao entendi esse resultado... 2008/8/21 Rubem Nascimento da Rocha djpardalrocha@ mailto:djpardalrocha%40hotmail.com hotmail.com Como estão sendo passadas essas datas? Que valor é esse errado que a função retorna pra vc? Sds. To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br From: mateus.santana@ mailto:mateus.santana%40gmail.com gmail.com mateus.santana%40gmail.com Date: Thu, 21 Aug 2008 15:28:54 -0300 Subject: [delphi-br] Retornar numero de meses entre duas datas Olá sou novo no delphi e estou com o seguinte problema, tenho 2 datas, uma inicial e outra final, gostaria que o programa me retornasse o numero de meses entre essas duas datas, ja tentei a função MonthsBetween sendo que a mesma me retorna valores totalmente fora da realidade, se alguem puder me ajudar eu ficarei muito agradecido ! -- Antonio Mateus Estudante de Sistemas de Informação __ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdo http://www.amigosdomessenger.com.br/ messenger.com.br/ -- Antonio Mateus Estudante de Sistemas de Informação 5º Periodo [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Retornar numero de meses entre duas datas
faça a subtração das datas e divida por 30 Cícero Fernandes Eng. Eletricista Eng. de Segurança do Trabalho CREA-SC 27.958-0 P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alessandro DUARTE de Moraes Enviada em: quinta-feira, 21 de agosto de 2008 15:43 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Retornar numero de meses entre duas datas Tem uma Unit chamada DateUtils que tem várias funções para manipulação de datas. Podes utilizar a função IncMonth da seguinte forma: procedure ContaMesesEntreDatas(DataInicial, DataFinal: TDate) : integer; var DataAuxiliar : TDate; begin NroDeMeses := 0; DataAuxiliar := DataInicial; while IncMonth(DataAuxiliar,1)DataFinal do begin Inc(NroDeMeses); DataAuxiliar := IncMonth(DataAuxiliar,1); end; result := NroDeMeses; end; Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacas http://www.santacasarg.com.br arg.com.br (53) 3233-7118 - Original Message - From: Antonio Mateus To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Thursday, August 21, 2008 3:28 PM Subject: [delphi-br] Retornar numero de meses entre duas datas Olá sou novo no delphi e estou com o seguinte problema, tenho 2 datas, uma inicial e outra final, gostaria que o programa me retornasse o numero de meses entre essas duas datas, ja tentei a função MonthsBetween sendo que a mesma me retorna valores totalmente fora da realidade, se alguem puder me ajudar eu ficarei muito agradecido ! -- Antonio Mateus Estudante de Sistemas de Informação [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] mailto:spam%40vetorial.net net Chave de Identificação: 54568,48adb3fc84571742216817 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Retornar numero de meses entre duas datas
agora sim me retornou o numero de meses correto... valeuz !! 2008/8/21 Fernando Leal [EMAIL PROTECTED] Ola Antonio, Observer que a função MonthsBetween retorna um valor inteiro. Corrigindo ShowMessage(IntToStr(MonthsBetween(DataInicial, DataFinal))) Att.: _ Fernando Leal mailto:[EMAIL PROTECTED] fcleal%40unifemm.edu.br [EMAIL PROTECTED] fcleal%40unifemm.edu.br Programador de Sistemas Coordenadoria de Informática Centro Universitário UNIFEMM 55(0xx31)2106-2114 http://www.unifemm.edu.br/ www.unifemm.edu.br _ De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Antonio Mateus Enviada em: quinta-feira, 21 de agosto de 2008 15:41 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Retornar numero de meses entre duas datas DataInicial:=MonthCalendar1.date; DataFinal:=MonthCalendar2.date; selecionei 01/08/2008 no primeiro calendario e 01/12/2008 no segundo calendario e coloquei ShowMessage(DatetoStr(MonthsBetween(DataInicial, DataFinal))); e a caixa de dialago me manda o valor 01/01/1900... nao entendi esse resultado... 2008/8/21 Rubem Nascimento da Rocha djpardalrocha@ mailto:djpardalrocha%40hotmail.com djpardalrocha%2540hotmail.com hotmail.com Como estão sendo passadas essas datas? Que valor é esse errado que a função retorna pra vc? Sds. To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br From: mateus.santana@ mailto:mateus.santana%40gmail.commateus.santana%2540gmail.com gmail.com mateus.santana%40gmail.com Date: Thu, 21 Aug 2008 15:28:54 -0300 Subject: [delphi-br] Retornar numero de meses entre duas datas Olá sou novo no delphi e estou com o seguinte problema, tenho 2 datas, uma inicial e outra final, gostaria que o programa me retornasse o numero de meses entre essas duas datas, ja tentei a função MonthsBetween sendo que a mesma me retorna valores totalmente fora da realidade, se alguem puder me ajudar eu ficarei muito agradecido ! -- Antonio Mateus Estudante de Sistemas de Informação __ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdo http://www.amigosdomessenger.com.br/ messenger.com.br/ -- Antonio Mateus Estudante de Sistemas de Informação 5º Periodo [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Antonio Mateus Estudante de Sistemas de Informação 5º Periodo [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] StarTeam - Off-Topic
Pessoal Não sei se o assunto é OFF, mas alguém sabe se existe algum plugin do StarTeam para o Delphi 7, no Delphi 2005 e Delphi 2006 ele vem integrado na IDE... [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] [Ajuda] Edit
Sugiro que mude de componente para trabalhar com data, exemplo de nativo da VCL: TDateTimePicker... Mas usando um Tedit, exatamente da forma que você quer: No evento onEnter: if edit1.text = 'dd/mm/' then edit1.clear; no evento onExit if trim(edit1.text) = '' then edit1.text := 'dd/mm/'; Mas não aconselho. Use um componente mais adequado. Luciano Calenzani Simões - Mensagem original De: Douglas Takahara [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 21 de Agosto de 2008 12:01:11 Assunto: [delphi-br] [Ajuda] Edit BOm dia pessoal, Estou precisando da seguinte ajuda, Tenho um edit e nele coloco na propriedade text, dd/mm/, por exemplo,gostaria que quando o usuário clicasse nesse edit esse texto sumisse ou então ficasse todo selecionado facilitando assim a inserção de dados do usuário. Alguém tem como me ajudar e fora isso tem outra sugestão? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [Ajuda] Edit
Cara, só o fato do foco entrar no Edit, já seleciona o conteúdo que estiver nele, então no evento OnExit, caso o Edit esteja vazio, volte dd/mm/, não acho muito legal esta utilização, talvez se você falar qual é a funcionalidade total podemos pensar em algo melhor, tem também o componente TMaskEdit onde você pode colocar uma mascara para o campo, talvez funcione melhor do que você está querendo fazer com o Edit, pois no caso to TMaskEdit as barras ficam fixas... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [Ajuda] Edit
no onclick coloque text:=''; Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com --- Em qui, 21/8/08, Douglas Takahara [EMAIL PROTECTED] escreveu: De: Douglas Takahara [EMAIL PROTECTED] Assunto: [delphi-br] [Ajuda] Edit Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 21 de Agosto de 2008, 12:01 BOm dia pessoal, Estou precisando da seguinte ajuda, Tenho um edit e nele coloco na propriedade text, dd/mm/, por exemplo,gostaria que quando o usuário clicasse nesse edit esse texto sumisse ou então ficasse todo selecionado facilitando assim a inserção de dados do usuário. Alguém tem como me ajudar e fora isso tem outra sugestão? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Retornar numero de meses entre duas datas
Vai dar problema se fizer entre as seguinte datas: 01/02/2008 e 01/03/2008. Leia o e-mail que enviei que entenderá o porque. Luciano Calenzani Simões - Mensagem original De: Antonio Mateus [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 21 de Agosto de 2008 16:28:52 Assunto: Re: [delphi-br] Retornar numero de meses entre duas datas agora sim me retornou o numero de meses correto... valeuz !! 2008/8/21 Fernando Leal [EMAIL PROTECTED] edu.br Ola Antonio, Observer que a função MonthsBetween retorna um valor inteiro. Corrigindo ShowMessage( IntToStr( MonthsBetween( DataInicial, DataFinal))) Att.: _ Fernando Leal Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Retornar numero de meses entre duas datas
So, try it:
function MesesEntreDatas(pData1, pData2: TDate): Integer;
begin
if FormatDateTime('mm/', pData1) = FormatDateTime('mm/', pData2) then
//se data1 e data2 estao no mesmo mes...
Result := 1
else
begin
pData1 := strtodate(FormatDateTime('15/MM/', pData1));
pData2 := strtodate(FormatDateTime('15/MM/', pData2));
Result := MonthsBetween(pData1, pData2) + 1;
end;
end;
see you!
- Original Message -
From: Luciano Calenzani Simões
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, August 21, 2008 4:39 PM
Subject: Res: [delphi-br] Retornar numero de meses entre duas datas
Vai dar problema se fizer entre as seguinte datas: 01/02/2008 e 01/03/2008.
Leia o e-mail que enviei que entenderá o porque.
Luciano Calenzani Simões
- Mensagem original
De: Antonio Mateus [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 21 de Agosto de 2008 16:28:52
Assunto: Re: [delphi-br] Retornar numero de meses entre duas datas
agora sim me retornou o numero de meses correto... valeuz !!
2008/8/21 Fernando Leal [EMAIL PROTECTED] edu.br
Ola Antonio,
Observer que a função MonthsBetween retorna um valor inteiro. Corrigindo
ShowMessage( IntToStr( MonthsBetween( DataInicial, DataFinal)))
Att.:
_
Fernando Leal
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara
@ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [Ajuda] Edit
Pessoal, Aproveitando a dica, pergunto: existe alguma maneira de trabalhar com o TDateTimePicker ligado a um dataset? Alexandre Trindade 2008/8/21 Luciano Calenzani Simões [EMAIL PROTECTED] Sugiro que mude de componente para trabalhar com data, exemplo de nativo da VCL: TDateTimePicker... Mas usando um Tedit, exatamente da forma que você quer: No evento onEnter: if edit1.text = 'dd/mm/' then edit1.clear; no evento onExit if trim(edit1.text) = '' then edit1.text := 'dd/mm/'; Mas não aconselho. Use um componente mais adequado. Luciano Calenzani Simões - Mensagem original De: Douglas Takahara [EMAIL PROTECTED] douglashideki%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 21 de Agosto de 2008 12:01:11 Assunto: [delphi-br] [Ajuda] Edit BOm dia pessoal, Estou precisando da seguinte ajuda, Tenho um edit e nele coloco na propriedade text, dd/mm/, por exemplo,gostaria que quando o usuário clicasse nesse edit esse texto sumisse ou então ficasse todo selecionado facilitando assim a inserção de dados do usuário. Alguém tem como me ajudar e fora isso tem outra sugestão? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] [Ajuda] Edit
Só criando um componente descendente de TDateTimePicker data-aware. Neste novo componente, ele teria que trabalhar com datalinks. Informe-se sobre isso no help do Delphi. Mais especificamente, para este caso, sobre a classe TFieldDataLink. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 21 Aug 2008 17:12:47 -0300 Subject: Re: [delphi-br] [Ajuda] Edit Pessoal, Aproveitando a dica, pergunto: existe alguma maneira de trabalhar com o TDateTimePicker ligado a um dataset? Alexandre Trindade 2008/8/21 Luciano Calenzani Simões [EMAIL PROTECTED] Sugiro que mude de componente para trabalhar com data, exemplo de nativo da VCL: TDateTimePicker... Mas usando um Tedit, exatamente da forma que você quer: No evento onEnter: if edit1.text = 'dd/mm/' then edit1.clear; no evento onExit if trim(edit1.text) = '' then edit1.text := 'dd/mm/'; Mas não aconselho. Use um componente mais adequado. Luciano Calenzani Simões - Mensagem original De: Douglas Takahara [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 21 de Agosto de 2008 12:01:11 Assunto: [delphi-br] [Ajuda] Edit BOm dia pessoal, Estou precisando da seguinte ajuda, Tenho um edit e nele coloco na propriedade text, dd/mm/, por exemplo,gostaria que quando o usuário clicasse nesse edit esse texto sumisse ou então ficasse todo selecionado facilitando assim a inserção de dados do usuário. Alguém tem como me ajudar e fora isso tem outra sugestão? _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/
[delphi-br] Problemas com ListView
Olá pessoal!
Mandei a mensagem respondendo de forma equivocada a mensagem de um colega.
Estou apanhando de um componente ListView que estou utilizando para
mostrar um mapa de mesas no meu sistema. O que ocorre é que eu
utilizava o código abaixo para formulár o mapa a cada alteração que uma
mesa era adicionada ou alterada:
procedure TfrmFrente.CompoeMa pa(Sender: TObject);
Var
List: TStringList;
List2: TStringList;
Var
NewItem: TListItem;
I: Integer;
begin
// MONTAGEM DO ARQUIVO DE TEXTO
sqlMapaMesasIni( 'N', '%');
sqlMapaMesas. First;
List := TStringList. Create;
While Not (sqlMapaMesas. Eof) do
begin
List.Add(sqlMapaMes as.FieldByName( 'MESA_CARTAO' ).AsString) ;
If ((Time = (sqlMapaMesas. FieldByName( 'ULTIMO_LANCAMEN TO').Value
+ dm.sqlConfig. FieldByName( 'CT_MINUTOS_ ALERTA'). Value))) then
// se o tempo sem atendimento for igual ou maior que o definido no config
begin
If (vPassada 1) then
// se for a passada 1 coloca os ícones normais
begin
If (sqlMapaMesas. FieldByName( 'STATUS') .AsString = 'A') then
List.Add('@' + IntToStr(1))
else
List.Add('@' + IntToStr(0)) ;
end
else
// caso contrário coloca o ícone em branco
begin
List.Add('@' + IntToStr(3)) ;
end;
// se houver mesas agrupadas... adiciona no mapa
If Not (sqlMapaAgrupadas. IsEmpty) then
begin
While Not (sqlMapaAgrupadas. Eof) do
begin
// se para agrupadas também for passada 1 coloca ícone padrão de agrupamento
If (vPassada 1) then
begin
List.Add(sqlMapaAgr upadas.FieldByNa me('MESA' ).AsString) ;
List.Add('@' + IntToStr(2)) ;
end
else
// caso contrário ícone branco
begin
List.Add(sqlMapaAgr upadas.FieldByNa me('MESA' ).AsString) ;
List.Add('@' + IntToStr(3)) ;
end;
sqlMapaAgrupadas. Next;
end;
end;
//sqlMapaMesas. Next;
end
else
// se não tiver excedido o tempo limite do config
begin
If (sqlMapaMesas. FieldByName( 'STATUS') .AsString = 'A') then
List.Add('@' + IntToStr(1))
else
List.Add('@' + IntToStr(0)) ;
// se houver mesas agrupadas... adiciona no mapa
If Not (sqlMapaAgrupadas. IsEmpty) then
begin
While Not (sqlMapaAgrupadas. Eof) do
begin
List.Add(sqlMapaAgr upadas.FieldByNa me('MESA' ).AsString) ;
List.Add('@' + IntToStr(2)) ;
sqlMapaAgrupadas. Next;
end;
end;
//sqlMapaMesas. Next;
end;
sqlMapaMesas. Next;
end;
If (vPassada 2) then
vPassada := 2
else
vPassada := 1;
List.SaveToFile( ExtractFilePath( Application. ExeName) + 'Mapa.txt');
List.Free;
// MONTAGEM DO MAPA NA TELA
lvMesas.Items. Clear;
lvMesas.ViewStyle := vsIcon;
sqlMapaMesasIni( 'N', '%');
//** * * * * * *
* * *
// aqui ele configura o listview
//** * * * * * *
* * *
NewItem := Nil;
lvMesas.Items. Clear;
List2 := TStringList. Create;
Try
List2.LoadFromFile( ExtractFilePath( Application. ExeName) + 'Mapa.txt');
For I := 0 to List2.Count - 1 do
If (List2[I][1] = #9) then
NewItem.SubItems. Add(Trim( List2[I]) )
else if (List2[I][1] = '@') then
NewItem.ImageIndex := StrToIntDef( List2[I][ 2], 0)
else
begin
NewItem := lvMesas.Items. Add;
NewItem.Caption := List2[I];
end;
Finally
List2.Free;
end;
end;
Acontece que agora quero fazer com que uma mesa que esteja sem
atendimento a X minutos seja apresentada com o ícone intermitente, e
confesso que toh apanhando.
Minha idéia era utilizar um Timer que a cada 500 (ciclo de tempo) faria
a conferência das mesas abertas e apenas trocaria o ícone
representantes por uma imagem em branco dando o efeito de
intermitência. Mas não tah dando muito certo.
Se alguém puder me dar uma luz, fico agradecido.
Leonardo Vinicius Freitag
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Extrato bancário
O problema é que o saldo sempre estará no registro anterior, Credito Debito Saldo Data 1000,00 0 1000,00 05/08/2008 0 200,00 800,00 06/08/2008 Veja que o cáculo ficou na segunda linha da seguinte forma 1000 - 200 igual 800 select credito, debito, (credito-debito anterior) as saldo, data from nome da tabela que conta os atibutos --- Em delphi-br@yahoogrupos.com.br, [EMAIL PROTECTED] escreveu muito boa essa dica ... Cícero Fernandes Eng. Eletricista Eng. de Segurança do Trabalho CREA-SC 27.958-0 P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! _ De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de Alison Zen Enviada em: quinta-feira, 21 de agosto de 2008 09:52 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Extrato bancário Bom dia. No próprio select vc pode mondar uma coluna com o nome de saldo. faça assim: select credito, debito, (credito-debito) as saldo, data from nome da tabela que conta os atibutos 2008/8/21 oscarnjr [EMAIL PROTECTED] mailto:oscarnjr% 40yahoo.com.br com.br Estou precisando fazer uma espécie de extrato bancário, Na tabela valores tenho os campos tbCredito, tbdebito, etc Gostaria de saber como posso mostrar no formato abaixo Credito Debito Saldo Data 1000,00 Null 1000,00 05/08/2008 Null 200,00 800,00 06/08/2008 300,00 Null 1100,00 10/08/2008 Eu não tenho o campo SALDO na tabela. Como posso fazer isso? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Extrato bancário
oscarnjr, se você fizer da forma que eu e o José Henrique sugerimos, irá funcionar. Luciano Calenzani Simões - Mensagem original De: oscarnjr [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 21 de Agosto de 2008 20:27:40 Assunto: Re: RES: [delphi-br] Extrato bancário O problema é que o saldo sempre estará no registro anterior, Credito Debito Saldo Data 1000,00 0 1000,00 05/08/2008 0 200,00 800,00 06/08/2008 Veja que o cáculo ficou na segunda linha da seguinte forma 1000 - 200 igual 800 Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
