Re: [delphi-br] MUITO URGENTE .. QUERY
Tente dessa forma:
SELECT VCTO, SUM(VALOR) AS TOTALVALOR
FROM PAGAR.DBF PAGAR
WHERE (VCTO BETWEEN :D1 AND :D2) AND (CODIGO BETWEEN :F1 AND :F2) AND
(VRPAGO = 0 OR VRPAGO IS NULL)
GROUP BY VCTO
ORDER BY VCTO
Explicaes:
Se voc quer saber o valor por dia, no precisa colocar a coluna de codigo
no select, tb se no where voc esta filtrando VRPAGO quando for zero, no
precisa tb da referencia dele no select. Se eu entendi direito o que vc
quer, com essa query resolver seu problema
At
RICARDO CERQUEIRA
ANALISTA DE SISTEMAS
On 6/16/05, F D [EMAIL PROTECTED] wrote:
Criei Uma Query S que ela tem que retornar a soma dos valores (Valor) dos
vencimentonada (VCTO) entre as datas informadas (D1 e D2). Tem que retornar
a data e a soma de todos os vecimentos naquela data, mas esta retornando as
datas todas repetidas. Alguem poderia me informar onde est o erro.
VRPAGO o valor pago (VRPAGO = 0)
VALOR o valor devido
F1 e F2 so os Fornecedores
QrRelatorio.Close;
QrRelatorio.Sql.Clear;
QrRelatorio.Sql.Add(' Select Distinct VCTO, Codigo, Sum (Valor) as
somavalor, VrPago ');
QrRelatorio.Sql.Add(' From Pagar.dbf Pagar ');
QrRelatorio.Sql.Add(' Where (VCTO Between :D1 and :D2)and(Codigo Between
:F1 And :F2) and ' + ' (VrPago = 0 or VrPago is Null) ');
QrRelatorio.Sql.Add(' Group By VCTO, Codigo, VrPago ');
QrRelatorio.ParamByName('F1').AsString:= Edit2.Text;
QrRelatorio.ParamByName('F2').AsString:= Edit1.Text;
QrRelatorio.ParamByName('D1').AsDate:= StrToDate(DbLookupComboBox3.Text);
QrRelatorio.ParamByName('D2').AsDate:= StrToDate(DbLookupComboBox4.Text);
QrRelatorio.Open;
Desde j grato
Francisco
Segue Codigo
-
Yahoo! Acesso Grtis: Internet rpida e grtis. Instale o discador agora!
[As partes desta mensagem que no continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
[As partes desta mensagem que no continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que voc faz do Yahoo! Grupos est sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Dúvidas no PageControl e TabSheet ...
SIMPLES, NO EVENTO ONEXIT DO ULTIMO EDIT DE CADA TABSHEET DIGITE O COMANDO: PageControl.TabIndex := PageControl.TabIndex + 1; E NO EVENTO ONENTER DE CADA TABSHEET DIGITE O SETFOCUS NO PRIMEIRO EDIT. VALEU!! RICARDO CERQUEIRA ANALISTA DE SISTEMAS On 6/16/05, Nelson Antonio da Cruz Covolo [EMAIL PROTECTED] wrote: Ol Pessoal ... Tenho um PageControl, com 4 TabSheets, e dentro de cada um desses TabSheets eu tenho vrios edits ... O que eu gostaria de fazer que que quando eu chegar no ultimo edit do TabSheet e mude automaticamente para o proximo TabSheet, e posicione o primeiro edit desse tabsheet ativo... e assim por diante ... Seria tipo uma rolagem entre os TabSheets ... o que esta acontecendo hoje, que quando ele chega no ultimo edit, ele vai para um edit fora do meu PageControl ... no evento OnKeyPress do meu form tenho o seguinte: If (key = #13) Then Begin If Not (activecontrol Is twwdbgrid) and not (activecontrol is TDBMemo) Then Begin key := #0 ; Perform(Wm_NextDlgCtl, 0, 0) ; End ; End ; Desde j eu agradeo a ateno de todos, e ficarei na expectativa de um breve retorno. Atenciosamente, Nelson Antonio -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que no continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Memoria
TEM UM NACIONAL TB MUITO BOM CHAMADO VIRTUAL COMPRESS ( www.virtualpictures.com.br http://www.virtualpictures.com.br) EU UTILIZO ELE E O BICHO COMPACTA MAIS QUE O ASPACK MUITO BOM RICARDO CERQUEIRA ANALISTA DE SISTEMAS On 16 Jun 2005 10:09:04 -0300, eduardo.sic [EMAIL PROTECTED] wrote: Compactar o exe nao vai resolver, vc deve verificar na opo AutoCreate Forms do seu projeto, se por acaso todos os forms ~esto sendo criados na inicializao do programa. isso estaria usando todos os recursos do Windows 98/95, outra coisa a OBSERVAR e se seu projeto tem muitos bitmaps carregados nos Forms. = De:Carlos Fernando (Wiz Sistemas) [EMAIL PROTECTED] Para:delphi-br@yahoogrupos.com.br Assunto:[delphi-br] Re: Memoria Ol no sei se voc conhece o ASpack ma ele redduz em 60% o tamanho do exe e ele continua funcionando perfeitamente veja no site: http://www.aspack.com/ Carlos Wiz Sistemas.com.br http://Sistemas.com.br [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, McGyver [EMAIL PROTECTED] escreveu Estou com um executavel gerado em delphi 6 que est com 14 MB de memoria. Acontece q ele nao roda mais em 98. Apenas em 2000 e XP. No 98 d um erro de memoria insuficiente. Se eu retirar algumas units do executavel a roda normal. Existe alguma limitacao quanto a isso que voces conheam ? [As partes desta mensagem que no continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messa ges Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos http://br.groups.yahoo.com/group/delphi-br/ http://br.yahoo.com/info/utos.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que no continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] FoxPro
Voc esta tentando abrir usando oq? On 6/16/05, Jos Otavio - DTI Light System [EMAIL PROTECTED] wrote: Bom dia: Peguei uma base de dados de um programa feito em FoxPro pra converter pra FireBird. Esta base possui arquivos DBF/FPT/CDX mas no consigo abrir as tabelas DBF... Alguem sabe o que pode ser? Agradeo desde j a ateno de todos. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que no continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Variant type conversion
Tente isso:
Total.Caption := FormatFloat('###, ###,###0.00',(
DTM.tb_avan_soma.FieldByName('soma').AsFloat) -
-(DTM.tb_avanc_debito.FieldByName('debito').AsFloat));
Deve funcionar sem dar o erro mesmo tendo valores null
[]'s
RICARDO CERQUEIRA
ANALISTA DE SISTEMAS
On 6/16/05, Rodrigo Mota [EMAIL PROTECTED] wrote:
Esta dando o erro EVariantError Invalid variant type conversion
Percebi o erro quando o resultado de soma vazio ou dbito vazio,
quando os dois no esto vazios o erro no ocorre
Como procedo agora???
Total.Caption := FormatFloat('###, ###,
###0.00',(DTM.tb_avan_soma.FieldValues['soma']) -
-(DTM.tb_avanc_debito.FieldValues['debito']));
Rodrigo
[As partes desta mensagem que no continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
[As partes desta mensagem que no continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que voc faz do Yahoo! Grupos est sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Formularios aproveitados
O que no esta funcionando? a criao do formulrio? On 6/16/05, Diogo de Oliveira Cunha [EMAIL PROTECTED] wrote: Boa tarde amigos, estou com um problema aqui que talvez voces ja tenham se deparado com ele. Estou desenvolvendo um software novo aqui no meu trabalho, mas aproveitei uns 30% de telas de um outro software que ja fiz a um tempo, o problema e que alguns desses formularios simplesmente nao funcionam! Quando debugo a aplicao o compilador passa pela linha de comando como se o mesmo estivesse sendo executado mas nao acontece nada . . . nao sei o que esta acontecendo . . . fico grato por qualquer tipo de ajuda . . . Obrigado -- Um homem prope-se a tarefa de desenhar o mundo. Ao longo dos anos povoa um espao com imagens de provncias, de reinos, de montanhas, de baas, de naves, de ilhas, de peixes, de habitao, de instrumentos, de astros, de cavalos e de pessoas. Pouco antes de morrer, descobre que esse paciente labirinto de linhas traa a imagem de seu rosto. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que no continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Query
possvel se estiver algum campo relacionado com esta tabela, me diz a
estrutura das duas tabelas que monto a query para voce!
Ricardo Cerqueira
On 6/15/05, Eduardo [EMAIL PROTECTED] wrote:
Acho q vc quer colocar as areas nas colunas. Ento vc tera q construir
varios union.
Exemplo
select Data as Data, livros as livros, Sum(QTD) AS Quantidade de Livros,
Sum(Matematica) as Matematica, Sum(Portugues) as Portugues from (
SELECT DATA AS Data, '' as Tipo, Count(*) as QTD, 0 as Matematica, 0 as
Portugues from livros where livros in ('matematica', 'portugues') group by
data, livros
union all
SELECT DATA AS Data, livros as livros, 0 as QTD, Count(*) as Matematica, 0
as Portugues from livros where livros = 'matematica' group by data, livros
union all
SELECT DATA AS Data, livros as livros, 0 as QTD, 0 as Matematica, Count(*)
as Portugues from livros where livros = 'portugues' group by data, livros)
group by data, livros
Isto com certeza funciona no Oracle no sei qual o seu banco e nem se
exatamente isso q vc quer, mas esta ai.
Eduardo
Ps.: QQ entre em contato pelo MSN [EMAIL PROTECTED] ou em PVT.
- Original Message -
From: Edivaldo David
To: delphi-br
Sent: Tuesday, June 14, 2005 8:18 PM
Subject: [delphi-br] Query
Acho que no fui muito claro na minha pergunta, vou tentar demonstrar o
que eu quero com outro exemplo, vamos supor uma biblioteca:
(Aqui eu quero
saber dentro
do total emprest.
qtos eram
de uma rea
especfica,
Matemtica por
DATA QTD_DE_LIVROS_EMPRESTADOS exemplo)
01/06 80 15
02/06 90 20
03/06 100 25
Lembrando que a rea do livro est em seu cadastro.
isso possvel?
-
Yahoo! Mail: agora com 1GB de espao grtis. Abra sua conta!
[As partes desta mensagem que no continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que voc faz do Yahoo! Grupos est sujeito aos Termos do Servio
do Yahoo!.
[As partes desta mensagem que no continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
[As partes desta mensagem que no continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que voc faz do Yahoo! Grupos est sujeito aos:
http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Re: MUITO URGENTE .. QUERY
ME FALA A ESTRUTURA DESSA TABELA AMIGO PARA PODER VER COM CLAREZA!
RICARDO CERQUEIRA
On 6/16/05, Rodrigo Mota [EMAIL PROTECTED] wrote:
Sun (Valor), aki no eh um AS ?
Segue Codigo
QrRelatorio.Close;
QrRelatorio.Sql.Clear;
QrRelatorio.Sql.Add('Select VCTO, Codigo, Sun (Valor),(
aki tem que colocar um AS e no uma , certo?) VrPago');
QrRelatorio.Sql.Add('From Pagar.dbf Pagar');
QrRelatorio.Sql.Add('Group By VCTO, Codigo, VrPago');
QrRelatorio.Sql.Add('Having ((Codigo Between :F1
And :F2)And(VCTO Between :D1 and :D2) And (VrPago = 0))');
QrRelatorio.ParamByName('F1').AsString:= Edit2.Text;
QrRelatorio.ParamByName('F2').AsString:= Edit1.Text;
QrRelatorio.ParamByName('D1').AsDate:= StrToDate
(DbLookupComboBox3.Text);
QrRelatorio.ParamByName('D2').AsDate:= StrToDate
(DbLookupComboBox4.Text);
QrRelatorio.Open;
Rodrigo
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Carlos Fernando (Wiz Sistemas)
Enviada em: quarta-feira, 15 de junho de 2005 10:08
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: MUITO URGENTE .. QUERY
Ola'
Verifique se no o erro de digitao SUN na verdade deve ser SUM
--- Em delphi-br@yahoogrupos.com.br, F D [EMAIL PROTECTED] escreveu
Criei Uma Query S que ela no retorna nada alguem poderia me
informar onde est o erro.
Esta Query tem que pegar todos os valor Entre as Datas VCTO e que
ainda no foram pagos e somar . O Campo Codigo So os fornecedores e
tem que somar somente os valores dos fornecedores informados.
VRPAGO o valor pago (VRPAGO = 0)
VALOR o valor devido
Desde j grato
Francisco
Segue Codigo
QrRelatorio.Close;
QrRelatorio.Sql.Clear;
QrRelatorio.Sql.Add('Select VCTO, Codigo, Sun (Valor),
VrPago');
QrRelatorio.Sql.Add('From Pagar.dbf Pagar');
QrRelatorio.Sql.Add('Group By VCTO, Codigo, VrPago');
QrRelatorio.Sql.Add('Having ((Codigo Between :F1
And :F2)And(VCTO Between :D1 and :D2) And (VrPago = 0))');
QrRelatorio.ParamByName('F1').AsString:= Edit2.Text;
QrRelatorio.ParamByName('F2').AsString:= Edit1.Text;
QrRelatorio.ParamByName('D1').AsDate:= StrToDate
(DbLookupComboBox3.Text);
QrRelatorio.ParamByName('D2').AsDate:= StrToDate
(DbLookupComboBox4.Text);
QrRelatorio.Open;
__
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
[As partes desta mensagem que no continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
_
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
* O uso que voc faz do Yahoo! Grupos est sujeito aos Termos do
http://br.yahoo.com/info/utos.html Servio do Yahoo!.
[As partes desta mensagem que no continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
[As partes desta mensagem que no continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que voc faz do Yahoo! Grupos est sujeito aos:
http://br.yahoo.com/info/utos.html
