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
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
.
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
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
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
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
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:
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 path + nome da base -user sysdba -pass masterkey (recomendo
que execute este
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
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
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
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;
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
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.
--
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,
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
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:
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?
-
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
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
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:
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??
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,
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);
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);
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');
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 :
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
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
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,
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.:
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
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:
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
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',
35 matches
Mail list logo