Boa noite a todos !
Tenho uma função que cria o botão tem tempo de execução, mas como atribuir em
tempo de execução, uma função/procedure ao evento onClick ?
procedure MeuBotao( oFrm: TForm ) ;
var oBtn: TButton ;
begin
oBtn:=TButton.Create(oFrm);
oBtn.Parent:=oFrm;
oBtn.Width:=60;
Boa noite a todos !
Tenho uma função que cria o botão tem tempo de execução, mas como atribuir em
tempo de execução, uma função/procedure ao evento onClick ?
procedure MeuBotao( oFrm: TForm ) ;
var oBtn: TButton ;
begin
oBtn:=TButton.Create(oFrm);
oBtn.Parent:=oFrm;
oBtn.Width:=60;
Esse site vai quebrar teu galho e te dar mais visões para o que deseja :)
http://www.efg2.com/Lab/Library/Delphi/Graphics/Algorithms.htm
Diz aí se serviu...
Em 18/01/2010 22:22, Felipe Yahoo escreveu:
Boa Noite senhores, estou com um problema e não consigo solucionar.
Preciso
Bah é uam boa ideia Marcelo ai no caso eu colocaria neste comando os scripts
sql com os comandos para o banco isso?
Nunca fiz isso antes é dificil?
2010/1/18 Marcelo leite_rom...@yahoo.com.br
Tem N maneiras de voce fazer estas atualizações. Aqui na empresa nos
colocamos no executavel um
Cria uma procedure com os mesmo parâmetros da procedure OnClick
Lá dentro vc coloca o que quiser
Aí depois coloca
oBtn.onClick := MinhaProcedure;
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de developer.systems
Enviada em: terça-feira, 19 de janeiro de
Bom dia a todos
Quem trabalha com a NFe da ACBR poderia me ajudar?
Neste momento quando vou transmitir e imprimir a NFe preciso capturar a
chave gerada pelo componente para incluir
na minha tabela de notas fiscais, como faço para capturar esta chave?
for i := 0 to
Bom dia,
Cara passei a noite revirando esse site que vc me passou e não encontrei
coisas do tipo, vc tem noção mais ou menos do nome do algoritimo?
Obrigado
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de EmbarcaDelphi
Enviada em: terça-feira, 19 de
Tentei assim também mas o da o mesmo problema.
From: CRM Desenvolvimentos crmdesenvolvimen...@gmail.com
To: delphi-br@yahoogrupos.com.br
Sent: Mon, January 18, 2010 3:51:42 PM
Subject: Re: [delphi-br] FormatDateTime
Porque não usa assim: *FormatDateTime(
Felipe,
Não sei fazer o TIFF com várias páginas, mas vou lhe passar um site que tem
um software que trabalha com qq tipo de imagem. Talvez ele faça isso que vc
quer, é só ler o manual... ah, o software é na linha de comando, então vc
poderá fazer uma integração com seu projeto Delphi (eu já o
Eu conheço dois portais que costumam ter muita coisa. Não posso afirmar-lhe que
voce vai encontrar lá alguma coisa, a nível de conversão de imagens, porém não
custa nada tentar.
www.delphi3000.com
www.swissdelphicenter.ch
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
Willian, mesmo estando em threads diferentes ele poderia ocorrer este
problema?
Meu programa pode ter até 10 threads simultaneas. Cada thread possui um
TADOConnection e um TADOQuery. A Query recebe o select e executa, a thread
então processa algumas informações e gera um arquivo.
O programa
Ola pessoal , preciso desenvolver uma aplicacao para vendas off-line,
ou seja o representante comercial vai até o cliente, digita o pedido e mais
tarde transmite o pedido a fabrica.
vou preciar criar uma base de dados no cliente.
o que fica melhor ??
dados em txt ? xml ? banco(qual).
qual
Eu usaria XML... vc deixa tudo guardado no computador e sincroniza depois.
Atte,
Ricardo.
1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo
Pessoal, estou precisando converter um arquivo PDF em texto via delphi, sem
uso de programas externos. O PDF é bem simples, apenas com texto, sem
qualquer tipo de restrição. Já procurei na net mas não encontrei nenhum
componente VCL que faça isso, apenas programas, o que não funcionaria pra
mim,
Chave := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe;
Protocolo := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt;
Recibo := ACBrNFe1.WebServices.Retorno.NFeRetorno.nRec;
__
Faça ligações para outros computadores
Eu utilizo o banco (Firebird embarcado) com atualização diária
automática quando o representante acessa o sistema. Mas exigimos que o
representante tenha um notebook ou computador em casa. Na pior das
hipóteses um pendrive, que eu não recomendo. O representante digita o
pedido, clica em enviar
Pessoal tenho um sqldataset onde eu faço uma SQL do seguinte modelo:
select R.RECEB_COD, P.RAZAO_PAR, R.COD_EMP, R.COD_PAR, R.TIPDOC_COD,
T.TIPDC_DESC,
R.COD_MOEDA, M.DESC_MOEDA, R.RECEB_SIT,
(select first 1 c.vlor_cot
from cotacoes c
where c.data_cot
Em 19/01/2010 08:28, Alemão escreveu:
Willian, mesmo estando em threads diferentes ele poderia ocorrer este
problema?
Acredito que não. Só vi esta manifestação do mal quando os TDataSet
tinham métodos executados na mesma rotina, e somente um imediatamente
após o outro.
Estou
O modelo que utilizamos aqui na empresa funciona assim, temos uma tabela de
configurações onde guardamos o numero da versão, se a versão do banco for
diferente da do sistema então dispara a atualização. Utilizamos para rodar o
scripts o componente IBscript da paleta Interbase, mas tem outros
Chave:= Copy(NFe.NotasFiscais.Items[i].NFe.infNFe.ID, 4);
Numero:= NFe.NotasFiscais.Items[i].NFe.Ide.cNF;
Serie:= NFe.NotasFiscais.Items[i].NFe.Ide.serie;
Em 19/01/2010 08:20, Dimas Bolognani escreveu:
Preciso capturar o numero da NFE e chave gerada. Como faço?
Em 19/01/2010 11:07, Marcio Luis escreveu:
Ola pessoal , preciso desenvolver uma aplicacao para vendas off-line,
ou seja o representante comercial vai até o cliente, digita o pedido e
mais
tarde transmite o pedido a fabrica.
vou preciar criar uma base de dados no cliente.
o que fica
Firebird
SQLDataSet
if CommandText = 'SELECT ...
grato
Ok, havia pegado embalo noutra mensagem, veja este site mostrando como
corrigir isso:
http://www.codeverge.net/item.aspx?item=72358
blz
Em 18/01/2010 10:01, Evaldo escreveu:
Ao usar a função no Delphi 2007:
stFormatoData = 'dd/mm/';
FormatDateTime(stFormatoData,Now);
o compilador
não sei se é a causa mas não está faltando um AS antes do Valor_moeda
De: Huander huan...@maxxsoft.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 19 de Janeiro de 2010 12:07:01
Assunto: [delphi-br] Erro com ApllyUpdate
Pessoal tenho um
Olá pessoal, bom dia,
Estou criando um instalador pelo Inno Setup, e estou com uma dúvida nos
arquivos externos [Files] flags: external, só estou conseguindo se colocar
o caminho completo do arquivo, se colocar somente o nome do arquivo não
funciona.
EX:
[Files]
Source: Conexao.bin;
O site indicado pelo colega encontra-se lá também, mas ele não é free,
vc tem que pagar.
Se procurar direitinho vai ver que tá lá sim.
Tem várias componentes diferentes que faz a conversão para o TIFF.
Clica no link lá (C. Image Processing)
Ola pessoal , preciso desenvolver uma aplicacao para vendas off-line,
ou seja o representante comercial vai até o cliente, digita o pedido e
mais
tarde transmite o pedido a fabrica.
vou preciar criar uma base de dados no cliente.
o que fica melhor ??
dados em txt ? xml ? banco(qual).
O
Bom dia pessoal,
Estou com um pequeno problema em meu sistema de emissão de NFe.
Estava desenvolvendo este sistema em um um computador e todos os processos
funcionavam corretamente... No entando, este computador veio a falecer. Ao
trocar de computador, instalei o ACBr e este agora apresenta a
Tenta colocar um AS
order by c.data_cot desc) AS VALOR_MOEDA
e coloca no Provider para não utiliza QuotedChar... faz esse teste e
responde oque ocorreu.
Em 19/01/2010 12:07, Huander escreveu:
Pessoal tenho um sqldataset onde eu faço uma SQL do seguinte modelo:
select R.RECEB_COD,
Amigo, o formato pdf funciona como um container. Dentro dele tanto pode haver
conteúdo em forma de texto como também imagens. Alguns programas de conversão
de pdf para texto tambem lêem as imagens neles contidas e as convertem para
texto. O teu aplicativo terá que agir como um OCR para
A muito teeemmmpo atrás eu disponibilizei os fontes de um programa que
faz o inverso (sem precisar que o Reader estivesse instalado), não me
lembro se também faz o que você deseja, procura na seção arquivos.
blz
Em 19/01/2010 10:19, Alemão escreveu:
Pessoal, estou precisando converter um
Tenta assim:
FormatDateTime( 'mm/dd/',now);
Em 19/01/2010 07:36, Evaldo escreveu:
Tentei assim também mas o da o mesmo problema.
From: CRM Desenvolvimentos crmdesenvolvimen...@gmail.com
mailto:crmdesenvolvimentos%40gmail.com
To:
Screen.ActiveControl
Dirlei.
Eric Developer escreveu:
Bom dia pessoal.
Tem alguma função do Delphi 7 que retorne o objeto do form ativo ? Não
me refiro a propriedades do TForm como ActiveControl, pois usarei na
unit específica de funções.
Eric
São Paulo - Brasil
Screen.ActiveForm.ActiveControl
ou
Screen.ActiveControl.
Tente uma dessas alternativas.
Boa sorte.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Dirlei
Enviada em: terça-feira, 19 de janeiro de 2010 09:28
Para: delphi-br@yahoogrupos.com.br
Evaldo, neste código, você não está utilizando o retorno da função
FormatDateTime para nada. Foi por isso que o linker ignorou a chamada à
função.
A sua intenção não seria guardar o retorno da função numa variável ou
exibir na tela?
Dirlei.
Evaldo escreveu:
Ao usar a função no Delphi
Ola pessoal , preciso desenvolver uma aplicacao para vendas off-line,
ou seja o representante comercial vai até o cliente, digita o pedido e mais
tarde transmite o pedido a fabrica.
vou preciar criar uma base de dados no cliente.
o que fica melhor ??
--binarios do clientdataset
dados em txt ?
Olá,
Estou com problemas para utilizar o componente ACbrNf-e.
Estou utilizando o BDS 2006.
Ao tentar enviar uma nota pelo componente recebo a mensagem dizendo Rejeição:
Falha no Schema XML da NF-e.
Alguém sabe como eu posso ter um erro menos genérico? por onde eu posso
procurar para saber sobre
Colegas,
Estou disponível para trabalhos *freelance*.
Sou desenvolvedor Delphi e Java, moro em Belo Horizonte.
Se souberem de alguma coisa favor indicar-me.
Desde já agradeço,
Edmilson Pontes
[As partes desta mensagem que não continham texto foram removidas]
Galera,
Eu não quero alavancar de novo esta discussão, mas tenho migrado grandes
sistemas e mesmo sistemas que trabalham somente com API de hardware diretamente
onde nos deparamos bastante com a adaptação do UNICODE. Tem dado algum
trabalho, mas não tem sido nada exorbitante que não dá para
100% os binários do clientdataset também. Muito simples de utilizar, sem
crise.
Vitor.
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Bruno Lichot
Enviada em: terça-feira, 19 de janeiro de 2010 15:06
Para: delphi-br@yahoogrupos.com.br
Assunto:
Procure pelo grupo projeto cooperar nfe ou projeto_cooperar_nfe no yahoo
groups. É o grupo do ACBR.
Só pra constar, você rodou o demo pelo bds06? Funcionou tranqüilo? Se sim,
provavelmente você está esquecendo de preencher alguma propriedade do
componente.
Vitor.
_
De:
Var
VData, VFormato : String;
Begin
VFormato := dd/mm/;
VData := FormatDateTime( FORMATO, NOW );
ShowMessage( VData )
End;
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de EmbarcaDelphi
Enviada em: terça-feira, 19
Olá Bruno, Muito obrigado pelas informações e Links. Com certeza vou dar uma
olhada e estudar bem. Infelizmente essa migração, pelo menos no meu caso
está sendo muito problemática.
Migrar para o 2009/10 é uma coisa que mais cedo ou mais tarde terei de
fazer, então ja vou me preparar.
Na verdade estou usando sim. Consegui resolver. Acho que era um problema da
query;
Estava assim:
stFormatoData = 'dd/mm/' ;
query.ParamByName('data').AsString := FormatDateTime( stFormatoData, Now);
Resolvi trocando o AsString por AsDate:
stFormatoData = 'dd/mm/' ;
Eu consegui sim rodar o demo sem problemas.
Vou ter ver certinho qual propriedade é...
Também irei procurar o grupo no yahoo
Obrigado
Thiago Menon
Em 19/01/2010 15:58, Vitor Yahoo escreveu:
Procure pelo grupo projeto cooperar nfe ou projeto_cooperar_nfe no yahoo
groups. É o grupo do ACBR.
Já tentou as propriedades IsEmpty ou RecordCount?
Luciano C. Simões
--- Em delphi-br@yahoogrupos.com.br, EmbarcaDelphi embarcadel...@... escreveu
Firebird
SQLDataSet
if CommandText = 'SELECT ...
grato
Em 19/01/2010 15:19, Evaldo escreveu:
stFormatoData = 'dd/mm/' ;
query.ParamByName('data').AsDate := StrToDate ( FormatDateTime(
stFormatoData, Now) );
query.ParamByName('data').AsDate := Date;
Não seria mais simples usar isso?
--
---
Nao entendi o binarios do clientdataset ???
pode me clarear as ideias.
att. Marcio.
At 09:06 19/1/2010 -0800, you wrote:
Ola pessoal , preciso desenvolver uma aplicacao para vendas off-line,
ou seja o representante comercial vai até o cliente, digita o pedido e mais
tarde transmite o
Pior que o erro continua!
Att.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Marcelo Luiz Onhate
Enviada em: terça-feira, 19 de janeiro de 2010 13:22
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Erro com ApllyUpdate
Tenta colocar
SqlLite com certeza, o bichim é realmente lite, lite mesmo, e muito
eficiente, é padrão SQL, leve, e roda apenas com a dll. Ideal para soluções
clean, como esse que vc sugere.
2010/1/19 Marcio Luis mar...@sulfabril.com.br
Nao entendi o binarios do clientdataset ???
pode me clarear as
TDataPacketFormat = (dfBinary, dfXML, dfXMLUTF8);
procedure TCustomClientDataSet.SaveToFile(const FileName: string = ''; Format:
TDataPacketFormat = dfBinary);
Luciano C. Simões
--- Em delphi-br@yahoogrupos.com.br, Marcio Luis mar...@... escreveu
Nao entendi o binarios do clientdataset
O erro diz aue o campo RECEB_SIT não existe. Se existe ou tá com alguma
configuração errada. Convem rever os Fields tanto da Query como do CDS. Um
deles pode estar com erro. Também convem olhar a sentença pois este campo
(RECEB_SIT) é referenciado na mesma como membro da tabela Receber. Será
Pessoal,
Acredito ser a melhor proposta de solução: Baixa o Trial e faça testes. Tenta
migrar o projeto todo. Avalie o que é e o que não é compativel antes de assinar
o cheque porque, depois de pago, querer receber de volta porque não serviu todo
mundo aqui sabe como é que é. Vai um monte de
Ajuda SQL..
Pessoal tenho a seguinte tabela
CODIGO GRUPO ATIVIDADE ESTADO VALOR
1ALIMENTOS D V2
1ALIMENTOS D V10
1ALIMENTOS I VI 5
1ALIMENTOS I V5,32
Está dando o seguinte erro:
SQLDataSet1 : Cursor not returnet from query
===
Faço assim:
DM1.SQLDataSet1.Close;
DM1.SQLDataSet1.CommandText := 'SELECT * FROM CONTROLE';
DM1.SQLDataSet1.Open;
if DM1.SQLDataSet1.RecordCount = 0 then
Result := False;
Faço assim:
DM1.SQLDataSet1.Close;
DM1.SQLDataSet1.CommandText := 'SELECT * FROM CONTROLE';
DM1.SQLDataSet1.Open;
if DM1.SQLDataSet1.RecordCount = 0 then
Result := False;
E aparece a tela de erro:
SQLDataSet1 : Cursor not returnet from query
* select count( * ) from SUATABELA*
2010/1/19 EmbarcaDelphi embarcadel...@yahoo.com.br
Firebird
SQLDataSet
if CommandText = 'SELECT ...
grato
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE
Se você não tem muita experiência e achar a solução do MArcelo
complicada, pode instalar um programa chamdo Hadmin e fazer as
atualizações direto pela Net.
Sem mais,
Suélio Santos
Focus Automação - Natal-RN
Cara valeu pela dica não sei direito ainda como fazer isso, mas vou dar um
jeito no começo é sempre um pouco trabalhoso ate pegar o jeito, mas valeu a
dica. Obrigado.
2010/1/19 Marcelo leite_rom...@yahoo.com.br
O modelo que utilizamos aqui na empresa funciona assim, temos uma tabela de
IF EXISTS( SELECT 1 FROM TABELA WHERE ALGUMA COISA )
Galera, tá rolando por aqui e no grupo de delphi, um curso sobre ERP da
empresa T2Ti, alguém da lista já utilizou os serviços dessa empresa ??
Como foram??
Vale a pena ??
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens
Pra mim, apesar de off-topic, esse assunto é fora do escopo da lista, pq esse
projeto da T2Ti envolve Java.
Sds.
To: delphi-br@yahoogrupos.com.br; n...@yahoogrupos.com.br
From: berdamzi...@yahoo.com.br
Date: Tue, 19 Jan 2010 22:12:04 -0200
Subject: [delphi-br] T2Ti OFF
Galera, tá rolando
Tem alguns componentes de acesso a dados sim, porém em runtime estão
desconectados.
Tem algum código assembly no meio, que vou retirar e colocar em outra unit.
Tava lembrando disso agora...
Será que referência circular(um form que faz referencia a um 2º que por sua
vez referencia o 1º) pode
Boa noite a todos,
Uma pergunta básica mas que já fucei por tudo e não achei solução.
Reinstalei o Windows no meu micro, e estou com dificuldade para configurar
os Desktops no BDS 2006 Win32. Eu quero usar o mesmo desktop em design time
e em debug, mas não tá rolando. Configurei e salvei o layout
DATAMODULE1.SQLDataSet1.Close;
DATAMODULE1.SQLDataSet1.CommandText := 'SELECT * FROM MINHATABELA';
DATAMODULE1.SQLDataSet1.Open;
IF DATAMODULE1.SQLDataSet1.ISEMPTY THEN
SHOWMESSAGE('NAO A NADA')
[As partes desta mensagem que não continham texto foram removidas]
Em 19/01/2010 18:48, dionatanhenrique escreveu:
select GRUPO, ATIVIDADE, ESTADO, SUM(VALOR) from TESTE GROUP BY GRUPO,
ATIVIDADE, ESTADO
select GRUPO, ATIVIDADE, ESTADO, SUM(VALOR) from TESTE WHERE ATIVIDADE = 'I'
AND ESTADO = 'V' GROUP BY GRUPO, ATIVIDADE, ESTADO
Literalmente está se fazendo tempestade em copo d'agua.
Os impactos de migração por causa de unicode se dão na grande maioria das vezes
em aplicações que usam ponteiros, acesso direto a api e manipulação de tamanho
de string em bytes.
O compilador, VCL e RTL fazem 99% do trabalho de
67 matches
Mail list logo