Re: [delphi-br] Obter o primeiro e o ultimo dia da semana corrente
Walter: Veja se é isto que vc quer.. i:=DayOfWeek(Date); //-- Domingo anterior (Date-i)+1 //-- Sabado Posterior (Date-i)+7 [ ]´s Moacir Walter Alves Chagas Junior escreveu: >Uma dúvida bem cabulosa... > >Eu tenho uma data. Suponhamos: 22 de Abril de 2005. Eu preciso obter (Seja >via código Delphi ou via SQL) o primeiro dia da semana (o domingo passado) e >o sabado após esta data (hoje). Ou seja, preciso obter o primeiro e o ultimo >dia da semana em que se encontra o dia corrente. > >Alguém teria uma luz?? > > > > []s > > Walter Alves Chagas Junior > Projeto e desenvolvimento > Telemont Engenharia de telecomunicações > Belo Horizonte - MG - Brazil > [EMAIL PROTECTED] > Fone: (31) 3389-8215 Fax: (31) 3389-8200 > > > >[As partes desta mensagem que não continham texto foram removidas] > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.10.2 - Release Date: 21/4/2005 -- < 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
[delphi-br] Rolagem TListBox
PessoALL, Como faço para que sempre que eu inserir linhas a ultima linha do ListBox receba o foco focada ?? [ ]´s Moacir -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.8.6 - Release Date: 30/3/2005 -- < 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] OFFTOPIC - Dúvida com sql
Mauricio, Bem lembrado. [ ]´s Moacir Maurício Chiarato Vaglieri escreveu: >Moacir, > > A sua tática de dar um "A.*, B.*" creio eu que não vá funcionar, pois > existem campos com os mesmos nomes nas duas tabelas. Na minha opinião você > deveria descrever quais campos quer individualmente. > >Abraços, > >Mauricio > - Original Message - > From: Prisma Sistemas - Moacir > To: delphi-br@yahoogrupos.com.br > Sent: Thursday, March 17, 2005 7:32 AM > Subject: Re: [delphi-br] OFFTOPIC - Dúvida com sql > > > Eduardo, > > Select A.*,B.* from TABELA_A A > left join TABELA_B B on (A.ANO=B.ANO and A.SEM=B.SEM and A.TIPO=B.TIPO) > where blablabla > order by bla bla bla > > [ ]´s > Moacir > > > Eduardo Galvão escreveu: > > >Pessoal, > > > >Uma tabela (A) possui como chave primária > >os campos ANO,SEM,TIPO. > > > >Uma outra (B) possui os campos ANO,SEM,TIPO e mais outros campos. > > > >Eu preciso saber quais os registros da tabela (A) não > >existem na (B). > > > >Exemplo: Se (A) possui o registro 2005,1,'A', > >e nenhum registro em (B) possui estes campos, > >então eu devo imprimir (A). > > > >Alguma dica? > > > >Saudações, > >Eduardo Paci Galvão > >Engenheiro Eletricista UFMG 1990 > >www.egalvao.com.br > >MSN: [EMAIL PROTECTED] > >Skype: eduardogalvao > > > > -- > > > >No virus found in this outgoing message. > >Checked by AVG Anti-Virus. > >Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005 > > > > > >[As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > -- > No virus found in this outgoing message. > Checked by AVG Anti-Virus. > Version: 7.0.308 / Virus Database: 266.7.3 - Release Date: 15/3/2005 > > > > -- > <<<<< 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] > > > >Yahoo! Grupos, um serviço oferecido por: > > > > > > > >-- > 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 Serviço > do Yahoo!. > > > > >-- > > > Nenhum virus encontrado nesta mensagem. > Checked by AVG Anti-Virus. > Version: 7.0.308 / Virus Database: 266.7.3 - Release Date: 15/03/2005 > > -- > >Nenhum virus encontrado nesta mensagem. >Checked by AVG Anti-Virus. >Version: 7.0.308 / Virus Database: 266.7.3 - Release Date: 15/03/2005 > > >[As partes desta mensagem que não continham texto foram removidas] > > > > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.3 - Release Date: 15/3/2005 -- <<<<< 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] OFFTOPIC - Dúvida com sql
Eduardo, Select A.*,B.* from TABELA_A A left join TABELA_B B on (A.ANO=B.ANO and A.SEM=B.SEM and A.TIPO=B.TIPO) where blablabla order by bla bla bla [ ]´s Moacir Eduardo Galvão escreveu: >Pessoal, > >Uma tabela (A) possui como chave primária >os campos ANO,SEM,TIPO. > >Uma outra (B) possui os campos ANO,SEM,TIPO e mais outros campos. > >Eu preciso saber quais os registros da tabela (A) não >existem na (B). > >Exemplo: Se (A) possui o registro 2005,1,'A', >e nenhum registro em (B) possui estes campos, >então eu devo imprimir (A). > >Alguma dica? > >Saudações, >Eduardo Paci Galvão >Engenheiro Eletricista UFMG 1990 >www.egalvao.com.br >MSN: [EMAIL PROTECTED] >Skype: eduardogalvao > > -- > >No virus found in this outgoing message. >Checked by AVG Anti-Virus. >Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005 > > >[As partes desta mensagem que não continham texto foram removidas] > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.3 - Release Date: 15/3/2005 -- < 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] Letras maisculas e minusculas
Moura,
Escrevi abaixo um fragmento de código que deve resolver o teu problema
function Capitaliza(source:string) : String;
var
sPedaco : String;
begin
Result:='';
while source<>'' do
begin
if Pos(' ',source)>0 then
begin
sPedaco := Copy(source,1, Pos(' ',source)-1);
Result:=Result+AnsiUpperCase(Copy(sPedaco,1,1)+Copy(sPedaco,2,Length(sPedaco))+'
';
source:=Copy(Source,1,source,1, Pos(' ',source)+1);
end
else
Begin
Result:=Result+AnsiUpperCase(Copy(source,1,1)+Copy(source,2,Length(source));
source:='';
end;
end;
ex.:
...
...
While not TTable1.eof do
Begin
Table1.Edit;
Table1.FeldByName('NOME').AsString:=Capitaliza(Table1.FIeldByName('NOME').AsString);
Table1.post;
TTable1.Next;
end;
Não testei no Delphi mas acho que deve resolver..
[ ]´s
Moacir
jmourajr2000 escreveu:
>Caros amigos, boa tarde!
>
>Tenho a seguinte situação:
>
>Um cliente, tem em suas tabelas campos do tipo string, sendo por
>exemplo: no cadastro de clientes o campo Nome/Razão Social todos os
>registros estão e ou foram cadastrados como UpperCase(maiusculas),
>devido ao aplicativo fornecido pelo profissional que os ajudava, não
>permitir digitar com padrao normal.
>
>No momento estou implementando uma ferramenta desenvolvida por mim e
>quero aproveitar as informações contidas nas tabelas(Paradox), só que
>o cliente necessita que eu converta estas informações de maisculas
>para minusculas, até ai consigo fazer numa boa.
>Sendo:
> O nome cadastrado: JOSE JOAO SILVA(todos carac.em maisculo)
> consigo deixar assim:Jose joao silva(1° caracter maisculo)
>Mas ele quer que fique assim: Jose Joao Silva(Cada nome começando com
>maisculas).
>
>Estou quebrando a cabeça e não estou tendo resultados, será que tem
>como fazer isso?
>
>Quem puder ajudar agradeço muito.
>
>Abraços a todos.
>
>José de Moura
>
>
>
>
>
>
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005
--
< 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] Function retornando 2 valores
Tiago/Rubens, Tb é possivel usando um record para isto. Veja como : unit BLABLABLA; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, etc, etc, etc; type TRetorno= Record Valor : Currency; Descricao : String; Existe : Boolean; Quantidade: Integer; end; TForm1 = class(TForm) etc etc etc Function SeiLaoQue(parametro1 : string ) : TRetorno; Var MeuRetorno : TRetorno; Begin With MeuRetorno do Begin Valor := 10.25; Descricao :='Teste com Record'; Existe:=False; Quantidade :=1; end; Result MeuRetorno; End; [ ]´s Moacir Rubem Rocha escreveu: >Isto é uma regra fundamental em programação, seja ela feita na linguagem que >for. Toda função SEMPRE retorna um único valor. Se quiser que retorne mais de >um valor, das duas uma: > >1) Crie uma procedure contendo parâmetros por referência para que eles >retornem os valores que vc quer, ou; >2) Cria uma função que retorne UM vetor com os valores que vc quer. > >[]s > >-Mensagem original- >De: tiago_econtabil [mailto:[EMAIL PROTECTED] >Enviada em: sexta-feira, 11 de março de 2005 14:30 >Para: delphi-br@yahoogrupos.com.br >Assunto: [delphi-br] Function retornando 2 valores > > > > >Pessoal, tem como fazer uma function retornar dois valores? Como eu >declaro? Quero q retorne um valor String e um valor integer. Tem >como? > > > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005 -- < 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] [OFF-Topic] Portas liberadas no computador
Tente o Sheilds Up: https://grc.com/x/ne.dll?bh0bkyd2 [ ]´s Moacir Joao Paulo escreveu: > > >Olá pessoal, > > > >Alguém conhece algum site que eu posso utilizar para verificar se alguma >certa porta TCP/IP está liberada na máquina. > > > >Digo isto, pois preciso acessar via VNC alguns clientes, mas eles garantem >que a porta 5800 e 5900 estão liberadas mais não conecta. > > > >Então achei um programa chamada Port Detect, que faz isto, mas até o cliente >(q é usuário) instalar ele perde muito tempo, então se pudesse ser feito por >um site, talvez fosse bem mais rápido... > > > > > > > >Caso tenha alguma sugestão... > > > > > >Obrigado... > > > >Joao Paulo > > > >[As partes desta mensagem que não continham texto foram removidas] > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005 -- < 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] Select
Filipe, Use um count() pra isto: Select nome, Count(nome) as qtd from minhatabela group by nome [ ]´s Moacir Filipe escreveu: > Bom dia a todos. Como faço para fazer um select que me retorne: > > > Registro (ex. João) + Quantidade de Vezes em q o registro aparece (qtas > vezes aparece joão) > > > > Obrigado. > > > > > Filipe Geyer > Programador > [EMAIL PROTECTED] > www.bludata.com.br > > > > >[As partes desta mensagem que não continham texto foram removidas] > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 14/2/2005 -- < 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] Null
Tente assim:
IF DM_SG.ATIVID.FieldByName('DTFIM').IsNull then
DM_SEC.ATIVID.FieldByName('DTFIM').Clear
else
DM_SEC.ATIVID.FieldByName('DTFIM').AsDateTime:=
DM_SG.ATIVID.FieldByName('DTFIM').AsDateTime;
[ ]´s
Moacir
Marcelo Almeida escreveu:
>info.Desenvolvimento wrote:
>
>
>
>>Estou compilando o sistema e está respondendo o seguinte erro:
>>
>>[Error] SedeGeral.pas(218): Undeclared identifier: 'NULL'
>>
>>MEU Código;
>>
>>IF DM_SG.ATIVID.FieldByName('DTFIM').IsNull then
>> DM_SEC.ATIVID.FieldByName('DTFIM').Value:= NULL else
>> DM_SEC.ATIVID.FieldByName('DTFIM').AsDateTime:=
>> DM_SG.ATIVID.FieldByName('DTFIM').AsDateTime;
>>
>>Obs: Usava D5 e agora estou com D7
>>
>>
>>
>>
>
>A partir do delphi6 vc tem que declarar "variants" no uses.
>
>
>
>
>
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/2/2005
--
< 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] erro ao chamar uma tela
Clovis, Teu banco de dados esta corrompido. Use o GFIX para resolver isto. Veja abaixo mensagem enviada para a lista Firebase-br: " Caro colega, Basicamente, voce terá de executar os comandos abaixo: GFIX -m -f -user sysdba -pass masterkey (recomendo que execute este comando 3 vezes seguidas) Depois execute os comandos: GBAK -g -b -z -v BAK.BAK -user sysdba -pass masterkey Se nào ocorreu nenhum erro, renomear seu arquivo GDB, execute o comando abaixo: GBAK -c -v -z BAK.BAK -user sysdba -pass masterkey " [ ]´s Moacir Clovis Ferreira escreveu: >Ola pessoal. >Saudações > >Esta aparecendo um erro diferente, que nunca apareceu, que diz: Internal gds >software consistence check(wrong record length(183). >ALGUEM PODE DIZER O QUE ACONTECE? > >Obrigado >Clovito > > >[As partes desta mensagem que não continham texto foram removidas] > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/2/2005 -- < 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] Como criar uma Progressão Alfabética
José, Use para isto a função Chr(). Letra A = 65, então, Inteiro=1; Chr(64+Inteiro) = 'A' Inteiro=2; Chr(64+Inteiro) = 'B' Inteiro=3; Chr(64+Inteiro) = 'C' etc... [ ]´s Moacir jmourajr2000 escreveu: >Caros amigos, bom dia! > >Estou necessitando criar uma Progressão Alfabética, onde: > >Tenho um Número de Protocolo(Integer) e preciso incrementar a este >Protocolo uma letra(de A a Z), dependendo da quantidade ou número de >vezes que o cliente usar um determinado Protocolo. >Sei que terei que mudar o campo, na tabela, de Integer para String, >ou criar um campo adicional para isso. Mas como faço para incrementar >essa Progressão? > >Com um Integer faço assim: > > X : Integer > > X := X + 1; > >Agradeço a atenção e abraços a todos. > >José de Moura > > > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.6 - Release Date: 7/2/2005 -- < 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] Ideia para um Controle de Pedidos
Moura, Vc tera que trabalhar com tabelas distintas para Pedidos e Notas. Baseado no exposto te aconselho a criar tabelas para as Notas fiscais geradas (Dados Gerais e Itens) e na tabela de itens do pedido vc acrescenta um campo de quantidade atendida, assim vc pode identificar quando ocorrer pendencias (Qtd-Qtd_Atendida). Não esqueça de colocar um campo com o numero do pedido na tabela de NF. [ ]´s Moacir jmourajr2000 escreveu: >Caros amigos, boa noite! > >Sei que é vespera de carnaval, mas me surgiu uma solicitação, com a >qual terei que pular o carnaval com ela. > >Meu cliente necessita que eu crie um controle de pedidos de venda >onde: > >1) Faça a colocação dos pedidos (Itens, quantidade, valor unitario, >subtotal e totais ...). Isso eu já desenvolvi e funciona legal. > >2) Só que nessa colocação de pedidos ele não previa e também não >queria que fossem controlados os itens com pendencia, ou seja, por >exemplo: >Em uma solicitação de pedido com tem 3 itens, serão lançados os >mesmos, só que um, ou todos os itens podem não estar disponiveis e ai >é que entra o tal do controle. Pois seria controlar os itens que já >foram atendidos no pedido e atender posteriormente o restante. > >3) Emissão de Nota Fiscal: Este complementa o item 1 acima(também >desenvolvi e funciona legal), só que agora com essa alteração não sei >como controlar as emissões, pois o cliente quer que fique o mesmo >pedido para cada pendencia(Os Numeros de pedidos(Integer) vão de 1 a >N e cada um poderá ter ou não pendencias). > >Gente necessito de uma ideia, holofote, luz, lanterna, vela o que >puder me ajudar para desenvolver essa tarefa de uma maneira rapida e >eficaz pois o cliente necessita para ontem e como já disse, vou >passar o carnaval com essa tarefa. > >Estou usando Delphi3 e Paradox > >Quem puder me ajudar, agradecerei imensamente. > >Grande abraço a todos. > >José de Moura. > >Ps: Se preferir ajudar em PVT, meu e-mail é: [EMAIL PROTECTED] > > > > > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.4 - Release Date: 1/2/2005 -- < 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] DataSet Open
Luciano,
Assim tem que funcionar:
With qryProdutos do
begin
Close;
SQL.Text:='select * from Produtos where TIPCAP = :TIPOP';
ParamByName('TIPOP').AsString:=INTTOSTR(dbrSelTipProd.ItemIndex);
Open;
end;
[ ]´s
Moacir
luciano escreveu:
>Já tentei isso, continua com a mesma msg.
>- Original Message -
>From: "Emilio Córdova (pop)" <[EMAIL PROTECTED]>
>To:
>Sent: Wednesday, February 02, 2005 9:10 AM
>Subject: Re: [delphi-br] DataSet Open
>
>
>
>Bom dia,
>
>
>tenta assim
>qryProdutos.Close; <-- inclua isto antes de limpar a query
>qryProdutos.Sql.Clear;
>qryProdutos.SQL.Add ('select * from Produtos');
>qryProdutos.SQL.Add ('where TIPCAP = :TIPOP');
>qryProdutos.Params [ 0 ].DataType := ftstring;
>qryProdutos.Params [ 0 ].Value:= dbrSelTipProd.ItemIndex
>===
> Emilio Córdova Silva
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
> (41) 9228-7414
>- Original Message -
>From: "lucaoliveira7" <[EMAIL PROTECTED]>
>To:
>Sent: Tuesday, February 01, 2005 8:43 PM
>Subject: [delphi-br] DataSet Open
>
>
>
>
>Pessoal é o seguinte, estou montando esse SQL dinâmicamente o
>problema é que todas as vezes que chega na primeira linha Add aparece
>msg de erro DataSet Open
>
> qryProdutos.Sql.Clear;
> qryProdutos.SQL.Add ('select * from Produtos');
> qryProdutos.SQL.Add ('where TIPCAP = :TIPOP');
> qryProdutos.Params [ 0 ].DataType := ftstring;
> qryProdutos.Params [ 0 ].Value:= dbrSelTipProd.ItemIndex;
>
>Grato
>
>
>
>
>
>
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.3 - Release Date: 31/1/2005
--
< 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] Programa de Loja de Celular
Marcio, Qual a tua duvida ? [ ]´s Moacir Marcio O. Nascimento (Forzza) escreveu: >Pessoal, > >Por acaso alguem ja fez ou teria algum Sistema para Loja de Celulares? > >valew, > >Marcio > >[As partes desta mensagem que não continham texto foram removidas] > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.3 - Release Date: 31/1/2005 -- < 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] Firebir + MySQL+PostegreSQL
Alexandre, Os servidores 'DEDICADOS' vão desde P4 2.8 até Xeon 2.4. Veja bem "Servidores", e não o micro do cara da recepção, hehehehe Neste caso citado é Xeon 2.4 e adsl com IP fixo de 1.5. Não, não uso nenhum software de compressão de dados. Como ja foi dito em outro email do Thiago: "Mas o quesito "velocidade" vai depender mais da sua banda de acesso e da forma como você faz essas informações trafegarem na rede do que o banco de dados em si..." Otimização da informação é imprescindivel nestes casos. Por isto meu comentário de que deveria ser revisto o projeto implantado, desde a modelagem dos dados, de preferencia. [ ]´s Moacir Alexandre Oliveira escreveu: >Olá, > >Gostaria de saber qual servidor que atende essa demanda e se você usa algum >software de compressão no caso do acesso remoto ? > >Valew. > > >[]'s > >Alexandre Oliveira Campioni >Analista de Sistemas >A-Tecnologia e Sistemas de Informacao Ltda. >Sao Joaquim da Barra - Sao Paulo - Brasil >[EMAIL PROTECTED] > >-Mensagem original- >De: Prisma Sistemas - Moacir [mailto:[EMAIL PROTECTED] >Enviada em: terça-feira, 1 de fevereiro de 2005 06:58 >Para: delphi-br@yahoogrupos.com.br >Assunto: Re: [delphi-br] Firebir + MySQL+PostegreSQL > > >Wenceslau, > >Utilizo o Firebird deste o seu lançamento em aplicações CS distribuidas e >até hoje não enfrentei problemas de lentidão. É óbvio que numa aplicação CS >vc tenha uma queda no desempenho, quando comparado a um aplicação com acesso >local, mas nada tão relevante assim. >Tenho aplicações com mais de 2.000.000 de registros, mais de 90 usuários >conectados remotamente e acessos aos dados com tempo médio de 1,5 seg. >Uso D7+ Firebird 1.0.3 e Firebird 1.5+IBX. > >Acredito que vc deva rever o projeto de sua empresa. > >[ ]´s >Moacir >ps.: A maioria de nosso clientes usa servidores com SO Linux Red Hat. > >Wenceslau Miranda escreveu: > > > >>Olha só, na empresa que eu trabalho estamos utilizando o Firebird como >> >> >opção de banco de dados gratuito e estamos enfrentando grandes problemas, >pois o mesmo funcionando remotamente em um link com 2 megas está muito >lento, sem falar nas constantes travas que o banco dá paralizando todo o >serviço da empresa, nessa emrpesa estão funcionando mais de 20 estações >sendo que 7 são locais e outras 15 remotas. > > >>Estamos fazendo testes ultimamente com o MySQL e esse apresentou uma >> >> >performance (acesso remoto) muito superior ao Firebird, o que nos impede de >usá-lo é ainda não aceitar Store Procedures, e Views. > > >>Se tiver opção procure usar bancos pagos Recomendo Oracle e SQL Server, >>que com certeza você não irá se arrepender >> >> >> - Original Message - >> From: Bruno Lichot - Micrologos >> To: delphi-br@yahoogrupos.com.br >> Sent: Monday, January 31, 2005 8:24 PM >> Subject: [Norton AntiSpam] Re: [delphi-br] Firebir + >>MySQL+PostegreSQL >> >> >> Com certeza o FireBird te atenderá plenamentea outra opção seria >>o Oracle... >> mas naum vejo necessidade >> >> []´s >> Bruno Lichot >> Gerente de Novas Tecnologias - Micrologos Equipe ClubeDelphi.NET >>DevMedia Group >> >> www.micrologos.com.br - www.clubedelphi.net - >>www.delphirio.assespro-rj.org.br www.sqlmagazine.com.br - >>www.neoficio.com.br/msdn - www.javamagazine.com.br >>www.portalwebmobile.com.br >> >> - Original Message - >> From: <[EMAIL PROTECTED]> >> To: >> Sent: Monday, January 31, 2005 8:54 PM >> Subject: [delphi-br] Firebir + MySQL+PostegreSQL >> >> >> >> Olá Pessoal, >> >> >> >> Tô precisando desenvolver um sistema que vai receber mais de 5 >>milhões de registros e mais de 200 estações manipulando isso em >>várias Cidades, qual desses banco é o mais indicado pra esse tipo de >> >> >aplicação ? > > >> Alguém pode me dar uma luz ? >> >> >> >> >> >> >> >> >> --- >> avast! Antivirus: Outbound message clean. >> Virus Database (VPS): 0505-0, 31/01/2005 Tested on: 31/1/2005 >>19:54:11 avast! - copyright (c) 1988-2004 ALWIL Software. >> http://www.avast.com >> >> >> >> >> >> > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.3 - Release Date: 31/1/2005 -- <<<<< 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] Firebir + MySQL+PostegreSQL
Wenceslau, Utilizo o Firebird deste o seu lançamento em aplicações CS distribuidas e até hoje não enfrentei problemas de lentidão. É óbvio que numa aplicação CS vc tenha uma queda no desempenho, quando comparado a um aplicação com acesso local, mas nada tão relevante assim. Tenho aplicações com mais de 2.000.000 de registros, mais de 90 usuários conectados remotamente e acessos aos dados com tempo médio de 1,5 seg. Uso D7+ Firebird 1.0.3 e Firebird 1.5+IBX. Acredito que vc deva rever o projeto de sua empresa. [ ]´s Moacir ps.: A maioria de nosso clientes usa servidores com SO Linux Red Hat. Wenceslau Miranda escreveu: >Olha só, na empresa que eu trabalho estamos utilizando o Firebird como opção >de banco de dados gratuito e estamos enfrentando grandes problemas, pois o >mesmo funcionando remotamente em um link com 2 megas está muito lento, sem >falar nas constantes travas que o banco dá paralizando todo o serviço da >empresa, nessa emrpesa estão funcionando mais de 20 estações sendo que 7 são >locais e outras 15 remotas. >Estamos fazendo testes ultimamente com o MySQL e esse apresentou uma >performance (acesso remoto) muito superior ao Firebird, o que nos impede de >usá-lo é ainda não aceitar Store Procedures, e Views. >Se tiver opção procure usar bancos pagos Recomendo Oracle e SQL Server, que >com certeza você não irá se arrepender > > > - Original Message - > From: Bruno Lichot - Micrologos > To: delphi-br@yahoogrupos.com.br > Sent: Monday, January 31, 2005 8:24 PM > Subject: [Norton AntiSpam] Re: [delphi-br] Firebir + MySQL+PostegreSQL > > > Com certeza o FireBird te atenderá plenamentea outra opção seria o > Oracle... > mas naum vejo necessidade > > []´s > Bruno Lichot > Gerente de Novas Tecnologias - Micrologos > Equipe ClubeDelphi.NET > DevMedia Group > > www.micrologos.com.br - www.clubedelphi.net - > www.delphirio.assespro-rj.org.br > www.sqlmagazine.com.br - www.neoficio.com.br/msdn - www.javamagazine.com.br > www.portalwebmobile.com.br > > - Original Message - > From: <[EMAIL PROTECTED]> > To: > Sent: Monday, January 31, 2005 8:54 PM > Subject: [delphi-br] Firebir + MySQL+PostegreSQL > > > > Olá Pessoal, > > > > Tô precisando desenvolver um sistema que vai receber mais de 5 milhões de > registros e mais de 200 estações manipulando isso em várias Cidades, qual > desses banco é o mais indicado pra esse tipo de aplicação ? > > Alguém pode me dar uma luz ? > > > > > > > > > --- > avast! Antivirus: Outbound message clean. > Virus Database (VPS): 0505-0, 31/01/2005 > Tested on: 31/1/2005 19:54:11 > avast! - copyright (c) 1988-2004 ALWIL Software. > http://www.avast.com > > > > > [As partes desta mensagem que não 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 > > > > > > > > > > > > > -- > < 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] > > > >Yahoo! Grupos, um serviço oferecido por: > > > > > > > >-- > 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 Serviço > do Yahoo!. > > > >[As partes desta mensagem que não continham texto foram removidas] > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.2 - Release Date: 28/1/2005 -- < 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] copiar registros de uma tabela para outra
dionatanhenrique,
Tente assim:
With Query1 do
Begin
SQL.Text:='Insert into Tabela2 (CAMPO1, CAMPO2,CAMPO3,CAMPOn) ';
SQL.Add(' Select CAMPO1, CAMPO2,CAMPO3,CAMPOn from Tabela1');
//-- Caso queira limitar a importação coloque uma clausula Where
no select.
ExecQuery;
end;
[ ]´s
Moacir
dionatanhenrique escreveu:
>Pessoal, como posso efetuar a copia de registros de uma tabela para
>outra via SQL!
>
>Valeu!!
>
>
>
>
>
>
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.0 - Release Date: 27/1/2005
--
< 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: Pesquisa SQL
Carlos,
Ou então vc pode usar a função StringReplace do Delphi ;-)
Ex.:
Var
Troca : String;
E no seu código utilize assim:
Troca:= StringReplace(Edit3.Text,' ','%',[rfReplaceAll]);
[ ]´s
Moacir
carlos alberto do amaral escreveu:
>Olá Willian Jerônymo,
>
> Vivendo e Aprendendo, muito legal !!!
>
> Um abraço,
>
> Carlos
>
>
>--- Em delphi-br@yahoogrupos.com.br, Willian Jerônymo - Yahoo
><[EMAIL PROTECTED]> escreveu
>
>
>>Você pode usar assim:
>>
>>Crie essa function:
>>
>>Function BuscaTroca(Text,Busca : String) : String;
>>Var N : Integer;
>>begin
>> For N := 1 to Length(Text) do
>> begin
>>if Copy(Text,N,1) = ' ' then
>>begin
>> Delete(Text,N,1);
>> Insert('%',Text,N);
>>end;
>> end;
>> Result := '%' + Text + '%';
>>end;
>>
>>Depois declare uma variável:
>>Var
>> Troca : String;
>>
>>E no seu código utilize assim:
>>
>>Troca:= BuscaTroca(Edit3.Text,' '); //Para fazer a substituição dos
>>
>>
>espaços em branco por %
>
>
>>Begin
>> Close;
>> SQL.Clear;
>> SQL.Add('SELECT * from Produtos');
>> SQL.Add('Where DescProd LIKE QuotedStr(Troca));
>> Open;
>> if DBEdit1.Text='' then
>> ShowMessage('Nome não cadastrado');
>> Edit3.Setfocus;
>>end;
>>
>>
>>Willian Jerônymo
>>- Original Message -
>> From: Eduardo Silva ®
>> To: delphi-br@yahoogrupos.com.br
>> Sent: Wednesday, January 26, 2005 1:27 PM
>> Subject: RES: [delphi-br] Pesquisa SQL
>>
>>
>> Willian passa essa função pra mim que eu tentei fazer do jeito
>>
>>
>que colocaram
>
>
>> com e não to conseguindo
>>
>>-Mensagem original-
>>De: Willian Jerônymo - Yahoo [mailto:[EMAIL PROTECTED]
>>Enviada em: quarta-feira, 26 de janeiro de 2005 13:19
>>Para: delphi-br@yahoogrupos.com.br
>>Assunto: Re: [delphi-br] Pesquisa SQL
>>
>>
>>
>>O que você pode fazer é quando alguém for consultar alguma
>>
>>
>coisa você pode
>
>
>> instruir a pessoal a digitar da seguinte maneira
>>
>>no seu Edit: %SHAMPOO%300ML% que irá dar certo, ou você pode
>>
>>
>fazer de uma
>
>
>> maneira automática
>>
>>trocando os espaços em branco por % que fica melhor para o
>>
>>
>usuário.
>
>
>>Se quiser te passo uma função que faz essa troca.
>>
>>
>>Willian Jerônymo
>>- Original Message -
>> From: fabianojd
>> To: delphi-br@yahoogrupos.com.br
>> Sent: Wednesday, January 26, 2005 2:18 AM
>> Subject: [delphi-br] Pesquisa SQL
>>
>>
>>
>> Gostaria de fazer pesquisa SQL por partes do nome
>>
>>
>completo. Ex.
>
>
>> quero achar um SHAMPOO com 300ML, mas não sei o nome
>>
>>
>completo. Então
>
>
>> digitaria: SHAMPOO 300ML.
>> Normalmente o nome é: SHAMPOO NOME 300ML.
>>
>> a funcção que uso é:
>>
>> Begin
>> Close;
>> SQL.Clear;
>> SQL.Add('SELECT * from Produtos');
>> SQL.Add('Where DescProd
>>
>>
>LIKE ''%'+Edit3.text+'%'' ');
>
>
>> Open;
>> if DBEdit1.Text='' then
>> ShowMessage('Nome não cadastrado');
>> Edit3.Setfocus;
>> end;
>>
>>
>> Obrigado.
>>
>>
>>
>>
>>
>> --
>> < 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]
>>
>>
>>
>>Yahoo! Grupos, um serviço oferecido por:
>>
>>São Paulo Rio de Janeiro Curitiba Porto
>>
>>
>Alegre Belo
>
>
>> Horizonte Brasília
>>
>>
>>
>>
>>
>>
>>
>--
>
>
>>
>> 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
>
>
>> Serviço do Yahoo!.
>>
>>
>>
>>[As partes desta mensagem que não 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]
>>
>>
>>
>> Yahoo! Grupos, um serviço oferecido por:
>>
>>
>>
>>
>>
>>
>>
>> --
>>
>>
>--
>
>
>> --
>>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
Re: [delphi-br] Contar Caracter - Urgente
Length(String) !! fpsp2000 escreveu: >Estou tentando contar o carcteres q recebo em uma variavel, so q nao >estou conseguindo fazer, li q o comando LEN faz isso, so q o delphi >nao aceita esse comando. Se alguem puder me dizer como q façoi isso. > >Agradeço desde ja, >Fernanda. > > > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.7.0 - Release Date: 17/1/2005 -- < 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: SetFocus em celula do dbGrid...
Moura,
Query´s não são editaveis !!
[ ]´s
Moacir
jmourajr2000 escreveu:
>Osmar, boa tarde!
>
>Obrigado, mas nao funcionou.
>Esta DbGrid é o retorno de uma consulta SQL e estou usando Delphi3
>Abraços.
>José de Moura
>
>
>
>--- Em delphi-br@yahoogrupos.com.br, Osmar de Souza Júnior
><[EMAIL PROTECTED]> escreveu
>
>
>>gride.SetActiveField('nome_do_campo');
>>
>>
>>--- Em delphi-br@yahoogrupos.com.br, "jmourajr2000" <[EMAIL PROTECTED]>
>>escreveu
>>
>>
>>>Caros maigos, boa tarde!
>>>
>>>Tenho um dbGrid com 8 colunas e necessito fazer com que o usuario
>>>
>>>
>ao
>
>
>>>clicar em um botao, o foco seja direcionado para a 4 coluna da
>>>primeira linha do dbgrid.(A finalidade é para edição na tabela
>>>somente neste campo).
>>>
>>>Como posso fazer isso? Alguem tem alguma sugestão?
>>>
>>>Obrigado pela atenção.
>>>
>>>Abraços a todos.
>>>
>>>José de Moura
>>>
>>>
>
>
>
>
>
>
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.0 - Release Date: 17/1/2005
--
< 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] Exibir tabelas num combobox
Cristiano: Ai esta o que vc precisa: Select RDB$RELATION_NAME as Nome_Tabela From RDB$RELATIONS where (RDB$SYSTEM_FLAG = 0 or RDB$SYSTEM_FLAG is null) and RDB$VIEW_SOURCE is null Order by RDB$RELATION_NAME [ ]´s Moacir Cristiano Bonini escreveu: >Alguem ai sabe como exiber a lista de tabelas de um banco de dados em um >combobox? > > >[As partes desta mensagem que não continham texto foram removidas] > > > > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.7.0 - Release Date: 17/1/2005 -- < 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úvida de inclusão no FireBird 1.5
Emerson,
Veja este exemplo usando IBX:
Try
If not DM.IBTransAltera.InTransaction then
DM.IBTransAltera.StartTransaction;
With DM.IBSQLAltera do
Begin
// -- Primeira Tabela
SQL.Text:='insert into tabela1 (campo1, campo2) values
(:campo1,:campo2)';
ParamByName('campo1').AsString :='teste de inclusao';
ParamByName('campo2').AsDateTime :=Now;
ExecQuery;
//-- Segunda tabela
SQL.Text:='Update Tabela2 CampoA=:CampoA where
CampoB=:CampoB';
ParamByName('campoA').AsString :='teste de Alteração';
ParamByName('campoB').AsInteger :=123456;
ExecQuery;
end;
DM.IBTransAltera.Commit;
Except
on e: exception do
begin
DM.IBTransAltera.Rollback;
ShowMessage('Aconteceu o seguinte erro:'+#13+e.message);'
end;
end;
Poderiam ser feitas operações em quantas tabelas vc necessitar,
independente da operação que vc vai fazer (Inclusão, alteração, exclusão).
Basta que o problema ocorra em uma única e todas elas serão desfeitas.
[ ]´s
Moacir
Emerson Moreno escreveu:
>Oi Alosi,
>
>Mas eu não sei trabalhar com transação, como faço?? Poderia me ajudar??
>
>Obrigado.
>
>
>On Thu, 20 Jan 2005 10:59:38 -0300, Alosi yarru <[EMAIL PROTECTED]> wrote:
>
>
>>Fácil, vc utiliza transação, e só comita no final.
>>
>>t+
>>
>> - Original Message -
>> From: Emerson Moreno
>> To: [EMAIL PROTECTED] ;
>>[EMAIL PROTECTED] ;
>>[EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br
>> Sent: Wednesday, January 19, 2005 8:48 AM
>> Subject: [delphi-br] Dúvida de inclusão no FireBird 1.5
>>
>>
>>
>> Caros amigos programadores,
>>
>> Meu chefe me fez um pergunta que não soube responder, por isso recorro
>> aqui a esse forum que tantas me ajudou e ajudei tb. Vou explicar a
>> situação.
>>
>> Temos 5 tabelas onde inserimos uma depois da outra, mas a operação só
>> deve ser gravada realmente no banco quando gravar a ultima tabela. Ai
>> ele me perguntou e se no meio da gravação a luz cair a os dados foram
>> gravados até que ponto, pois só deve ser levado em conta que a
>> gravação foi realizada com sucesso se gravar a ultima.
>>
>> Disse a ele que poderia fazer esse controle via código no prórpio
>> sistema, mas ele não quer que seja assim ele quer que o banco controle
>> isso.
>>
>> Fiquei sem saber responder a ele.
>>
>> Sei que podemos fazer Stores Procedures no banco, mas não sei como
>> fazer isso, quem puder me ajudar eu fico muito agradecido.
>>
>> Lembrando... A gravaçãop só pode ser concretizada após inserir a
>> ultima tabela se a luz cai ou acontecer algo todas as tabelas
>> referente aquele registro que já foram gravadas tem que serem
>> apagadas.
>>
>> []'s
>>
>> Emerson
>>
>>
>>
>>
>>
>> --
>> < 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]
>>
>>
>>
>>Yahoo! Grupos, um serviço oferecido por:
>>
>>São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
>>Horizonte Brasília
>>
>>
>>
>>
>>--
>> 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
>>Serviço do Yahoo!.
>>
>>
>>
>>
>>[As partes desta mensagem que não 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]
>>
>>
>>
>>Yahoo! Grupos, um serviço oferecido por:
>>
>>
>>
>>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 Termos do Serviço do
>>Yahoo!.
>>
>>
>
>
>
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.0 - Release Date: 17/1/2005
--
< 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]
Li
Re: [delphi-br] 3 Camadas - Estou Aprendendo Mas...
Bruno, Agradeceria se vc pudesse me enviar este material, estou a horas querendo trabalhar com web services :) Abraços, Moacir > - Original Message - > From: Bruno Lichot - Micrologos > To: delphi-br@yahoogrupos.com.br > Sent: Friday, January 14, 2005 12:28 AM > Subject: Re: [delphi-br] 3 Camadas - Estou Aprendendo Mas... > > > para resolver este problema vc tem q fazer a distribuição das aplicações > servidoras e cliente... > na minha coluna no portal do assinante clubedelphi.net tem 4 artigos > passo-a-passo sobre isso. > Se vc naum tiver o acesso me passa um em-ail q te envio com os fontes. > > []´s > Bruno Lichot > Gerente de Novas Tecnologias - Micrologos > Equipe ClubeDelphi.NET > DevMedia Group > > www.micrologos.com.br - www.clubedelphi.net - > www.delphirio.assespro-rj.org.br > www.sqlmagazine.com.br - www.neoficio.com.br/msdn - www.javamagazine.com.br > www.portalwebmobile.com.br - www.heobott.com > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.6.11 - Release Date: 12/1/2005 -- < 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] OFF-TOPPIC - Cálculo Inverso
Felipe, Tente assim: PrecoVenda/(1+(margem/100)) [ ]´s Moacir Felipe Pasqualotto escreveu: > Boa tarde, > > Não sei como fazer para retornar o preço de compra, tendo apenas o preço >de venda e a margem, existe algum cálculo para chegar a essa informação? > > Exemplo: > Preço Venda R$ 6,85 > Margem 37,83 % > Preço Compra R$ 4,97 (Não consigo chegar neste valor) > > > Alguma dica? > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.6.11 - Release Date: 12/1/2005 -- < 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] Memo
tStrings, StringList... [ ]´s Moacir Edivaldo David escreveu: >há pouco tempo atrás alguém perguntou qual o tipo da variável para receber o >conteúdo de um memo... >Tb tô precisando, alguém aí se lembra? > > >- >Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! >agora. > >[As partes desta mensagem que não continham texto foram removidas] > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.6.11 - Release Date: 12/1/2005 -- < 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] IBquery - me ajudem......
Cristiano, No divisor coloque o numero de casas de cimais que vc precisa ... Select IDProjeto, Sum(Qtdpont)/7._/*000*/_ as valor From pontos Group by IDProjeto [ ]´s Moacir Rodrigo Ribeiro escreveu: >uma máscara na propriedade displayformat não resolve? > >- Original Message - >From: "Cristiano Bonini" <[EMAIL PROTECTED]> >To: >Sent: Thursday, January 13, 2005 8:54 AM >Subject: [delphi-br] IBquery - me ajudem.. > > > >Ola, > >Alguem sabe como faço para que no resultado de uma consulta SQL (a partir de >um IBquery), os valores com casas decimais não sejam arrendondados? > >Ex. >Select IDProjeto, (Sum(Qtdpont)/7) >>From pontos >Group by IDProjeto > >Onde "Sum(Qtdpont)" = 1290 e o resultado da divisão seria = 184,2857. > >O componente IBQuery diz que o resultado é 184.Eu preciso que aparecam, pelo >menos, as tres ultimas casas decimais. > >Attn, > >Cristiano Bonini > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.6.10 - Release Date: 10/1/2005 [As partes desta mensagem que não 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] Problema ao Usar IDSMTP
Marcelo, Erro 11004 - WSANO_DATA - Valid name, no data record of request type. This error indicates that the key (name, address, and so on) was not found. Fonte - Microsoft (Winsock error codes), Jan Tomasek [ ]s Moacir Marcelo M Florindo escreveu: >Senhores, > >ao fazer isto: > > smtp.Connect; > if Smtp.Connected then > Smtp.Send(IdMessage1); > >está aparecendo o erro: Socket Error # 11004. >O que poderia ser este erro??? > >Obrigado a todos.. > >Marcelo > > >[As partes desta mensagem que não continham texto foram removidas] > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.6.9 - Release Date: 6/1/2005 -- < 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] Ultimo número da tabela
Erika, Tente assim: Select Max(CodigoDoCliente) as Maior from Tabela_Clientes [ ]´s Moacir Erika escreveu: >Olá pessoal > >Eu tenho uma tabela de clientes e gostaria de saber qual o número do >código (chave primária) do ultimo da tabela. >Este campo não é autoincremento. >Como faço isso?? > >Obrigado! > > > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.7 - Release Date: 30/12/2004 -- < 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] Ordernar SQL por Campo agregado
Rafael, Tente colocar o numero da coluna na clausula order by ORDER BY 2 [ ]´s Moacir Rafael Jorge escreveu: >preciso urgentemente fazer um relatorio de colocações, seria colocação >de vendas, vendedores e categoria de produtos e SQL de categoria de >produtos seque abaixo: > >select c.nome, count(v.codigo) VENDAS >from PRODUTO P, VENDA_DETALHE VD, VENDA V, CATEGORIA C >WHERE VD.VENDA = V.CODIGO >AND VD.PRODUTO = P.CODIGO >AND C.CODIGO = P.CATEGORIA >AND V.EMPRESA = 1 >GROUP BY C.NOME > >a bronca: eu preciso que esse SQL seja ordenado pelo numero de vendas >(ou seja o count), eu fazia assim antes se utilitzase paradox: > >select c.nome, count(v.codigo) VENDAS >from PRODUTO P, VENDA_DETALHE VD, VENDA V, CATEGORIA C >WHERE VD.VENDA = V.CODIGO >AND VD.PRODUTO = P.CODIGO >AND C.CODIGO = P.CATEGORIA >AND V.EMPRESA = 1 >GROUP BY C.NOME >ORDER BY VENDAS <- notou a diferença??? > >so que isso no firebird 1.5 nao funciona pois diz que eu nao posso >ordernar por um campo agragado!! é agora??? como eu faço isso??? > >obrigado t+ > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.6 - Release Date: 28/12/2004 -- < 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] Acrescentar Linha Arquivo TXT
Emerson,
Vc pode usar uma stringlist para isto:
Function Escreve_Arq(NomeArq,Texto : String ) : Boolean;
var
sArquivo : tStrings;
Begin
Try
sArquivo:=tStringList.Create;
sArquivo.LoadFromFile(NomeArq);
sArquivo.Add(string);
sArquivo.SaveToFile(NomeArq);
result:=True;
except
result:=False;
end
End;
Ex. de uso:
If Escreve_Arq('c:\Teste.txt','Nova Linha de Texto') then
ShowMessage('Arquivo alterado com sucesso !!')
else
ShowMessage('Erro ao alterar arquivo');
[ ]´s
Moacir
- Original Message -
From: "Emerson" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, December 11, 2004 2:53 PM
Subject: [delphi-br] Acrescentar Linha Arquivo TXT
>
> Acrescentar Linha Arquivo TXT
>
>
> Tenho o seguinte arquivo: c:\estoques\Mov03041203.txt
>
> Este arquivo já contem diversas linhas de dados.
>
>
> Como faço para acrescentar uma linha com o conteudo "Aprendendo a incluir
> linha" ao final do arquivo?
>
>
> Grato
>
> Emerson Cassio
>
>
>
>
> --
> < 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
>
>
>
>
>
>
>
>
>
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.289 / Virus Database: 265.4.8 - Release Date: 8/12/2004
>
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.289 / Virus Database: 265.4.8 - Release Date: 8/12/2004
--
< 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: DIAS ÚTEIS
Rogerio,
1) Quanto a 2a feira de Carnaval - No que me consta não é feriado e sim
ponto facultativo (pelo menos é o que sei, caso esteja errado, desculpe-me).
Caso seja realmente feriado, basta vc alterar a função e incluir.
2) Chame a função assim:
MinhaDataInicial = StrToDate('01/10/2004');
MinhaNovaData:=MinhaDataInicial+QtdDiasUteis(MinhaDataInicial,
MinhaDataInicial+30);
Não testei, mas acredito que seja isto o que vc esta querendo
[ ]´s
Moacir
- Original Message -
From: "Rogério" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, December 02, 2004 11:50 AM
Subject: Re: [delphi-br] Re: DIAS ÚTEIS
>
> Td. Bem mas...
> O que estamos comentando é :
>
> :- dada uma Data e, um Número de Dias Úteis, achar a Data Final.
>
> Novamente:
> Acha_a_Data_Dia_Util('01/10/2004',30)
> Que Retornará: 17/11/2004
>
> Outro detalhe, acho que tem alguns feriados (dias não úteis) que não estão
> sendo considerados.
> Ex.:
> - Segunda Feira de Carnaval
>
> Valeu.
> [ ]'s
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.289 / Virus Database: 265.4.4 - Release Date: 30/11/2004
--
< 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: DIAS ÚTEIS
Rogerio, Faça uma mudança simples, veja como: Function QtdDiasUteis(dDataIni: tDateTime; dDataFim: tDateTime): Integer; Begin Result:=0; While dDataIni<=dDataFim do Begin If (DayOfWeek(dDataIni) in [2,3,4,5,6]) and (Not Ve_Feriado(dDataIni)) then Inc(Result); dDataIni:=dDataIni+1; End; End; [ ]´s Moacir -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.289 / Virus Database: 265.4.4 - Release Date: 30/11/2004 -- < 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: DIAS ÚTEIS
Rogerio/Moita,
Exato, a função retorna TRUE se for um feriado.
Uso esta outra funçao que deve dar um bom empurrão no que vc´s querem
fazer.
{Colocar dateutil no USES }
Function QtdDiasUteis(nMes : Integer=0; nAno: Integer=0): Integer;
Function BoM(dData : TDateTime):TDateTime;
begin
Result := dData - ExtractDay(dData) + 1;
end;
Function EoM(dData : TDateTime):TDateTime;
begin
Result := BoM(IncMonth(dData,1))-1;
end;
var
DataIni,
DataFim : TDateTime;
Begin
Result:=0;
Try
DataIni:=StrToDateFmt('dd/mm/','01/'+StrZero(nMes,2)+'/'+StrZero(nAno,4));
except
Exit;
end;
DataFim:=Eom(DataIni);
While DataIni<=DataFim do
Begin
If (DayOfWeek(DataIni) in [2,3,4,5,6]) and
(Not Ve_Feriado(DataIni)) then
Inc(Result);
DataIni:=DataIni+1;
End;
End;
[ ]´s
Moacir
- Original Message -
From: "Rogério" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, December 01, 2004 11:32 AM
Subject: Re: [delphi-br] Re: DIAS ÚTEIS
>
> Acho que estamos quase chegando lá...
> Só falta eu conseguir agora, fazer a função:
>
> Acha_a_Data_Dia_Util('01/10/2004',30)
> Que Retornará: 17/11/2004
>
> Se alguém conseguir tb...
> [ ]'s
>
> - Original Message -
> From: "Prisma Sistemas - Moacir" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Wednesday, December 01, 2004 10:50 AM
> Subject: Re: [delphi-br] Re: DIAS ÚTEIS
>
>
>>
>> Paulo,
>>
>> Tenho usado esta função a um bom tempo com resultados satisfatórios:
>>
>> Function Ve_Feriado(dData : TDateTime=0) : Boolean;
>> var
>> nMes : Integer;
>> y,m,d:Word;
>> G,I,J,C,H,L: Integer;
>> E:TDateTime;
>> dSexta : TDateTime;
>> dCarnaval : TDateTime;
>> ano : integer;
>> const
>>FERIADOSFIXOS : Array [1..12] of String =('01~', // Jan
>> '', // Fev
>> '', // Mar
>> '21~', // Abr
>> '01~', // Mai
>> '', // Jun
>> '', // Jul
>> '', // Ago
>> '07~', // Set
>> '12~', // Out
>> '02~15~',// Nov
>> '25~'); // Dez
>>
>> Begin
>> If dData=0 then
>> Result:=False
>> else
>> Begin
>> Try
>>nMes :=StrToInt(FormatDateTime('mm',dData));
>> except
>>nMes :=0;
>> end;
>> If (nMes<1) or (nMes>12) then
>> Result:=False
>> else
>> Result:=Pos(FormatDateTime('dd',dData),FERIADOSFIXOS[nMes] )<>0;
>> end;
>> // Calcula o Feriado de Carnaval e Sexta-Feira Santa
>> DecodeDate(dData, Y, M, D);
>> ano := y;
>> G := ano mod 19;
>> C := ano div 100;
>> H := (C-C div 4-(8*C+13) div 25 + 19*G+15)mod 30;
>> I := H-(H div 28)*(1-(H div 28)*(29 div(H+1))*((21-G)div 11));
>> J := (ano + ano div 4 +I+2-C+C div 4) mod 7;
>> L := I-J;
>> m := 3+(L+40) div 44;
>> d := L+28-31*(m div 4);
>> //y := ano;
>> E := EncodeDate(y,m,d);
>> While DayOfWeek(E)>1 do
>> E := E+1;
>> //--- Sexta-feira Santa
>> dSexta := E - 2;
>> //--- Carnaval
>> dCarnaval := E - 47;
>> If (dData = dSexta) Or (dData = dCarnaval) then
>> Result := True;
>> End;
>>
>>
>> [ ]´s
>> Moacir
>>
>>
>> - Original Message -
>> From: "drummondfilho" <[EMAIL PROTECTED]>
>> To: <[EMAIL PROTECTED]>
>> Sent: Wednesday, December 01, 2004 8:59 AM
>> Subject: [delphi-br] Re: DIAS ÚTEIS
>>
>>
>>
>>
>> Gostaria de ajudar a montar o algoritmo se você puder me passar a
>> tabela de feriados ficaria muito feliz em poder ajudar.
>>
>> []'s
>> Paulo Drummond Filho
>> [EMAIL PROTECTED]
>>
>>
>>
>>
>>
>> --
>> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM &
Re: [delphi-br] Re: DIAS ÚTEIS
Paulo,
Tenho usado esta função a um bom tempo com resultados satisfatórios:
Function Ve_Feriado(dData : TDateTime=0) : Boolean;
var
nMes : Integer;
y,m,d:Word;
G,I,J,C,H,L: Integer;
E:TDateTime;
dSexta : TDateTime;
dCarnaval : TDateTime;
ano : integer;
const
FERIADOSFIXOS : Array [1..12] of String =('01~', // Jan
'', // Fev
'', // Mar
'21~', // Abr
'01~', // Mai
'', // Jun
'', // Jul
'', // Ago
'07~', // Set
'12~', // Out
'02~15~',// Nov
'25~'); // Dez
Begin
If dData=0 then
Result:=False
else
Begin
Try
nMes :=StrToInt(FormatDateTime('mm',dData));
except
nMes :=0;
end;
If (nMes<1) or (nMes>12) then
Result:=False
else
Result:=Pos(FormatDateTime('dd',dData),FERIADOSFIXOS[nMes] )<>0;
end;
// Calcula o Feriado de Carnaval e Sexta-Feira Santa
DecodeDate(dData, Y, M, D);
ano := y;
G := ano mod 19;
C := ano div 100;
H := (C-C div 4-(8*C+13) div 25 + 19*G+15)mod 30;
I := H-(H div 28)*(1-(H div 28)*(29 div(H+1))*((21-G)div 11));
J := (ano + ano div 4 +I+2-C+C div 4) mod 7;
L := I-J;
m := 3+(L+40) div 44;
d := L+28-31*(m div 4);
//y := ano;
E := EncodeDate(y,m,d);
While DayOfWeek(E)>1 do
E := E+1;
//--- Sexta-feira Santa
dSexta := E - 2;
//--- Carnaval
dCarnaval := E - 47;
If (dData = dSexta) Or (dData = dCarnaval) then
Result := True;
End;
[ ]´s
Moacir
- Original Message -
From: "drummondfilho" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, December 01, 2004 8:59 AM
Subject: [delphi-br] Re: DIAS ÚTEIS
Gostaria de ajudar a montar o algoritmo se você puder me passar a
tabela de feriados ficaria muito feliz em poder ajudar.
[]'s
Paulo Drummond Filho
[EMAIL PROTECTED]
--
< 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
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.289 / Virus Database: 265.4.4 - Release Date: 30/11/2004
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.289 / Virus Database: 265.4.4 - Release Date: 30/11/2004
--
< 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] Formatação e Conversão usando FloatToStr
Use CurrToStrF(vSaldoBancos,ffNumber,2); ou CurrToStrF(vSaldoBancos,ffCurrency,2); [ ]´s Moacir - Original Message - From: "Marcos Fonseca" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Sunday, October 31, 2004 11:12 PM Subject: [delphi-br] Formatação e Conversão usando FloatToStr > > Colegas do grupo , boa noite , estou com um pequeno > probleminha , preciso fazer uma conversão de Float > para Str e ao mesmo tempo formatar o resultado para > colocá-lo num campo Texto como posso fazer realizar > esta operação , seque abaixo um fragmento decódigo > onde eu faço os cálculo e armazeno o resultado na > varriável. > > vSaldoBancos :Real > vSaldoBancos > :=qryMovTotBancosEntradasValTotMov.Value - > qryMovTotBancosSaidasValTotMov.Value); > > edtSaldo.Text := FloatToStr(vSaldoBancos); > > Desde já agradeço as vossas ajudas. > > > > > > > ___ > Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! > http://br.acesso.yahoo.com/ > > > -- > < 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 > > > > > > > > > > -- < 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: Envio de email pelo OutLook
Joubert,
Uso esta função com de maneira satisfatoria no outlook express. Veja se te
serve.
Inclua a unit MAPI no uses do modulo
==
Function SendMail( pTo,
pCC,
pCCo,
pAssunto,
pTexto: pChar;
aFiles: Array Of PChar ) : String;
var
iRetorno : cardinal;
sTo, sCC, sCCo, sAux: String;
MapiMessage: TMapiMessage;
pRecipiente: PMapiRecipDesc ;
aRecipiente :array of TMapiRecipDesc ;
aArquivoEnvio: array of TMapiFileDesc ;
i, iRecip, iFiles:integer;
Const
ERRO_MAPI_AMBIGUOUS_RECIPIENT= 'O destinatário não pode ser resolvido!!';
ERRO_MAPI_FAILURE= 'Ocorreram erros não
especificados!'+#13+'Verifique se o Outlook Express é o sistema de mensagens
padrão.';
ERRO_MAPI_INSUFFICIENT_MEMORY= 'Memória insuficiente!!';
ERRO_MAPI_NOT_SUPPORTED = 'Operação não suportada pelo sistema de
mensagens!';
begin
iRecip := 0;
// Define destinatários TO
sTo:= '';
If Assigned( pTo ) Then
Begin
sAux := pTo;
If sAux[Length(sAux)] <> ';' Then
sAux := sAux + ';';
While Pos( ';', sAux ) > 0 Do
Begin
Inc( iRecip );
sTo := sTo + Copy( sAux, 1, Pos( ';', sAux ) );
Delete( sAux, 1, Pos( ';', sAux ) );
End;
End;
// Define destinatários CC
sCC:= '';
If Assigned( pCC ) Then
Begin
sAux := pCC;
If sAux[Length(sAux)] <> ';' Then
sAux := sAux + ';';
While Pos( ';', sAux ) > 0 Do
Begin
Inc( iRecip );
sCC := sCC + Copy( sAux, 1, Pos( ';', sAux ) );
Delete( sAux, 1, Pos( ';', sAux ) );
End;
End;
// Define destinatários CCo
sCCo:= '';
If Assigned( pCCo ) Then
Begin
sAux := pCCo;
If sAux[Length(sAux)] <> ';' Then
sAux := sAux + ';';
While Pos( ';', sAux ) > 0 Do
Begin
Inc( iRecip );
sCCo := sCCo + Copy( sAux, 1, Pos( ';', sAux ) );
Delete( sAux, 1, Pos( ';', sAux ) );
End;
End;
// cria o tamanho do array de recipiente
SetLength(aRecipiente, iRecip);
I := 0;
// Define recipientes TO
While sTO <> '' Do
Begin
iRetorno := MAPIResolveName( 0, 0, PChar( Copy(
sTo, 1, Pos(';', sTo) - 1 ) ), 0, 0, pRecipiente );
// VERIFICA SE NÃO OCORREU ERROS
If (iRetorno <> SUCCESS_SUCCESS) Then
begin
Case iRetorno Of
MAPI_E_AMBIGUOUS_RECIPIENT: Result:= ERRO_MAPI_AMBIGUOUS_RECIPIENT;
MAPI_E_FAILURE: Result:= ERRO_MAPI_FAILURE;
MAPI_E_INSUFFICIENT_MEMORY: Result:= ERRO_MAPI_INSUFFICIENT_MEMORY;
MAPI_E_NOT_SUPPORTED : Result:= ERRO_MAPI_NOT_SUPPORTED ;
else
Result:= 'Erro ('+IntToStr(iRetorno)+') desconhecido !';
end;
Exit;
end;
aRecipiente[i].ulReserved := pRecipiente.ulReserved;
aRecipiente[i].lpszName := pRecipiente.lpszName;
aRecipiente[i].lpszAddress := pRecipiente.lpszAddress;
aRecipiente[i].ulEIDSize:= pRecipiente.ulEIDSize;
aRecipiente[i].lpEntryID:= pRecipiente.lpEntryID;
aRecipiente[i].ulRecipClass := MAPI_TO;
Delete( sTO, 1, Pos( ';', sTO ) );
Inc( I );
End;
// Define recipientes CC
While sCC <> '' Do
Begin
iRetorno := MAPIResolveName( 0, 0, PChar( Copy( sCC, 1, Pos(';', sCC) -
1 ) ), 0, 0, pRecipiente );
// VERIFICA SE NÃO OCORREU ERROS
If (iRetorno <> SUCCESS_SUCCESS) Then
begin
Case iRetorno Of
MAPI_E_AMBIGUOUS_RECIPIENT: Result:= ERRO_MAPI_AMBIGUOUS_RECIPIENT;
MAPI_E_FAILURE: Result:= ERRO_MAPI_FAILURE;
MAPI_E_INSUFFICIENT_MEMORY: Result:= ERRO_MAPI_INSUFFICIENT_MEMORY;
MAPI_E_NOT_SUPPORTED : Result:= ERRO_MAPI_NOT_SUPPORTED ;
else
Result:= 'Erro ('+IntToStr(iRetorno)+') desconhecido !';
end;
Exit;
end;
aRecipiente[i].ulReserved := pRecipiente.ulReserved;
aRecipiente[i].lpszName := pRecipiente.lpszName;
aRecipiente[i].lpszAddress := pRecipiente.lpszAddress;
aRecipiente[i].ulEIDSize:= pRecipiente.ulEIDSize;
aRecipiente[i].lpEntryID:= pRecipiente.lpEntryID;
aRecipiente[i].ulRecipClass := MAPI_CC;
Delete( sCC, 1, Pos( ';', sCC ) );
Inc( I );
End;
// Define recipientes BCC
While sCCo <> '' Do
Begin
iRetorno := MAPIResolveName( 0, 0, PChar( Copy( sCCo, 1, Pos(';',
sCCo) - 1 ) ), 0, 0, pRecipiente );
// VERIFICA SE NÃO OCORREU ERROS
If (iRetorno <> SUCCESS_SUCCESS) Then
begin
Case iRetorno Of
MAPI_E_AMBIGUOUS_RECIPIENT: Result:= ERRO_MAPI_AMBIGUOUS_RECIPIENT;
MAPI_E_FAILURE: Result:= ERRO_MAPI_FAILURE;
MAPI_E_INSUFFICIENT_MEMORY: Result:= ERRO_MAPI_INSUFFICIENT_MEMORY;
MAPI_E_NOT_SUPPORTED : Result:= ERRO_MAPI_NOT_SUPPORTED ;
else
Result:= 'Erro ('+IntToStr(iRetorno)+') desconhecido !';
end;
Re: [delphi-br] Conexão do Banco na Rede
Romario: O que vc esta usando para conectar com o banco ?? Imagino que deva ser o DBExpress certo ?? Vc deve mandar: - gds32.dll - qtintf70.dll - dbexpint.dll - midas.dll Outra sujestão seria , troque o nome da maquina pelo endereço ip: Ex.: Database=192.168.1.6:C:\Projeto\Database\Testedb.fdb Sucesso ! [ ]´s Moacir - Original Message - From: "Romario (Delphi)" <[EMAIL PROTECTED]> To: Sent: Sunday, October 17, 2004 6:55 PM Subject: [delphi-br] Conexão do Banco na Rede > > Senhores(as), > > Preciso entregar o sistema funcionando até amanhã pela manhã e não estou > conseguindo me conectar ao banco de dados no servidor. > > Setei o caminho do banco no arquivo ini e apesar de ler corretamente o > arquivo, o banco de dados não está sendo visto pela aplicação. > > A linha que especifica o caminho do banco está da seguinte forma: > > Database=GERENTE:C:\Projeto\Database\Testedb.fdb > > Existe alguma aplicação Cliente do Firebird que devo instalar? > > A única DLL que a aplicação solicitou foi a qtintf70.dll. Existe mais > alguma DLL a ser transportada junto com a aplicação? > > Agradeço a ajuda dos nobres colegas. > > Sds, > > Romario > > > -- > < 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 > > > > > > > > > > -- < 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] Delphi + Porta paralela
Cristiano, A alguns anos atrás fiz isto com Clipper (DOS). O objetivo era comunicar com uma catraca eletronica. Para os testes de comunicação fizemos exatamente isto. Criamos uma placa com oito leds e ligamos os mesmos nos pares de dados da saida paralela. Ai bastava vc mandar imprimir uma letra. Existe um componente para delphi que deve resolver o teu problema. Procure em http://www.rogercom.com/ [ ]´s Moacir - Original Message - From: "Cristiano Rodrigo Alves" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, October 13, 2004 9:56 AM Subject: [delphi-br] Delphi + Porta paralela > > Bom dia , > > tenho uma placa que desenvolvemos na faculdade que tem 8 leeds e é > conectada a porta paralela de um computador.. > > Tenho que fazer um programa em DELPHI com 8 botões para quando clicar em > um botão acende um leed e assim com todos os botões e leeds .. > > Alguém tem algum material ou fonte para eu fazer isso... ??? > > > grato, > > Cristiano. > > -- < 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] DBcombo + Edit
Não pode ser a propriedade LookUpSource do RxLookUpEdit ?? [ ]´s Moacir - Original Message - From: "Filipe" <[EMAIL PROTECTED]> To: "((Delphi" <[EMAIL PROTECTED]> Sent: Thursday, October 07, 2004 7:31 PM Subject: [delphi-br] DBcombo + Edit Bom dia pessoal, alguém sabe de algum componente combo q tenha as propriedades DATASOURCE, LISTSOURCE e ainda permita edição??? Parecido com o RxLookUpEdit, mas este não tem propriedade DATASOURCE... Ou alguma solução, como vcs fariam, derrepente deixar um edit invisivel em cima do combo, sei lah... Espero uma luz... Obrigado... [As partes desta mensagem que não 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 -- < 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] Problemas com seleção no MySQL
Grave os dados com zeros a esquerda na tua coluna. Ex.: 556= '000556' SELECT * FROM tabela WHERE coluna > '000555'; [ ]´s Moacir - Original Message - From: "Vinicius Mommensohn" <[EMAIL PROTECTED]> To: "Delphi-br" <[EMAIL PROTECTED]> Sent: Thursday, October 07, 2004 7:58 PM Subject: [delphi-br] Problemas com seleção no MySQL - Original Message - From: Vinicius Mommensohn To: Delphi-br Sent: Thursday, October 07, 2004 4:10 PM Subject: [OFF-TOPIC] Problemas com seleção no MySQL Moçada, to com um problemão... Me desculpem o off topic, mas naum achei nada no help do mysql :/ O problema é que eu tenho uma coluna tipo varchar no mysql (que só pode ter varchar). Eu preciso fazer uma seleção do tipo: SELECT * FROM tabela WHERE coluna > 555; O problema é que quando a coluna é varchar, ele compara número por número. Por exemplo, o numero 6. Ele é maior que 5, mas menor que 555. Mas mesmo assim ele retorna na seleção! Tem como ajeitar isso?!?! []s Vinicius [As partes desta mensagem que não 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 -- < 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] Usar Apollo VCL
Werner, Já uso o Apollo a uns 5 anos e não tive maiores problemas com ele. Comecei migrando minhas aplicações Clipper para Delphi e ainda mantenho algumas aplicações em que o usuário ainda usa terminais com DOS rodando a aplicação clipper e outros rodando Delphi + Apollo. [ ]´s Moacir - Original Message - From: "Werner Thiede" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, October 04, 2004 1:19 PM Subject: [delphi-br] Usar Apollo VCL Colegas, Preciso utilizar um biblioteca/método de acesso a arquivos .DBF que atualize os meus indices também (arquivos .ntx). É que estou convertendo meu antigo sistema em clipper, porém, estou fazendo em etapas, visto que é muito grande. Enquanto isto gostaria de ir migrando algumas rotinas. Encontrei algumas indicações na web sobre o APOLLO VCL. Alguém usa ? é seguro ? Ele não corrompe os meus índices do clipper e tal ? Um abraço a todos e obrigado. pernalongaSC -- < 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] Nome dos arquivos de uma pasta
Filipe,
Acredito que a função a baixo resolva o teu problema:
Function LocalizaArquivos(FromDir : String='' ;
Mascara : String='' ;
excluir : String=''): TStrings;
var
SearchRec: TSearchRec;
SearchResult: integer;
sArquivos: TStrings;
sExtensao : String;
begin
If excluir<>'' then
excluir:=UpperCase(excluir);
if (FromDir<>'') and
(FromDir[Length(FromDir)] <> '\') then
FromDir:= FromDir + '\';
SearchResult := FindFirst(FromDir + Mascara, faAnyFile,SearchRec);
sArquivos:=TStringList.Create;
sArquivos.Clear;
while (SearchResult = 0) do
begin
if (SearchRec.Attr and faDirectory) = faDirectory then
//-- Faz Nada !!
else
begin
If excluir<>'' then
Begin
sExtensao:=StringReplace(ExtractFileExt(SearchRec.Name),'.','',[rfReplaceAll
]);
If Pos(UpperCase(sExtensao),excluir)=0 then
sArquivos.Add(SearchRec.Name);
end
else
sArquivos.Add(SearchRec.Name);
end;
SearchResult := FindNext(SearchRec);
end;
SysUtils.FindClose(SearchRec);
Result:=sArquivos;
end;
[ ]´s
Moacir
- Original Message -
From: "Filipe" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, September 28, 2004 1:56 PM
Subject: Re: [delphi-br] Nome dos arquivos de uma pasta
var
str, res: string;
len, i: integer;
begin
str := {nome do arquivo};
len := length(str);
res := '' ;
for i := 1 to len do
begin
res := res + str[i];
if str[i] = '.' then
res := '';
end;
//res vai retornar o nome da extensão.
- Original Message -
From: Hélton Ribeiro Nunes
To: [EMAIL PROTECTED]
Sent: Tuesday, September 28, 2004 1:07 PM
Subject: [delphi-br] Nome dos arquivos de uma pasta
Ola pessoal
estou precisando pegar o nome dos arquivos de uma determinada pasta q
possuam determinadas extensões e coloca-las em um Memo, alguem pode me
ajudar?
[]´s
--
< 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] Duvida para fazer função
Eduardo,
Vc pode alterar para que a tua função verifique o parametro (valor). Se
contiver o % então é String..
ex.: Descricao:=ExibeDescricao('Alias', 'Tabela', 'CampoChave',
'CampoDescricao', '%teste%', 'Tipo');
ou
Descricao:=ExibeDescricao('Alias', 'Tabela', 'CampoChave',
'CampoDescricao', '123456', 'Tipo');
function ExibeDescricao(Alias, Tabela, CampoChave, CampoDescricao, Valor,
Tipo: String): String;
var
qryAux: TQuery;
begin
Result := '';
try
if Valor <> '' then
begin
qryAux := TQuery.Create(nil);
qryAux.DataBaseName := Alias;
qryAux.Close;
qryAux.Sql.Clear;
qryAux.Sql.Add('SELECT ' + CampoChave + ',' + CampoDescricao);
qryAux.Sql.Add(' FROM ' + Tabela);
if Pos('%', Valor)<>0 then
qryAux.Sql.Add(' WHERE ' + CampoChave + ' like ' + Chr(39) +
Valor + Chr(39))
else
qryAux.Sql.Add(' WHERE ' + CampoChave + ' = ' + Valor);
qryAux.Open;
if qryAux.IsEmpty then
Messagebox(Application.handle,'Valor não encontrado
!','Atenção',MB_OK or MB_ICONWARNING)
else
Result := qryAux.FieldByName(CampoDescricao).AsString;
end;
finally
qryAux.Free;
end;
end;
- Original Message -
From: "Eduardo Silva ®" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, September 22, 2004 1:06 PM
Subject: [delphi-br] Duvida para fazer função
Salve galera.
Galera, tenho a função abaixo que eu uso para exibir a descrição de um
valor string da tabela através de um campo chave.
Meu problema é que se eu uso na chave valores integer a função ta legal,
mas se eu usar campos chave do tipo string eu tenho que colocar o nome da
tabela e alterar a linha de programação (if (Tabela = 'SINS0104') or (Tabela
= 'SINS0304') then).
O que eu gostaria era de colocar uma coisa generica, independente do
campo chave ser integer ou string e fazer a pesquisa.
Alguém pode me dar uma mão ?
Obrigado desde já.
--
< 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
