[delphi-br] Gerar chave pública e privada
Pessoal, estou precisando gerar chaves publicas e privadas a partir de um certificado PFX. Que programa eu posso usar para fazer isto? []s Marlon [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] NFS-e de Curitiba
Os valores são somente de testes. []s Marlon procedure TForm1.Button1Click(Sender: TObject); var Envio : nfseSoap; Retorno : EnviarLoteRpsResposta; Lote : EnviarLoteRpsEnvio; ListaRps : ArrayOfRps; Data : TXSDateTime; begin Envio := GetnfseSoap; Retorno := EnviarLoteRpsResposta.Create; Lote := EnviarLoteRpsEnvio.Create; Lote.LoteRps := tcLoteRps.Create; Lote.Signature := SignatureType.Create; Lote.LoteRps.NumeroLote := 0; Lote.LoteRps.Cnpj := '000'; Lote.LoteRps.QuantidadeRps := 1; SetLength(ListaRps, 1); ListaRps[0] := Rps.Create; ListaRps[0].InfRps := tcInfRps.Create; ListaRps[0].Signature := SignatureType.Create; ListaRps[0].InfRps.IdentificacaoRps := tcIdentificacaoRps.Create; ListaRps[0].InfRps.IdentificacaoRps.Numero := 1; ListaRps[0].InfRps.IdentificacaoRps.Serie := 'F'; ListaRps[0].InfRps.IdentificacaoRps.Tipo := 1; Data.AsDateTime := Now(); ListaRps[0].InfRps.DataEmissao := Data; ListaRps[0].InfRps.NaturezaOperacao := 1; ListaRps[0].InfRps.RegimeEspecialTributacao := 1; ListaRps[0].InfRps.OptanteSimplesNacional := 2; ListaRps[0].InfRps.IncentivadorCultural := 2; ListaRps[0].InfRps.Status := 1; ListaRps[0].InfRps.Servico := tcDadosServico.Create; ListaRps[0].InfRps.Servico.Valores := tcValores.Create; ListaRps[0].InfRps.Servico.Valores.ValorServicos := fnValor('1000'); ListaRps[0].InfRps.Servico.Valores.ValorDeducoes := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.ValorPis := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.ValorCofins := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.ValorInss := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.ValorIr := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.ValorCsll := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.IssRetido := 2; ListaRps[0].InfRps.Servico.Valores.ValorIss := fnValor('50'); ListaRps[0].InfRps.Servico.Valores.ValorIssRetido := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.OutrasRetencoes := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.BaseCalculo := fnValor('1000'); ListaRps[0].InfRps.Servico.Valores.Aliquota := fnValor('5'); ListaRps[0].InfRps.Servico.Valores.ValorLiquidoNfse := fnValor('950'); ListaRps[0].InfRps.Servico.Valores.DescontoIncondicionado := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.DescontoCondicionado := fnValor('0'); ListaRps[0].InfRps.Servico.ItemListaServico := '0107'; ListaRps[0].InfRps.Servico.Discriminacao := 'Teste de envio de lote de RPS'; ListaRps[0].InfRps.Servico.CodigoMunicipio := 1; ListaRps[0].InfRps.Prestador := tcIdentificacaoPrestador.Create; ListaRps[0].InfRps.Prestador.Cnpj := '000'; ListaRps[0].InfRps.Prestador.InscricaoMunicipal := '000'; ListaRps[0].InfRps.Tomador := tcDadosTomador.Create; ListaRps[0].InfRps.Tomador.IdentificacaoTomador := tcIdentificacaoTomador.Create; ListaRps[0].InfRps.Tomador.IdentificacaoTomador.CpfCnpj := tcCpfCnpj.Create; ListaRps[0].InfRps.Tomador.IdentificacaoTomador.CpfCnpj.Cpf := '035.954.159-30'; ListaRps[0].InfRps.Tomador.RazaoSocial := 'Tomador de Serviços'; ListaRps[0].InfRps.Tomador.Endereco := tcEndereco.Create; ListaRps[0].InfRps.Tomador.Endereco.Endereco := 'Rua sem nome'; ListaRps[0].InfRps.Tomador.Endereco.Numero := '1'; ListaRps[0].InfRps.Tomador.Endereco.Complemento := 'Apt. 1'; ListaRps[0].InfRps.Tomador.Endereco.Bairro := 'Centro'; ListaRps[0].InfRps.Tomador.Endereco.Uf := 'PR'; ListaRps[0].InfRps.Tomador.Endereco.Cep := 0; ListaRps[0].InfRps.Tomador.Contato := tcContato.Create; ListaRps[0].InfRps.Tomador.Contato.Telefone := '00'; ListaRps[0].InfRps.Tomador.Contato.Email := 'marlon.ti...@gmail.com'; Lote.LoteRps.ListaRps := ListaRps; Retorno := Envio.RecepcionarLoteRps(Lote); end; Em 23 de abril de 2010 23:26, Rubem Nascimento da Rocha djpardalro...@hotmail.com escreveu: Poste o código completo da sua implementação pra que alguém na lista possa avaliar. Sds. To: automacaoto...@yahoogrupos.com.brAutomacaoTotal%40yahoogrupos.com.br; delphi-bol...@yahoogrupos.com.br delphi-boleto%40yahoogrupos.com.br; delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br; delphi-to...@yahoogrupos.com.br delphi-total%40yahoogrupos.com.br; delphitodel...@yahoogrupos.com.br DelphiToDelphi%40yahoogrupos.com.br; dtdel...@yahoogrupos.com.br DTDelphi%40yahoogrupos.com.br; lista-del...@yahoogrupos.com.br lista-delphi%40yahoogrupos.com.br From: mtsys.lis...@gmail.com mtsys.listas%40gmail.com Date: Fri, 23 Apr 2010 20:57:16 -0300 Subject: [delphi-br] NFS-e de Curitiba Olá pessoal, alguém aqui já desenvolveu a NFS-e para o municipio de Curitiba. Importe o WSDL do site corretamente, colquei no Delphi, ele compila mas quando mando enviar usando o comado Retorno := Envio.RecepcionarLoteRps(Lote); dá erro de acesso de memória. Pq será? []s Marlon
[delphi-br] NFS-e Curitiba - Mais informações
Pessoal eu mandei um e-mail ontem perguntando sobre a nota fiscal de serviços eletrônica (NFS-e) de Curitiba. Continuem fazendo meus testes, tanto em Delphi 7 e Delphi 2010. Agora vai a dúvidas bem detalhada. 1 - Alguém já conseguiu implementar o acesso ao WebService de Curitiba, ou melhor, enviar as notas fiscais para a prefeitura sem usar nenhum componentes de terceiros? 2 - O WebService pede um certficado digital, como eu adiciono ele no envio dos dados no WebService? 3 - O Delphi 2010 importa de forma diferente o arquivo WSDL? Sobre os erros: Peguei o mesmo WSDL, e importei tanto no Delphi 7 e no Delphi 2010. Depois implementei o mesmo código nas duas IDE. Quando mando fazer o seguinte linha de código: Retorno := Envio.RecepcionarLoteRps(Lote); dá erro. No Delphi 7 dá o seguinte erro: Acess violation at adress 004036FC in module Project.exe. Read of address BCED. No Delphi 2010, dá um erro diferente: Internal error: data type kind Method (TAlignInsertBeforeEvent) canoot be converted to abd from text O código está abaixo. []s Marlon unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XSBuiltIns; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } function fnValor(Valor : String) : TXSDecimal; public { Public declarations } end; var Form1: TForm1; implementation uses nfsews; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var Envio : nfseSoap; Retorno : EnviarLoteRpsResposta; Lote : EnviarLoteRpsEnvio; ListaRps : ArrayOfRps; Data : TXSDateTime; begin Envio := GetnfseSoap; Retorno := EnviarLoteRpsResposta.Create; Lote := EnviarLoteRpsEnvio.Create; Lote.LoteRps := tcLoteRps.Create; Lote.Signature := SignatureType.Create; Lote.LoteRps.NumeroLote := 0; Lote.LoteRps.Cnpj := '000'; Lote.LoteRps.QuantidadeRps := 1; SetLength(ListaRps, 1); ListaRps[0] := Rps.Create; ListaRps[0].InfRps := tcInfRps.Create; ListaRps[0].Signature := SignatureType.Create; ListaRps[0].InfRps.IdentificacaoRps := tcIdentificacaoRps.Create; ListaRps[0].InfRps.IdentificacaoRps.Numero := 1; ListaRps[0].InfRps.IdentificacaoRps.Serie := 'F'; ListaRps[0].InfRps.IdentificacaoRps.Tipo := 1; Data.AsDateTime := Now(); ListaRps[0].InfRps.DataEmissao := Data; ListaRps[0].InfRps.NaturezaOperacao := 1; ListaRps[0].InfRps.RegimeEspecialTributacao := 1; ListaRps[0].InfRps.OptanteSimplesNacional := 2; ListaRps[0].InfRps.IncentivadorCultural := 2; ListaRps[0].InfRps.Status := 1; ListaRps[0].InfRps.Servico := tcDadosServico.Create; ListaRps[0].InfRps.Servico.Valores := tcValores.Create; ListaRps[0].InfRps.Servico.Valores.ValorServicos := fnValor('1000'); ListaRps[0].InfRps.Servico.Valores.ValorDeducoes := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.ValorPis := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.ValorCofins := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.ValorInss := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.ValorIr := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.ValorCsll := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.IssRetido := 2; ListaRps[0].InfRps.Servico.Valores.ValorIss := fnValor('50'); ListaRps[0].InfRps.Servico.Valores.ValorIssRetido := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.OutrasRetencoes := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.BaseCalculo := fnValor('1000'); ListaRps[0].InfRps.Servico.Valores.Aliquota := fnValor('5'); ListaRps[0].InfRps.Servico.Valores.ValorLiquidoNfse := fnValor('950'); ListaRps[0].InfRps.Servico.Valores.DescontoIncondicionado := fnValor('0'); ListaRps[0].InfRps.Servico.Valores.DescontoCondicionado := fnValor('0'); ListaRps[0].InfRps.Servico.ItemListaServico := '0107'; ListaRps[0].InfRps.Servico.Discriminacao := 'Teste de envio de lote de RPS'; ListaRps[0].InfRps.Servico.CodigoMunicipio := 1; ListaRps[0].InfRps.Prestador := tcIdentificacaoPrestador.Create; ListaRps[0].InfRps.Prestador.Cnpj := '000'; ListaRps[0].InfRps.Prestador.InscricaoMunicipal := '000'; ListaRps[0].InfRps.Tomador := tcDadosTomador.Create; ListaRps[0].InfRps.Tomador.IdentificacaoTomador := tcIdentificacaoTomador.Create; ListaRps[0].InfRps.Tomador.IdentificacaoTomador.CpfCnpj := tcCpfCnpj.Create; ListaRps[0].InfRps.Tomador.IdentificacaoTomador.CpfCnpj.Cpf := '035.954.159-30'; ListaRps[0].InfRps.Tomador.RazaoSocial := 'Tomador de Serviços'; ListaRps[0].InfRps.Tomador.Endereco := tcEndereco.Create; ListaRps[0].InfRps.Tomador.Endereco.Endereco := 'Rua sem nome'; ListaRps[0].InfRps.Tomador.Endereco.Numero := '1'; ListaRps[0].InfRps.Tomador.Endereco.Complemento := 'Apt. 1'; ListaRps[0].InfRps.Tomador.Endereco.Bairro := 'Centro'; ListaRps[0].InfRps.Tomador.Endereco.Uf := 'PR';
[delphi-br] NFS-e de Curitiba
Olá pessoal, alguém aqui já desenvolveu a NFS-e para o municipio de Curitiba. Importe o WSDL do site corretamente, colquei no Delphi, ele compila mas quando mando enviar usando o comado Retorno := Envio.RecepcionarLoteRps(Lote); dá erro de acesso de memória. Pq será? []s Marlon [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente cxDBLookupComboBox
Estou de volta para tirar uma dúvida ainda sobre o assunto. Se o registro não está em modo de edição e o usuário clicar em outro valor do combo, o valor do label é atualizado para aquele valor clicado. Parece que o dataset apontou para aquele item. Como ajustar isto? []s Marlon Em 15 de abril de 2010 12:42, Marlon Tiedt mtsys.lis...@gmail.comescreveu: Olá menina, esta voz de ternura, saiu a solução para esta versão que usamos... Tks... Funcionou perfeito... E obrigado ao nosso outro amigo, que nós ajudou... []s Marlon Em 14 de abril de 2010 21:13, Elaine Cristina Rocha de Oliveira elaine...@gmail.com escreveu: Olá Meninos Se vocês forem dentro de Properties no combo, vão ver uma opção chamada GridMode, se colocar como true vai atualizar o dataset. Tenta aí pra ver se vai funcionar pra vocês tb =) Em 14 de abril de 2010 15:28, Eduardo Suruagy eduardosuru...@gmail.comescreveu: Marlon, caso vc consiga me avisa por favor. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente cxDBLookupComboBox
Olá menina, esta voz de ternura, saiu a solução para esta versão que usamos... Tks... Funcionou perfeito... E obrigado ao nosso outro amigo, que nós ajudou... []s Marlon Em 14 de abril de 2010 21:13, Elaine Cristina Rocha de Oliveira elaine...@gmail.com escreveu: Olá Meninos Se vocês forem dentro de Properties no combo, vão ver uma opção chamada GridMode, se colocar como true vai atualizar o dataset. Tenta aí pra ver se vai funcionar pra vocês tb =) Em 14 de abril de 2010 15:28, Eduardo Suruagy eduardosuru...@gmail.comescreveu: Marlon, caso vc consiga me avisa por favor. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente cxDBLookupComboBox
Na versão que eu tenho somente tem as seguinte propriedades no ListOptions AnsiSort CaseInsensitive ColumnSorting GridLines RowSelect ShowHeader Vou ver se consigo achar a versão 6 para instalar. Em 13 de abril de 2010 18:32, Eduardo Suruagy eduardosuru...@gmail.comescreveu: Já procurei isso na versão q eu estou aqui e nao tem. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Componente cxDBLookupComboBox
Nem eu. []s Marlon Em 12 de abril de 2010 18:44, Eduardo Suruagy eduardosuru...@gmail.comescreveu: Não consegui encontrar essa propriedade... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Componente cxDBLookupComboBox
Pessoal estou usando os componentes da DevExpress. Gostei muito dela. Mas uma coisa que eu achei estranho. Coloquei cxDBLookupComboBox na tela com o seguinte SQL: SELECT ClienteID, Nome, isnull(Endereco, ''-'') + '', Nº: '' + isnull(Numero, ''-'') + '', Complemento: '' + isnull(Complemento, ''-'') as EnderecoCompleto from Clientes order by Nome Configurei tudo certinho. Porém além do cxDBLookupComboBox, coloquei um DBLabel fora do combo, para colocar o endereço completo. Minha surpresa, é que o DBLabel somente fica com o primeiro valor. Se eu trocar o cliente, mesmo assim não atualiza o valor. Por que? []s Marlon [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente cxDBLookupComboBox
É isto mesmo. Mas se usar um TDBLookupComboBox ele faz isto automaticamente. Não sei o motivo que o cxDBLookupComboBox não faz isto. []s Marlon Em 12 de abril de 2010 16:27, Ricardo Augusto ricardo250...@yahoo.com.brescreveu: Se eu entendi direito, vc quer mudar o item no cxDBLookupComboBox e quer que o DBLabel também avance para o registro selecionado no combobox, é isso? Se for isso, o problema é que o cxDBLookupCombobox (e acho que todos os LookupCombobox) não altera o cursor do DataSet quando vc seleciona outro registro. Vc pode navegar à vontade no combobox que o Dataset vai permanecer no primeiro registro e, portanto, o DBLabel vai continuar mostrando apenas ele. Vc precisa fazer o avanço manualmente. Em 12 de abril de 2010 16:13, Marlon Tiedt mtsys.lis...@gmail.com escreveu: Pessoal estou usando os componentes da DevExpress. Gostei muito dela. Mas uma coisa que eu achei estranho. Coloquei cxDBLookupComboBox na tela com o seguinte SQL: SELECT ClienteID, Nome, isnull(Endereco, ''-'') + '', Nº: '' + isnull(Numero, ''-'') + '', Complemento: '' + isnull(Complemento, ''-'') as EnderecoCompleto from Clientes order by Nome Configurei tudo certinho. Porém além do cxDBLookupComboBox, coloquei um DBLabel fora do combo, para colocar o endereço completo. Minha surpresa, é que o DBLabel somente fica com o primeiro valor. Se eu trocar o cliente, mesmo assim não atualiza o valor. Por que? []s Marlon [As partes desta mensagem que não continham texto foram removidas] -- _ Ricardo Augusto Muitos dos problemas do mundo devem-se ao fato de que os ignorantes estão completamente seguros e os inteligentes cheios de dúvidas (Bertrand Russel) [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Virus em EXE do Delphi
Pessoal estou fazendo umas rotinas usando Indy no meu sistema, e por meu espanto estou recebendo um alerta do Avira que o sistema tem o seguinte virus: TR/Dldr.Delphi.Gen Isto é virus mesmo? Ou uma falha? Pois o exemplo do Indy que estou vendo, não dá o mesmo erro. O que será? [[]s Marlon [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Firebird embedded + delphi 7 + dbexpress
Pessoal estou fazendo uma aplicação para usar o FireBird Embedded, em Delphi 7, e utilizando o dbExpress. Tenho uma VM (Virtual Machine) com Windows XP + SP3, zerada, somente com o Windows instalado para testes. Quando tento abrir qualquer pesquisa, dá error de unabled load to fbembed.dll, ele deve estar tentando fazer a conexão e dá o erro. Já copiei a fbembed.dll, para System e System32 e não adiantou. A configuração do SQLConnection está sendo feita em tempo de execução: E tem os seguinte valores: DriverName=Interbase Database=\\192.168.1.100\Desenvolvimento\Desenvolvimento\Sistemas Delphi\MTSysProvas\bd\mtsys.fdb RoleName=RoleName User_Name=sysdba Password=masterkey SQLDialect=3 LocaleCode= BlobSize=-1 CommitRetain=False WaitOnLocks=True Interbase TransIsolation=ReadCommited Trim Char=False Dados do SQLConnection: DriverName = Interbase ConnectionName = IBConnection VendorLib = fbembed.dll [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Frame x Form com MakeManual
Gostaria de saber a opinão de vocês, qual seria a vantagem e desvantagens de utilizar Frame x Form com MakeManual. Qual é o mais recomendado, e qual seria menos lento. Atenciosamente Marlon [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Componentes Visuais
Pessoal estou querendo melhorar meus sistema, e gostaria de saber qual package de componentes vocês recomendam. Atenciosamente Marlon [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Adicionar botão TDEdit e TEdit
Estou precisando montat um componente herdado do TEdit e TDBEdit, que contenha um ou vários botões; Atenciosamente Marlon [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Adicionar botão TDEdit e TEdit
Estava pensando em fazer isto mesmo... Um panel, com os botões dentro e com ancoras. Estou estando as melhor possibilidade... Valeu 2009/4/16 EmbarcaDelphi embarcadel...@yahoo.com.br Os componentes do projeto JEDI tem o que você deseja, são todos OpenSource, existe um montão de TEdit e TDBEdit com botões, baixe ele em http://www.delphi-jedi.org/ São uns 340 componentes para todos os gostos. Marlon Tiedt escreveu: Estou precisando montat um componente herdado do TEdit e TDBEdit, que contenha um ou vários botões; Atenciosamente Marlon . [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Parâmetros no SQL
Cao, não lembro agora se é ?BDE ou DBEXpress que não aceita parametro dentro de um sub select. Se você precisa disto, monte a pesquisa na mão, utilizando a propriedade SQL.Text ou CommandText dependendo do componente que você usa. Falou 2009/4/13 stainle2003 stainle2...@yahoo.com.br Bom dia, com Delphi 7 e SQLServer 2000 estou encontrando um problema: select codcl, noc, cic, uv from clien where not exists (select tclientee from estmat where tclientee = codcl and thisto = 'S' and topera = 2 and tmes = :pmes and tano = :pano) com parâmetro não funciona(diz que em sub select eu preciso definir os parâmetros) e assim funciona: select codcl, noc, cic, uv from clien where not exists (select tclientee from estmat where tclientee = codcl and thisto = 'S' and topera = 2 and tmes = 01 and tano = 2009) ou seja troquei o mes or 01 e o ano por 2009, mas preciso deixar variável o mes e o ano, porisso preciso do parâmetro. alguém sabe o que posso fazer ?? grato Stainle [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] CVS ou SVN
Cara se você puder optar, use SNV. Ele é mais aceito na comunidade, mais estavel e a versão do Tortosie, é integrado diretamente no seu windows explorer. SVN tem para linux e windows. Atenciosamente Marlon 2009/4/6 berdam berdamzi...@yahoo.com.br instalei o subversion agora a poco aqui, ficou bom José Mário Silva Guedes escreveu: Link interessante: http://www.ultimolog.com/2007/05/29/controle-de-versao-com-subversion-svn-rapido-e-pratico/ http://www.ultimolog.com/2007/05/29/controle-de-versao-com-subversion-svn-rapido-e-pratico/ Usei o CVS por muito tempo e sempre me atendeu. Porém o SVN é a opção mais correta. [As partes desta mensagem que não continham texto foram removidas] -- - Uberdam Cavaletti Formado em Tecnologia da informação - Unoesc - Xxe Pós graduado em Desenvolvimento Java - Unoesc - Xxe Acesse http://www.curricular.com.br/berdam Acesse http://passandoveneno.blogspot.com - [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Programas para modelagem de classes e bancos
Caros colegas, qual programa vocês recomendam para fazer a modelagem de um banco de dados, e diagramas UML. Atualmente estou usando o Enterprise Architect 7.1 para modelagem em UML, ele também modela banco, mas não é o forte dele. Atenciosamente Marlon [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro TSQLStoredProc (dbExpress) em SQL Server
Pessoal estou enfrentando um pequeno problema com o dbExpress e store procedures do SQL Server. Fiz uma SP simples com um parametro somente. Porem quando eu coloco o componente TSQLStoredProc na tela e seto a propriedade do SQLConnection, não aprece a SP na lista. Coloco ela na mão, e quando tento dar um open ou execute, ele diz que a SP precisa de um parametro. Se eu adicionar o parametro, dá erro de List of bound. Não sei mais o que fazer. Eu uso, SQL Server 2005, com Delphi 6 e dbExpress. Falou Atenciosamente Marlon [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Tabela de dados com milhões de regi stros
Primeiro, para a gente conseguir te ajudar, você tem que pasar mais algumas informações, do tipo: * qual é o banco de dados * versão do banco * tipo de conexão com o banco de dados * quantidade real de registros na tabela * quantidade real de colunas * faz join com alguma outra tabela? Banco de dados grande, não é banco de dados lento. Atenciosamente Marlon 2009/3/24 Alisson Yahoo alss...@yahoo.com.br Não entendi qual é exatamente o seu problema. Seria trazer muitos registros do banco para a aplicação? Se for esse o caso, você deveria trazer o mínimo possível de registros de acordo com parâmetros com o usuário escolher. [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] Delphi-Sequence
A propriedade no MS SQL é a identity. Atenciosamente Marlon 2009/3/20 Alisson alss...@yahoo.com.br Para gerar a chave primária automaticamente você deve criar um recurso no banco de dados para isso. No Firebird, por exemplo, você pode criar um Generator ou uma trigger. No SQL Server existe uma propriedade no campo do tipo inteiro que você define como true. Não me lembro o nome dessa propriedade. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Integração com o MS-Word
Fiz este teste em outra máquina minha que tinha o arquivo Word_TLB.pas, porém da erro no seguinte código, é a linha 39186. Posso tirar este código? 9: if Assigned(FOnXMLBeforeDelete) then FOnXMLBeforeDelete(Self, IUnknown(TVarData(Params[0]).VPointer) as Range {const Range}, IUnknown(TVarData(Params[1]).VPointer) as XMLNode {const XMLNode}, Params[2] {WordBool}); --- Em sáb, 21/2/09, Marlon Tiedt marlon.ti...@yahoo.com.br escreveu: De: Marlon Tiedt marlon.ti...@yahoo.com.br Assunto: Re: Res: [delphi-br] Integração com o MS-Word Para: delphi-br@yahoogrupos.com.br Data: Sábado, 21 de Fevereiro de 2009, 22:23 Cara criei um dpk com a unit WordContainer, e quando eu mando compilar, o delhi diz que precisa da unit Word_TLB. e não ela no meu pc. Valeu --- Em sáb, 21/2/09, André Geraldo dos Santos andresanto...@gmail.com escreveu: De: André Geraldo dos Santos andresanto...@gmail.com Assunto: Re: Res: [delphi-br] Integração com o MS-Word Para: delphi-br@yahoogrupos.com.br Data: Sábado, 21 de Fevereiro de 2009, 9:18 Marlon, Faz o seguinte, cria um Package(BPL) adiciona o arquivo WordContainer. pas e automaticamente o arquivo WordContainer. dcr será adicionado também .. Daí para frente basta vc mandar complicar e instalar ... o componente será registrado na paleta serves. Qualquer dúvida é só dizer. Atenciosamente, André Geraldo dos Santos Analista Desenvolvedor Belo Horizonte - Minas Gerais marlon.tiedt escreveu: André como você instalou este componente? Tentei instalar o pas WordContainer. pas, mas deu erro. Como você fez? Estou usando delphi 7. Atenciosamente Marlon --- Em delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos .com.br, Silvio Clécio silvioprog@ ... escreveu Olá pessoal, Opa, manda uma cópia p mim tb, sendo open source eu jogo lá no 4shared p a galera. :) _ _ __ []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@. .. Gmail, GTalk: silviop...@. .. Hotmail, MSN: silviop...@. .. BlogSpot: http://silvioclecio .blogspot. com/ http://silvioclecio .blogspot. com/ BlogSite: http://silvioprog. blogspot. com/ http://silvioprog. blogspot. com/ °oO| Seja livre, use Linux! |Oo° _ _ __ De: André Geraldo dos Santos andresantos78@ ... Para: marlon.tiedt@ ...; delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos .com.br Enviadas: Quinta-feira, 19 de Fevereiro de 2009 23:48:46 Assunto: Re: [delphi-br] Integração com o MS-Word Marlon, Boa noite Consegui sim, eu achei um componente na net (TWordOleContainer) que herda de TOleContainer e implementa algumas funções do word. O componente é opensource.. . e esta me tirando de uma fria, neste momento não tenho como te passar mas posso enviar para o seu e-mail e de quem mais quiser no grupo. O mais legal que o componente vem com exemplo... show de bola. Atenciosamente, André Geraldo dos Santos Analista Desenvolvedor Belo Horizonte - Minas Gerais Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! + Buscados: Top 10 - Celebridades - Música - Esportes Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Integração com o MS-Word
Tentei fazer isto, porém meu delphi não mostra a opção para importar do Word... Como eu faço para tentar importar ele, já que não está na lista... Falou Marlon --- Em seg, 23/2/09, André Geraldo dos Santos andresanto...@gmail.com escreveu: De: André Geraldo dos Santos andresanto...@gmail.com Assunto: Re: Res: [delphi-br] Integração com o MS-Word Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 23 de Fevereiro de 2009, 9:57 Marlon, Mas você já importou o AciveX Control ? Senão importou faça o seguinte, vá no menu Components - Import ActiveX Control ... e selecione o activeX do word e mande instalar .. Observe que no momento da instalação o delphi vai criar uma unit e é está unit que vc deve adicionar no uses de interface para conseguir compilar e instalar o componente. Atenciosamente, André Geraldo dos Santos Analista de Sistemas e Desenvolvedor Belo Horizonte - Minas Gerais 2009/2/21 Marlon Tiedt marlon.tiedt@ yahoo.com. br Cara criei um dpk com a unit WordContainer, e quando eu mando compilar, o delhi diz que precisa da unit Word_TLB. e não ela no meu pc. Valeu --- Em sáb, 21/2/09, André Geraldo dos Santos andresantos78@ gmail.comandresantos78% 40gmail.com escreveu: De: André Geraldo dos Santos andresantos78@ gmail.comandresantos78% 40gmail.com Assunto: Re: Res: [delphi-br] Integração com o MS-Word Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br Data: Sábado, 21 de Fevereiro de 2009, 9:18 Marlon, Faz o seguinte, cria um Package(BPL) adiciona o arquivo WordContainer. pas e automaticamente o arquivo WordContainer. dcr será adicionado também .. Daí para frente basta vc mandar complicar e instalar ... o componente será registrado na paleta serves. Qualquer dúvida é só dizer. Atenciosamente, André Geraldo dos Santos Analista Desenvolvedor Belo Horizonte - Minas Gerais marlon.tiedt escreveu: André como você instalou este componente? Tentei instalar o pas WordContainer. pas, mas deu erro. Como você fez? Estou usando delphi 7. Atenciosamente Marlon --- Em delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos .com.br, Silvio Clécio silvioprog@ ... escreveu Olá pessoal, Opa, manda uma cópia p mim tb, sendo open source eu jogo lá no 4shared p a galera. :) _ _ __ []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@. .. Gmail, GTalk: silviop...@. .. Hotmail, MSN: silviop...@. .. BlogSpot: http://silvioclecio .blogspot. com/ http://silvioclecio .blogspot. com/ BlogSite: http://silvioprog. blogspot. com/ http://silvioprog. blogspot. com/ °oO| Seja livre, use Linux! |Oo° _ _ __ De: André Geraldo dos Santos andresantos78@ ... Para: marlon.tiedt@ ...; delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos .com.br Enviadas: Quinta-feira, 19 de Fevereiro de 2009 23:48:46 Assunto: Re: [delphi-br] Integração com o MS-Word Marlon, Boa noite Consegui sim, eu achei um componente na net (TWordOleContainer) que herda de TOleContainer e implementa algumas funções do word. O componente é opensource.. . e esta me tirando de uma fria, neste momento não tenho como te passar mas posso enviar para o seu e-mail e de quem mais quiser no grupo. O mais legal que o componente vem com exemplo... show de bola. Atenciosamente, André Geraldo dos Santos Analista Desenvolvedor Belo Horizonte - Minas Gerais Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, André Geraldo dos Santos [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Integração com o MS-Word
Cara criei um dpk com a unit WordContainer, e quando eu mando compilar, o delhi diz que precisa da unit Word_TLB. e não ela no meu pc. Valeu --- Em sáb, 21/2/09, André Geraldo dos Santos andresanto...@gmail.com escreveu: De: André Geraldo dos Santos andresanto...@gmail.com Assunto: Re: Res: [delphi-br] Integração com o MS-Word Para: delphi-br@yahoogrupos.com.br Data: Sábado, 21 de Fevereiro de 2009, 9:18 Marlon, Faz o seguinte, cria um Package(BPL) adiciona o arquivo WordContainer. pas e automaticamente o arquivo WordContainer. dcr será adicionado também .. Daí para frente basta vc mandar complicar e instalar ... o componente será registrado na paleta serves. Qualquer dúvida é só dizer. Atenciosamente, André Geraldo dos Santos Analista Desenvolvedor Belo Horizonte - Minas Gerais marlon.tiedt escreveu: André como você instalou este componente? Tentei instalar o pas WordContainer. pas, mas deu erro. Como você fez? Estou usando delphi 7. Atenciosamente Marlon --- Em delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos .com.br, Silvio Clécio silvioprog@ ... escreveu Olá pessoal, Opa, manda uma cópia p mim tb, sendo open source eu jogo lá no 4shared p a galera. :) _ _ __ []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@. .. Gmail, GTalk: silviop...@. .. Hotmail, MSN: silviop...@. .. BlogSpot: http://silvioclecio .blogspot. com/ http://silvioclecio .blogspot. com/ BlogSite: http://silvioprog. blogspot. com/ http://silvioprog. blogspot. com/ °oO| Seja livre, use Linux! |Oo° _ _ __ De: André Geraldo dos Santos andresantos78@ ... Para: marlon.tiedt@ ...; delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos .com.br Enviadas: Quinta-feira, 19 de Fevereiro de 2009 23:48:46 Assunto: Re: [delphi-br] Integração com o MS-Word Marlon, Boa noite Consegui sim, eu achei um componente na net (TWordOleContainer) que herda de TOleContainer e implementa algumas funções do word. O componente é opensource.. . e esta me tirando de uma fria, neste momento não tenho como te passar mas posso enviar para o seu e-mail e de quem mais quiser no grupo. O mais legal que o componente vem com exemplo... show de bola. Atenciosamente, André Geraldo dos Santos Analista Desenvolvedor Belo Horizonte - Minas Gerais Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] (unknown)
Pessoal, estou procurando algum componente que permita editar um arquivo Word diretamente dentro do Delphi. Tem que ser Word, não pode ser RitchText, pois este não aceita figuras. Ou alguma alternativa rápida para fazer isto. Atenciosamente Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente Delphi para manipular Word
Tenho que fazer, pois se trata de um módulo de GED, Gerencia Eletronica de Documentos, aonde o sistema vai pegar o arquivo do banco de dados, montar um arquivo temporario, mnostrar para o usuário na tela e depois salvar novamente no banco de dados. E tem outra coisa, alguns usuários podem ver outros não, alguns editam e outros não. É bem complexo. Existe o TWebBrowse, mas ele depende da configuração do micro do usuário, pois as vezes pede para salvar os dados. Atenciosamente --- Em qui, 19/2/09, Eric Roberto Darruiz eric.darr...@gmail.com escreveu: De: Eric Roberto Darruiz eric.darr...@gmail.com Assunto: Re: [delphi-br] (unknown) Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 19 de Fevereiro de 2009, 9:43 Tipo, uma alternativa mais rápida do que usar o próprio Word ou o OpenOffice/BROffice ? Por que você quer fazer isso via Delphi? []'s --- === Eric Roberto === MSN: eric...@hotmail. com Blog: http://cafenocodigo .blogspot. com/ From: Marlon Tiedt Sent: Thursday, February 19, 2009 9:36 AM To: undisclosed recipients: Subject: [delphi-br] (unknown) Pessoal, estou procurando algum componente que permita editar um arquivo Word diretamente dentro do Delphi. Tem que ser Word, não pode ser RitchText, pois este não aceita figuras. Ou alguma alternativa rápida para fazer isto. Atenciosamente Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Componente Delphi para manipular Word. Mini-Editor
Pessoal, estou procurando algum componente que permita editar um arquivo Word diretamente dentro do Delphi. Tem que ser Word, não pode ser RitchText, pois este não aceita figuras. Ou alguma alternativa rápida para fazer isto. Mandando novamente, pois o outro e-mail ficou sem assunto Atenciosamente Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Update com inner join
Pessoal, estou precisando fazer um update com inner join e não está rolando. Estou usando o FireBird 2.1.1. O erro que está dando é: Invalid token. Dynamic SQL Error. SQL error code = -104. Token unknown - line 6, column 1. FROM. O update está abaixo. UPDATE BILHETES SET RELATORIO = OP.RELATORIO, RELATORIO_TIPO = OP.RELATORIO_TIPO FROM BILHETES as BI inner join OPER_RELATORIOS as OP on (BI.CATEGORIA = OP.CATEGORIA and BI.CATEGORIA_DESCRICAO = OP.CATEGORIA_DESCRICAO and BI.CARACTERISTICA = OP.CARACTERISTICA) WHERE BI.RELATORIO is null and BI.RELATORIO_TIPO is null []s, Marlon Tiedt Analista de Sistema e programdor Delphi [EMAIL PROTECTED] [EMAIL PROTECTED] A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Exemplo de contrato
Pessoal, alguém teria um exemplo de contrato bem elaborado para passar? Achei uns na net, e tem furos. Atenciosamente Marlon Tiedt Analista de Sistema e programdor Delphi [EMAIL PROTECTED] [EMAIL PROTECTED] A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] FireBird campo numerico trazendo caracter especial
Pessoal estou com um problema. Fiz uma aplicação com banco de dados FireBird 2.1 e coloquei conexão via dbExpress + TSQLQuery + DSP + CDS. Quando eu coloco no dpr a clausula DBExpInt para embutir a dll do dbExpress no executavel, o sistema está trazendo campos númericos com caracteres especiais. Exemplo: o valor retornado pela query é: 137,14, porém o sistema está retornando o valor de 137= ou 137! ou [EMAIL PROTECTED] Se eu não colocar essa dll no executavel, o mesmo não roda no cliente, se eu colcoar ela, o sistema traz os caracteres especiais nos campos numericos Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] FireBird campo numerico trazendo caracter especial
O charset no TSQLConnection? Se sim, qual seria o default? []s, Marlon --- Em qua, 25/6/08, Bruno Lichot [EMAIL PROTECTED] escreveu: De: Bruno Lichot [EMAIL PROTECTED] Assunto: RE: [delphi-br] FireBird campo numerico trazendo caracter especial Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br Data: Quarta-feira, 25 de Junho de 2008, 11:37 Voce esta definindo o charset corretamente? From: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] On Behalf Of Marlon Tiedt Sent: quarta-feira, 25 de junho de 2008 11:35 To: [EMAIL PROTECTED] os.com.br Subject: [delphi-br] FireBird campo numerico trazendo caracter especial Pessoal estou com um problema. Fiz uma aplicação com banco de dados FireBird 2.1 e coloquei conexão via dbExpress + TSQLQuery + DSP + CDS. Quando eu coloco no dpr a clausula DBExpInt para embutir a dll do dbExpress no executavel, o sistema está trazendo campos númericos com caracteres especiais. Exemplo: o valor retornado pela query é: 137,14, porém o sistema está retornando o valor de 137= ou 137! ou [EMAIL PROTECTED] Se eu não colocar essa dll no executavel, o mesmo não roda no cliente, se eu colcoar ela, o sistema traz os caracteres especiais nos campos numericos Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] FireBird campo numerico trazendo caracter especial
Já fiz isto e não roda no cliente. []s, Marlon --- Em qua, 25/6/08, fabio giro [EMAIL PROTECTED] escreveu: De: fabio giro [EMAIL PROTECTED] Assunto: Re: [delphi-br] FireBird campo numerico trazendo caracter especial Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 25 de Junho de 2008, 11:53 Tire a dll do uses e coloque a dll junto com o executável. --- Em qua, 25/6/08, Marlon Tiedt marlon.tiedt@ yahoo.com. br escreveu: De: Marlon Tiedt marlon.tiedt@ yahoo.com. br Assunto: [delphi-br] FireBird campo numerico trazendo caracter especial Para: [EMAIL PROTECTED] os.com.br Data: Quarta-feira, 25 de Junho de 2008, 11:34 Pessoal estou com um problema. Fiz uma aplicação com banco de dados FireBird 2.1 e coloquei conexão via dbExpress + TSQLQuery + DSP + CDS. Quando eu coloco no dpr a clausula DBExpInt para embutir a dll do dbExpress no executavel, o sistema está trazendo campos númericos com caracteres especiais. Exemplo: o valor retornado pela query é: 137,14, porém o sistema está retornando o valor de 137= ou 137! ou [EMAIL PROTECTED] Se eu não colocar essa dll no executavel, o mesmo não roda no cliente, se eu colcoar ela, o sistema traz os caracteres especiais nos campos numericos Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] FireBird campo numerico trazendo caracter especial
Bruno, sabe me dizer pq isto ocorre? Se não compilar a DLL junto não dá este erro. Estranho isto. Você sabe o comando sql para saber o CharSet do banco de dados FireBird? []s, Marlon --- Em qua, 25/6/08, Bruno Lichot [EMAIL PROTECTED] escreveu: De: Bruno Lichot [EMAIL PROTECTED] Assunto: RE: [delphi-br] FireBird campo numerico trazendo caracter especial Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br Data: Quarta-feira, 25 de Junho de 2008, 11:52 Sim, o charset do sqlconnecion, não existe o default, mas sim o que voce definiu para o seu banco de dados. From: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] On Behalf Of Marlon Tiedt Sent: quarta-feira, 25 de junho de 2008 11:46 To: [EMAIL PROTECTED] os.com.br Subject: RE: [delphi-br] FireBird campo numerico trazendo caracter especial O charset no TSQLConnection? Se sim, qual seria o default? []s, Marlon --- Em qua, 25/6/08, Bruno Lichot bruno.lichot@ codegear. commailto:bruno. lichot%40codegea r.com escreveu: De: Bruno Lichot bruno.lichot@ codegear. commailto:bruno. lichot%40codegea r.com Assunto: RE: [delphi-br] FireBird campo numerico trazendo caracter especial Para: [EMAIL PROTECTED] os.com.brmailto:delphi- br%40yahoogrupos .com.br [EMAIL PROTECTED] os.com.brmailto:delphi- br%40yahoogrupos .com.br Data: Quarta-feira, 25 de Junho de 2008, 11:37 Voce esta definindo o charset corretamente? From: [EMAIL PROTECTED] os.com.br [mailto:delphi- [EMAIL PROTECTED] os.com.br] On Behalf Of Marlon Tiedt Sent: quarta-feira, 25 de junho de 2008 11:35 To: [EMAIL PROTECTED] os.com.br Subject: [delphi-br] FireBird campo numerico trazendo caracter especial Pessoal estou com um problema. Fiz uma aplicação com banco de dados FireBird 2.1 e coloquei conexão via dbExpress + TSQLQuery + DSP + CDS. Quando eu coloco no dpr a clausula DBExpInt para embutir a dll do dbExpress no executavel, o sistema está trazendo campos númericos com caracteres especiais. Exemplo: o valor retornado pela query é: 137,14, porém o sistema está retornando o valor de 137= ou 137! ou [EMAIL PROTECTED] Se eu não colocar essa dll no executavel, o mesmo não roda no cliente, se eu colcoar ela, o sistema traz os caracteres especiais nos campos numericos Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Arquivo MDB
Pessoal como faço para lsitar todas as tabelas que estão dentro de um MDB. []s, Marlon [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Executavel com BPLs
Beleza pessoal, estou querendo utilizar BPL, porém no executavel que carrega as BPL eu quero ter todas as bpls do Delphi, e carregr dinamicamente todas as BPLs desenvolvidas por mim. Porém o delphi não chama, o formulário dentro do BPL.criadas por mim. Tem como fazer isto funcionar? []s Marlon [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Data vazia
DataType é definido quando você para o parametro. Com dbExpress, campo data puro eu uso integer. Eu uso MSSQL 2005. FormRelAtendimentos.qryAtendimentos.Params.ParamByName('P_Data1').AsInteger := Trunc(edtDataInicio.Date); []s, Marlon - Original Message - From: Marcos Douglas To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 08, 2008 9:43 AM Subject: Re: [delphi-br] Data vazia Ricardo, Vc tem que definir o DataType do campo. Se o campo que foi criado dinâmicamente não tiver um tipo definido, acontece esta Exception. Defina o campo como ftTimeStamp. Abraços Marcos Douglas On 1/8/08, Ricardo Cabral [EMAIL PROTECTED] wrote: Marlon Primeiro que agradecer a você e aos outros colegas por tentar ajudar. Bem, eu havia pensado na opção2 que você mandou, mas eu queria ver se tinha um jeito mais simples. Estranha o null e o clear não funcionarem. Vou olhar a opção 1 também. Depois falo qual funcionou ! . [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Funciona somente uma vez
Pessoal tenho uma das minhas telas de cadastro um grid com campos datas e um TSQLClientDataSet para o cadastro. Se eu somente fazer insert ele funciona redondo. Se eu clicar em editar e gravar, não consigo mais inserir nada. Não adianta fechar o programa e nada. Tenho que ir no delphi e colocar um novo SQLClientDataSet e compilar novamente. O erro ocorrendo no evento append. Erro retornado: Project SESMT.exe raised exception class EDatabaseError with message 'SQL Stata: 42000, SQL Error Code: 8180 Não foi possivel preparar instrução(ões) SQL State: 42000, SQL Erro Code: 102 Sintaxe incorreta próxima a '=' Process stopped Use Step or run to continue Delphi 6 e Microsoft SQL Server 2005 Não estou conseguindo entender o motivo do erro. []s, Marlon [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TSQLClientDataSet não encontra os parametros
Pessoal, tenho o SQL abaixo utilizando o componente TSQLClientDataSet do Delphi 6. Se eu tenho montar o SQL dinâmico o Delphi não encontra os parametros P_Data1 e P_Data2. Porque isto ocorre? O que devo fazer para ele reconhercer estes parametros? Atenciosamente Marlon FormRelAtendimentos.qryAtendimentos.Close; FormRelAtendimentos.qryAtendimentos.CommandText := ' select ' + ' convert(varchar(10), Age.DtAgenda, 103) as Data, ' + ' case ' + ' when Age.MedicoID is null then ''Sem Médico Definido'' ' + ' else Med.Nome end as Medico, ' + ' count(Age.AgendaID) as Total ' + ' from ' + ' Agenda as Age ' + ' left join Medicos as Med on (Med.MedicoID = Age.MedicoID) ' + ' where ' + ' Age.DtAgenda between :P_Data1 and :P_Data2 ' + ' group by Age.DtAgenda, case when Age.MedicoID is null then ''Sem Médico Definido'' else Med.Nome end ' + ' order by Age.DtAgenda, Medico '; // FormRelAtendimentos.qryAtendimentos.Params[0].DataType := ftInteger; FormRelAtendimentos.qryAtendimentos.Params.ParamByName('P_Data1').AsInteger := Trunc(edtDataInicio.Date); FormRelAtendimentos.qryAtendimentos.Params.ParamByName('P_Data2').AsInteger := Trunc(edtDataFim.Date); FormRelAtendimentos.qryAtendimentos.Open; [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DUvidas com sql
Não sei se vai funcionar. Faz um case com a busca. Asimm: case when DP1_CLIENTE like ''%'+Buscar+'%'' then Vem do DP1 when DP2_CLIENTE like ''%'+Buscar+'%'' then Vem do DP2 end as Testes Tenta ai e fale. []s, Marlon - Original Message - From: Hudson To: delphi-br@yahoogrupos.com.br Sent: Sunday, October 14, 2007 1:22 PM Subject: [delphi-br] DUvidas com sql Ola gente, estou com uma pequena duvida, tenho um select com 5 campos assim: select * from CLIENTE where DP1_CLIENTE like ''%'+Buscar+'%'' or DP2_CLIENTE like ''%'+Buscar+'%'' or DP3_CLIENTE like ''%'+Buscar+'%'' or DP4_CLIENTE like ''%'+Buscar+'%'' or DP5_CLIENTE like ''%'+Buscar+'%'' or DP6_CLIENTE like ''%'+Buscar+'%''' bom o select acontece normal e esta rodando legal, mas na verdade não sei de qual o campo vem a resposta por exemplo gostaria de criar uma variavel no sql que amarzene o valor de resultado. tem como? [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.488 / Virus Database: 269.14.10/1070 - Release Date: 14/10/2007 09:22 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Preview Customizado
Estou montando um preview customizado para substituir o preview do QuickReport.Registro ele no inicio da aplicação. Ele é chamado corretamente, porém a impressão somente funciona se eu chamar o PrintSeput do QRPrinte. Senão nada feito. Você teria uma ideia?O Código está abaixo:unit FormPreviewCustomizado;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, QRPrntr, QuickRpt, QRExtra, Spin, Buttons, QRExport, JPEG, ComCtrls, Printers;type TPreviewCustomizado = class(TForm)Panel1: TPanel; lblZoom: TLabel;Label1: TLabel;Label2: TLabel;Label4: TLabel; edtPrimeiraPag: TEdit;edtUltimaPag: TEdit;edtCopias: TEdit; BtnSalvarTodas: TBitBtn;btnImprimir: TBitBtn;btnZoomMenos: TBitBtn; btnZoomAum: TBitBtn;BtnPrimeiro: TBitBtn;BtnAnterior: TBitBtn; BtnProximo: TBitBtn;BtnUltimo: TBitBtn;BtnSair: TBitBtn;BtnSalvar: TBitBtn;qrPreview: TQRPreview;stbPreview: TStatusBar;cmbImpressora: TComboBox;procedure btnImprimirClick(Sender: TObject);procedure btnZoomMenosClick(Sender: TObject);procedure BtnSairClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure btnZoomAumClick(Sender: TObject);procedure BtnPrimeiroClick(Sender: TObject);procedure BtnAnteriorClick(Sender: TObject);procedure BtnProximoClick(Sender: TObject);procedure BtnUltimoClick(Sender: TObject); procedure qrPreviewPageAvailable(Sender: TObject; PageNum: Integer); procedure FormShow(Sender: TObject);procedure FormResize(Sender: TObject); private FqrRelatorio : TQuickRep; FQRPrinter: TQRPrinter; prtImpressora: TPrinter;{ Private declarations } public{ Public declarations }constructor CreatePreview ( AOwner : TComponent; aQRPrinter : TQRPrinter );property QRPrinter: TQRPrinter read FQRPrinter write FQRPrinter;property qrRelatorio : TQuickRep read FqrRelatorio write FqrRelatorio ; end;var PreviewCustomizado: TPreviewCustomizado;implementation{$R *.dfm}procedure TPreviewCustomizado.btnImprimirClick(Sender: TObject);begin// QRPrinter.Copies := StrToInt(edtCopias.Text);// QRPrinter.FirstPage := StrToInt(edtPrimeiraPag.Text);// QRPrinter.LastPage := StrToInt(edtUltimaPag.Text);// QRPrinter.Printers.// QRPrinter.PrinterIndex := cmbImpressora.ItemIndex;// qrPreview.QRPrinter.Print;// QRPrinter.Print;// qrRelatorio.Print; QRPrinter.Copies := 1; QRPrinter.FirstPage := 1; QRPrinter.LastPage := 1; QRPrinter.PrinterIndex := cmbImpressora.ItemIndex; QRPrinter.Print;end;constructor TPreviewCustomizado.CreatePreview(AOwner: TComponent; aQRPrinter: TQRPrinter);begin inherited Create(AOwner); QRPrinter := aQRPrinter; qrRelatorio := TQuickRep.Create(nil); qrPreview.QRPrinter := aQRPrinter; if ( QRPrinter nil ) and ( QRPrinter.Title '' ) then Caption := QRPrinter.Title; qrPreview.Cursor := crHandPoint;end;procedure TPreviewCustomizado.BtnSairClick(Sender: TObject);begin Close;end;procedure TPreviewCustomizado.FormClose(Sender: TObject; var Action: TCloseAction);begin if Self Nil then begin QRPrinter.ClosePreview(PreviewCustomizado); Action := caFree; end;end;procedure TPreviewCustomizado.btnZoomMenosClick(Sender: TObject);begin Application.ProcessMessages; if StrToInt(lblZoom.Caption) 10 then begin lblZoom.Caption := IntToStr(StrToInt(lblZoom.Caption) - 10); qrPreview.Zoom := StrToInt(lblZoom.Caption); end;end;procedure TPreviewCustomizado.btnZoomAumClick(Sender: TObject);begin Application.ProcessMessages; if StrToInt(lblZoom.Caption) 200 then begin lblZoom.Caption := IntToStr(StrToInt(lblZoom.Caption) + 10); qrPreview.Zoom := StrToInt(lblZoom.Caption); end;end;procedure TPreviewCustomizado.BtnPrimeiroClick(Sender: TObject);begin Application.ProcessMessages; with qrPreview do begin if PageNumber 1 then beginPageNumber := 1; end; end; stbPreview.SimpleText := 'Página ' + IntToStr(qrPreview.PageNumber);end;procedure TPreviewCustomizado.BtnAnteriorClick(Sender: TObject);begin Application.ProcessMessages; with qrPreview do begin if PageNumber 1 then beginPageNumber := PageNumber - 1; end; end; stbPreview.SimpleText := 'Página ' + IntToStr(qrPreview.PageNumber);end;procedure TPreviewCustomizado.BtnProximoClick(Sender: TObject);begin Application.ProcessMessages; with qrPreview do begin if PageNumber qrPreview.QRPrinter.PageCount then beginPageNumber := PageNumber + 1; end; end; stbPreview.SimpleText := 'Página ' + IntToStr(qrPreview.PageNumber);end;procedure TPreviewCustomizado.BtnUltimoClick(Sender: TObject);begin Application.ProcessMessages; with qrPreview do begin if PageNumber qrPreview.QRPrinter.PageCount then begin
Re: [delphi-br] Quick report - novas paginas.
Pq você não coloca o StringBand? É bem fácil trabalhar com ele. []s, Marlon - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, July 02, 2007 7:54 PM Subject: Re: [delphi-br] Quick report - novas paginas. Nao entendi. - Original Message - From: Rafael Jorge [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, July 02, 2007 6:06 PM Subject: Re: [delphi-br] Quick report - novas paginas. eu ia dizer pra tu ir em opcoes e mudar o numero de copias.. mas isso nao vai fazer isso.. intao o que tu vai fazer e colocar um qrlabel.. rodar a rotina de impressao e coloca nesse caption := primeira caixa depois mandar imprimir denovo mudando o label.. num loop de 3 aio depende do que te cair melhor.. t+ Em 02/07/07, [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu: As vias do recibo devem ser numeradas, primeira caixa, segunda cliente, terceira arquivo, entendeu? Dai cada uma das paginas tem que ter um tipo de descricao. Espero ter sido claro, obrigado pela ajuda. []´s. - Original Message - From: Rafael Jorge [EMAIL PROTECTED] rafael.jorge%40gmail.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, July 02, 2007 4:51 PM Subject: Re: [delphi-br] Quick report - novas paginas. hum.. pq tu nao manda ele imprimri 3 veze? nao conheco tua logica por traz do recibo. mas qualquer coisa assim resolve. t+ Em 02/07/07, [EMAIL PROTECTED] tiano27%40yahoo.com.br [EMAIL PROTECTED] tiano27%40yahoo.com.br escreveu: Colegas Eu fiz um recibo em quick report e gostaria que esse fosse impresso em 03 vias. Porem, nao consigo fazer com que o quick report abra a visualizaçao das 03 vias, ele somente mostra a ultima via a ser impressa. Qual comando devo usara para abrir uma nova pagina em sequencia da primeira? Obrigado pela ajuda, qualquer ajuda é bem-vinda. []s. -- Rafael jorge alves www.acinformatica.org [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Rafael jorge alves www.acinformatica.org [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.9.14/884 - Release Date: 2/7/2007 15:35 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criação de componentes
Pessoal estou atrás de material sobre criação de componentes. Alguém tem material ai para enviar? Abraços Marlon [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problemas para me conectar em rede por nome??
Ai que está. A sua rede não deve ter serviço DNS interno, assim o FB não sabe por quem procurar. Assim uma solução seria colocar o servidor com IP fixo. Att Marlon - Original Message - From: Vicente Alves To: delphi-br@yahoogrupos.com.br Sent: Monday, July 02, 2007 1:59 PM Subject: [delphi-br] Problemas para me conectar em rede por nome?? Boa tarde Sou Iniciante em Delphi e estou desenvolvendo um sistema no Delphi7 e esta dando tudo certo o problema é com o banco Firebird Estou enviando esse e_mail pedindo uma ajuda como eu faço pra me conectar com um banco de dados FB em uma rede sem IP me mandaram um e_mail dissendo que o FB trabalha tanto com nome, como IP, basta eu saber se minha rede tem serviço de resolução de Nome com (DNS, Wins, etc) como eu faço pra configurar isso?? Aqui no meu Trabalho existe umas 20 Maquinas em rede com Ip automatico eu estou desenvolvendo um Banco.fdb e instalei o FB como servidor em uma maquina e não consigo me conectar a ele pela maquina que instalei o firebird como cliente por isso eu queria saber como eu faço pra me conectar usando nome da maquina nenhun nome que eu coloco é aceito da erro se vcs puderem ajudar agradeço Dorival!! __ Descubra como mandar Torpedos SMS do seu Messenger para o celular dos seus amigos. http://mobile.msn.com/ -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.9.14/884 - Release Date: 2/7/2007 15:35 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Tipos incopativeis: String e PAnsiChar
Não sei se vale ainda responder. Mas o comando PChar() deveria ser utilizado em toda a propriedade mas não somente para o diretório. Assim que funciona com o MessageDialg []s, Marlon - Original Message - From: Paulo Daniel To: delphi-br@yahoogrupos.com.br Sent: Saturday, June 30, 2007 3:00 PM Subject: Re: [delphi-br] Tipos incopativeis: String e PAnsiChar Agora foi. Muito obrigado Eduardo Silva dos Santos escreveu: é como o Rubem falaou, declare a unit ExtActns na clausula uses da sua unit. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.9.14/884 - Release Date: 2/7/2007 15:35 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problemas Breakpoints
Apaga todos os arquivos do com o mesmo nome do DPR deve funcionar. - Original Message - From: Clayton Yahoo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 20, 2007 5:12 PM Subject: Re: [delphi-br] Problemas Breakpoints Kra... uma vez eu mudei a configuração de compilação e deu essa merda. Verifique no menu Project/Options/Compiler. - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 20, 2007 2:48 PM Subject: Re: [delphi-br] Problemas Breakpoints lucaoliveira7 wrote: Pessoal, Já postei aqui neste grupo porém ninguém tem uma solução plausível. Já procurei e vários grupos e na internet e nada achei. Peço mais uma vez a atenção de vcs. Trabalho com Delphi6.0 e Oracle9. Não sei qdo nem como aconteceu, mas os breakpoints pararam de funcionar em um único programa. Estou utilizando VCLSkin, é a única coisa que me lembro de ter feito e depois parado de funcionar o breakpoint, só que msm retirando a VCLSkin o problema continua. Já deletei todas as DCU´s e recompilei tudo Não é problema de configuração do Delphi, uma vez que se abrir qq programa o breakpoint volta a funcionar. Project | Options | Compiler | Debug Information -- Joao Morais Então estou sem opções. E todos sabem que sem os breakpoints a depuração de erros se torna lenta e suscetível a mais erros, pq estou depurando com showmessages. Grato. [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.472 / Virus Database: 269.9.1/857 - Release Date: 20/6/2007 14:18 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OnExit único
Achei uma forma. Se você uma variavel do tipo TWinControl, ele herda todos os tipos de eventos. Assim você consegue fazer um FrameWork. Se quiser eu mando um exemplo. - Original Message - From: Yahoo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 22, 2007 8:11 PM Subject: Re: [delphi-br] OnExit único Você pode colocar esse Edit em um form e os forms herdados herdarão também os eventos do Edit. [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.467 / Virus Database: 269.7.6/814 - Release Date: 21/5/2007 14:01 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Aplicação DataSnap
Pessoal, a aplicação DataSnap é para ficar na internet e ser acessada via navegador. Se sim, é necessário alguma configuração especial no servidor? Atenciosamente Marlon [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OnExit único
Quero fazer um OnExit de um TEdit único para o meu sistema. A minha ideia é setar a propriedade OnExit do TEdit sem ter o evento no form que ele está, mas no form de funções. Isto é possivel? []s, Marlon [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Chat no Delphi
Vou dar uma procurada aqui nos meus arquivos e te mando. Ele usa o indy - Mensagem original De: Itabyte® [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 30 de Abril de 2007 9:34:34 Assunto: Re: [delphi-br] Chat no Delphi Há muito tempo fiz um usando sockets , ficou bem legal , mais nem sei onde coloquei ele. JESUS TE AMA !! MarcioCC® - Original Message - From: Ricardo To: [EMAIL PROTECTED] os.com.br Sent: Friday, April 27, 2007 3:04 PM Subject: [delphi-br] Chat no Delphi Boa tarde, gostaria de saber se alguem da lista já fez alguma coisa como um chat no delphi. Ou se alguem conhece uma maneira de acessar uma porta de uma maquina em uma rede, acessando por um computador fora da rede(na internet). Sem mais Ricardo Lino Gonzalez [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] !-- #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;} -- __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Quick Report - Urgente
Use stringband para fazer isto. com a propriedade TStringBand.Itens.Add('x'), cada vez que você faz isto é adicionado uma vez a banda no relatório. Cada BeforePrint ou qualquer outra evento você pode modificar a quantidade das vezes que o stringband aparece e você pode linkar com outros stringband ou o próprio relatório na propriedade Masterxxx Abs, Marlon - Mensagem original De: Régis Júlio Bender [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 1 de Maio de 2007 20:13:10 Assunto: [delphi-br] Quick Report - Urgente Boa Noite pessoal, preciso que meu relatório apareça o total do mês e um total geral. Por exemplo: Hoje eu tenho isso: debito credito saldo 01/02 Nota fiscal 01 100,00 100,00 02/02 Nota fiscal 02 100,00 200,00 03/02 Pagamento NF 01 100,00 100,00 01/03 Nota fiscal 03 100,00 200,00 02/03 Nota fiscal 04 100,00 300,00 03/03 Pagamento NF 02 100,00 200,00 01/04 Nota fiscal 05 100,00 300,00 02/04 Nota fiscal 06 100,00 400,00 03/04 Pagamento NF 03 100,00 300,00 e preciso disso: debito credito saldo 01/02 Nota fiscal 01 100,00 100,00 02/02 Nota fiscal 02 100,00 200,00 03/02 Pagamento NF 01 100,00 100,00 fevereiro100,00 200,00 01/03 Nota fiscal 03 100,00 200,00 02/03 Nota fiscal 04 100,00 300,00 03/03 Pagamento NF 02 100,00 200,00 Março 100,00 200,00 01/04 Nota fiscal 05 100,00 300,00 02/04 Nota fiscal 06 100,00 400,00 03/04 Pagamento NF 03 100,00 300,00 Abril100,00 200,00 2007300,00 600,00 Estou utilizando o delphi 7/IB e quick report. Alguém poderia me ajudar? [As partes desta mensagem que não continham texto foram removidas] !-- #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;}