Re: [delphi-br] Homologação de Sistema para Emissão de Notas fiscais.
Software pra emissão de nota fiscal não precisa homologar não, mas tem que gerar o Sintegra. Em 31/01/08, marcio de Souza [EMAIL PROTECTED] escreveu: Voce pode ir na receita estadual de sua cidade e verificar se é necessário a homologação. Eu tenho sistemas que imprime nota fiscal continua e não foi preciso homologação , me informei na receita estadual. t+ Alcistemas Informática [EMAIL PROTECTED]alcistemas%40yahoo.com.br escreveu: que eu saiba homoloar software é só para Cupom Fiscal... - Original Message - From: Jorge Ericsson Sent: Tuesday, January 29, 2008 11:41 PM Subject: [delphi-br] Homologação de Sistema para Emissão de Notas fiscais. Olá pessoal, Pesquisei no fórum e encontrei algumas discussões a respeiro de homologação de sistema mas não encontrei algo que se enquadre no meu problema. Bom eu estou ainda finalizando o desenvolvimento de um software ERP para uma empresa que me contratou para isso e um dos donos resolveu confeccionar as suas notas fiscais - que antes estava sendo preenchida com uma máquina elétrica - para que o software imprimisse na mesma apenas preenchendo os campos. Até ai tudo bem, mas o vendedor perguntou se o software era homologado e o cliente me ligou perguntando o mesmo, bem como o sistema ainda não esta pronto eu não poderia homologa-lo, mas o vendedor colocou vários impecilhos para confeccionar a nota. Então eu pergunto aos meus caros amigos que já devem ter passado por isso: 1º - Se procede o que o vendedor informou ao meu cliente; 2º - Como poderia homologar o software sendo que o mesmo ainda não esta finalizado; 3º - Em caso afirmativo a primeira pergunta, como eu posso homologa-lo e quais órgão procurar; 4º - O meu cliente poderia confecionar as notas sem a homologação do sistema e depois de concluído, eu possa homologa-lo; 5º - Qual o custo para homologação de um sistema que vai imprimir notas fiscais. Essas são minhas dúvidas, alguém poderia me ajudar ? Grato, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Comunicação c/ Mssql
Bom dia !!! Select I.*,P.Grupo,P.Icms as IcmsProd, P.PrcItem, (Select Top 1 Pr.Valor From PrecoPos Pr Where Pr.TipoPos=I.TipoPos and Pr.Produto=I.Calitem) as DescPrecoPos, (Select Top 1 Pr.Valor From PrecoPos Pr Where Pr.TipoPos=:TipoPos and Pr.Produto=I.Calitem) as Xbase From Pedite I Left Join Produtos P On P.Codigo=I.Calitem Where I.Nrodoc=:Nrodoc Estou tentando executar este query e nao esta funcionando no DbExpress Ele nao aceita ? Doretto. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 31, 2008 5:19 PM Subject: Re: [delphi-br] Comunicação c/ Mssql Ta correto sim, me diga uma coisa, em média quantos registros são retornados nessa busca que ta lenta e o acesso é via internet? e qual a velocidade da internet? Em 31/01/08, Doretto [EMAIL PROTECTED] escreveu: Estão todos criados. Para pegar uma informacao de uma tabela, eu uso somente o SqlQuery, esta certo ? Doretto. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, January 31, 2008 4:59 PM Subject: Re: [delphi-br] Comunicação c/ Mssql verifica se existe indice para os campos TipoPos e Produto Em 31/01/08, Doretto [EMAIL PROTECTED]doretto%40qualitysystem.com.br escreveu: Estou usando o Mssql2000 Tenho uma Query da seguinte maneira: Select D.Valor From PrecoPos D Where D.TipoPos=:TipoPos and D.Produto=:Produto A tabela PrecoPos tem 8190 Registros e tenho outro query Select I.*,P.Grupo,P.Icms as IcmsProd, P.PrcItem,IsNull(T.Desconto,0) as DescPrecoPos From Pedite I Left Join Produtos P On P.Codigo=I.Calitem Left Join PrecoPos T On T.TipoPos=I.TipoPos and T.Produto=I.Calitem Where I.Nrodoc=:Nrodoc c/ 18 registros Este ultimo query p/ abri-lo é mais rapido que o anterior... como explicar isto ? Doretto. - Original Message - From: Apoio To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br Sent: Thursday, January 31, 2008 3:50 PM Subject: Re: [delphi-br] Comunicação c/ Mssql Select D.* From PrecoPos D Left Join Preco P On P.Codigo=D.Tipo Where D.Produto=:Produto vamos entao: em : select d.* troque por: select d.codigo, d.nome , d.preço isso ajuda e talvez vc não precise trazer todas as fields. verifique nas tabelas se: precopos campo tipo e produto se nenhum desases campos for chave primaria crie um indice para eles mesma coisa com a tabela preco - codigo em ultimo caso vc pode criar uma view . qual versão do sqlserver c ta usando? - Original Message - From: Doretto To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br Sent: Thursday, January 31, 2008 3:24 PM Subject: Re: [delphi-br] Comunicação c/ Mssql Eu não achei onde configura o providerflags... Eu verifiquei que fica lento quando eu dou um select usando um left join Ex: Select D.* From PrecoPos D Left Join Preco P On P.Codigo=D.Tipo Where D.Produto=:Produto Doretto. - Original Message - From: Apoio To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br Sent: Thursday, January 31, 2008 2:51 PM Subject: Re: [delphi-br] Comunicação c/ Mssql com certeza vc não vai resolver isso com outro componente. vc ja configurou : ProviderFlags[pfInUpdate,pfInWhere,pfInKey] upWhereKeyOnly no DataSerProvider; - Original Message - From: Doretto To: Delphi Sent: Thursday, January 31, 2008 11:38 AM Subject: [delphi-br] Comunicação c/ Mssql Bom dia !!! Alguém conhece algum componente mais rápido para comunicação c/ MSSQL que o dbexpress ? Eu tenho um sistema em delphi7 que usa comunicação via Net pelo IP, e com e dbexpress esta muito lento. O que devo fazer para melhorar a performance Doretto. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2839 (20080131) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2839 (20080131) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Iniciante - Como obter o valor_total da venda
Amigo caso vc trabalhe com ClientDataSet vc pode pesquisar sobre os campos agregados. Outra forma bem comum é vc ter uma variavel e a cada post ou delete no seu dataset somar ou subtrair os valores desta variavel. Outra forma também bem comum é fazer um while eof no seu dataset e ir somando em uma variavel os sub-totais dos seus itens. Abraço. --- Em delphi-br@yahoogrupos.com.br, Mario Rodrigues [EMAIL PROTECTED] escreveu Salve salve a todos, Bom gostaria de saber como eu poderia obter o valor total de uma venda...se fosse num select blz...dava um SUM(itens.TOTAL) as Total_Geral...porem como ficaria para conseguir no delphi..para eu conseguir ter o valor total_iten...com a ajuda da lista...me mostraram uma procedure DMItens.cdsItenss.FieldByName('TOTAL_COMPRA').AsFloat := DMItens.cdsBuscaProd.FieldByName('VALOR_UNITARIO' ).AsFloat * DMItens.cdsItenss.FieldByName('QUANTIDADE' ).AsInteger; Dai como ficaria usando uma procedure para o total_geral DMItens.cdsvendas.FieldByName('TOTAL_GERAL').AsFloat := DMItens.cdsItens.FieldByName('VALOR_TOTAL' ).AsFloat // e agora? SUM(DMItens.cdsItens.FieldByName('VALOR_TOTAL' ).AsFloat)..isso o delphi nao aceita..como faria para somar? abraço! - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Homologação de Sistema para Emissão de Notas fiscais.
Consulte o grupo [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] []s, Odail São Pedro -SP Alcistemas Informática escreveu: que eu saiba homoloar software é só para Cupom Fiscal... - Original Message - From: Jorge Ericsson Sent: Tuesday, January 29, 2008 11:41 PM Subject: [delphi-br] Homologação de Sistema para Emissão de Notas fiscais. Olá pessoal, Pesquisei no fórum e encontrei algumas discussões a respeiro de homologação de sistema mas não encontrei algo que se enquadre no meu problema. Bom eu estou ainda finalizando o desenvolvimento de um software ERP para uma empresa que me contratou para isso e um dos donos resolveu confeccionar as suas notas fiscais - que antes estava sendo preenchida com uma máquina elétrica - para que o software imprimisse na mesma apenas preenchendo os campos. Até ai tudo bem, mas o vendedor perguntou se o software era homologado e o cliente me ligou perguntando o mesmo, bem como o sistema ainda não esta pronto eu não poderia homologa-lo, mas o vendedor colocou vários impecilhos para confeccionar a nota. Então eu pergunto aos meus caros amigos que já devem ter passado por isso: 1º - Se procede o que o vendedor informou ao meu cliente; 2º - Como poderia homologar o software sendo que o mesmo ainda não esta finalizado; 3º - Em caso afirmativo a primeira pergunta, como eu posso homologa-lo e quais órgão procurar; 4º - O meu cliente poderia confecionar as notas sem a homologação do sistema e depois de concluído, eu possa homologa-lo; 5º - Qual o custo para homologação de um sistema que vai imprimir notas fiscais. Essas são minhas dúvidas, alguém poderia me ajudar ? Grato, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Abrir formulário dentro de outro
Na verdade falta: Faça assim Form1.ManualDock( Panel1 ); Form1.Align := alClient; Form1.Show( ); _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de edersonecris Enviada em: quinta-feira, 31 de janeiro de 2008 13:59 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Abrir formulário dentro de outro É isso que estou precisando. Mas não funcionou, não apareceu nada dentro de panel. Será que falta algum detalhe que esta escapando? GRAto Jackson Gomes - ToolsComps escreveu: Pessoal tem como abrir um formulário dentro de outro? Se vc quer um form colado dentro do outro, digamos, colar o form2 dentro do form1 form2 := TForm2.Create(form1); form2.Parent := form1; (se vc tem um panel dentro do form1, poderia ser form1.panel1, assim form2 seria colado dentro do panel ) form2.show; A vantagen dessa técnica é aproveitar os muitos eventos que o TForm tem e o TFrame não tem. OnCreate, por exemplo... Acho que é isso. []'s Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsand http://www.toolsandcomps.com comps.com http://www.toolsand http://www.toolsandcomps.com comps.com Nosso Fórum: http://groups. http://groups.yahoo.com/group/toolsandcomps yahoo.com/group/toolsandcomps http://groups. http://groups.yahoo.com/group/toolsandcomps yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] mailto:jackson%40toolsandcomps.com ps.com mailto:jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Borland http://www.devhost. http://www.devhost.com.br com.br http://www.devhost. http://www.devhost.com.br com.br [EMAIL PROTECTED] mailto:devhost%40devhost.com.br com.br mailto:devhost%40devhost.com.br -- Éderson Cassiano Bologna edersoncassiano@ mailto:edersoncassiano%40terra.com.br terra.com.br sKYPE: edersoncassiano MSN: edersoncassiano@ mailto:edersoncassiano%40hotmail.com hotmail.com www.microtechshop.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Urgente - Tabelas com todos os sindicatos
Pessoal, alguém possui ou indicaria um lugar onde posso encontrar o cadastros de todos os sindicatos ? Problema: Eu estou desenvolvendo em meu sistema uma rotina de folha de pagamento e tem uma tabela de sindicatos então eu gostaria de popular essa tabela para facilitar a associação do funcionário ao sindicatos de sua área. Grato. -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Arquivo - [delphi-br] regras.txt
= TERMOS PARA PARTICIPAÇÃO NO GRUPO DELPHI-BR = I. CONSIDERAÇÕES GERAIS --- a) A concordância com os termos do presente documento é precondição para sua participação na lista de discussão delphi-br. b) O desconhecimento do presente documento não é motivo para o não cumprimento de qualquer de suas regras. c) A função dos moderadores é reguladora e suas principais atividades são: .observar que as mensagens enviadas ao grupo guardam tom amistoso; .observar que as mensagens enviadas ao grupo tratam de assuntos relacionados com o tema principal da lista, ou seja, Pascal, Delphi e Kylix; .aplicar medidas punitivas quando algum membro da lista infringe alguma das regras da lista, conforme disposto nos termos abaixo. d) A lista é mantida de forma gratuita. Não existem quaisquer garantias de continuidade ou qualidade no funcionamento da lista. Também não há garantias quanto ao teor ou validade técnica das mensagens enviadas à lista. II. FUNCIONAMENTO - a) MEMBROS MODERADOS: . Membros moderados têm suas mensagens submetidas à aprovação por um moderador antes de serem encaminhadas à lista. * Mensagens em desacordo com as regras da lista serão bloqueadas e jamais chegarão à lista. * O processo de moderação causará algum atraso na entrega das mensagens do membro moderado à lista. * O prazo de moderação é, por padrão, indeterminado. Porém, o tempo médio de moderação é uma semana. b) MEMBROS REGULARES: . Membros regulares são aqueles que participam da lista sem moderação. Suas mensagens são enviadas automaticamente à lista sem qualquer tipo de preprocessamento. . Membros regulares estão sujeitos às regras da lista e a infração de qualquer uma dessas regras resultará em medidas punitivas por parte dos moderadores. c) CAIXAS POSTAIS: . Usuários terão seu status de recepção modificado para 'No email' quando: sua caixa postal estiver cheia; sua caixa postal apresentar problemas que causem retorno de erro; ou, seu leitor de email tiver a propriedade aviso de recebimento de mensagens ativada. * Quando sanar o problema, o próprio usuário poderá entrar no site e alterar seu status: http://br.groups.yahoo.com/mygroups * Opcionalmente, um usuário poderá restaurar seu status para normal enviando uma mensagem para: [EMAIL PROTECTED] III. REGULAMENTO a) GERAL: 1. O idioma oficial da lista é o português. Mensagens em outros idiomas não serão permitidas. 2. Todas as mensagens enviadas à lista deverão usar de tom amigável. O uso de ironia, sarcasmo, linguagem vulgar, comentário preconceituoso, insulto ou tom ofensivo sob qualquer outra forma não será tolerado. 3. As regras de etiqueta da Rede (RFC 1855, Netiquette Guidelines) deverão ser observadas quando pertinentes ao tipo de comunicação estabelecida na lista (um para muitos). Para maiores detalhes sobre a RFC 1855, veja http://www.ietf.org/rfc/rfc1855.txt?number=1855 4. Não envie arquivos anexados (attachments). Arquivos anexados são automaticamente rejeitados pela lista. A lista oferece um espaço para arquivos em: http://br.groups.yahoo.com/group/delphi-br/files 5. Não faça cross-posting (envio da mesma mensagem para diversas listas). Essa prática é considerada anti-ética pela maioria das comunidades na Internet. b) PIRATARIA: 1. Não promova pirataria de qualquer material. 2. Será considerada promoção de pirataria a solicitação ou fornecimento de números seriais, senhas, cracks, warez, cópias eletrônicas ou links para download de produtos (ou qualquer uma de suas partes) sem autorização legal para distribuição gratuita na Internet. Qualquer menção de como obter acesso a esse tipo de material (redes P2P, newsgroups, listas de discussão, diretórios, anúncios, etc) será igualmente considerada promoção de pirataria. * Para que não seja considerada pirataria, o autor da da mensagem deverá indicar explicitamente tratar-se de versão livremente acessível pela Internet. Caso não proceda dessa forma e havendo versão comercial do produto mencionado, a mensagem será considerada promoção de pirataria. 3. Na dúvida, seja explícito em sua mensagem e indique com toda clareza estar solicitando ou fornecendo dados de uma versão gratuita de um material. 4. Os moderadores da lista procederão com o máximo rigor, comunicando a todos os provedores envolvidos (dos autores das mensagens e dos sites
RES: [delphi-br] [OFF] Base CEP
WWW.Bases4You.com De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Evandro . Enviada em: sexta-feira, 1 de fevereiro de 2008 09:08 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] [OFF] Base CEP Olá, alguem tem a base de Cep sem Criptografia em FDB, GDB ou MDB recente ?? tenho uma em FDB mais está meio antiga, preciso de alguma de 2005 ou mais recente! consegui essa de 2007 tb mais pede senha pra instalar! é um Exe mais diz que gera um Arquivo MDB quando se instala! http://www.dm10.com.br/download/cep/Instala_Cep.exe Alguem da uma força ae! Abraços! __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [OFF] Base CEP
www.gsesoft.com - base atualizada em Out/Nov 2007 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Evandro . Enviada em: sexta-feira, 1 de fevereiro de 2008 09:08 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] [OFF] Base CEP Olá, alguem tem a base de Cep sem Criptografia em FDB, GDB ou MDB recente ?? tenho uma em FDB mais está meio antiga, preciso de alguma de 2005 ou mais recente! consegui essa de 2007 tb mais pede senha pra instalar! é um Exe mais diz que gera um Arquivo MDB quando se instala! http://www.dm10.com.br/download/cep/Instala_Cep.exe Alguem da uma força ae! Abraços! __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Pegar o número da coluna de um DB Grid
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var Grid: TDBGrid; begin Grid := TDBGrid(Sender); if gdSelected in State then begin Grid.Canvas.Brush.Color := clYellow; Grid.Canvas.Font.Color := clRed; Grid.Canvas.Pen.Color := clRed; Grid.Canvas.FillRect(Rect); // Will need to handle right aligned fields yourself!!! Grid.Canvas.TextOut(Rect.Left+2, Rect.Top+2, Grid.DataSource.DataSet.Fields[DataCol].AsString); end; end; Nada que um Google não resolva.. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Angelo Louzada Enviada em: sexta-feira, 1 de fevereiro de 2008 09:05 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Pegar o número da coluna de um DBGrid Olá amigos alguém sabe me dizer como pegar o numero da coluna clicada no DBGrid? Estou tentando alterar a cor do título quando o usuário clica no título da coluna mais não estou conseguindo obter o index dela, estou tentando o seguinte: DBGrid1.Tag := Column.Index; DBGrid1.Columns[DBGrid1.Tag].Title.Color := $00BE7C7C; DBGrid1.Columns[DBGrid1.Tag].Title.Font.Color := clWhite; DBGrid1.Columns[DBGrid1.Tag].Title.Font.Style := [fsBold]; Mais não está dando certo. Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF] Base CEP
Olá, alguem tem a base de Cep sem Criptografia em FDB, GDB ou MDB recente ?? tenho uma em FDB mais está meio antiga, preciso de alguma de 2005 ou mais recente! consegui essa de 2007 tb mais pede senha pra instalar! é um Exe mais diz que gera um Arquivo MDB quando se instala! http://www.dm10.com.br/download/cep/Instala_Cep.exe Alguem da uma força ae! Abraços! _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pegar o número da coluna de um DBGrid
Estou tentando alterar a cor do título quando o usuário clica no título da coluna mais não estou conseguindo obter o index dela, estou tentando o seguinte: Veja o evento OnTitleClick... sds. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED]
[delphi-br] Pegar o número da coluna de um DBGrid
Olá amigos alguém sabe me dizer como pegar o numero da coluna clicada no DBGrid? Estou tentando alterar a cor do título quando o usuário clica no título da coluna mais não estou conseguindo obter o index dela, estou tentando o seguinte: DBGrid1.Tag := Column.Index; DBGrid1.Columns[DBGrid1.Tag].Title.Color := $00BE7C7C; DBGrid1.Columns[DBGrid1.Tag].Title.Font.Color := clWhite; DBGrid1.Columns[DBGrid1.Tag].Title.Font.Style := [fsBold]; Mais não está dando certo. Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Urgente - Tabelas com todos os sindicatos
Caro amigo Jorge, Este cadastro, nem mesmo o Ministério do Trabalho tem, infelizmente. Trabalho numa entidade sindical e há anos procuro algo do tipo. Só encontrei uma vez (cerca de 12 anos atrás) uma publicação impressa vinda do próprio ministério, mas já está desatualizada. Na Caixa Econômica Federal têm um cadastro devido às contribuições sindicais, mas não garante que a entidade está 100% legalizada com o Ministério do Trabalho. Grande abraço... Marcus Vinicius Scarpelli Informática FECESP - Original Message - From: Jorge Ericsson Sent: Thursday, January 31, 2008 7:25 PM Subject: [delphi-br] Urgente - Tabelas com todos os sindicatos Pessoal, alguém possui ou indicaria um lugar onde posso encontrar o cadastros de todos os sindicatos ? Problema: Eu estou desenvolvendo em meu sistema uma rotina de folha de pagamento e tem uma tabela de sindicatos então eu gostaria de popular essa tabela para facilitar a associação do funcionário ao sindicatos de sua área. Grato. -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Pegar o número da coluna de um DB Grid
Ah! Esqueci de falar, tenho certeza que vais me perguntar! É só alterar a pintura para o title! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Davi Eduardo Borges Wall Enviada em: sexta-feira, 1 de fevereiro de 2008 09:12 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Pegar o número da coluna de um DBGrid procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var Grid: TDBGrid; begin Grid := TDBGrid(Sender); if gdSelected in State then begin Grid.Canvas.Brush.Color := clYellow; Grid.Canvas.Font.Color := clRed; Grid.Canvas.Pen.Color := clRed; Grid.Canvas.FillRect(Rect); // Will need to handle right aligned fields yourself!!! Grid.Canvas.TextOut(Rect.Left+2, Rect.Top+2, Grid.DataSource.DataSet.Fields[DataCol].AsString); end; end; Nada que um Google não resolva.. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Angelo Louzada Enviada em: sexta-feira, 1 de fevereiro de 2008 09:05 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Pegar o número da coluna de um DBGrid Olá amigos alguém sabe me dizer como pegar o numero da coluna clicada no DBGrid? Estou tentando alterar a cor do título quando o usuário clica no título da coluna mais não estou conseguindo obter o index dela, estou tentando o seguinte: DBGrid1.Tag := Column.Index; DBGrid1.Columns[DBGrid1.Tag].Title.Color := $00BE7C7C; DBGrid1.Columns[DBGrid1.Tag].Title.Font.Color := clWhite; DBGrid1.Columns[DBGrid1.Tag].Title.Font.Style := [fsBold]; Mais não está dando certo. Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [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]
Res: RES: [delphi-br] Pegar o número da coluna d e um DBGrid
Amigo Davi, pelo que estou lendo no help do delphi para mudar a cor do TÍTULO do Grid eu preciso informar o número da coluna, exemplo: DBGrid1.Columns[0]... DBGrid1.Columns[1]... DBGrid1.Columns[2]... o que eu preciso fazer é pegar esse número do indice quando o usuário clica no título, implementando o exemplo que você acho no google consegui no máximo fazer isso: procedure TFormPadrao1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var Grid: TDBGrid; begin //Coloca o Grid zebrado if odd(IBDataSet1.RecNo) then begin DBGrid1.Canvas.Brush.Color := clCream; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawDataCell(Rect, Column.Field,State); end; //Muda a cor da célula selecionada Grid := TDBGrid(Sender) ; if gdSelected in State then begin Grid.Canvas.Brush.Color := clYellow; Grid.Canvas.Font.Color := clRed; Grid.Canvas.Pen.Color := clRed; Grid.Canvas.FillRect(Rect); Grid.Canvas.TextOut(Rect.Left+2, Rect.Top+2, Grid.DataSource.DataSet.Fields[DataCol].AsString); end; end; Estava tentando alguma coisa no evento OnTitleClick procedure TFormPadrao1.DBGrid1TitleClick(Column: TColumn); begin if ControlGrid = 1 then begin try strSql := 'SELECT * FROM ' + nomeTabela + ' ORDER BY ' + Column.FieldName; With IBDataSet1 Do begin Close; SelectSQL.Clear; SelectSQL.Add(strSql); Open; end; if IBDataSet1.RecordCount = 0 then begin mensagem := 'Não foi encontrado nenhum registro que ' + #13 + 'satisfaça a sua pesquisa. '; Application.MessageBox(PChar(mensagem), 'Informação', mb_Ok + mb_IconInformation); Abort; end; strSql := 'SELECT * FROM ' + nomeTabela; DBGrid1.Tag := Column.ID; DBGrid1.Columns[DBGrid1.Tag].Title.Color := $00BE7C7C; DBGrid1.Columns[DBGrid1.Tag].Title.Font.Color := clWhite; DBGrid1.Columns[DBGrid1.Tag].Title.Font.Style := [fsBold]; } ControlGrid := 2; except mensagem := 'Não existe registros na tabela.'; Application.MessageBox(PChar(mensagem), 'Informação', mb_Ok + mb_IconInformation); end; end else if ControlGrid = 2 then begin try strSql := 'SELECT * FROM ' + nomeTabela + ' ORDER BY ' + Column.FieldName + ' DESC'; With IBDataSet1 Do begin Close; SelectSQL.Clear; SelectSQL.Add(strSql); Open; end; if IBDataSet1.RecordCount = 0 then begin mensagem := 'Não foi encontrado nenhum registro que ' + #13 + 'satisfaça a sua pesquisa. '; Application.MessageBox(PChar(mensagem), 'Informação', mb_Ok + mb_IconInformation); Abort; end; strSql := 'SELECT * FROM ' + nomeTabela; ControlGrid := 1; except mensagem := 'Não existe registros na tabela.'; Application.MessageBox(PChar(mensagem), 'Informação', mb_Ok + mb_IconInformation); end; end; {// restaurando a cor do título DBGrid1.Columns[DBGrid1.Tag].Title.Color := clBtnFace; DBGrid1.Columns[DBGrid1.Tag].Title.Font.Color := clWindowText; DBGrid1.Columns[DBGrid1.Tag].Title.Font.Style := []; // guarda a coluna selecionada DBGrid1.Tag := Column.Index; // alterando a cor do título do campo ordenado DBGrid1.Columns[DBGrid1.Tag].Title.Color := $00BE7C7C; DBGrid1.Columns[DBGrid1.Tag].Title.Font.Color := clWhite; DBGrid1.Columns[DBGrid1.Tag].Title.Font.Style := [fsBold];} end; - Mensagem original De: Davi Eduardo Borges Wall [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 8:16:13 Assunto: RES: [delphi-br] Pegar o número da coluna de um DBGrid Ah! Esqueci de falar, tenho certeza que vais me perguntar! É só alterar a pintura para o title! De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de Davi Eduardo Borges Wall Enviada em: sexta-feira, 1 de fevereiro de 2008 09:12 Para: [EMAIL PROTECTED] os.com.br Assunto: RES: [delphi-br] Pegar o número da coluna de um DBGrid procedure TForm1.DBGrid1DrawC olumnCell( Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState) ; var Grid: TDBGrid; begin Grid := TDBGrid(Sender) ; if gdSelected in State then begin Grid.Canvas. Brush.Color := clYellow; Grid.Canvas. Font.Color := clRed; Grid.Canvas. Pen.Color := clRed; Grid.Canvas. FillRect( Rect); // Will need to handle right aligned fields yourself!!! Grid.Canvas. TextOut(Rect. Left+2, Rect.Top+2, Grid.DataSource. DataSet.Fields[ DataCol]. AsString) ; end; end; Nada que um Google não resolva.. De: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br [mailto:[EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br ] Em nome de Angelo Louzada Enviada em: sexta-feira, 1 de fevereiro de 2008 09:05 Para: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br Assunto: [delphi-br] Pegar o número da coluna de um DBGrid Olá amigos alguém sabe me dizer como pegar o numero da coluna
[delphi-br] Cat-52 no braço - independente de fabricante
Ola Pessoal, Alguem sabe se existe algum projeto aberto p/ ajudar a criar o arquivo da Cat-52? Uma DLL ou coisa do tipo? Estou pensando seriamente em fazer eu mesmo de forma a criar um processo padronizado de geracao desses arquivos e nao ficar na de- pendencia de cada fabricante de ECF. Obrigado a todos William Rocha
[delphi-br] [off] Roraima pode não pertencer ao Brasil !!! - MUI TO IMPORTANTE !!!
Repassando - leia tudo! A PRÓXIMA GUERRA (Segue abaixo o relato de uma pessoa conhecida e séria, que passou recentemente em um concurso público federal e foi trabalhar em Roraima. Trata-se de um Brasil que a gente não conhece) As duas semanas em Manaus foram interessantes para conhecer um Brasil um pouco diferente, mas chegando em Boa Vista (RR) não pude resistir a fazer um relato das coisas que tenho visto e escutado por aqui. Conversei com algumas pessoas nesses três dias, desde engenheiros até pessoas com um mínimo de instrução. Para começar o mais difícil de encontrar por aqui é roraimense, pra falar a verdade, acho que a proporção é de um roraimense para cada 10 pessoas é bem razoável, tem gaúcho, carioca, cearense, amazonense, piauiense, maranhense e por aí vai. Portanto falta uma identidade com a terra. Aqui não existem muitos meios de sobrevivência, ou a pessoa é funcionária pública, e aqui quase todo mundo é, pois em Boa Vista se concentram todos os órgãos federais e estaduais de Roraima, além da prefeitura é claro. Se não for funcionário público a pessoa trabalha no comércio local ou recebe ajuda de Programas do governo. Não existe indústria de qualquer tipo. Pouco mais de 70% do Território roraimense é demarcado como reserva indígena, portanto restam apenas 30%, descontando-se os rios e as terras improdutivas que são muitas, para se cultivar a terra ou para a localização das próprias cidades. Na única rodovia que existe em direção ao Brasil que liga Boa Vista a Manaus, (cerca de 800 km) existe um trecho de aproximadamente 200 km reserva indígena Waimiri Atroari por onde você só passa entre 6:00 da manhã e 6:00 da tarde, nas outras 12 horas a rodovia é fechada pelos índios (com autorização da FUNAI e dos americanos) para que os mesmos não sejam incomodados. Detalhe: Você não passa se for brasileiro, o acesso é livre aos americanos, europeus e japoneses. Desses 70% de território indígena, diria que em 90% dele ninguém entra sem uma grande burocracia e autorização da FUNAI. Detalhe II: Americanos entram na hora que quiserem, se você não tem uma autorização da FUNAI mas tem dos americanos então você pode entrar. A maioria dos índios fala a língua nativa além do inglês ou francês, mas a maioria não sabe falar português. Dizem que é comum na entrada de algumas reservas encontrarem-se hasteadas bandeiras americanas ou inglesas. É comum se encontrar por aqui americano tipo nerds com cara de quem não quer nada, que veio caçar borboleta e joaninha e catalogá-las, mas no final das contas pasme, se você quiser montar um empresa para exportar plantas e frutas típicas como cupuaçu, açaí camu-camu etc, medicinais, ou componentes naturais para fabricação de remédios, pode se preparar para pagar 'royalties' para empresas japonesas e americanas que já patentearam a maioria dos produtos típicos da Amazônia. Por três vezes repeti a seguinte frase após ouvir tais relatos: É; os americanos vão acabar tomando a Amazônia - e em todas elas ouvi a mesma resposta em palavras diferentes. Vou reproduzir a resposta de uma senhora simples que vendia suco e água na rodovia próximo de Mucajaí: Irão, não, minha filha, tu não sabe, mas tudo aqui já é deles, eles comandam tudo, você não entra em lugar nenhum porque eles não deixam. Quando acabar essa guerra aí eles virão pra cá, e vão fazer o que fizeram no Iraque quando determinaram uma faixa para os curdos onde iraquiano não entra, aqui vai ser a mesma coisa. A dona é bem informada não? O pior é que segundo a ONU o conceito de nação é um conceito de soberania e as áreas demarcadas têm o nome de nação indígena. O que pode levar os americanos a alegarem que estarão libertando os povos indígenas. Fiquei sabendo que os americanos já estão construindo uma grande base militar na Colômbia, bem próximo da fronteira com o Brasil numa parceria com o governo colombiano com o pseudo objetivos de combater o narcotráfico. Por falar em narcotráfico, aqui é rota de distribuição, pois essa mãe chamada Brasil mantém suas fronteiras abertas e aqui tem Estrada para as Guianas e Venezuela. Nenhuma bagagem de estrangeiro é fiscalizada, principalmente se for americano, europeu ou japonês, (isso pode causar um incidente diplomático). Dizem que tem muito colombiano traficante virando venezuelano, pois na Venezuela é muito fácil comprar a cidadania venezuelana por cerca de 200 dólares. Pergunto inocentemente às pessoas; Porque os americanos querem tanto proteger os índios? A resposta é absolutamente a mesma; porque as terras indígenas além das riquezas animais e vegetais, da abundância de água são extremamente ricas em ouro (encontram-se pepitas que chegam a ser pesadas em quilos), diamante, pedras preciosas, minério e nas reservas norte de Roraima e Amazonas, ricas em PETRÓLEO. Parece que as pessoas contam essas coisas como que num grito de Socorro a alguém que é do sul, como se eu pudesse dizer isso ao presidente ou a alguma utoridade do sul que vá fazer alguma coisa. É
Re: [delphi-br] Cat-52 no braço - independen te de fabricante
Bom dia! O pessoal a ACBr não tem nada nesse sentido? Na pior das hipóteses, vc pode gerar a partir da sua análise/interpretação do que ler na legislação e gerar os registros. Atte, Ricardo. williamrocha [EMAIL PROTECTED] escreveu: Ola Pessoal, Alguem sabe se existe algum projeto aberto p/ ajudar a criar o arquivo da Cat-52? Uma DLL ou coisa do tipo? Estou pensando seriamente em fazer eu mesmo de forma a criar um processo padronizado de geracao desses arquivos e nao ficar na de- pendencia de cada fabricante de ECF. Obrigado a todos William Rocha __ - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dvidas com ataizações (Urgente)
Ola gente, Tenho uma duvida com relação ao DB do cliente... No mesmo tem 20.000 registros, tenho que acrecentar um outro campo na tabela, e acrecentar uma outra tabela na maquina cliente Bom para fazer tenho que instalar o IBExpert ao cliente ou fazer um dowload do FDB e atualizar no escritorio e depois enviar para o mesmo Existe uma forma mais simples de fazer isso? Grato Hudson. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Jackson Gomes - ToolsComps wrote: Olá amigos, preciso saber se um componente tem uma propriedade, que eu vou selecionar, e caso tenha passe um valor para ela. Porém tem de ser genérico Procure por RTTI (RunTime Type Information) Especialmente FieldAddress, GetPropInfo, e o que você achar pelo caminho enquanto estuda estes um. -- Joao Morais
[delphi-br] Sobre o MyDAC
Bom dia pessoal! Eu baixei o MyDAC no site do fabricante e tenho 60 dias para usa-lo como teste! Após esse período eu terei q registra-lo, ou seja, comprar uma licença para uso do mesmo! Se eu vender o meu sistema criado com Delphi e com os componentes do MyDAC nesse período de 60 dias eu terei q pagar por ele ou eu só preciso comprar o MyDAC se eu continuar usando-o em minha empresa para desenvolvimento junto ao Delphi? Obrigado pela atenção de todos! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Olá amigos, preciso saber se um componente tem uma propriedade, que eu vou selecionar, e caso tenha passe um valor para ela. Porém tem de ser genérico algo como: for i:=0 to ComponentsCount-1 if Components[i].PROPRIEDADE = True then Components[i].PROPRIEDADE := OBJETO; Isso existe? Como eu faria? Obrigado desde já. -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Eu criei essa função ontem: procedure AlteraComponete(Form :TForm; propiedade : string; valor : variant); var i : integer; begin for I := 0 to Form.ComponentCount -1 do begin if IsPublishedProp(Form.Components[i], propiedade)then begin SetPropValue(Form.Components[I], propiedade,valor); end; end; end; pode usa-la assim AlteraComponete(FGerenciaUsuario,'ReadOnly',true); -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Fellipe Henrique [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 10:26:24 Assunto: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Olá amigos, preciso saber se um componente tem uma propriedade, que eu vou selecionar, e caso tenha passe um valor para ela. Porém tem de ser genérico algo como: for i:=0 to ComponentsCount- 1 if Components[i] .PROPRIEDADE = True then Components[i] .PROPRIEDADE := OBJETO; Isso existe? Como eu faria? Obrigado desde já. -- _ _ ___ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] com [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq{margin:4;} -- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Obrigado! Realmente não me lembrei desse detalhe. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Rubem Nascimento da Rocha [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 12:46:43 Assunto: RE: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Excelente dica, Evaldo! No entanto, falou mencionar que pra usar essa sua função, se faz necessário um uses da unit TypInfo. Sds. _ _ __ To: [EMAIL PROTECTED] os.com.br From: evaldoavelar@ yahoo.com. br Date: Fri, 1 Feb 2008 06:39:32 -0800 Subject: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Eu criei essa função ontem: procedure AlteraComponete( Form :TForm; propiedade : string; valor : variant); var i : integer; begin for I := 0 to Form.ComponentCount -1 do begin if IsPublishedProp( Form.Components[ i], propiedade)then begin SetPropValue( Form.Components[ I], propiedade,valor) ; end; end; end; pode usa-la assim AlteraComponete( FGerenciaUsuario ,'ReadOnly' ,true); -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. evaldoavelar@ yahoo.com. br Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] O q fazer com uma query que demora 15m p/ processar????
Tente fazer algo assim: select Seccao.SecNum, Seccao.SecResu, Seccao.SecExtensao, sum(GuiaAgeSeccao.Receita) as TotRec, count(Seccao.SecNum) as TotPsg from GuiaAgeSeccao left join GuiaAgencia on (GuiaAgeSeccao.GuiNum = GuiaAgencia.GuiNum) left join Seccao on (GuiaAgeSeccao.LinCod = Seccao.LinCod and GuiaAgeSeccao.SecNum = Seccao.SecNum) where and Seccao.LinCod = :Lin and Seccao.SecNum :SecCanc and Seccao.DataAumento = :Data and GuiaAgencia.GuiData = :dini and GuiaAgencia.GuiData = :dfim group by Seccao.SecNum, Seccao.SecResu, Seccao.SecExtensao abs. Thiago Filiano Rosa America Soft Informática 55 11 6955-8833 www.americasoft.com.br -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marx Gentil Enviada em: sexta-feira, 1 de fevereiro de 2008 10:19 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] O q fazer com uma query que demora 15m p/ processar Eis a query Select Seccao.SecNum, Seccao.SecResu, Seccao.SecExtensao, Sum(GuiaAgeSeccao.Receita) as TotRec, Count(Seccao.SecNum) as TotPsg from GuiaAgeSeccao, Seccao, GuiaAgencia where GuiaAgencia.GuiNum = GuiaAgeSeccao.GuiNum and GuiaAgeSeccao.LinCod = Seccao.LinCod and GuiaAgeSeccao.SecNum = Seccao.SecNum and Seccao.LinCod=:Lin and Seccao.SecNum :SecCanc and Seccao.DataAumento=:Data and GuiaAgencia.GuiData =:dini and GuiaAgencia.GuiData =:dfim group by Seccao.SecNum, Seccao.SecResu, Seccao.SecExtensao Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos - Esta mensagem foi verificada pelo sistema KingNoSpam (versao 1.4.2) Assinatura: !DSPAM:47a31c4c182232037714507! Resultado: INOCENTE Para reportar este e-mail como SPAM, clique aqui: http://webmail.americasoft.com.br/retrain.php?sigGa31c4c182232037714507clas s=am[EMAIL PROTECTED]
Re: [delphi-br] Resumo 10207
Ola Ricardo, O ACBr tem um componente + pelo q entendi ele eh vinculado ao ACBrECF e eu nao uso o ACBr. A ideia eh realmente gerar a partir da analise/interpretacao da legis- lacao... o q queria era alguma estrutura já feita p/ ajudar na confeccao dos arquivos. Claro q eu poderia fazer do meu jeito aqui, mas se jah tem algo feito e que tem gente usando, prefiro esse por jah ter um padrao e ter mais gente envolvida e ter c/ quem tratar do assunto de forma mais objetiva. Obrigado pela atencao William Rocha Re: [delphi-br] Cat-52 no braço - independente de fabricante Enviado por: Ricardo César Cardoso [EMAIL PROTECTED] ricardo_engsoft Data: Sex, 1 de Fev de 2008 10:20 am Bom dia! O pessoal a ACBr não tem nada nesse sentido? Na pior das hipóteses, vc pode gerar a partir da sua análise/interpretação do que ler na legislação e gerar os registros. Atte, Ricardo. williamrocha [EMAIL PROTECTED] escreveu: Ola Pessoal, Alguem sabe se existe algum projeto aberto p/ ajudar a criar o arquivo da Cat-52? Uma DLL ou coisa do tipo? Estou pensando seriamente em fazer eu mesmo de forma a criar um processo padronizado de geracao desses arquivos e nao ficar na de- pendencia de cada fabricante de ECF. Obrigado a todos William Rocha
[delphi-br] O q fazer com uma query que demora 15m p/ processar????
Eis a query Select Seccao.SecNum, Seccao.SecResu, Seccao.SecExtensao, Sum(GuiaAgeSeccao.Receita) as TotRec, Count(Seccao.SecNum) as TotPsg from GuiaAgeSeccao, Seccao, GuiaAgencia where GuiaAgencia.GuiNum = GuiaAgeSeccao.GuiNum and GuiaAgeSeccao.LinCod = Seccao.LinCod and GuiaAgeSeccao.SecNum = Seccao.SecNum and Seccao.LinCod=:Lin and Seccao.SecNum :SecCanc and Seccao.DataAumento=:Data and GuiaAgencia.GuiData =:dini and GuiaAgencia.GuiData =:dfim group by Seccao.SecNum, Seccao.SecResu, Seccao.SecExtensao Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dvidas com ataiza��es (Urgente)
No mesmo tem 20.000 registros, tenho que acrecentar um outro campo na tabela, e acrecentar uma outra tabela na maquina cliente Bom para fazer tenho que instalar o IBExpert ao cliente ou fazer um dowload do FDB e atualizar no escritorio e depois enviar para o mesmo Existe uma forma mais simples de fazer isso? Faça algo no seu sistema que seja capaz de ler um script SQL e rodá-lo no seu banco... Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED]
Re: [delphi-br] Cat-52 no braço - independente de fa bricante
O ACBr já está pronto para gerar o arquivo para a CAT 52. Mais informações vc pode obter em: http://www.forumweb.com.br/foruns/index.php?showtopic=65522 André F. Moraes - Original Message - From: Ricardo César Cardoso [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, February 01, 2008 10:20 AM Subject: Re: [delphi-br] Cat-52 no braço - independente de fabricante Bom dia! O pessoal a ACBr não tem nada nesse sentido? Na pior das hipóteses, vc pode gerar a partir da sua análise/interpretação do que ler na legislação e gerar os registros. Atte, Ricardo. williamrocha [EMAIL PROTECTED] escreveu: Ola Pessoal, Alguem sabe se existe algum projeto aberto p/ ajudar a criar o arquivo da Cat-52? Uma DLL ou coisa do tipo? Estou pensando seriamente em fazer eu mesmo de forma a criar um processo padronizado de geracao desses arquivos e nao ficar na de- pendencia de cada fabricante de ECF. Obrigado a todos William Rocha __ - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
[delphi-br] Problema ao encerrar a aplicação
Amigos, Tenho notado que minha aplicação está lenta quando encerro e às vezes quando encerro o formulário principal é fechado porém meu executável fica garrado e só consigo encerrá-lo finalizo seu processo no Windows. Todos os meus formulários da aplicação são encerrados apenas com o comando Close. Tenho que executar algum outro comando de encerramento? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Fellipe Henrique wrote: if IsPublishedProp(Components[i], 'FrameController') then SetPropValue(Components[I], 'FrameController', DM.RzFrameController1); tá dando o seguinte erro: Incompatible types: 'Variant' and 'TRzFrameController' Como transformo TRzFrameController pra variant? Use SetObjectProp e veja o fonte da unit TypInfo para entender melhor o espírito da coisa. -- Joao Morais
Re: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Olá amigos, preciso saber se um componente tem uma propriedade, que eu vou selecionar, e caso tenha passe um valor para ela. Porém tem de ser genérico Procure por RTTI (RunTime Type Information) Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED]
Re: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Pessoal, através da dica fiz o seguinte: if IsPublishedProp(Components[i], 'FrameController') then SetPropValue(Components[I], 'FrameController', DM.RzFrameController1); tá dando o seguinte erro: Incompatible types: 'Variant' and 'TRzFrameController' Como transformo TRzFrameController pra variant? OBrigado []s Em 01/02/08, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: Excelente dica, Evaldo! No entanto, falou mencionar que pra usar essa sua função, se faz necessário um uses da unit TypInfo. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] evaldoavelar%40yahoo.com.br Date: Fri, 1 Feb 2008 06:39:32 -0800 Subject: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Eu criei essa função ontem: procedure AlteraComponete(Form :TForm; propiedade : string; valor : variant); var i : integer; begin for I := 0 to Form.ComponentCount -1 do begin if IsPublishedProp(Form.Components[i], propiedade)then begin SetPropValue(Form.Components[I], propiedade,valor); end; end; end; pode usa-la assim AlteraComponete(FGerenciaUsuario,'ReadOnly',true); -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] evaldoavelar%40yahoo.com.br Belo Horizonte/MG Brazil - Mensagem original De: Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 10:26:24 Assunto: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Olá amigos, preciso saber se um componente tem uma propriedade, que eu vou selecionar, e caso tenha passe um valor para ela. Porém tem de ser genérico algo como: for i:=0 to ComponentsCount- 1 if Components[i] .PROPRIEDADE = True then Components[i] .PROPRIEDADE := OBJETO; Isso existe? Como eu faria? Obrigado desde já. -- _ _ ___ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] com [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Voce precisa fazer algo assim: procedure TMeuForm.Limpa_Dados; var i : Integer; begin for i:=0 to ComponentCount-1 do begin if Components[i] is TEdit then begin TEdit(Components[i]).Text:=''; end; if Components[i] is TDateEdit then begin TDateEdit(Components[i]).Clear; end; if Components[i] is TComboBox then begin TComboBox(Components[i]).Clear; end; end; end; Espero ter ajudado. [ ]´s Moacir Jackson Gomes - ToolsComps escreveu: Olá amigos, preciso saber se um componente tem uma propriedade, que eu vou selecionar, e caso tenha passe um valor para ela. Porém tem de ser genérico Procure por RTTI (RunTime Type Information) Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Dvidas com ataizações (Urge nte)
Vc já ouvir o termo Rodar script no cliente ?? Crie um script sql e rode no cliente! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Hudson Enviada em: sexta-feira, 1 de fevereiro de 2008 11:19 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Dvidas com ataizações (Urgente) Ola gente, Tenho uma duvida com relação ao DB do cliente... No mesmo tem 20.000 registros, tenho que acrecentar um outro campo na tabela, e acrecentar uma outra tabela na maquina cliente Bom para fazer tenho que instalar o IBExpert ao cliente ou fazer um dowload do FDB e atualizar no escritorio e depois enviar para o mesmo Existe uma forma mais simples de fazer isso? Grato Hudson. [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] Como saber se um componente tem uma propriedade, em runtime?
Voce precisa fazer algo assim: procedure TMeuForm.Limpa_Dados; var i : Integer; begin for i:=0 to ComponentCount-1 do begin if Components[i] is TEdit then begin TEdit(Components[i]).Text:=''; end; if Components[i] is TDateEdit then Desculpe, mas isso é coisa de quem adora trabalho braçal... Seja um programador preguiçoso e faça algo mais genérico... e como já disse, procure por RTTI e Delphi. http://everything2.com/index.pl?node_id=965707 http://blogoscoped.com/archive/2005-08-24-n14.html Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED]
Re: [delphi-br] Urgente - Tabelas com todos os sindicatos
Eu também não encontrei nada Marcus então eu estou procurando pelas siglas, acessando os sites e cadastrando na unha msmo. Valew ... Em 01/02/08, Marcus Vinicius Scarpelli [EMAIL PROTECTED] escreveu: Caro amigo Jorge, Este cadastro, nem mesmo o Ministério do Trabalho tem, infelizmente. Trabalho numa entidade sindical e há anos procuro algo do tipo. Só encontrei uma vez (cerca de 12 anos atrás) uma publicação impressa vinda do próprio ministério, mas já está desatualizada. Na Caixa Econômica Federal têm um cadastro devido às contribuições sindicais, mas não garante que a entidade está 100% legalizada com o Ministério do Trabalho. Grande abraço... Marcus Vinicius Scarpelli Informática FECESP - Original Message - From: Jorge Ericsson Sent: Thursday, January 31, 2008 7:25 PM Subject: [delphi-br] Urgente - Tabelas com todos os sindicatos Pessoal, alguém possui ou indicaria um lugar onde posso encontrar o cadastros de todos os sindicatos ? Problema: Eu estou desenvolvendo em meu sistema uma rotina de folha de pagamento e tem uma tabela de sindicatos então eu gostaria de popular essa tabela para facilitar a associação do funcionário ao sindicatos de sua área. Grato. -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abrir formulário dentro de outro
uhu valeu, era isso mesmo que eu estava precisando. muito grato. Jackson Gomes - ToolsComps escreveu: É isso que estou precisando. Mas não funcionou, não apareceu nada dentro de panel. Será que falta algum detalhe que esta escapando? Coloquei um exemplo na área de arquivos do grupo. http://br.groups.yahoo.com/group/delphi-br/files/Exemplos/ http://br.groups.yahoo.com/group/delphi-br/files/Exemplos/ []'s Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] mailto:jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br http://www.devhost.com.br [EMAIL PROTECTED] mailto:devhost%40devhost.com.br -- Éderson Cassiano Bologna [EMAIL PROTECTED] sKYPE: edersoncassiano MSN: [EMAIL PROTECTED] www.microtechshop.com
Re: [delphi-br] Sobre o MyDAC
Se eu vender o meu sistema criado com Delphi e com os componentes do MyDAC nesse período de 60 dias eu terei q pagar por ele ou eu só preciso comprar o MyDAC se eu continuar usando-o em minha empresa para desenvolvimento junto ao Delphi? Justamente nesse caso vc teria que comprá-lo. Se não usar a versão registrada, seu sistema vai parar de funcionar no cliente. []'s Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED]
Re: [delphi-br] Sobre o MyDAC
Você não pode vender seus sistemas usando uma versão trial do MyDAC. quando vc compra uma licença do MyDAC ai sim, você pode usar no seu Delphi e vender quantos sistemas puder. Em 01/02/08, Bruno - CPD [EMAIL PROTECTED] escreveu: Bom dia pessoal! Eu baixei o MyDAC no site do fabricante e tenho 60 dias para usa-lo como teste! Após esse período eu terei q registra-lo, ou seja, comprar uma licença para uso do mesmo! Se eu vender o meu sistema criado com Delphi e com os componentes do MyDAC nesse período de 60 dias eu terei q pagar por ele ou eu só preciso comprar o MyDAC se eu continuar usando-o em minha empresa para desenvolvimento junto ao Delphi? Obrigado pela atenção de todos! [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sobre o MyDAC
Bruno - CPD wrote: Eu baixei o MyDAC no site do fabricante e tenho 60 dias para usa-lo como teste! Após esse período eu terei q registra-lo, ou seja, comprar uma licença para uso do mesmo! Se eu vender o meu sistema criado com Delphi e com os componentes do MyDAC nesse período de 60 dias eu terei q pagar por ele ou eu só preciso comprar o MyDAC se eu continuar usando-o em minha empresa para desenvolvimento junto ao Delphi? Informe-se na licença de uso, muito provavelmente você não poderá vender seu sistema sem antes pagar pelo componente, mesmo que seja dentro do período de testes. -- Joao Morais
Re: [delphi-br] O q fazer com uma query que demora 15m p/ processar????
Select Seccao.SecNum, Seccao.SecResu, Seccao.SecExtensao, Sum(GuiaAgeSeccao.Receita) as TotRec, Count(Seccao.SecNum) as TotPsg from GuiaAgeSeccao, Seccao, GuiaAgencia where GuiaAgencia.GuiNum = GuiaAgeSeccao.GuiNum and GuiaAgeSeccao.LinCod = Seccao.LinCod and GuiaAgeSeccao.SecNum = Seccao.SecNum and Seccao.LinCod=:Lin and Seccao.SecNum :SecCanc and Seccao.DataAumento=:Data and GuiaAgencia.GuiData =:dini and GuiaAgencia.GuiData =:dfim group by Seccao.SecNum, Seccao.SecResu, Seccao.SecExtensao Use Joins e veja se há indices nesses campos que vc está fazendo os filtros... Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED]
[delphi-br] Re: Cat-52 no braço - independente de fabricante
Ola Ricardo, O ACBr tem um componente + pelo q entendi ele eh vinculado ao ACBrECF e eu nao uso o ACBr. A ideia eh realmente gerar a partir da analise/interpretacao da legis- lacao... o q queria era alguma estrutura já feita p/ ajudar na confeccao dos arquivos. Claro q eu poderia fazer do meu jeito aqui, mas se jah tem algo feito e que tem gente usando, prefiro esse por jah ter um padrao e ter mais gente envolvida e ter c/ quem tratar do assunto de forma mais objetiva. Obrigado pela atencao William Rocha
Res: [delphi-br] O q fazer com uma query que demora 15m p/ processar????
Obrigado Jackson. Farei isto. - Mensagem original De: Jackson Gomes - ToolsComps [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 11:26:08 Assunto: Re: [delphi-br] O q fazer com uma query que demora 15m p/ processar Select Seccao.SecNum, Seccao.SecResu, Seccao.SecExtensao, Sum(GuiaAgeSeccao. Receita) as TotRec, Count(Seccao. SecNum) as TotPsg from GuiaAgeSeccao, Seccao, GuiaAgencia where GuiaAgencia. GuiNum = GuiaAgeSeccao. GuiNum and GuiaAgeSeccao. LinCod = Seccao.LinCod and GuiaAgeSeccao. SecNum = Seccao.SecNum and Seccao.LinCod= :Lin and Seccao.SecNum :SecCanc and Seccao.DataAumento= :Data and GuiaAgencia. GuiData =:dini and GuiaAgencia. GuiData =:dfim group by Seccao.SecNum, Seccao.SecResu, Seccao.SecExtensao Use Joins e veja se há indices nesses campos que vc está fazendo os filtros... Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsand comps.com Nosso Fórum: http://groups. yahoo.com/ group/toolsandco mps e-mail: [EMAIL PROTECTED] ps.com Fone: 27 3389 1138 - 8811 0324 - - - - - - Devhost - Webhost para desenvolvedores Borland http://www.devhost. com.br [EMAIL PROTECTED] com.br Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DbExpress SqlQuery...
Boa Tarde !!! Porque que este SqlQuery não funciona no DbExpress ? Select I.*,T.Desconto as DescPrecoPos,P.Grupo,P.Icms as IcmsProd, P.PrcItem, (Select Top 1 Valor From PrecoPos Where Precopos.TipoPos=:TipoPos and PrecoPos.Produto=I.Calitem) as Xdesconto From Pedite I Left Join Produtos P On P.Codigo=I.Calitem Left Join PrecoPos T On T.TipoPos=I.TipoPos and T.Produto=I.Calitem Where I.Nrodoc=:Nrodoc Vou passar como parametro o NRODOC e TIPOPOS Alguma Opinião Doretto. [As partes desta mensagem que não continham texto foram removidas]
RE: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Excelente dica, Evaldo! No entanto, falou mencionar que pra usar essa sua função, se faz necessário um uses da unit TypInfo. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 1 Feb 2008 06:39:32 -0800 Subject: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Eu criei essa função ontem: procedure AlteraComponete(Form :TForm; propiedade : string; valor : variant); var i : integer; begin for I := 0 to Form.ComponentCount -1 do begin if IsPublishedProp(Form.Components[i], propiedade)then begin SetPropValue(Form.Components[I], propiedade,valor); end; end; end; pode usa-la assim AlteraComponete(FGerenciaUsuario,'ReadOnly',true); -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Fellipe Henrique [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 10:26:24 Assunto: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Olá amigos, preciso saber se um componente tem uma propriedade, que eu vou selecionar, e caso tenha passe um valor para ela. Porém tem de ser genérico algo como: for i:=0 to ComponentsCount- 1 if Components[i] .PROPRIEDADE = True then Components[i] .PROPRIEDADE := OBJETO; Isso existe? Como eu faria? Obrigado desde já. -- _ _ ___ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] com [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true
Res: [delphi-br] AutoCad no delphi
Pesquisa rápida no Google: autocad+delphi http://baixaki.ig.com.br/categorias.asp?cat=89order=nome http://www.freedownloadscenter.com/Best/delphi-cad-free.html http://www.cadsofttools.com/en/products/cad_import_vcl.html entre outros que não olhei. como já dizia o velho ditado muito citado por aqui: Quem procura acha !! - Mensagem original De: Consultores Software [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 12:43:09 Assunto: [delphi-br] AutoCad no delphi Boa tarde pessoal ! Alguem conhece um componente / plugin / rotina para visualizar arquivos do AutoCad no delphi ? Obrigado, desde já [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq{margin:4;} -- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Já tinha tentado isso, e não deu certo! :o( []s Em 01/02/08, Evaldo [EMAIL PROTECTED] escreveu: Já passei por esse erro mas foi com o tipo Double e resolvi como abaixo: It's of type Double, but a Variant is expected. That should be no problem, but the compiler needs to have the Variants unit added to the uses clause. - Add the Variants unit to the uses clause of the implementation section of unit - Press Shift+F2 to Save All files in the project, and then press Shift+F9 to rebuild the project. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] evaldoavelar%40yahoo.com.br Belo Horizonte/MG Brazil - Mensagem original De: Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 13:13:19 Assunto: Re: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Pessoal, através da dica fiz o seguinte: if IsPublishedProp( Components[ i], 'FrameController' ) then SetPropValue( Components[ I], 'FrameController' , DM.RzFrameControlle r1); tá dando o seguinte erro: Incompatible types: 'Variant' and 'TRzFrameController ' Como transformo TRzFrameController pra variant? OBrigado Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
opa Joao, funcionou... obrigado []s Em 01/02/08, Joao Morais [EMAIL PROTECTED] escreveu: Fellipe Henrique wrote: if IsPublishedProp(Components[i], 'FrameController') then SetPropValue(Components[I], 'FrameController', DM.RzFrameController1); tá dando o seguinte erro: Incompatible types: 'Variant' and 'TRzFrameController' Como transformo TRzFrameController pra variant? Use SetObjectProp e veja o fonte da unit TypInfo para entender melhor o espírito da coisa. -- Joao Morais -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
RE: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Conforme explicação extraída e devidamente traduzida do help do Delphi: Variants represent values whose type is not determined at compile time. Instead, the type of their value can change at runtime. Variants can mix with other variants and with integer, real, string, and boolean values in expressions and assignments; the compiler automatically performs type conversions. By default, variants can't hold values that are records, sets, static arrays, files, classes, class references, or pointers. You can, however, extend the Variant type to work with any particular example of these types. Tudo que você precisa é criar um descendente da clase TCustomVariantType que indique como o tupo Variant executará as operações padrão nessa condições. Ou seja, por default não existe conversão de Variant para verificar instâncias de objetos, mas existe uma maneira de resolver essa pinimba sem precisar criar uma classe derivada de TCustomVariantType, se vc ñ tratar o parâmetro do valor como um Variant. O que vc pode fazer é uma modificação na rotina AlteraComponente (e não AlteraComponete) que avalie parâmetros sem tipo e checar o tipo desse parâmetro com o tipo de registro TVarRec da seguinte maneira: procedure AlteraComponente(Form: TForm; Propriedade: string; const Valor) var i: integer; begin for i := 0 to Form.ComponentCount - 1 do if IsPublishedProp(Form.Components[i], Propriedade) then if TVarRec(Valor).VarType = vtObject then Form.Components[i].Assign(TComponent(TVarRec(Valor).vtObject) else SetPropValue(Form.Components[i], Propriedade, TVarRec(TVarRec(Valor).VVariant^)); end; Veja se isso funciona e depois poste seus comentários na lista! P.S.: Eu acho que o certo é propriedade, e não propiedade! Sds. procedure AlteraComponete(Form :TForm; propiedade : string; valor : variant); var i : integer; begin for I := 0 to Form.ComponentCount -1 do begin if IsPublishedProp(Form.Components[i], propiedade)then begin SetPropValue(Form.Components[I], propiedade,valor); end; end; end; To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 1 Feb 2008 13:13:19 -0200 Subject: Re: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Pessoal, através da dica fiz o seguinte: if IsPublishedProp(Components[i], 'FrameController') then SetPropValue(Components[I], 'FrameController', DM.RzFrameController1); tá dando o seguinte erro: Incompatible types: 'Variant' and 'TRzFrameController' Como transformo TRzFrameController pra variant? OBrigado []s Em 01/02/08, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: Excelente dica, Evaldo! No entanto, falou mencionar que pra usar essa sua função, se faz necessário um uses da unit TypInfo. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 1 Feb 2008 06:39:32 -0800 Subject: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Eu criei essa função ontem: procedure AlteraComponete(Form :TForm; propiedade : string; valor : variant); var i : integer; begin for I := 0 to Form.ComponentCount -1 do begin if IsPublishedProp(Form.Components[i], propiedade)then begin SetPropValue(Form.Components[I], propiedade,valor); end; end; end; pode usa-la assim AlteraComponete(FGerenciaUsuario,'ReadOnly',true); -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Fellipe Henrique [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 10:26:24 Assunto: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Olá amigos, preciso saber se um componente tem uma propriedade, que eu vou selecionar, e caso tenha passe um valor para ela. Porém tem de ser genérico algo como: for i:=0 to ComponentsCount- 1 if Components[i] .PROPRIEDADE = True then Components[i] .PROPRIEDADE := OBJETO; Isso existe? Como eu faria? Obrigado desde já. -- _ _ ___ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] com [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Já passei por esse erro mas foi com o tipo Double e resolvi como abaixo: It's of type Double, but a Variant is expected. That should be no problem, but the compiler needs to have the Variants unit added to the uses clause. - Add the Variants unit to the uses clause of the implementation section of unit - Press Shift+F2 to Save All files in the project, and then press Shift+F9 to rebuild the project. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Fellipe Henrique [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 13:13:19 Assunto: Re: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Pessoal, através da dica fiz o seguinte: if IsPublishedProp( Components[ i], 'FrameController' ) then SetPropValue( Components[ I], 'FrameController' , DM.RzFrameControlle r1); tá dando o seguinte erro: Incompatible types: 'Variant' and 'TRzFrameController ' Como transformo TRzFrameController pra variant? OBrigado Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] AutoCad no delphi
Boa tarde pessoal ! Alguem conhece um componente / plugin / rotina para visualizar arquivos do AutoCad no delphi ? Obrigado, desde já [As partes desta mensagem que não continham texto foram removidas]
RE: Res: [delphi-br] AutoCad no delphi
Pois é, André! O ruim é quando a preguiça não faz valer esse ditado! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 1 Feb 2008 08:18:09 -0800 Subject: Res: [delphi-br] AutoCad no delphi Pesquisa rápida no Google: autocad+delphi http://baixaki.ig.com.br/categorias.asp?cat=89order=nome http://www.freedownloadscenter.com/Best/delphi-cad-free.html http://www.cadsofttools.com/en/products/cad_import_vcl.html entre outros que não olhei. como já dizia o velho ditado muito citado por aqui: Quem procura acha !! - Mensagem original De: Consultores Software [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 12:43:09 Assunto: [delphi-br] AutoCad no delphi Boa tarde pessoal ! Alguem conhece um componente / plugin / rotina para visualizar arquivos do AutoCad no delphi ? Obrigado, desde já [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
[delphi-br] Aplicação não assume parâmetros
Boa tarde. Tenho uma aplicação onde gravo os parâmetros de idioma e unidade de medida para serem recuperados na próxima execução do programa Hoje o processo é feito usando arquivos INI e as seguintes rotinas: * Ao criar o formulário da aplicação: {...} Var INI : TINIFile; Begin // Prepara o arquivo de configurações iniciais INI := TINIFile.Create(GetCurrentDir + '\PowerCalcXPLite.ini'); // Carrega as configurações iniciais de unidades de medida e idioma Unidade := INI.ReadString('UNITS','Using', 'mm'); Idioma := INI.ReadString('LANGUAGE', 'Using', 'PT'); // Libera o arquivo de inicialização INI.Free; End; {...} E ao finalizar: {...} Var INI : TINIFile; INIFileName : String; Begin INIFileName := Copy(ExtractFileName(Application.ExeName), 1, Length(ExtractFileName(Application.ExeName)) - Length(ExtractFileExt(Application.ExeName))); INIFileName := ExtractFilePath(Application.Exename) + INIFileName + '.ini'; INI := TINIFile.Create(INIFileName); // Carrega as configurações iniciais de unidades de medida e idioma INI.WriteString('UNITS','Using', Unidade); INI.WriteString('LANGUAGE', 'Using', Idioma); // Libera o arquivo de inicialização INI.Free; End; {...} Porém, sempre que monto um setup para este aplicativo, que coloca todos os arquivos necessários na pasta Arquivos de Programas (no Windows XP) não consigo mudar os parâmetros ou seja a aplicação não guarda os parâmetros configurados, carregando apenas os parâmetros padrão. Como poderia contornar isso sem gravar informações no registro? Usando um XML no lugar do INI, consigo resolver o problema? Atenciosamente, Ricardo. - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
RE: Res: [delphi-br] AutoCad no delphi
Outra boa sugestão conseguida com alguns segundos de pesquisa no AltaVista: http://www.codeidea.com/html/tcad.htm Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 1 Feb 2008 16:21:21 + Subject: RE: Res: [delphi-br] AutoCad no delphi Pois é, André! O ruim é quando a preguiça não faz valer esse ditado! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 1 Feb 2008 08:18:09 -0800 Subject: Res: [delphi-br] AutoCad no delphi Pesquisa rápida no Google: autocad+delphi http://baixaki.ig.com.br/categorias.asp?cat=89order=nome http://www.freedownloadscenter.com/Best/delphi-cad-free.html http://www.cadsofttools.com/en/products/cad_import_vcl.html entre outros que não olhei. como já dizia o velho ditado muito citado por aqui: Quem procura acha !! - Mensagem original De: Consultores Software [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 12:43:09 Assunto: [delphi-br] AutoCad no delphi Boa tarde pessoal ! Alguem conhece um componente / plugin / rotina para visualizar arquivos do AutoCad no delphi ? Obrigado, desde já [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
[delphi-br] Re: NF-e Assinatura digital
Estou com o mesmo problema. E Tenho 20 dias para fazer isso. Por favor se alguem tem alguma luz seria de muita utilidade. Tem o Componemte LockBox 2. Mas ta dificil achar bons materiais dele. O Help até que ajuda, mas é fraco. --- Em delphi-br@yahoogrupos.com.br, xregis [EMAIL PROTECTED] escreveu Alguém já conseguiu fazer a assinatura digital da nota fiscal eletrônica? Eu até consegui, mas usando C# dotNet, mas fico dependendo da distribuição do framework dotNet. Neste site tem exemplos de como montar no dotNet: http://msdn2.microsoft.com/en-us/library/ms229745(vs.80).aspx Se alguém souber de algum componente ou o código para montar no Delphi, seria de grande utilidade. Valeu!
RE: Res: [delphi-br] AutoCad no delphi
Mais dois links interessantes: [ http://www.caddzone.com/delphi/samples.htm ] e [ http://www.delphi3000.com/articles/article_1850.asp?SK= ] Atte, Ricardo. Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: Pois é, André! O ruim é quando a preguiça não faz valer esse ditado! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 1 Feb 2008 08:18:09 -0800 Subject: Res: [delphi-br] AutoCad no delphi Pesquisa rápida no Google: autocad+delphi http://baixaki.ig.com.br/categorias.asp?cat=89order=nome http://www.freedownloadscenter.com/Best/delphi-cad-free.html http://www.cadsofttools.com/en/products/cad_import_vcl.html entre outros que não olhei. como já dizia o velho ditado muito citado por aqui: Quem procura acha !! - Mensagem original De: Consultores Software [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 12:43:09 Assunto: [delphi-br] AutoCad no delphi Boa tarde pessoal ! Alguem conhece um componente / plugin / rotina para visualizar arquivos do AutoCad no delphi ? Obrigado, desde já [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br _ - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Re: NF-e Assinatura digital
O LockBox num tem exemplos/demos junto com naum? Se tiver, olha esses demos e fica olhando o help do componente pra poder elucidar tuas dúvidas! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 1 Feb 2008 16:47:41 + Subject: [delphi-br] Re: NF-e Assinatura digital Estou com o mesmo problema. E Tenho 20 dias para fazer isso. Por favor se alguem tem alguma luz seria de muita utilidade. Tem o Componemte LockBox 2. Mas ta dificil achar bons materiais dele. O Help até que ajuda, mas é fraco. --- Em delphi-br@yahoogrupos.com.br, xregis escreveu Alguém já conseguiu fazer a assinatura digital da nota fiscal eletrônica? Eu até consegui, mas usando C# dotNet, mas fico dependendo da distribuição do framework dotNet. Neste site tem exemplos de como montar no dotNet: http://msdn2.microsoft.com/en-us/library/ms229745(vs.80).aspx Se alguém souber de algum componente ou o código para montar no Delphi, seria de grande utilidade. Valeu! _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
[delphi-br] Vazamento de memória
Olá. Eu tenho no sistema um formulário MDI e os outros formulários são criados como filhos. Após fechar cada filho eu uso o caFree. Eu tenho o FastMM instalado e ele não mostra nenhum vazamento de memória. Mas se eu acompanhar o uso de memória pelo gerenciador de tarefas cada vez que eu abro um formulário e fecho ele o sistema usa uns 2 megas a mais que antes. Alguém pode me ajudar com este problema. Obrigado. -- Leodinei Bielak http://leodinei.blogspot.com/ The whole point of getting things done is knowing what to leave undone.
Re: [delphi-br] Vazamento de memória
Leodinei Bielak wrote: Olá. Eu tenho no sistema um formulário MDI e os outros formulários são criados como filhos. Após fechar cada filho eu uso o caFree. Eu tenho o FastMM instalado e ele não mostra nenhum vazamento de memória. Mas se eu acompanhar o uso de memória pelo gerenciador de tarefas cada vez que eu abro um formulário e fecho ele o sistema usa uns 2 megas a mais que antes. Alguém pode me ajudar com este problema. Se o FastMM não detecta vazamento, então não há com o que se preocupar. O que acontece é que o gerenciador de memória não entrega toda a memória desalocada de volta para o SO. Requisição de memória é um processo caro e o gerenciador procura minimizar o uso. -- Joao Morais
Re: [delphi-br] DbExpress SqlQuery...
Qual banco de dados está usando? Firebird por exemplo não permite SubSelect na Select, só em Where. Adriano Santos - Editor Técnico Revista ClubeDelphi www.delphitodelphi.blogspot.com www.devmedia.com.br www.devmedia.com.br/clubedelphi/pagina.asp Doretto respondeu: Boa Tarde !!! Porque que este SqlQuery não funciona no DbExpress ? Select I.*,T.Desconto as DescPrecoPos,P.Grupo,P.Icms as IcmsProd, P.PrcItem, (Select Top 1 Valor From PrecoPos Where Precopos.TipoPos=:TipoPos and PrecoPos.Produto=I.Calitem) as Xdesconto From Pedite I Left Join Produtos P On P.Codigo=I.Calitem Left Join PrecoPos T On T.TipoPos=I.TipoPos and T.Produto=I.Calitem Where I.Nrodoc=:Nrodoc Vou passar como parametro o NRODOC e TIPOPOS Alguma Opinião Doretto. [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.19.16/1251 - Release Date: 30/01/2008 09:29
RES: [delphi-br] Vazamento de me mória
Qual versão do Delphi? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Leodinei Bielak Enviada em: sexta-feira, 1 de fevereiro de 2008 15:33 Para: delphi-br Assunto: [delphi-br] Vazamento de memória Olá. Eu tenho no sistema um formulário MDI e os outros formulários são criados como filhos. Após fechar cada filho eu uso o caFree. Eu tenho o FastMM instalado e ele não mostra nenhum vazamento de memória. Mas se eu acompanhar o uso de memória pelo gerenciador de tarefas cada vez que eu abro um formulário e fecho ele o sistema usa uns 2 megas a mais que antes. Alguém pode me ajudar com este problema. Obrigado. -- Leodinei Bielak http://leodinei.blogspot.com/ The whole point of getting things done is knowing what to leave undone. [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] AutoCad no delphi
Eu perguntei se alguem já CONHECE alguma ferramenta de acesso delphi - AutoCad para indicar. Se quisesse fazer apenas uma pesquisa no Google ou outro engine, não teria perguntado na lista. Ainda assim, agradeço as indicações. Em 01/02/08, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: Outra boa sugestão conseguida com alguns segundos de pesquisa no AltaVista: http://www.codeidea.com/html/tcad.htm Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] djpardalrocha%40hotmail.com Date: Fri, 1 Feb 2008 16:21:21 + Subject: RE: Res: [delphi-br] AutoCad no delphi Pois é, André! O ruim é quando a preguiça não faz valer esse ditado! Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] gyncowboy%40yahoo.com.br Date: Fri, 1 Feb 2008 08:18:09 -0800 Subject: Res: [delphi-br] AutoCad no delphi Pesquisa rápida no Google: autocad+delphi http://baixaki.ig.com.br/categorias.asp?cat=89order=nome http://www.freedownloadscenter.com/Best/delphi-cad-free.html http://www.cadsofttools.com/en/products/cad_import_vcl.html entre outros que não olhei. como já dizia o velho ditado muito citado por aqui: Quem procura acha !! - Mensagem original De: Consultores Software [EMAIL PROTECTED]consultoressoftware%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 12:43:09 Assunto: [delphi-br] AutoCad no delphi Boa tarde pessoal ! Alguem conhece um componente / plugin / rotina para visualizar arquivos do AutoCad no delphi ? Obrigado, desde já [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: NF-e Assinatura digital
Gabriel Herdt wrote: Estou com o mesmo problema. E Tenho 20 dias para fazer isso. Por favor se alguem tem alguma luz seria de muita utilidade. Tem o Componemte LockBox 2. Mas ta dificil achar bons materiais dele. O Help até que ajuda, mas é fraco. O LockBox possui documentação separada (vide SourceForge), um pdf com quase 200 páginas. Fora isto, você pode conseguir ajuda melhor em listas específicas sobre o assunto, tal qual a automacao-total aqui no Yahoo. -- Joao Morais
Re: [delphi-br] Conectar banco de dados MySql em outro computador
É verdade desculpa o equivoco hehehhehehe The Best Master Of Universe... kk Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP HARBOUR Borland C++ 5.5.1 (32 bit) Harbour Devel build 1.1-1 Intl. Harbour MiniGUI 1.4 Extended Edition (Build 47) - 2007.12.21 - From: Eduardo Silva dos Santos Sent: Thursday, January 31, 2008 5:08 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Conectar banco de dados MySql em outro computador Bom? que bom que nada, MyDAC é o melhor,,, agora eles tão lançando o UniDac, acesso nativo ao MySQL/SQLServer/InterBase/FireBird/Oracle, tudo em um componente só.. semelhante ao Zeos e DBExpress só que desfrutando de todas as particularidades de cada banco. Em 31/01/08, [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu: Falei q MyDAC era bom.. rsrsrs Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP HARBOUR -- Borland C++ 5.5.1 (32 bit) Harbour Devel build 1.1-1 Intl. Harbour MiniGUI 1.4 Extended Edition (Build 47) - 2007.12.21 -- From: Bruno Sent: Wednesday, January 30, 2008 11:39 PM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Conectar banco de dados MySql em outro computador Obrigado Francisco, mas já consegui fazer a conexão usando MyDAC. Muito obrigado! - Original Message - From: Francisco Carlos de Andrade To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, January 30, 2008 7:50 PM Subject: Re: [delphi-br] Conectar banco de dados MySql em outro computador eu uso o zeos com delphi7 e mysql em servidor linux e a unica coisa q tive q fazer foi criar o usuario com acesso ao banco de dados, explique melhor o q esta acontecendo e o que vc ja fez - Original Message - From: brunolbrasil To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, January 30, 2008 3:46 PM Subject: [delphi-br] Conectar banco de dados MySql em outro computador Por favor pessoal... já estou ficando doido! rsrs Tenho o banco de dados instalado no servidor e preciso acessar o mesmo apartir de meu computador, mas não sei qual componente usar e tb não sei se preciso fazer alguma configuração no servidor de banco de dados para que ele aceite essa conexão! Estou com os componente Zeos, MyDac, ... Consigo conectar com eles? Muito obrigado! [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] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] DbExpress SqlQuery...
Corrigindo nosso caro amigo Adriano Santos, o firebird permite sim subselects em selects, ao contrário do que ele disse, uso em meus sistemas sem problemas. Agora se puder passar o problema que ocorre já facilitaria a ajuda. André Luis da Silveira Siagri Sistemas de Gestão Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sobre o MyDAC
~Precisa não precisa, pq ele não vai rodar fora do seu sistema mesmo... Se rodar, com certeza vai ter alguma limitação muito desagradavel ao seu cliente, só não lembro qual Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP HARBOUR Borland C++ 5.5.1 (32 bit) Harbour Devel build 1.1-1 Intl. Harbour MiniGUI 1.4 Extended Edition (Build 47) - 2007.12.21 - From: Bruno - CPD Sent: Friday, February 01, 2008 7:51 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Sobre o MyDAC Bom dia pessoal! Eu baixei o MyDAC no site do fabricante e tenho 60 dias para usa-lo como teste! Após esse período eu terei q registra-lo, ou seja, comprar uma licença para uso do mesmo! Se eu vender o meu sistema criado com Delphi e com os componentes do MyDAC nesse período de 60 dias eu terei q pagar por ele ou eu só preciso comprar o MyDAC se eu continuar usando-o em minha empresa para desenvolvimento junto ao Delphi? Obrigado pela atenção de todos! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Dvidas com ataizações (Urgente)
Cara, criei um programa pra fazer isso pra mim. Entre em contato comigo em PVT que te passo os esquemas. Adriano Santos - Editor Técnico Revista ClubeDelphi www.delphitodelphi.blogspot.com www.devmedia.com.br www.devmedia.com.br/clubedelphi/pagina.asp Davi Eduardo Borges Wall respondeu: Vc já ouvir o termo Rodar script no cliente ?? Crie um script sql e rode no cliente! De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Hudson Enviada em: sexta-feira, 1 de fevereiro de 2008 11:19 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Dvidas com ataizações (Urgente) Ola gente, Tenho uma duvida com relação ao DB do cliente... No mesmo tem 20.000 registros, tenho que acrecentar um outro campo na tabela, e acrecentar uma outra tabela na maquina cliente Bom para fazer tenho que instalar o IBExpert ao cliente ou fazer um dowload do FDB e atualizar no escritorio e depois enviar para o mesmo Existe uma forma mais simples de fazer isso? Grato Hudson. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.19.16/1251 - Release Date: 30/01/2008 09:29
[delphi-br] DbExpress SqlQuery
Boa tarde Como eu faço esta consulta ? Edit2.Text:='PAULO' Qcli.Close; Qcli.Sql[2]:='Where Nome Like '+Edit2.Text+'%'; Qcli.Open; Esta dando erro Doretto. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DbExpress SqlQuery...
MSSQL2000 Doretto. - Original Message - From: Adriano Santos (Yahoo) To: delphi-br@yahoogrupos.com.br Sent: Friday, February 01, 2008 4:16 PM Subject: Re: [delphi-br] DbExpress SqlQuery... Qual banco de dados está usando? Firebird por exemplo não permite SubSelect na Select, só em Where. Adriano Santos -- Editor Técnico Revista ClubeDelphi www.delphitodelphi.blogspot.com www.devmedia.com.br www.devmedia.com.br/clubedelphi/pagina.asp Doretto respondeu: Boa Tarde !!! Porque que este SqlQuery não funciona no DbExpress ? Select I.*,T.Desconto as DescPrecoPos,P.Grupo,P.Icms as IcmsProd, P.PrcItem, (Select Top 1 Valor From PrecoPos Where Precopos.TipoPos=:TipoPos and PrecoPos.Produto=I.Calitem) as Xdesconto From Pedite I Left Join Produtos P On P.Codigo=I.Calitem Left Join PrecoPos T On T.TipoPos=I.TipoPos and T.Produto=I.Calitem Where I.Nrodoc=:Nrodoc Vou passar como parametro o NRODOC e TIPOPOS Alguma Opinião Doretto. [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.19.16/1251 - Release Date: 30/01/2008 09:29 __ Informação do NOD32 IMON 2843 (20080201) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Aplicação não assume par âmetros [RESOLVIDO]
Assunto resolvido... Não vou usar nem arquivo INI, nem XML. Irei usar um arquivo de texto mesmo, mas com o conteúdo encriptado. Grato pela atenção, Ricardo. Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Boa tarde. Tenho uma aplicação onde gravo os parâmetros de idioma e unidade de medida para serem recuperados na próxima execução do programa Hoje o processo é feito usando arquivos INI e as seguintes rotinas: * Ao criar o formulário da aplicação: {...} Var INI : TINIFile; Begin // Prepara o arquivo de configurações iniciais INI := TINIFile.Create(GetCurrentDir + '\PowerCalcXPLite.ini'); // Carrega as configurações iniciais de unidades de medida e idioma Unidade := INI.ReadString('UNITS','Using', 'mm'); Idioma := INI.ReadString('LANGUAGE', 'Using', 'PT'); // Libera o arquivo de inicialização INI.Free; End; {...} E ao finalizar: {...} Var INI : TINIFile; INIFileName : String; Begin INIFileName := Copy(ExtractFileName(Application.ExeName), 1, Length(ExtractFileName(Application.ExeName)) - Length(ExtractFileExt(Application.ExeName))); INIFileName := ExtractFilePath(Application.Exename) + INIFileName + '.ini'; INI := TINIFile.Create(INIFileName); // Carrega as configurações iniciais de unidades de medida e idioma INI.WriteString('UNITS','Using', Unidade); INI.WriteString('LANGUAGE', 'Using', Idioma); // Libera o arquivo de inicialização INI.Free; End; {...} Porém, sempre que monto um setup para este aplicativo, que coloca todos os arquivos necessários na pasta Arquivos de Programas (no Windows XP) não consigo mudar os parâmetros ou seja a aplicação não guarda os parâmetros configurados, carregando apenas os parâmetros padrão. Como poderia contornar isso sem gravar informações no registro? Usando um XML no lugar do INI, consigo resolver o problema? Atenciosamente, Ricardo. - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] __ - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: NF-e Assinatura digital
Amigo, consultar o .pdf e o help eu já fiz. Antes de postar aqui. Minha dificuldade é abrir meu certificado digital e apartir dele gerar minha assinatura no meu arquivo escolhido. --- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu O LockBox num tem exemplos/demos junto com naum? Se tiver, olha esses demos e fica olhando o help do componente pra poder elucidar tuas dúvidas! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 1 Feb 2008 16:47:41 + Subject: [delphi-br] Re: NF-e Assinatura digital Estou com o mesmo problema. E Tenho 20 dias para fazer isso. Por favor se alguem tem alguma luz seria de muita utilidade. Tem o Componemte LockBox 2. Mas ta dificil achar bons materiais dele. O Help até que ajuda, mas é fraco. --- Em delphi-br@yahoogrupos.com.br, xregis escreveu Alguém já conseguiu fazer a assinatura digital da nota fiscal eletrônica? Eu até consegui, mas usando C# dotNet, mas fico dependendo da distribuição do framework dotNet. Neste site tem exemplos de como montar no dotNet: http://msdn2.microsoft.com/en-us/library/ms229745(vs.80).aspx Se alguém souber de algum componente ou o código para montar no Delphi, seria de grande utilidade. Valeu! _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
Res: [delphi-br] Cometarios dentro dos fontes
Particularmente uso comentário da seguinte forma: //Soma a e b e devolve o resultado function Soma(a, b: Integer): Integer; begin Result := a + b; end; //Soma fim. fica mais claro para sabe onde começa e termina o procedimento, uso muito isso em java. vlw Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Cometarios dentro dos fontes
Salve... Ano passado passei pelo mesmo processo criar uma documentação de boas praticas e padronização de codigo e nos baseamos nestes links http://dn.codegear.com/article/10280#1.0 http://www.delphi.eti.br/ver_artigo.php?id=123 espero ter ajudado Marcos Bernardo Em 01/02/08, Jhosef Marks [EMAIL PROTECTED] escreveu: Pessoal, aki onde trabalho estamos querendo refazer o sistema q existe hoje, pois foi muito mal desenvolvido, sem padronização, documentação e ateh falta de comentarios dentro do fonte... Discutimos que teriamos a documentação para o usuário (Help) e uma documentação tecnica para os desenvolvedores, criamos um arquivo de boas práticas e agora estamos discutindo critérios de comentários... E ai como vc's comentam seus códigos??? Comenta os blocos de códigos de acordo com a funcionalidade function Soma(a, b: Integer): Integer; begin Result := a + b; //Soma a e b e devolve o resultado end; ou apenas coloca uma espécie de cabeçario para cada função ou procedure que eh criado // Funcao: Soma // Parametros: a, b: Inteiro // Retorno: Inteiro // Descrição: Somar dois valores // Autor: Beltrano da Silva // Data: 01/02/2008 // Ultima atualização: - // Modificacoes: - function Soma(a, b: Integer): Integer; begin Result := a + b; end; -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [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] DbExpress SqlQuery...
O Query abaixo nao funciona Select I.*,T.Desconto as DescPrecoPos,P.Grupo,P.Icms as IcmsProd, P.PrcItem, (Select Top 1 Valor From PrecoPos Where Precopos.TipoPos=:TipoPos and PrecoPos.Produto=I.Calitem) as Xdesconto From Pedite I Left Join Produtos P On P.Codigo=I.Calitem Left Join PrecoPos T On T.TipoPos=I.TipoPos and T.Produto=I.Calitem Where I.Nrodoc=:Nrodoc Quanto eu executo o sistem e dou um close e um Open com o parametro NRODOC ele da o seguinte erro: The column prefix 'T' does not match with a table name or alias name used in the query. Doretto. - Original Message - From: Andre Luis Silveria To: delphi-br@yahoogrupos.com.br Sent: Friday, February 01, 2008 4:15 PM Subject: Res: [delphi-br] DbExpress SqlQuery... Corrigindo nosso caro amigo Adriano Santos, o firebird permite sim subselects em selects, ao contrário do que ele disse, uso em meus sistemas sem problemas. Agora se puder passar o problema que ocorre já facilitaria a ajuda. André Luis da Silveira Siagri Sistemas de Gestão Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informa磯 do NOD32 IMON 2843 (20080201) __ Esta mensagem foi verificada pelo NOD32 sistema antiv�s http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Cometarios dentro dos fontes
Pessoal, aki onde trabalho estamos querendo refazer o sistema q existe hoje, pois foi muito mal desenvolvido, sem padronização, documentação e ateh falta de comentarios dentro do fonte... Discutimos que teriamos a documentação para o usuário (Help) e uma documentação tecnica para os desenvolvedores, criamos um arquivo de boas práticas e agora estamos discutindo critérios de comentários... E ai como vc's comentam seus códigos??? Comenta os blocos de códigos de acordo com a funcionalidade function Soma(a, b: Integer): Integer; begin Result := a + b; //Soma a e b e devolve o resultado end; ou apenas coloca uma espécie de cabeçario para cada função ou procedure que eh criado // Funcao: Soma // Parametros: a, b: Inteiro // Retorno: Inteiro // Descrição: Somar dois valores // Autor: Beltrano da Silva // Data: 01/02/2008 // Ultima atualização: - // Modificacoes: - function Soma(a, b: Integer): Integer; begin Result := a + b; end; -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] QuickReport sem salto
Pessoal, Gostaria de saber como configurar o QuickReport para imprimir em bobina contínua, isto é, não deverá ter salto de página, e sim imprimir continuamente em impressora matricial.. sei que dá pra fazer com canvas, fora do quickrep, mas se alguém sabe como fazer no quickrep, me dá uma ajuda.. Grato. No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.19.16/1251 - Release Date: 30/01/08 09:29 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.19.16/1251 - Release Date: 30/01/08 09:29 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.19.17/1253 - Release Date: 31/01/08 09:09 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DbExpress SqlQuery...
Adriano Santos (Yahoo) wrote: Firebird por exemplo não permite SubSelect na Select Permite. -- Joao Morais
[delphi-br] NF-e comunicacao
Boa tarde amigos .. sobre a NF-e ... temos que implantar aqui na empresa .. alguem sabe me explicar como é feita a comunicacao com site do governo ?? qual componente do delphi devo usar ...?? Marcio.
Re: Res: [delphi-br] DbExpress SqlQuery...
Vlw Andre Luis, realmente...eu podia jurar que não dava pra fazer isso no FB. Estava conversando com meu colega de trabalho aqui e funciona mesmo. Vacilei. Vlw, abs Adriano Santos - Editor Técnico Revista ClubeDelphi www.delphitodelphi.blogspot.com www.devmedia.com.br www.devmedia.com.br/clubedelphi/pagina.asp Andre Luis Silveria respondeu: Corrigindo nosso caro amigo Adriano Santos, o firebird permite sim subselects em selects, ao contrário do que ele disse, uso em meus sistemas sem problemas. Agora se puder passar o problema que ocorre já facilitaria a ajuda. André Luis da Silveira Siagri Sistemas de Gestão Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.19.16/1251 - Release Date: 30/01/2008 09:29
Re: [delphi-br] Cometarios dentro dos fontes
Prefiro cabeçalho Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP HARBOUR Borland C++ 5.5.1 (32 bit) Harbour Devel build 1.1-1 Intl. Harbour MiniGUI 1.4 Extended Edition (Build 47) - 2007.12.21 - From: Jhosef Marks Sent: Friday, February 01, 2008 4:33 PM To: [EMAIL PROTECTED] Subject: [delphi-br] Cometarios dentro dos fontes Pessoal, aki onde trabalho estamos querendo refazer o sistema q existe hoje, pois foi muito mal desenvolvido, sem padronização, documentação e ateh falta de comentarios dentro do fonte... Discutimos que teriamos a documentação para o usuário (Help) e uma documentação tecnica para os desenvolvedores, criamos um arquivo de boas práticas e agora estamos discutindo critérios de comentários... E ai como vc's comentam seus códigos??? Comenta os blocos de códigos de acordo com a funcionalidade function Soma(a, b: Integer): Integer; begin Result := a + b; //Soma a e b e devolve o resultado end; ou apenas coloca uma espécie de cabeçario para cada função ou procedure que eh criado // Funcao: Soma // Parametros: a, b: Inteiro // Retorno: Inteiro // Descrição: Somar dois valores // Autor: Beltrano da Silva // Data: 01/02/2008 // Ultima atualização: - // Modificacoes: - function Soma(a, b: Integer): Integer; begin Result := a + b; end; -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [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] NF-e comunicacao
Site da Receita Federal dedicado a Nota Fiscal eletrônica http://www.nfe.fazenda.gov.br/portal/ Já é um bom local por onde começar a pesquisar a respeito! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 1 Feb 2008 17:24:03 -0200 Subject: [delphi-br] NF-e comunicacao Boa tarde amigos .. sobre a NF-e ... temos que implantar aqui na empresa .. alguem sabe me explicar como é feita a comunicacao com site do governo ?? qual componente do delphi devo usar ...?? Marcio. _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Win Skin
Olá pessoal! Estou fazendo uns testes com win skin, para uma aplicaçao nao comercial. Alguem que usa o Win Skin, poderia me dizer se preciso fazer algo mais alem de SkinData1.Active := False; Para q os controles fiquem no padrao normal sem Skin. Estou tendo problemas com componente RadioGroup, ele fica com uma cor diferente do form. Alguem sabe o site oficial, pois baixei um trial nem sei de onde pois faz tempo q tenho, tive procurando no google mas nao encontrei. Gostaria de dar uma olhadinha em algum exemplo tbem se possivel. Agradeço a todos antecipadamente! edioilha [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: NF-e Assinatura digital
Olha só, eu não tenho experiência nisso não, mas já brinquei um pouco com criptografia e assinatura digitaleu aconselharia uma estudada na CAPICOM.DLL. Ela trabalha com a criptoapi, que é quem provê os serviços de criptografia do Windows. Se vc souber trabalhar com DLL e ActiveX fica mais fácil ainda. Ela tem muitas funções de hash encapsulada e também mecanismos de assinatura. Se você se interessar, poderia consultar esse livro que traz uma boa introdução ao assunto. Eu não tenho certeza (pois não me lembro no momento) se ele trata assinatura com chave assimétrica, mas sei que tem exemplos de assinatura com chave simétrica, eu fiz os exemplos do livro e achei muito bacana. Segue o link: http://www.livrariasaraiva.com.br/produto/produto.dll/detalhe?pro_id=191458 http://www.livrariasaraiva.com.br/produto/produto.dll/detalhe?pro_id=191458 ID=C9432A427D8020111200E0262 ID=C9432A427D8020111200E0262 []s Topolniak. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Gabriel Herdt Enviada em: sexta-feira, 1 de fevereiro de 2008 14:51 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: NF-e Assinatura digital Amigo, consultar o .pdf e o help eu já fiz. Antes de postar aqui. Minha dificuldade é abrir meu certificado digital e apartir dele gerar minha assinatura no meu arquivo escolhido. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu O LockBox num tem exemplos/demos junto com naum? Se tiver, olha esses demos e fica olhando o help do componente pra poder elucidar tuas dúvidas! Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 1 Feb 2008 16:47:41 + Subject: [delphi-br] Re: NF-e Assinatura digital Estou com o mesmo problema. E Tenho 20 dias para fazer isso. Por favor se alguem tem alguma luz seria de muita utilidade. Tem o Componemte LockBox 2. Mas ta dificil achar bons materiais dele. O Help até que ajuda, mas é fraco. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , xregis escreveu Alguém já conseguiu fazer a assinatura digital da nota fiscal eletrônica? Eu até consegui, mas usando C# dotNet, mas fico dependendo da distribuição do framework dotNet. Neste site tem exemplos de como montar no dotNet: http://msdn2.microsoft.com/en-us/library/ms229745(vs.80).aspx Se alguém souber de algum componente ou o código para montar no Delphi, seria de grande utilidade. Valeu! __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] DbExpress SqlQuery...
no dbExpress usando o SqlQuery nao funciona ? Doretto. - Original Message - From: Adriano Santos (Yahoo) To: delphi-br@yahoogrupos.com.br Sent: Friday, February 01, 2008 4:37 PM Subject: Re: Res: [delphi-br] DbExpress SqlQuery... Vlw Andre Luis, realmente...eu podia jurar que não dava pra fazer isso no FB. Estava conversando com meu colega de trabalho aqui e funciona mesmo. Vacilei. Vlw, abs Adriano Santos -- Editor Técnico Revista ClubeDelphi www.delphitodelphi.blogspot.com www.devmedia.com.br www.devmedia.com.br/clubedelphi/pagina.asp Andre Luis Silveria respondeu: Corrigindo nosso caro amigo Adriano Santos, o firebird permite sim subselects em selects, ao contrário do que ele disse, uso em meus sistemas sem problemas. Agora se puder passar o problema que ocorre já facilitaria a ajuda. André Luis da Silveira Siagri Sistemas de Gestão Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.19.16/1251 - Release Date: 30/01/2008 09:29 __ Informa磯 do NOD32 IMON 2843 (20080201) __ Esta mensagem foi verificada pelo NOD32 sistema antiv�s http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Copiar Vários Arquivos
Ola pessoal, Estou precisando estar copiando vários arquivos para um único arquivo utilizando o Delphi , gostaria de saber se alguém ai na lista tem uma função que possa estar fazendo isto pois preciso executar uma copia de arquivos semelhante aquela que utilizávamos antigamente com o dos lembram ? copy arq1.txt+arq2.txt arq3.txt Aguardo ajudas. Obrigado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Refresh maluco em clientdataset
Se eu tiver um clientdataset com 100 registros, dá pra buscar apenas mais 1 registro no banco de dados de maneira que o clientdataset fique com os 101 registros? Gostaria que o clientdataset não trouxesse novamente os 100 registros que já estão na tela. Será que fui claro na minha pergunta? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Uso do Rose para modelagem de dados
Pessoal estou trabalhando com delphi/Mysql e gostaria de fazer uma pergunta, mas nem sei se faz parte desse grupo, mesmo assim se alguém souber me responder, ficarei muito grato! Estou com o CD de instalação do Rational Rose! Vcs me aconselham usar ele para modelagem de dados usando Delphi e MySQL ou o foco dele é para outra linguagem de programação? Conheço o Rose, Jude e o PowerDesigner! Gostaria q compartilhassem comigo sobre as suas experiências e me recomendassem algo! Obrigado! [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Copiar Vários Arquivos
Esse tipo de cópia geralmente é chamada de merge, pois o resultado dessa 'cópia' é uma mescla sequencial do conteúdo de n arquivos, resultando em um único arquivo destino. Eis minha sugestão (fiz agora!): { Necessita das units Classes e SysUtils, que já são adicionadas a qualquer form pelo IDE do Delphi } { Exemplo de chamada: MergeFiles('arq1.txt+arq2.txt', 'arq3.txt') } { Os dois últimos parâmetros são opcionais. Definem, respectivas, tamanho do buffer de leitura e } { o caracter separador da lista de arquivos contida em FileList } procedure MergeFiles(const FileList: AnsiString; TargetFile: String; const lBufSize: integer = $4; const ListSep: Char = '+'); var lBuffer: Pointer; lReaded: integer; lFileList: TStringList; lStmBuffer, lStmTarget: TFileStream; begin lFileList := TStringList.Create; try lFileList.Delimiter := ListSep; lFileList.DelimitedText := FileList; while lFileList.Count 0 do begin // Tenta abrir arquivo da lista. Pode dar erro se arquivo em uso! lStmBuffer := TFileStream.Create(lFileList[0], fmOpenRead); // Abre stream para o arquivo destino if FileExists(TargetFile) then lStmTarget := TFileStream.Create(TargetFile, fmCreate) else lStmTarget := TFileStream.Create(TargetFile, fmOpenWrite); // Aloca memória para o buffer usado pelo stream de leitura GetMem(lBuffer, lBufSize); try // Tenta ler conteúdo do arquivo da lista no buffer de leitura FillChar(lBuffer^, lBufSize, #0); lReaded := lStmBuffer.Read(lBuffer^, lBufSize); // Enquanto tiver dados lidos do arquivo, ... while lReaded 0 do begin // ... salva no arquivo resultado ... lStmTarget.Write(lBuffer^, lReaded); // ... e tenta ler mais dados do arquivo para gravação FillChar(lBuffer^, lBufSize, #0); lReaded := lStmBuffer.Read(lBuffer^, lBufSize); end; finally // Libera área alocada para o buffer de leitura FreeMem(lBuffer, lBufSize); // Libera stream do arquivo resultado lStmTarget.Free; // Libera stream de leitura dos arquivos lStmBuffer.Free; end; // Excluir arquivo da lista, pois já foi processado lFileList.Delete(0); end; finally lFileList.Free; end; end; Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 1 Feb 2008 19:06:55 -0300 Subject: [delphi-br] Copiar Vários Arquivos Ola pessoal, Estou precisando estar copiando vários arquivos para um único arquivo utilizando o Delphi , gostaria de saber se alguém ai na lista tem uma função que possa estar fazendo isto pois preciso executar uma copia de arquivos semelhante aquela que utilizávamos antigamente com o dos lembram ? copy arq1.txt+arq2.txt arq3.txt Aguardo ajudas. Obrigado [As partes desta mensagem que não continham texto foram removidas] _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true
Res: [delphi-br] Homologação de Sistema para Emi ssão de Notas fiscais.
Entre em contato com a Secretaria da Fazenda do seu Estado. A homologação, quando não é feita pela própria SEFAZ, é realizada por empresas credenciadas por esta. Verifique se o seu caso exige homologação. Não sei se seria o caso de uma AUPD (Autorização para Utilização de Processamento de Dados). Edson - Mensagem original De: Jorge Ericsson [EMAIL PROTECTED] Enviadas: Terça-feira, 29 de Janeiro de 2008 22:41:35 Assunto: [delphi-br] Homologação de Sistema para Emissão de Notas fiscais. Olá pessoal, Pesquisei no fórum e encontrei algumas discussões a respeiro de homologação de sistema mas não encontrei algo que se enquadre no meu problema. Bom eu estou ainda finalizando o desenvolvimento de um software ERP para uma empresa que me contratou para isso e um dos donos resolveu confeccionar as suas notas fiscais - que antes estava sendo preenchida com uma máquina elétrica - para que o software imprimisse na mesma apenas preenchendo os campos. Até ai tudo bem, mas o vendedor perguntou se o software era homologado e o cliente me ligou perguntando o mesmo, bem como o sistema ainda não esta pronto eu não poderia homologa-lo, mas o vendedor colocou vários impecilhos para confeccionar a nota. Então eu pergunto aos meus caros amigos que já devem ter passado por isso: 1º - Se procede o que o vendedor informou ao meu cliente; 2º - Como poderia homologar o software sendo que o mesmo ainda não esta finalizado; 3º - Em caso afirmativo a primeira pergunta, como eu posso homologa-lo e quais órgão procurar; 4º - O meu cliente poderia confecionar as notas sem a homologação do sistema e depois de concluído, eu possa homologa-lo; 5º - Qual o custo para homologação de um sistema que vai imprimir notas fiscais. Essas são minhas dúvidas, alguém poderia me ajudar ? Grato, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsso n.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq{margin:4;} -- Abra sua conta no Yahoo! Mail, o único sem limite de espaço
Re: Res: [delphi-br] DbExpress SqlQuery...
Maluco né não? Doretto respondeu: no dbExpress usando o SqlQuery nao funciona ? Doretto. - Original Message - From: Adriano Santos (Yahoo) To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 01, 2008 4:37 PM Subject: Re: Res: [delphi-br] DbExpress SqlQuery... Vlw Andre Luis, realmente...eu podia jurar que não dava pra fazer isso no FB. Estava conversando com meu colega de trabalho aqui e funciona mesmo. Vacilei. Vlw, abs Adriano Santos -- Editor Técnico Revista ClubeDelphi www.delphitodelphi.blogspot.com www.devmedia.com.br www.devmedia.com.br/clubedelphi/pagina.asp Andre Luis Silveria respondeu: Corrigindo nosso caro amigo Adriano Santos, o firebird permite sim subselects em selects, ao contrário do que ele disse, uso em meus sistemas sem problemas. Agora se puder passar o problema que ocorre já facilitaria a ajuda. André Luis da Silveira Siagri Sistemas de Gestão Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ http://br.mail.yahoo.com/ http://br.mail.yahoo.com/ http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.19.16/1251 - Release Date: 30/01/2008 09:29 __ Informa磯 do NOD32 IMON 2843 (20080201) __ Esta mensagem foi verificada pelo NOD32 sistema antiv�s http://www.eset.com.br http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- Adriano Santos - Editor Técnico Revista ClubeDelphi. http://www.delphitodelphi.blogspot.com http://www.devmedia.com.br http://www.devmedia.com.br/clubedelphi/pagina.asp
Re: [delphi-br] Win Skin
Resolvido! Encontrei um artigo na ActiveDelphi sobre VclSkin, e resoveu pra este componente tbem. http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=271 Agradecimentos a Valdomiro Farias de Andrade Júnior ActiveDelphi ta bombando nao tem pra ninguem heheheh Vlw edioilha From: Édio Ilha Sent: Friday, February 01, 2008 11:43 AM To: delphi-br Subject: [delphi-br] Win Skin Olá pessoal! Estou fazendo uns testes com win skin, para uma aplicaçao nao comercial. Alguem que usa o Win Skin, poderia me dizer se preciso fazer algo mais alem de SkinData1.Active := False; Para q os controles fiquem no padrao normal sem Skin. Estou tendo problemas com componente RadioGroup, ele fica com uma cor diferente do form. Alguem sabe o site oficial, pois baixei um trial nem sei de onde pois faz tempo q tenho, tive procurando no google mas nao encontrei. Gostaria de dar uma olhadinha em algum exemplo tbem se possivel. Agradeço a todos antecipadamente! edioilha [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Salvar dados no Banco
Boa noite pessoal, estou precisando do apoio de vocês pois esta fazendouma aplicação em duas camadas mas não estou conseguindo inserir dadosno banco. A aplicação possui uma camada Servidora na qual estoucolocando o banco (Interbase) e IbQuery e DataSetProvider. Na camadacliente estou trabalhando com ClientDataSet, DataSource eSocketConnection para comunicação entre as duas camadas. Em um formulário coloquei os DbEdits devidamente configurado para cada DataSource e respectivamente seus ClientDataSet. Foi colocado a Tabela em modo de inserção através do ClientDataSet (cds) da seguinte forma: cds_Func.Open; cds_Func.Insert; Depios feito o preenchimento dos campos, agora é feito o post da seguinte forma: cds_Func.Post; Masdepois de feito isso eu vou no banco e vejo q n tem nada salvo nele, nosistema não apresenta nenhum erro informando que não foi feita ainserção corretamente. Tem alguma maneira de dar COMMIT no banco pelo sistema se for esse o problema. Muito Obrigado!! Higor Tadeu