declare dessa forma
ALTER TABLE ESTOQUE ADD DESCRICAO Varchar(60) COLLATE WIN_PTBR;
>> Pesquisei na internet sobre a possibilidade de fazer consulta no Firebird
>> sem fazer a distinção entre palavras acentuadas e não acentuadas, entre
>> maiúsculas e minúsculas. Ex. Se eu pesquisar por "JOAO",
Existe alguém aí usando delphi for php em projetos?
Desculpem, o tópico fora do contexto.
Abraços a todos,
--
Marcelo Moacir Florindo
Analista/Desenvolvedor
http://www.gestaotec.com.br
[As partes desta mensagem que não continham texto foram removidas]
Vou testar nao! Correção! Faz o favor de pelo menos ler o codigo e tentar
entender o que ele faz, por favor ne! Ctrl C Ctrl V sem Entender vai Virar o
Que?
2009/12/16 rod
>
>
> Valeu Rubem!
>
> Vou testar o código aqui!
>
> Abraços
>
> Rod
>
> Em Wed, 16 Dec 2009 14:14:14 -0200, Rubem Rocha
>
{ O código desta dica aplica-se ao Delphi 7. Faça as devidas modificações
para adequar-se ao Delphi que você usa.
Por Rubem Nascimento da Rocha Manaus, AM }
program TiposEnumerados;
{$APPTYPE CONSOLE}
uses SysUtils, TypInfo, DB, DBClient, MidasLib;
type
TOpcao = (op
Valeu Rubem!
Vou testar o código aqui!
Abraços
Rod
Em Wed, 16 Dec 2009 14:14:14 -0200, Rubem Rocha
escreveu:
>
> Com base no documento mencionado, escrevi as seguintes funções em Object
> Pascal.
> function CalculaMod97(NumeroProcesso: longint; Ano, OrgaoJTR,
> OrigemProcesso: word): stri
GbBoleto não lhe atende?
Dê uma verificada...
http://www.google.com.br/search?hl=pt-BR&source=hp&q=gbboleto&meta=cr%3DcountryBR&aq=1s&oq=Gb+Bo
Cobrebem tbm se estendeu a isso... ou tem algumas soluções interessantes...
http://www.google.com.br/search?hl=pt-BR&source=hp&q=cobrebem&meta=cr%3Dcountr
opa, desculpa. o exemplo que te dei é para diferenciar maiúsculas de minúsculas.
nem sabia que tinha como diferenciar também acentuação
--- Em delphi-br@yahoogrupos.com.br, "Alisson Yahoo" escreveu
>
> Pesquisei na internet sobre a possibilidade de fazer consulta no Firebird
> sem fazer a di
Eu comecei a usar este agora, mas que andei lendo o collate PXW_INTL850 teria
que ser definido com outro character set.
Aí fica para outros que saibam mais, explicar isso.
CREATE TABLE "CLIENTE"
(
"CODIGO" INTEGER NOT NULL,
"NOME" VARCHAR(50) CHARACTER SET WIN1252 NOT NULL COLL
Fala Darkzad, Faz o seguinte cara Cria o mesmo parametro (COD) dentro do
ClientDataSet, Igualzinho ao SqlDataSet
Depois tenta fazer assim:
Var
str :TstringList
begin
str := TStringList.Create;
str.Add('select * from CONTAS Where COD_CONTA = COD');
Ds.DataSet.Close;
DM_Cadastro.cdsCon
sdsContas é o TSQLDataSet?
Se é está errado...
Isso:
sdsContas.Close;
sdsContas.Params[0].AsInteger := DBGrid1.Fields[0].AsInteger;
sdsContas.Open;
Deve ser feito com ClientDataSet... Você também verificou nos params do
dataset e do client se os tipos deles estão corretos?
Darkzad escreveu:
>
usa o delphi boleto, acho q o nome certo eh esse!
2009/12/16 eljusticeiro...@ymail.com
>
>
> Galera,
>
> Estou precisando URGENTE, gerar BOLETOS do Banco do Brasil.
>
> Sem registro, carteira 18.
>
> Alguém poderia me ajudar ?? Por onde começar??
> Já testei vários componentes, mas nenhum satisf
Só um detalhe que não é para você Felipe, tem gente que tem preguiça de
procurar no Google, isso já é comprovado e já foi tema de discussão aqui
na lista. Tem gente que quer tudo na mão, (mais uma vez, não é o seu
caso), e..., outras vezes, as pessoas não acreditam que colocar no
Google assim:
Muito interessante sua observação, geralmente eu trabalho com procedures,
acredito que a ordenação se faça em memoria e somente dos registros que
aparecem na tela,
ou seja, ele não volta ao banco de dados para ordenar. Mas vou pesquisar
melhor.
Obrigado
_
De: delphi-br@yahoog
Pesquisei na internet sobre a possibilidade de fazer consulta no Firebird
sem fazer a distinção entre palavras acentuadas e não acentuadas, entre
maiúsculas e minúsculas. Ex. Se eu pesquisar por "JOAO", a consulta trará
registros que contém "joão", "joao", "JOÃO" e "JOAO". Achei artigos que
di
Não entendi muito bem, poderia dar um exemplo?
Coloquei o SQL dentro do TSQLDataset quando executo o comando abaixo
sdsContas.Close;
sdsContas.Params[0].AsInteger := DBGrid1.Fields[0].AsInteger;
sdsContas.Open;
Não dá erro nenhum mas tbm não traz nenhum registro. E o
DBGrid1.Fields[0].AsInteger
O problema não é procurar ou não no google, ou no que for... o problema é
que de nada ajudou a msg do amigo.. se não é pra ajudar, fica-se em
silencio...
Imagina, se pra cada pergunta aqui no forum eu virasse e respondesse: se
vira, procura no google...!
além de gerar tráfego exagerado por uma co
Com certeza a propriedade poAllowCommandText serve para voce poder passar
instruções sql através do CDS, pode não estar funcionando por N motivos menos
este.
--- Em qua, 16/12/09, Marcelo Luiz Onhate escreveu:
De: Marcelo Luiz Onhate
Assunto: Re: [delphi-br] Problema com ClientDataset
Para: d
Sugiro monitorar esse recurso do IBOQuery pra ver se ele não reenvia o
SELECT acrescido de ORDER BY. Se fizer isso, vc terá perda considerável de
performance.
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Dimas
Enviada em: quarta-feira, 16 de dezembro d
No IBO qdo vc abre o IB_Query tem uma aba Ordering, nela vc pode
escolher os campos que podera ordenar em tempo de execução.
Depois, qdo estiver rodando seu programa e vc estiver usando um TIB_Grid
os campos que podem ser ordenados já aparecem com um simbolo diferente após
o nome do titulo.
Vo
Com base no documento mencionado, escrevi as seguintes funções em Object
Pascal.
function CalculaMod97(NumeroProcesso: longint; Ano, OrgaoJTR,
OrigemProcesso: word): string;
var
resto1, resto2: longint;
valor1, valor2, valor3: string;
begin
valor1 := Format('%7.7d', [NumeroProcesso])
Baixa ai!!!
http://mrbool.devmedia.com.br/Novo/Revista/ed82-jorge-fonetico.zip
--
Gildenor Teixeira
Autogere - Sistemas de Automação e Gestão
61 9985-9008
2009/12/16 EmbarcaDelphi
>
>
> *ClubeDelphi 82*
> R$ 9,90
> Veja nesta edição: Código fonético no Firebird.Um dos maiores problemas
> em
UserControl1.CurrentUser.UserId
2009/12/16 Nazareno Neto
>
>
> Pessoal alguem aqui usa o User Control? se sim, poriam me dizer se tem como
> pegar o usuario logado, para gravar o id dele junto com a operação que esta
> sendo realizada, por exemplo uma venda, orcamento, etc.
>
> Tem como fazer i
Bom quando vc tem um micro da marca "AiMeuDeus", todos os problemas vem em
dobro, tem como trocar por um Pentium não ?
Aqui na empresa tínhamos 3 "AiMeuDeus" e 25 Intel, trocamos os 3 pq varias
vezes alguns programas não funcionavam direito, davam erros inexplicáveis,
temos um programa do IBOPE
Isso não é seguro! NUNCA concatene na SQL... se ele estiver nulo o
asstring dele vai trazer '' então "token unknow" =) ...
Continue usando os parametros. só troca a sql de lugar... como falei
antes...
Alisson Yahoo escreveu:
>
>
> Verifique se DBGrid1.Fields[0].AsInteger não está nulo. Tente t
Geralmente, por questão de desempenho, utiliza-se sempre primeiro os
inner, depois left e depois outros joins que tiver, mas neste caso,
realmente teria ou usar como Romudo escreveu, ou usando UNION ou até mesmo
dependendo do caso, não sei se no seu se encaixaria tabela derivada.
2009/12/12 Romu
Sem stress.
veja o anexo.
- Original Message -
From: "Fellipe Henrique"
To:
Sent: Tuesday, December 15, 2009 8:53 PM
Subject: Re: [delphi-br] Módulo 97 base 10 (norma iso 7064)
Bom, acredito que se não é pra ajudar, melhor não responder... do que dizer
asneiras por aí..
Att.
2009/12
Galera,
Estou precisando URGENTE, gerar BOLETOS do Banco do Brasil.
Sem registro, carteira 18.
Alguém poderia me ajudar ?? Por onde começar??
Já testei vários componentes, mas nenhum satisfatório.
Uso o Delphi 7.0
Obrigado.
Porque você não deixa a sql no TSQLDataSet e altera os Parâmetros no
ClientDataSet?
Vai fucionar igual ao que está fazendo, só que a SQL ficaria no
TSQLDataSet, e não precisa do parametro poAllowCommandText, que acho até
que serve para outra coisa, e não isso...
Darkzad escreveu:
>
>
> Olá pe
Parece estar tudo ok deve ser algum detalhe.tente dar fetch params antes de
abrir.Eu particularmente prefiro usar assimwith cds do beginclose;commandText
:= '';commandText := 'select * from CONTAS where COD_CONTA
=:COD';Params.ParamByName('COD').asInteger := DBGrid1.Fields[
0].AsInteger;open;e
Pessoal alguem aqui usa o User Control? se sim, poriam me dizer se tem como
pegar o usuario logado, para gravar o id dele junto com a operação que esta
sendo realizada, por exemplo uma venda, orcamento, etc.
Tem como fazer isso?
--
Nazareno Neto
Programador Delphi e Firebird
http://www.delphisi
Agradeço a todos pela colaboração!
Descobri uma função pronta num site francês e outro em chinês, e esse alg.
é feito também pelos bancos (dígito verificador do boleto).
Um grande abraço a todos
Rod
Em Tue, 15 Dec 2009 20:53:19 -0200, Fellipe Henrique
escreveu:
> Bom, acredito que se não
*ClubeDelphi 82*
R$ 9,90
Veja nesta edição: Código fonético no Firebird.Um dos maiores problemas
em um cadastro, seja de clientes, fornecedores ou produtos, é quando ele
se torna muito grande, dificultando a busca por nome ou descrição. Quem
nunca se confundiu com o nome de um cliente ou
Mas quer melhor lugar para achar soluções que no google, não vejo isso como
asneira. Quem sabe as pessoas melhorem suas tecnicas de busca
--- Em ter, 15/12/09, Fellipe Henrique escreveu:
De: Fellipe Henrique
Assunto: Re: [delphi-br] Módulo 97 base 10 (norma iso 7064)
Para: delphi-br@yahoogrupo
Verifique se DBGrid1.Fields[0].AsInteger não está nulo. Tente também :
ClientDataset.CommandText := 'select * from CONTAS Where COD_CONTA = ' +
DBGrid1.Fields[0].AsString.
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http
Veja esta idéia , Walter...
http://monoceros.cnj.gov.br/portalcnj/images/numerao_nica_de_processos_nos_estados/digito_de_verificacao_justica_em_numeros_do_cnj_15122008.pdf
2009/12/16 Walter Chagas (Bol)
> Bom, se voce disser qual foi a asneira que eu disse, eu me calo e acato
> plenamente sua c
Ricardo;
Veja a rotina abaixo eu a utilizo nos meu programas e funciona bem, deve ser
colocada no dpr
o nome "Sistema de Cobrança" é atribuido na janela Project Options opcao
Version Info e no
key FileDescription.
O nome que voce colocar lá deve ser o mesmo de HprevHist := FindWindow(Nil,
PChar
Bom, se voce disser qual foi a asneira que eu disse, eu me calo e acato
plenamente sua crítica hostil.
A lista já tá farta de pessoas que, ao invés de consultar os mecanismos de
busca na WEB, optam pelo comodismo: Posta na lista e espera alguem fazer
isto pra ele pra lhe passar mastigado. Aí se
Olha... sinceramente não vi nenhuma asneira por aí não... O único problema é
que não existe implementação em Delphi ainda para o algoritmo proposto pela
norma.
A documentação e exemplos que achei são para Java, VB e PL/SQL. Mas perdendo um
pouco de tempo, e lendo este documento [1] acredito qu
Ricardo, acredito que você terá que verificar todos os processos em
execução.
Não tenho uma rotina pronta, mas uma busca irá lhe ajudar.
Com o PID de cada processo, você poderia usar a rotina abaixo:
var
Alca : THandle;
sExe : string;
dwRet : DWORD;
begin
Alca := OpenProcess(PROCESS_QUERY_I
Olá pessoal,
No meu Data Module tenho TSQLDataSet, TDataSetProvider e um ClientDataset.
O Meu TDataSetProvider a Options - poAllowCommandText := True; para o
ClientDatase passar comandos SQL.
O commandText do ClientDataset := select * from CONTAS Where COD_CONTA =
:COD
O Tipo do Parametro :COD
Olha, eu acho que pelo path não dá, mas você pode saber se um programa está
em execução ou não com o seguinte trecho de código:
procedure TForm4.FormClick(Sender: TObject);
begin
if FindWindow(nil, 'Form4') > 0 then
ShowMessage('exec');
end;
tem outras maneiras mas, esta é a mais simples.
Bom, acredito que se não é pra ajudar, melhor não responder... do que dizer
asneiras por aí..
Att.
2009/12/15 Walter Chagas (Bol)
>
>
> O google, o Yahoo e o Altavista com certeza tem..
>
> []s
>
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> wchag...@bol.com.br
> http://delphit
42 matches
Mail list logo