Re: [delphi-br] Projeto ACBrNFe
Tentei compilar o demo que vem no projeto ACBrNFe, mas nas linhas abaixo
(marcadas com uma seta) está dando erro: propriedade não declarada. O que devo
fazer? Estou com o Demo errado ou os fontes do componente é que estão
desatualizados? Para compilar tive que comentar essas linhas.
Graça
procedure TFrm_NFePrincipal.LerConfiguracao;
Var IniFile : String ;
Ini : TIniFile ;
begin
IniFile := ChangeFileExt( Application.ExeName, '.ini') ;
Ini := TIniFile.Create( IniFile );
try
{$IFNDEF ACBrNFeCAPICOM}
edtCaminho.Text := Ini.ReadString( 'Certificado','Caminho' ,'') ;
edtSenha.Text := Ini.ReadString( 'Certificado','Senha' ,'') ;
- //ACBrNFe1.Configuracoes.Certificados.Certificado :=
edtCaminho.Text;
- //ACBrNFe1.Configuracoes.Certificados.Senha := edtSenha.Text;
edtNumSerie.Visible := False;
Label25.Visible := False;
{$ELSE}
edtNumSerie.Text := Ini.ReadString( 'Certificado','NumSerie','') ;
ACBrNFe1.Configuracoes.Certificados.NumeroSerie := edtNumSerie.Text;
Label1.Caption := 'Informe o número de série do certificado'#13+
'Disponível no Internet Explorer no menu'#13+
'Ferramentas - Opções da Internet - Conteúdo '#13+
'Certificados - Exibir - Detalhes - Número do
certificado'#13+
'É necessario retirar os espaços em branco '#13+
'e as letras para maiúsculo';
Label2.Visible := False;
edtCaminho.Visible := False;
edtSenha.Visible := False;
sbtnCaminhoCert.Visible := False;
{$ENDIF}
cbDanfe.Text := Ini.ReadString( 'Geral','DANFE' ,'Retrato') ;
cbFormaEmissao.Text :=Ini.ReadString( 'Geral','FormaEmissao','Normal
on-line') ;
edtLogoMarca.Text := Ini.ReadString( 'Geral','LogoMarca' ,'') ;
ckSalvar.Checked := Ini.ReadBool( 'Geral','Salvar' ,True) ;
edtPathLogs.Text := Ini.ReadString( 'Geral','PathSalvar' ,'') ;
ACBrNFe1.Configuracoes.Geral.DANFE := cbDanfe.Text;
ACBrNFe1.Configuracoes.Geral.FormaEmissao := cbFormaEmissao.Text;
ACBrNFe1.Configuracoes.Geral.LogoMarca := edtLogoMarca.Text;
ACBrNFe1.Configuracoes.Geral.Salvar := ckSalvar.Checked;
ACBrNFe1.Configuracoes.Geral.PathSalvar := edtPathLogs.Text;
cbUF.ItemIndex := cbUF.Items.IndexOf(Ini.ReadString(
'WebService','UF','SP')) ;
cbAmbiente.Text := Ini.ReadString( 'WebService','Ambiente'
,'Teste') ;
ckVisualizar.Checked :=Ini.ReadBool( 'WebService','Visualizar',False) ;
ACBrNFe1.Configuracoes.WebServices.UF := cbUF.Text;
ACBrNFe1.Configuracoes.WebServices.Ambiente := cbAmbiente.Text;
ACBrNFe1.Configuracoes.WebServices.Visualizar := ckVisualizar.Checked;
{$IFNDEF ACBrNFeCAPICOM}
edtProxyHost.Text := Ini.ReadString( 'Proxy','Host' ,'') ;
edtProxyPorta.Text := Ini.ReadString( 'Proxy','Porta' ,'') ;
edtProxyUser.Text := Ini.ReadString( 'Proxy','User' ,'') ;
edtProxySenha.Text := Ini.ReadString( 'Proxy','Pass' ,'') ;
- //ACBrNFe1.Configuracoes.WebServices.ProxyHost := edtProxyHost.Text;
- //ACBrNFe1.Configuracoes.WebServices.ProxyPort :=
edtProxyPorta.Text;
//ACBrNFe1.Configuracoes.WebServices.ProxyUser := edtProxyUser.Text;
//ACBrNFe1.Configuracoes.WebServices.ProxyPass := edtProxySenha.Text;
{$ELSE}
gbProxy.Visible := False;
{$ENDIF}
edtEmitCNPJ.Text := Ini.ReadString( 'Emitente','CNPJ' ,'') ;
edtEmitIE.Text := Ini.ReadString( 'Emitente','IE' ,'') ;
edtEmitRazao.Text := Ini.ReadString( 'Emitente','RazaoSocial','') ;
edtEmitFantasia.Text := Ini.ReadString( 'Emitente','Fantasia' ,'') ;
edtEmitFone.Text := Ini.ReadString( 'Emitente','Fone' ,'') ;
edtEmitCEP.Text := Ini.ReadString( 'Emitente','CEP' ,'') ;
edtEmitLogradouro.Text := Ini.ReadString( 'Emitente','Logradouro' ,'') ;
edtEmitNumero.Text := Ini.ReadString( 'Emitente','Numero' ,'') ;
edtEmitComp.Text := Ini.ReadString( 'Emitente','Complemento','') ;
edtEmitBairro.Text := Ini.ReadString( 'Emitente','Bairro' ,'') ;
edtEmitCodCidade.Text := Ini.ReadString( 'Emitente','CodCidade' ,'') ;
edtEmitCidade.Text :=Ini.ReadString( 'Emitente','Cidade' ,'') ;
edtEmitUF.Text := Ini.ReadString( 'Emitente','UF' ,'') ;
finally
Ini.Free ;
end;
end;
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Projeto ACBrNFe - Grupo de discuss ão exclusivo. Existe?
Existe um Grupo de Discussão exclusiva do ACBr + ACBrNFe? Um Grupo que centraliza alterações, novidades, dúvidas e soluções? Graça Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Projeto ACBrNFe
Coloque em Project - Options - Directories/Conditionals - Conditional Defines o
valor ACBrNFeCAPICOM
André F. Moraes
- Original Message -
From: Maria das Graças .
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, June 03, 2009 7:48 AM
Subject: Re: [delphi-br] Projeto ACBrNFe
Tentei compilar o demo que vem no projeto ACBrNFe, mas nas linhas abaixo
(marcadas com uma seta) está dando erro: propriedade não declarada. O que devo
fazer? Estou com o Demo errado ou os fontes do componente é que estão
desatualizados? Para compilar tive que comentar essas linhas.
Graça
procedure TFrm_NFePrincipal.LerConfiguracao;
Var IniFile : String ;
Ini : TIniFile ;
begin
IniFile := ChangeFileExt( Application.ExeName, '.ini') ;
Ini := TIniFile.Create( IniFile );
try
{$IFNDEF ACBrNFeCAPICOM}
edtCaminho.Text := Ini.ReadString( 'Certificado','Caminho' ,'') ;
edtSenha.Text:= Ini.ReadString( 'Certificado','Senha' ,'') ;
- //ACBrNFe1.Configuracoes.Certificados.Certificado :=
edtCaminho.Text;
- //ACBrNFe1.Configuracoes.Certificados.Senha:=
edtSenha.Text;
edtNumSerie.Visible := False;
Label25.Visible := False;
{$ELSE}
edtNumSerie.Text := Ini.ReadString( 'Certificado','NumSerie','') ;
ACBrNFe1.Configuracoes.Certificados.NumeroSerie := edtNumSerie.Text;
Label1.Caption := 'Informe o número de série do certificado'#13+
'Disponível no Internet Explorer no menu'#13+
'Ferramentas - Opções da Internet - Conteúdo '#13+
'Certificados - Exibir - Detalhes - Número do
certificado'#13+
'É necessario retirar os espaços em branco '#13+
'e as letras para maiúsculo';
Label2.Visible := False;
edtCaminho.Visible := False;
edtSenha.Visible := False;
sbtnCaminhoCert.Visible := False;
{$ENDIF}
cbDanfe.Text:= Ini.ReadString( 'Geral','DANFE'
,'Retrato') ;
cbFormaEmissao.Text :=Ini.ReadString( 'Geral','FormaEmissao','Normal
on-line') ;
edtLogoMarca.Text := Ini.ReadString( 'Geral','LogoMarca' ,'') ;
ckSalvar.Checked:= Ini.ReadBool( 'Geral','Salvar' ,True) ;
edtPathLogs.Text:= Ini.ReadString( 'Geral','PathSalvar' ,'') ;
ACBrNFe1.Configuracoes.Geral.DANFE:= cbDanfe.Text;
ACBrNFe1.Configuracoes.Geral.FormaEmissao := cbFormaEmissao.Text;
ACBrNFe1.Configuracoes.Geral.LogoMarca:= edtLogoMarca.Text;
ACBrNFe1.Configuracoes.Geral.Salvar := ckSalvar.Checked;
ACBrNFe1.Configuracoes.Geral.PathSalvar := edtPathLogs.Text;
cbUF.ItemIndex := cbUF.Items.IndexOf(Ini.ReadString(
'WebService','UF','SP')) ;
cbAmbiente.Text := Ini.ReadString( 'WebService','Ambiente'
,'Teste') ;
ckVisualizar.Checked :=Ini.ReadBool(
'WebService','Visualizar',False) ;
ACBrNFe1.Configuracoes.WebServices.UF := cbUF.Text;
ACBrNFe1.Configuracoes.WebServices.Ambiente := cbAmbiente.Text;
ACBrNFe1.Configuracoes.WebServices.Visualizar := ckVisualizar.Checked;
{$IFNDEF ACBrNFeCAPICOM}
edtProxyHost.Text := Ini.ReadString( 'Proxy','Host' ,'') ;
edtProxyPorta.Text := Ini.ReadString( 'Proxy','Porta' ,'') ;
edtProxyUser.Text := Ini.ReadString( 'Proxy','User' ,'') ;
edtProxySenha.Text := Ini.ReadString( 'Proxy','Pass' ,'') ;
- //ACBrNFe1.Configuracoes.WebServices.ProxyHost :=
edtProxyHost.Text;
- //ACBrNFe1.Configuracoes.WebServices.ProxyPort :=
edtProxyPorta.Text;
//ACBrNFe1.Configuracoes.WebServices.ProxyUser := edtProxyUser.Text;
//ACBrNFe1.Configuracoes.WebServices.ProxyPass := edtProxySenha.Text;
{$ELSE}
gbProxy.Visible := False;
{$ENDIF}
edtEmitCNPJ.Text := Ini.ReadString( 'Emitente','CNPJ' ,'') ;
edtEmitIE.Text := Ini.ReadString( 'Emitente','IE' ,'') ;
edtEmitRazao.Text := Ini.ReadString( 'Emitente','RazaoSocial','') ;
edtEmitFantasia.Text := Ini.ReadString( 'Emitente','Fantasia' ,'') ;
edtEmitFone.Text := Ini.ReadString( 'Emitente','Fone' ,'') ;
edtEmitCEP.Text:= Ini.ReadString( 'Emitente','CEP','') ;
edtEmitLogradouro.Text := Ini.ReadString( 'Emitente','Logradouro' ,'') ;
edtEmitNumero.Text := Ini.ReadString( 'Emitente','Numero' ,'') ;
edtEmitComp.Text := Ini.ReadString( 'Emitente','Complemento','') ;
edtEmitBairro.Text := Ini.ReadString( 'Emitente','Bairro' ,'') ;
edtEmitCodCidade.Text := Ini.ReadString( 'Emitente','CodCidade' ,'') ;
edtEmitCidade.Text :=Ini.ReadString( 'Emitente','Cidade' ,'') ;
edtEmitUF.Text := Ini.ReadString( 'Emitente','UF' ,'') ;
Re: [delphi-br] Projeto ACBrNFe - Grupo de discussão exclusivo. Existe?
O ACBrusa como canal oficial de suporte o FórumWeb - http://www.forumweb.com.br/foruns/index.php?showforum=465 André F. Moraes - Original Message - From: Maria das Graças . dangra2...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 03, 2009 8:03 AM Subject: Re: [delphi-br] Projeto ACBrNFe - Grupo de discussão exclusivo. Existe? Existe um Grupo de Discussão exclusiva do ACBr + ACBrNFe? Um Grupo que centraliza alterações, novidades, dúvidas e soluções? Graça Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] Re: framework
2009/6/2 felipe govoni govoni.fel...@gmail.com: ok, entao qual framework vcs me recomendam? vo começa a estuda OO, e noa faço ideia de qual framework usar. Caro Felipe, Se você _ainda_ vai começar a estudar OO, então sugiro que aprenda, a fundo, a linguagem Object Pascal. Esta tarefa será muito importante para que você compreenda os conceitos relacionados a Orientação à Objetos. Começar tentando aprender OO com frameworks, será muito mais difícil. Domine os conceitos de herança, encapsulamento e polimorfismo e, só então, comece a estudar frameworks. Cordialmente, Marcos Douglas
[delphi-br] Re: framework
Olá galera, --- Em delphi-br@yahoogrupos.com.br, felipe govoni govoni.fel...@... escreveu ok, entao qual framework vcs me recomendam? vo começa a estuda OO, e noa faço ideia de qual framework usar. Felipe, vou indicar 2: 1 - [http://br.pressobjects.org/]. 2 - [http://code.google.com/p/infra/]. Cara, p quem usa CDS, tdataset, n-tier etc., vale a pena estudar o 2. Eu estou estudando o 1, pq estou usando o Lazarus/FPC mais que o Delphi e pretendo desenvolver p Linux, esta difícil encontrar PC com Windows aqui na minha região, eu andei até vendo a possibilidade de estudar outra linguagem de programação (Java, Python...), pq a realidade aqui é Linux+Web. Teste os 2 e veja o que mais atende as suas necessidades, principalmente agora q vc esta decidido ingressar em OO. Eu não tive muitas experiências com CDS, tdataset, n-camadas e etc., vi com o João a possibilidade de sobreviver sem essas potentes tecnologias, eu custei a acreditar nisso: ... viver sem dbaware., hj sei q é difícil, no entanto, não impossível. Pode aparecer algumas mensagens promovendo rivalidade, cara, ñ dê ouvidos, faça o teste em cada um, pode acreditar que um deles (ou mais) irá atender as suas necessidades, e outra -- o mais importante, os criadores dos frameworks são Brothers. Brother, boa sorte nos estudos, garanto que será uma experiência ímpar, estou até preparando um material OO p disponibilizar em: [http://silvioprog.blogspot.com/], fique antenado nesse BlogSite, o q eu encontrar de melhor p os Brother, principalmente sobre frameworks, OOP, MVP etc., vou disponibilizar lá. --- []'s, Silvio Clécio --- Linux User: #481900 Gmail, GTalk: silviop...@gmail.com E-mail, Y! Messenger: silviop...@yahoo.com.br BlogSite: http://silvioprog.blogspot.com/ BlogSpot: http://silvioclecio.blogspot.com/ VirtualDriver: http://silvioprog.4shared.com/ °oO| Seja livre, use Linux! |Oo°
[delphi-br] Novo arquivo carregado em delphi-br
Olá, Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no grupo delphi-br. Arquivo : /Mascaras_e_Format.zip Carregado por : silvioprog silviop...@yahoo.com.br Descrição : Usando máscaras para propriedade Mask do TMaskEdit ou equivalente. Você pode acessar o arquivo pela URL: http://br.groups.yahoo.com/group/delphi-br/files/Mascaras_e_Format.zip Para saber mais sobre compartilhamento de arquivos no grupo, leia: http://help.yahoo.com/help/br/groups/files Atenciosamente, silvioprog silviop...@yahoo.com.br
[delphi-br] Novo arquivo carregado em delphi-br
Olá, Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no grupo delphi-br. Arquivo : /O_Padrao_MVP_Paulo_Quicoli_e_Marcos_Barreto.zip Carregado por : silvioprog silviop...@yahoo.com.br Descrição : O Padrão MVP (Model-View-Presenter). Paulo Quicoli e Marcos Barreto. Você pode acessar o arquivo pela URL: http://br.groups.yahoo.com/group/delphi-br/files/O_Padrao_MVP_Paulo_Quicoli_e_Marcos_Barreto.zip Para saber mais sobre compartilhamento de arquivos no grupo, leia: http://help.yahoo.com/help/br/groups/files Atenciosamente, silvioprog silviop...@yahoo.com.br
Re: [delphi-br] Erro vcl skin!!!
Veja se está usando a última versão do VclSkin e reporte a bug ao desenvolvedor.. 2009/6/2 ricardo_rmsr ricardo_r...@yahoo.com.br Pessoal minha aplicação da um ar erro. vou detalhar minha aplicação. Tem uma tela de login, e o formulario principal. Na tela de login tem um opendialog, popup, edits, e buttuns. Na tela principal tem apenas o componente de menu e o do vclskin. quando faço login abre o formulário principal blz, porém quando fecho da esse erro. project teste.exe raised exception class EAccessViolation with message 'Access violation at address 00A6623B. Write of address 02AC6FEE'. Process stopped. Use Step or Run to continue Obrigado -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Servidor Delphi - Sugestões de Estrutura de Desenvolvimento
Bom dia, Gostaria de pedir aos companheiros de lista que cada um liste aqui como está configurado seus servidores, software e hardware, a fim de que possamos ter idéia do que estão usando. []s José Maria
Re: [delphi-br] Dbexpress - Vocês recomendam? - Uni dac
kkk, é Daniel.. vou entrar em contato com eles.. hehehe cara.. eu faço propaganda mesmo.. porque o negócio é bom.. eu uso o MyDac a mais de 5 anos e não troco por nada nesse mundo, os componentes são muito bons.. ai os caras pegam todo o Know-How adiquirido com ou componentes separados e criam o Unidac.. é simplismente fantástico. Fora o suporte que não te deixa na mão. 2009/6/2 Daniel Sobrinho Laporte daniel.lapo...@gmail.com Eduardo, confesso que até eu fiquei com vontade de comprar depois dos seus argumentos. Caraca se a DevArt te conhece voce ja é contratado como evangelista do componente hehehehe.. Abs, Daniel 2009/6/2 Eduardo Silva dos Santos eduardo@gmail.comeduardo.drd%40gmail.com vamos aos argumentos.. 1 - Suporte.. a DevArt oferece suporte via e-mail, logo qualquer problema que apareca no componente eles vão resolver. 2 - Desempenho - O Sistema vai ficar muito mais rápido, gerando muito mais satisfação para o cliente e agregando um valor incalculável para a empresa 3 - Facilidade na Distribuição - Com Unidac fica muito mais fácil distribuir seus projetos, visto que com a maioria dos bancos ele trabalha de forma direta, sem precisar de Dll alguma 4 - Compatibilidade - O Unidac é compativel com todas as versões dos bancos que ele suporta. 5 - Atualizações gratuitas por um ano - ao comprar o componente você tem acesso a todas as atualizações gratuitamente. 6 - Facilidade de uso - Unidac é um componente fácil de usar e de configurar. 7 - TCRDBGRID - é um DBGrid desenvolvido pela Devart que é extramamente poderoso e vem incluido no pacote.. 8 - Fontes - Você pode optar por comprar a versão com fontes. 9 - Suporte a IDE - O Unidac suporta todas as versão do Delphi, suporta C++ Builder e Kylix (não lembre se suporta Lazarus, o MyDAC sim) bom.. motivos não faltam.. monte um pelo demo que compare a velocidade entre os componentes, só com essa diferença seu chefe vai comprar os componentes e ainda vai te dar um reajuste no salário.. hehe 2009/6/2 Alisson alss...@yahoo.com.br alssnco%40yahoo.com.bralssnco% 40yahoo.com.br Eduardo e demais usuários do Unidac, quero convencer o meu patrão que não entende nada de programação a comprar o pacote. Que argumentos vocês poderiam me sugerir para convencê-lo? ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com eduardo.drd%40gmail.com eduardo.drd% 40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- Daniel Sobrinho Laporte Analista de Sistemas e Desenvolvedor Delphi + Firebird. Colunista e Editor Técnico ClubeDelphi - DevMedia. [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF] Versão econômica
Olá pessoal, Preciso de uma opção econômica para desenvolver com o Delphi. Seria para criar um soft simples, com alguns cadastros e poucos relatórios. Pensei em utilizar a versão 4, que saiu em uma revista, ou mesmo o Turbo Delphi, mas um é muito antigo e o outro possui algumas restrições importantes, como não poder instalar componentes de terceiros. Outra coisa, a versão mais simples/barata do Delphi 2009 é a DELPHI 2009 FOR WIN 32 PROFESSIONAL NEW USER NAMED (R$ 2.697,00)? Abraços, Álvaro Vieira
Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto
André, baixei novamente, mas por CVS, não sei se é a mesma coisa, e vi que não existe esta propriedade, pode me mandar o caminho para atualização por SVN? Abraços Fabio Szekut _ From: André Moraes - Gmail Sent: Tuesday, June 02, 2009 8:26 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto A propriedade informação adicional já existe, o problema é que o DANFE ainda não foi adaptado para imprimir esta informação. Se vc estiver com a última versão do SVN, para acessar a propriedade, basta usar DadosProdutos.Add.InformacaoAdicional := 'Informacao Adicional'; André F. Moraes - Original Message - From: Fabio Szekut - Yahoo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 02, 2009 12:44 AM Subject: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto Olá, participo do grupo já algum tempo, quando penso em escrever para tirar uma dúvida, pesquiso e vejo que alguém já teve o problema e tem a solução. mas agora estou com um problema, e não consegui encontrar a solução. Estou usando o ACBrNFe, achei um componente excelente, parabéns quem teve a iniciativa. Mas não consigo encontrar a propriedade para colocar informações adicionais do produto, pois a empresa que vai utilizar a emissão de nota fiscal, usa componentes químicos e deve sair junto com o produto as informações toxicológicas, classes, coisas do tipo. Alguém sabe me dizer onde encontrar esta propriedade? Abraços Fabio Szekut _ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Projeto ACBrNFe - Grupo de discussã o exclusivo. Existe?
Neste forum existe um topico excluso do ACBr. http://www.forumweb.com.br/foruns/index.php?showforum=416 2009/6/3 Maria das Graças . dangra2...@yahoo.com.br Existe um Grupo de Discussão exclusiva do ACBr + ACBrNFe? Um Grupo que centraliza alterações, novidades, dúvidas e soluções? Graça Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Samuel M. Basso Tel: (54) 3463-9114 Cel: (54) 8135-3723 E-mail/MSN: samuelba...@gmail.com Web site: www.samuelbasso.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Quick report 4 modo compatibilidade
Bom dia a todos, Estou com um problema com quickreport 4. Ele só funciona quando coloco em modo compatibilidade com win98 no executável da minha aplicação. Quando não coloco o relatório sai tudo bagunçado. Já no PC q uso para desenvolvimento funciona tudo normal. O que pode ser? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Bug Delphi 2007 - TLabel e TDBEdit
Bom dia a todos! Estou migrando algumas aplicações de D7 para D2007, devido a facilidade em desenvolver em 3 camadas e suporte nativo a alguns SGDB's. Mas percebi que, mesmo atualizado com todos os updates(4 se não me engano) ainda constatei o seguinte problema(é claro que fiz uma cópia e mantive como D7). - tenho um form e nele um pageControl com algumas abas, e numa destas abas precisei adicionar um dbEdit e este dbEdit além de ficar vísivel na aba que coloquei, ainda aparece na primeira aba, sobre um dbGrid... Tem como corrigir este problema? Será alguma configuração mal feita? Agradeço antecipadamente a quem possa me auxiliar. Fraterno abraço, Carlos
Re: [delphi-br] Projeto ACBrNFe
Eu tive um erro parecido com esse nao me lembro se o mesmo ai eu deu um
build no projeto todo do acbr e funcionou. Verifique se é isso.
2009/6/3 Maria das Graças . dangra2...@yahoo.com.br
Tentei compilar o demo que vem no projeto ACBrNFe, mas nas linhas abaixo
(marcadas com uma seta) está dando erro: propriedade não declarada. O que
devo fazer? Estou com o Demo errado ou os fontes do componente é que estão
desatualizados? Para compilar tive que comentar essas linhas.
Graça
procedure TFrm_NFePrincipal.LerConfiguracao;
Var IniFile : String ;
Ini : TIniFile ;
begin
IniFile := ChangeFileExt( Application.ExeName, '.ini') ;
Ini := TIniFile.Create( IniFile );
try
{$IFNDEF ACBrNFeCAPICOM}
edtCaminho.Text := Ini.ReadString( 'Certificado','Caminho' ,'') ;
edtSenha.Text:= Ini.ReadString( 'Certificado','Senha' ,'') ;
- //ACBrNFe1.Configuracoes.Certificados.Certificado :=
edtCaminho.Text;
- //ACBrNFe1.Configuracoes.Certificados.Senha:=
edtSenha.Text;
edtNumSerie.Visible := False;
Label25.Visible := False;
{$ELSE}
edtNumSerie.Text := Ini.ReadString( 'Certificado','NumSerie','') ;
ACBrNFe1.Configuracoes.Certificados.NumeroSerie := edtNumSerie.Text;
Label1.Caption := 'Informe o número de série do certificado'#13+
'Disponível no Internet Explorer no menu'#13+
'Ferramentas - Opções da Internet - Conteúdo '#13+
'Certificados - Exibir - Detalhes - Número do
certificado'#13+
'É necessario retirar os espaços em branco '#13+
'e as letras para maiúsculo';
Label2.Visible := False;
edtCaminho.Visible := False;
edtSenha.Visible := False;
sbtnCaminhoCert.Visible := False;
{$ENDIF}
cbDanfe.Text:= Ini.ReadString( 'Geral','DANFE'
,'Retrato') ;
cbFormaEmissao.Text :=Ini.ReadString( 'Geral','FormaEmissao','Normal
on-line') ;
edtLogoMarca.Text := Ini.ReadString( 'Geral','LogoMarca' ,'') ;
ckSalvar.Checked:= Ini.ReadBool( 'Geral','Salvar' ,True) ;
edtPathLogs.Text:= Ini.ReadString( 'Geral','PathSalvar' ,'') ;
ACBrNFe1.Configuracoes.Geral.DANFE:= cbDanfe.Text;
ACBrNFe1.Configuracoes.Geral.FormaEmissao := cbFormaEmissao.Text;
ACBrNFe1.Configuracoes.Geral.LogoMarca:= edtLogoMarca.Text;
ACBrNFe1.Configuracoes.Geral.Salvar := ckSalvar.Checked;
ACBrNFe1.Configuracoes.Geral.PathSalvar := edtPathLogs.Text;
cbUF.ItemIndex := cbUF.Items.IndexOf(Ini.ReadString(
'WebService','UF','SP')) ;
cbAmbiente.Text := Ini.ReadString( 'WebService','Ambiente'
,'Teste') ;
ckVisualizar.Checked :=Ini.ReadBool(
'WebService','Visualizar',False) ;
ACBrNFe1.Configuracoes.WebServices.UF := cbUF.Text;
ACBrNFe1.Configuracoes.WebServices.Ambiente := cbAmbiente.Text;
ACBrNFe1.Configuracoes.WebServices.Visualizar :=
ckVisualizar.Checked;
{$IFNDEF ACBrNFeCAPICOM}
edtProxyHost.Text := Ini.ReadString( 'Proxy','Host' ,'') ;
edtProxyPorta.Text := Ini.ReadString( 'Proxy','Porta' ,'') ;
edtProxyUser.Text := Ini.ReadString( 'Proxy','User' ,'') ;
edtProxySenha.Text := Ini.ReadString( 'Proxy','Pass' ,'') ;
- //ACBrNFe1.Configuracoes.WebServices.ProxyHost :=
edtProxyHost.Text;
- //ACBrNFe1.Configuracoes.WebServices.ProxyPort :=
edtProxyPorta.Text;
//ACBrNFe1.Configuracoes.WebServices.ProxyUser := edtProxyUser.Text;
//ACBrNFe1.Configuracoes.WebServices.ProxyPass := edtProxySenha.Text;
{$ELSE}
gbProxy.Visible := False;
{$ENDIF}
edtEmitCNPJ.Text := Ini.ReadString( 'Emitente','CNPJ'
,'') ;
edtEmitIE.Text := Ini.ReadString( 'Emitente','IE'
,'') ;
edtEmitRazao.Text := Ini.ReadString(
'Emitente','RazaoSocial','') ;
edtEmitFantasia.Text := Ini.ReadString( 'Emitente','Fantasia'
,'') ;
edtEmitFone.Text := Ini.ReadString( 'Emitente','Fone'
,'') ;
edtEmitCEP.Text:= Ini.ReadString( 'Emitente','CEP'
,'') ;
edtEmitLogradouro.Text := Ini.ReadString( 'Emitente','Logradouro'
,'') ;
edtEmitNumero.Text := Ini.ReadString( 'Emitente','Numero'
,'') ;
edtEmitComp.Text := Ini.ReadString(
'Emitente','Complemento','') ;
edtEmitBairro.Text := Ini.ReadString( 'Emitente','Bairro'
,'') ;
edtEmitCodCidade.Text := Ini.ReadString( 'Emitente','CodCidade'
,'') ;
edtEmitCidade.Text :=Ini.ReadString( 'Emitente','Cidade' ,'')
;
edtEmitUF.Text := Ini.ReadString( 'Emitente','UF'
,'') ;
finally
Ini.Free ;
end;
end;
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
--
Atenciosamente,
Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto
Vc deve baixar via SVN, o CVS não é atualizado desde 13/03/2009. Veja http://acbr.sourceforge.net/drupal/?q=node/37 André F. Moraes - Original Message - From: Fabio Szekut - Yahoo fabioszek...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 03, 2009 12:22 AM Subject: Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto André, baixei novamente, mas por CVS, não sei se é a mesma coisa, e vi que não existe esta propriedade, pode me mandar o caminho para atualização por SVN? Abraços Fabio Szekut _ From: André Moraes - Gmail Sent: Tuesday, June 02, 2009 8:26 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto A propriedade informação adicional já existe, o problema é que o DANFE ainda não foi adaptado para imprimir esta informação. Se vc estiver com a última versão do SVN, para acessar a propriedade, basta usar DadosProdutos.Add.InformacaoAdicional := 'Informacao Adicional'; André F. Moraes - Original Message - From: Fabio Szekut - Yahoo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 02, 2009 12:44 AM Subject: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto Olá, participo do grupo já algum tempo, quando penso em escrever para tirar uma dúvida, pesquiso e vejo que alguém já teve o problema e tem a solução. mas agora estou com um problema, e não consegui encontrar a solução. Estou usando o ACBrNFe, achei um componente excelente, parabéns quem teve a iniciativa. Mas não consigo encontrar a propriedade para colocar informações adicionais do produto, pois a empresa que vai utilizar a emissão de nota fiscal, usa componentes químicos e deve sair junto com o produto as informações toxicológicas, classes, coisas do tipo. Alguém sabe me dizer onde encontrar esta propriedade? Abraços Fabio Szekut _ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] Re: framework
obrigado a todos, vo começa com object pascal mesmo, depois penso no framework. 2009/6/3 Marcos Douglas m...@delfire.net: 2009/6/2 felipe govoni govoni.fel...@gmail.com: ok, entao qual framework vcs me recomendam? vo começa a estuda OO, e noa faço ideia de qual framework usar. Caro Felipe, Se você _ainda_ vai começar a estudar OO, então sugiro que aprenda, a fundo, a linguagem Object Pascal. Esta tarefa será muito importante para que você compreenda os conceitos relacionados a Orientação à Objetos. Começar tentando aprender OO com frameworks, será muito mais difícil. Domine os conceitos de herança, encapsulamento e polimorfismo e, só então, comece a estudar frameworks. Cordialmente, Marcos Douglas -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br
Re: [delphi-br] Miniatura (thumbnail) de PDF [download]
Free VCL - DWG para Delphi:
ScreenShot:
http://www.cadsofttools.com/images/cadimportvcl.gif
Download:
http://www.cadsofttools.com/download/cadimportvcl.zip
Espero ter ajudado...
Andy escreveu:
Segue abaixo o código que estou usando. É um código que achei na web (
http://www.delphi3000.com
http://www.delphi3000.comhttp://www.delphi3000.com/articles/article_3806.asp
http://www.delphi3000.com/articles/article_3806.asp),
porém o site de onde peguei está fora do ar.
Estou mandando a unit completa, pois se alguém mais quiser é só pegar. Ela
funcionou bem para todos os arquivos que testei, exceto para arquivos .dwg
E eu tenho AutoCAD instalado no meu computador. Além disso, o thumbnail do
windows mostra normalmente a miniatura dos arquivos .dwg
A única função que é preciso chamar é a última do arquivo: *
GetBitmapFromFile(**const FileName: String): TGraphic;*
E esta função retorna um TGraphic que utilizo para fazer um Assign em um
TImage, como abaixo:
Para Usar: *Image1.Picture.Assign(**GetBitmapFromFile(OpenDialog1.**
FileName))*
Nesta função eu coloquei um* if (not AnsiEndsStr('.dwg', FileName))* para
filtar os arquivos dwg, pois o problema está exatamente na função
*ExtractImageGetFileThumbnail.
*com este if, a função funciona e retorna um Ícone do dwg.
Obrigado,
Anderson
*Código:*
unit ShellObjHelper;
{$IFDEF VER100}{$DEFINE DELPHI3}{$ENDIF}
interface
uses
Windows, ShlObj, ActiveX, ShellAPI, Graphics, StrUtils;
type
{ from ShlObjIdl.h }
IExtractImage = interface
['{BB2E617C-0920-11D1-9A0B-00C04FC2D6C1}']
function GetLocation(Buffer: PWideChar;
BufferSize: DWORD;
var Priority: DWORD;
var Size: TSize;
ColorDepth: DWORD;
var Flags: DWORD): HResult; stdcall;
function Extract(var BitmapHandle: HBITMAP): HResult; stdcall;
end;
IRunnableTask = interface
['{85788D00-6807-11D0-B810-00C04FD706EC}']
function Run: HResult; stdcall;
function Kill(fWait: BOOL): HResult; stdcall;
function Suspend: HResult; stdcall;
function Resume: HResult; stdcall;
function IsRunning: Longint; stdcall;
end;
const
{ from ShlObjIdl.h }
ITSAT_MAX_PRIORITY = 2;
ITSAT_MIN_PRIORITY = 1;
ITSAT_DEFAULT_PRIORITY = 0;
IEI_PRIORITY_MAX = ITSAT_MAX_PRIORITY;
IEI_PRIORITY_MIN = ITSAT_MIN_PRIORITY;
IEIT_PRIORITY_NORMAL = ITSAT_DEFAULT_PRIORITY;
IEIFLAG_ASYNC = $001; // ask the extractor if it supports ASYNC
extract
// (free threaded)
IEIFLAG_CACHE = $002; // returned from the extractor if it does NOT
cache
// the thumbnail
IEIFLAG_ASPECT = $004; // passed to the extractor to beg it to render
to
// the aspect ratio of the supplied rect
IEIFLAG_OFFLINE = $008; // if the extractor shouldn't hit the net to get
// any content needs for the rendering
IEIFLAG_GLEAM = $010; // does the image have a gleam? this will be
// returned if it does
IEIFLAG_SCREEN = $020; // render as if for the screen (this is
exlusive
// with IEIFLAG_ASPECT )
IEIFLAG_ORIGSIZE = $040; // render to the approx size passed, but crop if
// neccessary
IEIFLAG_NOSTAMP = $080; // returned from the extractor if it does NOT
want
// an icon stamp on the thumbnail
IEIFLAG_NOBORDER = $100; // returned from the extractor if it does NOT
want
// an a border around the thumbnail
IEIFLAG_QUALITY = $200; // passed to the Extract method to indicate that
// a slower, higher quality image is desired,
// re-compute the thumbnail
{$IFDEF DELPHI3}
// Delphi 3 SysUtils does not have this function
function ExcludeTrailingBackslash(const Src: string): string;
{$ENDIF}
// IShellFolder methods helper
procedure ShellFolderBindToObject(const ShellFolder: IShellFolder;
PIDL: PItemIDList; const riid: TGUID; out pv);
function ShellFolderGetUIObjectOf(const ShellFolder: IShellFolder;
cidl: DWORD; var PIDL: PItemIDList; riid: TGUID; out pv): Boolean;
procedure ShellFolderParseDisplayName(const ShellFolder: IShellFolder;
const DisplayName: string; out PIDL: PItemIDList);
function ShellFolderGetExtractImage(const ShellFolder: IShellFolder;
const RelativeFileName: string; Malloc: IMalloc;
out XtractImage: IExtractImage): Boolean;
function GetExtractImageItfPtr(const FileName: string;
out XtractImage: IExtractImage): Boolean;
function GetFileLargeIcon(const FileName: string;
out LargeIcon: TIcon): Boolean;
function ExtractImageGetFileThumbnail(const XtractImage: IExtractImage;
ImgWidth, ImgHeight, ImgColorDepth: Integer; var Flags: DWORD; Bmp:
TBitmap;
out RunnableTask: IRunnableTask): Boolean;
function GetSysImgListIndex(const FileName: string): Integer;
procedure GetShellFolderItfPtr(const FolderName: string; Malloc: IMalloc;
out TargetFolder: IShellFolder);
function GetBitmapFromFile(const FileName: String): TGraphic;
implementation
uses SysUtils, ComObj;
{$IFDEF DELPHI3}
function ExcludeTrailingBackslash(const Src: string): string;
begin
Result := Src;
if AnsiLastChar(Result) = '\' then
SetLength(Result, Pred(Length(Result)));
end;
{$ENDIF DELPHI3}
procedure
Re: [delphi-br] [OFF] Versão econômica
Se procura por versões sem custo nenhum, existe o Turbo Delphi, com compilador baseado no Delphi 2006 (BDS 2006) que possui como única limitação a não possibilidade de instalação de componentes na IDE. Mas fazer a criação e instanciação em tempo de execução é possível. Vai exigir um pouco mais de trabalho mas acho válido. Isso partindo do princípio que estamos falando de componentes de terceiros Free e opensource e/ou pessoais com os fontes. Outra opção bastante interessante é a dobradinha Lazarus/FreePascal. Com IDE baseada (não idêntica) ao Delphi até a versão 7, possui uma boa quantidade de componentes para aplicações com bancos de dados, como é o seu caso e pode ter algum gerador de relatórios free integrado, bem como novos componentes. Outra vantagem real é a possibilidade de compilar o mesmo código tanto para Windows quanto para Linux exceto em casos que recursos específicos de uma API sejam aplicados. Quanto a sua pergunta sobre a versão mais barata do Delphi 2009 ser a Professional, acredito que a resposta seja sim. Antigamente a divisão das versões era entre Standard, Professional e Enterprise. Agora parece que é Professional, Enterprise e Architect. []'s 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 irrelevante! --- Em ter, 2/6/09, Álvaro Vieira alvaro.vie...@gmail.com escreveu: Olá pessoal, Preciso de uma opção econômica para desenvolver com o Delphi. Seria para criar um soft simples, com alguns cadastros e poucos relatórios. Pensei em utilizar a versão 4, que saiu em uma revista, ou mesmo o Turbo Delphi, mas um é muito antigo e o outro possui algumas restrições importantes, como não poder instalar componentes de terceiros. Outra coisa, a versão mais simples/barata do Delphi 2009 é a DELPHI 2009 FOR WIN 32 PROFESSIONAL NEW USER NAMED (R$ 2.697,00)? Abraços, Álvaro Vieira Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Servidor Delphi - Sugestões de Est rutura de Desenvolvimento
Olha... geralmente o pessoal estrutura o desenvolvimento com Subversion. Os arquivos ficam na máquina de um coordenador e os clientes acessam esse servidor e trazem os arquivos que vão trabalhar. Ao final do dia são feitas as tarefas de merge (juntar o que está no servidor ao que está sendo enviado para lá) Muito, mas muito resumidamente é isso. Existem outras ferramentas para tal fim, como SourceSafe, ou a linha de ALM da Borland/CG/MicroFocus/Embarcadero (não sei quem é o proprietário da linha, por isso citei todos que lembrei) como StarTeam por exemplo. []'s 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 irrelevante! --- Em qua, 3/6/09, José Maria jmche...@uem.br escreveu: De: José Maria jmche...@uem.br Assunto: [delphi-br] Servidor Delphi - Sugestões de Estrutura de Desenvolvimento Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 3 de Junho de 2009, 9:19 Bom dia, Gostaria de pedir aos companheiros de lista que cada um liste aqui como está configurado seus servidores, software e hardware, a fim de que possamos ter idéia do que estão usando. []s José Maria Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF] Versão econômica
Álvaro, Até 2006 eu usava o Delphi 4 Professional 'da revista', aí comprei o BDS 2006. Mas sinceramente, não tem nenhum recurso no BDS 2006 que me é imprescindível. Sim, o BDS 2006 tem muitos recursos ótimos que aumentam em muito a produtividade, mas me refiro a componentes, continuo usando os mesmos componentes que usava no Delphi 4. Uma 'vantagem' do Delphi da revista, é que nele você pode instalar componentes de terceiros, como eu fazia, tinha instalado nele o Fastreport, IBObjects, RXLib, GExperts, entre outros, coisa que no Turbo Delphi não dá pra fazer, pelo menos não 'oficialmente'. Uma alternativa free é o Lazarus, que talvez dê conta do recado pra você. [] Andrei 2009/6/2 Álvaro Vieira alvaro.vie...@gmail.com Olá pessoal, Preciso de uma opção econômica para desenvolver com o Delphi. Seria para criar um soft simples, com alguns cadastros e poucos relatórios. Pensei em utilizar a versão 4, que saiu em uma revista, ou mesmo o Turbo Delphi, mas um é muito antigo e o outro possui algumas restrições importantes, como não poder instalar componentes de terceiros. Outra coisa, a versão mais simples/barata do Delphi 2009 é a DELPHI 2009 FOR WIN 32 PROFESSIONAL NEW USER NAMED (R$ 2.697,00)? Abraços, Álvaro Vieira [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OFF - tiOPF
Desculpem pelo post OFF, mas a lista do tiOPF em portugues está meio parada, já postei lá e não obtive resposta, e derrepente alguém daqui saiba tirar a minha dúvida. Alguém aqui manja do framework tiOPF? Mais especificamente na criação dos Visitors no modo HardCoded... Grato, Edelson. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF] Versão econômica
Se a limitação for emissão de relatório, vc poderá usar o ReportMan, que funciona como o reportbuilder, e não é instalado, já testei com o Delphi Explorer e funciona normalzinho. e para conexão com o BD dá pra usar ADODB, que tá disponivel no Delphi Explorer
[delphi-br] Re: Fazer verificação???
Boa noite Jairo,
Amigo o que você quer é simples,
você pode filtrar o teu CLIENTDATASET.
Ex:
CLIENTDATASET1.Filter := 'Situacao=False';
CLIENTDATASET1.Filtered := True;
e para voltar ao normal é só setar o Filtered como False.
Ai você coloca um DBGRID e vincula ao teU CLIENTDATASET1, assim que você mandar
ele filtrar ele vai deixar no DBGRID só os que estão com SITUACAO = FALSE (não
pagos).
se você quer mostrar o grid só ao mandar filtrar é só deixar o grid em visible
false, e dar visible true ao filtrar.
Agora para fazer o showmessage é um pouquinho mais complicado, voU exemplIficar
comentando:
{CODE}
var
Mensagem : String;
begin
//FILTRAR
CLIENTDATASET1.Filter := 'Situacao=False';
CLIENTDATASET1.Filtered := True;
//DEIXAR O FOCO DA OPERACAO NO CLIENTDATASET1
with CLIENTDATASET1 do
begin
//IR AO PRIMEIRO REGISTRO
First;
//ENQUANTO NAO CHEGAR AO FIM DO ARQUIVO
while not EOF do
begin
//SE FOR O SEGUNDO REGISTRO OU A VARIAVEL MENSAGEM NAO ESTARA VAZIA
if Length(Mensagem) 0 then
//SE NAO ESTIVER VAZIA COPIA MENSAGEM + MENSAGEM(ANTERIOR)+#13(PULA LINHA)
Mensagem := Mensagem + #13 + 'Nome-
'+QuotedStr(CLIENTDATASET1.FieldByName('NOME').AsString)
else
//SE ESTIVER VAZIA NAO COPIA PQ É A PRIMEIRA LINHA
Mensagem := 'Nome-
'+QuotedStr(CLIENTDATASET1.FieldByName('NOME').AsString);
Mensagem := Mensagem + '; Data-
'+QuotedStr(FormatDateTime('DD/MM/',CLIENTDATASET1.FieldByName('DATA').ASDateTime));
Mensagem := Mensagem + '; Valor-
'+QuotedStr(FormatFloat('###,###,##0.00',CLIENTDATASET1.FieldByName('VALOR').AsFloat));
Mensagem := Mensagem + '; Mês-
'+QuotedStr(CLIENTDATASET1.FieldByName('MES').AsString);
Mensagem := Mensagem + '; Pago-
'+QuotedStr(CLIENTDATASET1.FieldByName('SITUACAO').ASVariant);
//VAI PARA O PROXIMO REGISTRO
Next;
end;
//AO TERMINO DO WHILE MOSTRA UM SHOWMESSAGE(CONTENDO A VAR MENSAGEM)
Showmessage(Mensagem);
end;
//TIRA O FILTRO
CLIENTDATASET1.Filtered := False;
end;
{/CODE}
Espero ter ajudado, qualquer dúvida existente me avise, analise o exemplo que
te mandei via e-mail.
Abraços
Antonio Rogério Rodrigues
Guarizzo Mercedes-Benz - 21077000
Suporte Técnico
Fone: (19) - 3817-9900
e-mail: supo...@guarizzo.com.br
--- Em delphi-br@yahoogrupos.com.br, Jairo Cristiano jccj2...@... escreveu
Olá Roger...
Na verdade tenho um arquivo .XML chamado de Bancoque está ligado a um
ClientDataSet1 ,e nesse Banco tem os campos nome,data,valor,mes e
situaçao,esse campo situacao seria o sim ou o não.
Para saber se o cliente pagou.Eu gostaria de colocar um botão e no evento
on-click desse botão verificar todos os campos situacao de todos os
clientes e posteriormente trazer somente quem não pagou,e mostrar apenas os
nomes desses clientes em um outro form ou até mesmo no Showmessage.
Obrigado pela atenção.
Jairo
Ok.
--- Em dom, 31/5/09, roger_0687 roger_0...@... escreveu:
De: roger_0687 roger_0...@...
Assunto: [delphi-br] Re: Fazer verificação???
Para: delphi-br@yahoogrupos.com.br
Data: Domingo, 31 de Maio de 2009, 0:07
Olá Jairo,
Por favor especifique mais o teu problema, seria de grande ajuda se você
soubesse onde(componente) você pretende exibir esses dados, e o nome correto
da tabela e dos campos, para poder te passar uma instrução correta, e como
você pretende ordenar esses dados.
Abraços...
--
Antonio Rogério Rodrigues
Guarizzo Mercedes-Benz - 21077000
Suporte Técnico
Fone: (19) - 3817-9900
e-mail: supo...@guarizzo. com.br
--- Em delphi...@yahoogrup os.com.br, jccj2000@ . jccj2000@ . escreveu
Possuo uma tabela dde clientes,onde tem os campos de nome,data,valor pago e
situação(pago ou não pago),gostaria de colocar um botão e no evento onclick
verificar quem ainda não pagou,e mostrar os mesmos.
como poderia fazer isso???
Obs:já tentei de algumas formas,mas ele só traz o primeiro registro.
Obrigado,Jairo.
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Miniatura (thumbnail) de PDF [download]
Pessoal, desculpem pela falha. Depois que baixei fui ler o readme e vi
que não é free, mas de onde baixei na página do link informava ser free.
EmbarcaDelphi escreveu:
Free VCL - DWG para Delphi:
ScreenShot:
http://www.cadsofttools.com/images/cadimportvcl.gif
http://www.cadsofttools.com/images/cadimportvcl.gif
Download:
http://www.cadsofttools.com/download/cadimportvcl.zip
http://www.cadsofttools.com/download/cadimportvcl.zip
Espero ter ajudado...
Andy escreveu:
Segue abaixo o código que estou usando. É um código que achei na web (
http://www.delphi3000.com http://www.delphi3000.com
http://www.delphi3000.com
http://www.delphi3000.comhttp://www.delphi3000.com/articles/article_3806.asp
http://www.delphi3000.com/articles/article_3806.asp
http://www.delphi3000.com/articles/article_3806.asp
http://www.delphi3000.com/articles/article_3806.asp),
porém o site de onde peguei está fora do ar.
Estou mandando a unit completa, pois se alguém mais quiser é só
pegar. Ela
funcionou bem para todos os arquivos que testei, exceto para
arquivos .dwg
E eu tenho AutoCAD instalado no meu computador. Além disso, o
thumbnail do
windows mostra normalmente a miniatura dos arquivos .dwg
A única função que é preciso chamar é a última do arquivo: *
GetBitmapFromFile(**const FileName: String): TGraphic;*
E esta função retorna um TGraphic que utilizo para fazer um Assign em um
TImage, como abaixo:
Para Usar: *Image1.Picture.Assign(**GetBitmapFromFile(OpenDialog1.**
FileName))*
Nesta função eu coloquei um* if (not AnsiEndsStr('.dwg', FileName))*
para
filtar os arquivos dwg, pois o problema está exatamente na função
*ExtractImageGetFileThumbnail.
*com este if, a função funciona e retorna um Ícone do dwg.
Obrigado,
Anderson
*Código:*
unit ShellObjHelper;
{$IFDEF VER100}{$DEFINE DELPHI3}{$ENDIF}
interface
uses
Windows, ShlObj, ActiveX, ShellAPI, Graphics, StrUtils;
type
{ from ShlObjIdl.h }
IExtractImage = interface
['{BB2E617C-0920-11D1-9A0B-00C04FC2D6C1}']
function GetLocation(Buffer: PWideChar;
BufferSize: DWORD;
var Priority: DWORD;
var Size: TSize;
ColorDepth: DWORD;
var Flags: DWORD): HResult; stdcall;
function Extract(var BitmapHandle: HBITMAP): HResult; stdcall;
end;
IRunnableTask = interface
['{85788D00-6807-11D0-B810-00C04FD706EC}']
function Run: HResult; stdcall;
function Kill(fWait: BOOL): HResult; stdcall;
function Suspend: HResult; stdcall;
function Resume: HResult; stdcall;
function IsRunning: Longint; stdcall;
end;
const
{ from ShlObjIdl.h }
ITSAT_MAX_PRIORITY = 2;
ITSAT_MIN_PRIORITY = 1;
ITSAT_DEFAULT_PRIORITY = 0;
IEI_PRIORITY_MAX = ITSAT_MAX_PRIORITY;
IEI_PRIORITY_MIN = ITSAT_MIN_PRIORITY;
IEIT_PRIORITY_NORMAL = ITSAT_DEFAULT_PRIORITY;
IEIFLAG_ASYNC = $001; // ask the extractor if it supports ASYNC
extract
// (free threaded)
IEIFLAG_CACHE = $002; // returned from the extractor if it does NOT
cache
// the thumbnail
IEIFLAG_ASPECT = $004; // passed to the extractor to beg it to render
to
// the aspect ratio of the supplied rect
IEIFLAG_OFFLINE = $008; // if the extractor shouldn't hit the net to get
// any content needs for the rendering
IEIFLAG_GLEAM = $010; // does the image have a gleam? this will be
// returned if it does
IEIFLAG_SCREEN = $020; // render as if for the screen (this is
exlusive
// with IEIFLAG_ASPECT )
IEIFLAG_ORIGSIZE = $040; // render to the approx size passed, but
crop if
// neccessary
IEIFLAG_NOSTAMP = $080; // returned from the extractor if it does NOT
want
// an icon stamp on the thumbnail
IEIFLAG_NOBORDER = $100; // returned from the extractor if it does NOT
want
// an a border around the thumbnail
IEIFLAG_QUALITY = $200; // passed to the Extract method to indicate that
// a slower, higher quality image is desired,
// re-compute the thumbnail
{$IFDEF DELPHI3}
// Delphi 3 SysUtils does not have this function
function ExcludeTrailingBackslash(const Src: string): string;
{$ENDIF}
// IShellFolder methods helper
procedure ShellFolderBindToObject(const ShellFolder: IShellFolder;
PIDL: PItemIDList; const riid: TGUID; out pv);
function ShellFolderGetUIObjectOf(const ShellFolder: IShellFolder;
cidl: DWORD; var PIDL: PItemIDList; riid: TGUID; out pv): Boolean;
procedure ShellFolderParseDisplayName(const ShellFolder: IShellFolder;
const DisplayName: string; out PIDL: PItemIDList);
function ShellFolderGetExtractImage(const ShellFolder: IShellFolder;
const RelativeFileName: string; Malloc: IMalloc;
out XtractImage: IExtractImage): Boolean;
function GetExtractImageItfPtr(const FileName: string;
out XtractImage: IExtractImage): Boolean;
function GetFileLargeIcon(const FileName: string;
out LargeIcon: TIcon): Boolean;
function ExtractImageGetFileThumbnail(const XtractImage: IExtractImage;
ImgWidth, ImgHeight, ImgColorDepth: Integer; var
Re: [delphi-br] Bug Delphi 2007 - TLabel e TDBEdit
Sua versão está com todos updates instalados? Carlos escreveu: Bom dia a todos! Estou migrando algumas aplicações de D7 para D2007, devido a facilidade em desenvolver em 3 camadas e suporte nativo a alguns SGDB's. Mas percebi que, mesmo atualizado com todos os updates(4 se não me engano) ainda constatei o seguinte problema(é claro que fiz uma cópia e mantive como D7). - tenho um form e nele um pageControl com algumas abas, e numa destas abas precisei adicionar um dbEdit e este dbEdit além de ficar vísivel na aba que coloquei, ainda aparece na primeira aba, sobre um dbGrid... Tem como corrigir este problema? Será alguma configuração mal feita? Agradeço antecipadamente a quem possa me auxiliar. Fraterno abraço, Carlos
[delphi-br] TAPI
Pessoal, desisti da dll, vou tentar fazer a integração com TAPI, alguem já trabalhou com isso? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto
Obrigado, apareceu agora a propriedade!! Mas outra dúvida, as das duplicatas, como inserir estas informações? Abraços Fabio Szekut _ From: André Moraes - Gmail Sent: Wednesday, June 03, 2009 3:17 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto Vc deve baixar via SVN, o CVS não é atualizado desde 13/03/2009. Veja http://acbr.sourceforge.net/drupal/?q=node/37 André F. Moraes - Original Message - From: Fabio Szekut - Yahoo fabioszek...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 03, 2009 12:22 AM Subject: Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto André, baixei novamente, mas por CVS, não sei se é a mesma coisa, e vi que não existe esta propriedade, pode me mandar o caminho para atualização por SVN? Abraços Fabio Szekut _ From: André Moraes - Gmail Sent: Tuesday, June 02, 2009 8:26 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto A propriedade informação adicional já existe, o problema é que o DANFE ainda não foi adaptado para imprimir esta informação. Se vc estiver com a última versão do SVN, para acessar a propriedade, basta usar DadosProdutos.Add.InformacaoAdicional := 'Informacao Adicional'; André F. Moraes - Original Message - From: Fabio Szekut - Yahoo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 02, 2009 12:44 AM Subject: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto Olá, participo do grupo já algum tempo, quando penso em escrever para tirar uma dúvida, pesquiso e vejo que alguém já teve o problema e tem a solução. mas agora estou com um problema, e não consegui encontrar a solução. Estou usando o ACBrNFe, achei um componente excelente, parabéns quem teve a iniciativa. Mas não consigo encontrar a propriedade para colocar informações adicionais do produto, pois a empresa que vai utilizar a emissão de nota fiscal, usa componentes químicos e deve sair junto com o produto as informações toxicológicas, classes, coisas do tipo. Alguém sabe me dizer onde encontrar esta propriedade? Abraços Fabio Szekut _ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF] Versão econômica
Agradeço a todos pelas dicas. Vou testar o Lazarus, como também o Turbo Delphi, e ver qual deles me atende melhor. Quanto ao Delphi 4, tenho receio que as versões dos componentes de acesso a BD, que instalam na versão 4, não acessem as novas versões dos BDs Firebird e PostgreSQL. Abraços, Álvaro Vieira. 2009/6/3 Henrique.DHO iTelefonica henrique@itelefonica.com.br: Meu amigo, desculpe pelo PVT mas por quê não tenta o Lázarus ? - Original Message - From: Álvaro Vieira alvaro.vie...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 02, 2009 10:22 PM Subject: [delphi-br] [OFF] Versão econômica Olá pessoal, Preciso de uma opção econômica para desenvolver com o Delphi. Seria para criar um soft simples, com alguns cadastros e poucos relatórios. Pensei em utilizar a versão 4, que saiu em uma revista, ou mesmo o Turbo Delphi, mas um é muito antigo e o outro possui algumas restrições importantes, como não poder instalar componentes de terceiros. Outra coisa, a versão mais simples/barata do Delphi 2009 é a DELPHI 2009 FOR WIN 32 PROFESSIONAL NEW USER NAMED (R$ 2.697,00)? Abraços, Álvaro Vieira
RES: [delphi-br] TAPI
A TAPI (Telephony API) é a API do Windows para aplicações de telefonia. Em geral, essa API necessita de um driver TAPI, fornecido pelo fabricante de algum equipamento de telefonia para que um software, via chamadas de funções da TAPI, possa interagir com esse driver e, consequentemente, com o equipamento de telefonia em questão. Você vai partir para o caminho mais difícil. O mais fácil seria usar a DLL do fornecedor da central. Com certeza, essa DLL q você não quer mais usar deve mastigar o uso da TAPI, ou então (como costuma acontecer) essa DLL q você não quer mais usar deve implementar comunicação direta com o protocolo proprietário da central. Se você não está habituada a usar TAPI, sugiro um pouco mais de paciência e persistência para entender com ousar a própria DLL do fabricante da central. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Nayara Enviada em: quarta-feira, 3 de junho de 2009 16:51 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] TAPI Pessoal, desisti da dll, vou tentar fazer a integração com TAPI, alguem já trabalhou com isso? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto
Veja o ACBrNFeMonitor, nele existem quase todos os comandos do componente. with Fatura.Duplicatas.Add do begin Numero := sNumDup; DataVencimento := StrToDate(INIRec.ReadString( sSecao,'DataVencimento','')); Valor := StringToFloatDef( INIRec.ReadString(sSecao,'Valor','') ,0) ; end; André F. Moraes - Original Message - From: Fabio Szekut - Yahoo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 03, 2009 5:24 PM Subject: Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto Obrigado, apareceu agora a propriedade!! Mas outra dúvida, as das duplicatas, como inserir estas informações? Abraços Fabio Szekut _ From: André Moraes - Gmail Sent: Wednesday, June 03, 2009 3:17 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto Vc deve baixar via SVN, o CVS não é atualizado desde 13/03/2009. Veja http://acbr.sourceforge.net/drupal/?q=node/37 André F. Moraes - Original Message - From: Fabio Szekut - Yahoo fabioszek...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 03, 2009 12:22 AM Subject: Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto André, baixei novamente, mas por CVS, não sei se é a mesma coisa, e vi que não existe esta propriedade, pode me mandar o caminho para atualização por SVN? Abraços Fabio Szekut _ From: André Moraes - Gmail Sent: Tuesday, June 02, 2009 8:26 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto A propriedade informação adicional já existe, o problema é que o DANFE ainda não foi adaptado para imprimir esta informação. Se vc estiver com a última versão do SVN, para acessar a propriedade, basta usar DadosProdutos.Add.InformacaoAdicional := 'Informacao Adicional'; André F. Moraes - Original Message - From: Fabio Szekut - Yahoo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 02, 2009 12:44 AM Subject: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto Olá, participo do grupo já algum tempo, quando penso em escrever para tirar uma dúvida, pesquiso e vejo que alguém já teve o problema e tem a solução. mas agora estou com um problema, e não consegui encontrar a solução. Estou usando o ACBrNFe, achei um componente excelente, parabéns quem teve a iniciativa. Mas não consigo encontrar a propriedade para colocar informações adicionais do produto, pois a empresa que vai utilizar a emissão de nota fiscal, usa componentes químicos e deve sair junto com o produto as informações toxicológicas, classes, coisas do tipo. Alguém sabe me dizer onde encontrar esta propriedade? Abraços Fabio Szekut _ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Bug Delphi 2007 - TLabel e TDBEdit
Olá, Verifique se você não colocou os componentes em cima da aba, ao invéz de colocar dentro da área da aba. Recorte os componentes que estão aparecendo nas outras abas e dentro da aba que você quer, de um clique em algum componente dela e cole os componentes. Já passei por isso e quando fui ver era uma bobeira dessas, passa sem agente ver. Abraços. 2009/6/4 EmbarcaDelphi embarcadel...@yahoo.com.br Sua versão está com todos updates instalados? Carlos escreveu: Bom dia a todos! Estou migrando algumas aplicações de D7 para D2007, devido a facilidade em desenvolver em 3 camadas e suporte nativo a alguns SGDB's. Mas percebi que, mesmo atualizado com todos os updates(4 se não me engano) ainda constatei o seguinte problema(é claro que fiz uma cópia e mantive como D7). - tenho um form e nele um pageControl com algumas abas, e numa destas abas precisei adicionar um dbEdit e este dbEdit além de ficar vísivel na aba que coloquei, ainda aparece na primeira aba, sobre um dbGrid... Tem como corrigir este problema? Será alguma configuração mal feita? Agradeço antecipadamente a quem possa me auxiliar. Fraterno abraço, Carlos -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com [As partes desta mensagem que não continham texto foram removidas]
