Re: [delphi-br] Duplicidade de dados
Olá Ricardo Rocha, ex-zagueiro da seleção (hehehehe... brincadeirinha) O mundo da Modalagem de Banco de Dados não é um mar de rosas. Mas a doutrina que se prega na Universidade é: O SGBD deve ser capaz de garantir a integridade dos dados. Portanto, o ideal é modelar seu Banco de Dados de tal forma que você não precise efetuar tratamentos e verificações na aplicação para garantir a integridade dos dados. Saudações, Josimar Zimermann Em 25/8/2010 19:15, Ricardo Rocha escreveu: Olá à todos! Tenho uma dúvida sobre qual a melhor forma para tratar a duplicidade de dados em uma aplicação. Seria a melhor forma tratar na aplicação em si ou atraves do banco de dados criando campos do tipo (unique)? Obrigado. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Alterar um determinado componente
Olá Joel! Para percorrer os componentes eu executaria uma rotina assim: procedure PaintShapes; var I: integer; tempComp: TComponent; begin for I := 1 to 31 do begin tempComp := Components.FindComponent(Format('p%d', [I])); if (tempComp nil) and (tempComp is TShape) then // Executar a alteração da cor end; end; Uma sugestão: Se as cores de cada dia são fixas, você pode criar um array constante mapeando as cores, como por exemplo: const DayToColor: array[1..31] of TColor = (clBlue, clRed, clOlive, clGreen, clInfoBk, clGray, ...); E na linha que comentei na Procedure exemplo, poderá escrever: TShape(tempComp).Color := DayToColor[I]; Espero ter ajudado! Josimar Zimermann Em 25/8/2010 10:27, Joel Alexandre escreveu: Bom dia pessoal, Galera, estou com uma duvida aqui e deu branco. Tenho 31 componentes tipo TShape com nos names de p1 a p31. Gostaria de pintá-los conforme o dia atual. Alguem teria uma ideia de como fazer isso? Abraços e já agradeço qq ajuda Joel __. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Idéias prá um projeto legal open source
Olá amigo! O pessoal já citou a NF-e. Eu gostaria de ver algo com NFS-e. Integrar com uma base de dados existente que contém informações dos serviços prestados (valores) e mapear a estrutura dessa base para gerar o XML. Obrigado! Em 29/7/2010 11:43, Ricardo escreveu: O Machiavel no livro O Principe recomenda que as horas de lazer ajudem a nos engrandecer no trabalho. Ele cita como exemplo que um rei deveria ter, como hobbie, a caça, pois se divertiria enquanto se aprimora na arte da guerra, reconhece o proprio terreno... Desde entao eu as vezes crio algum projeto manero só pra relaxar. Assim como um cadastro para os meus livros, cds, meu proprio mediaplayer, meu proprio notepad, um OCR pra entender grade de respostas das provas que eu tenho que corrigir... To pensando em fazer algo open source, provavelmente em Delphi, cadastrar o projeto no source forge e tal... mas to sem inspiração. Alguem tem ideia de algo que eu possa iniciar? Alguma ferramenta que faz falta no dia-a-dia, que facilite a vida muitos usuarios? Agradeço a atençao! Ricardo Bianchin [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida sobre NFe com serviço (ISS)
Bom dia caro Samuel! Antes de tudo, deve ficar bem claro que quando estamos falando de Nota Fiscal de Serviços Eletrônica, usa-se o termo NFS-e, que é diferente da NF-e (me perdoe se eu estiver equivocado). Não acredito que este grupo seja o local ideal para conversar sobre este assunto, a menos que tema da conversa seja uma solução em Delphi para implementar a NFSe. Mas como acredito que posso lhe ajudar vou lhe passar a informação. O *Item da Lista de Serviço* é previamente definido pela Lei Complementar 116/2003 e você pode encontrar esta lista completa no site http://www.portaltributario.com.br/tributos/iss.html Cadastrar essa lista no banco de dados da sua aplicação fica a seu critério. Se seus clientes são todos do mesmo ramo, acredito não haver necessidade. Espero ter ajudado! Em 15/7/2010 09:10, Samuel M. Basso escreveu: Bom dia. Gostaria de tirar alguns duvidas a respeito de nota fiscal eletronica com NFe. Até onde sei notas de serviço eletronica não tem para todos as cidades mas existe uma informacao que me passaram a respeito que se o contribuinte tem Inscricao Estadual ele poderá emitir na NFe serviços e produtos juntos. Isso procede? Se sim, andei olhando o manual e tem campos para informar impostos ISS e um item que solicita: Informar o Item da lista de serviços da LC 116/03 em que se classifica o serviço. Isso seria como uma classificaçao fiscal de produto? Vou ter que adicionar por exemplo um cadastro no sistema de lista de serviços e aos serviços adicionados no sistema ele seleciona de qual lista se classifica? Idem produtos com classificaçao fiscal? -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelba...@gmail.com mailto:samuelbasso%40gmail.com Web site: www.otimizy.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] SQL+Performance [WHERE ((CAMPO = :PARAMETRO) OR (:PARAMETRO IS NULL))]
Olá Jhosep! Imagino que você irá utilizar o método *ParamByName* para informar o valor de *:PARAMETRO*, certo? Antes de você passar esse valor você sabe se ele será *NULL*. Se o valor de *:PARAMETRO* for *NULL*, será o equivalente a: *SELECT * FROM TABELA; *Seria similar à: *SELECT * FROM TABELA WHERE CAMPO = :PARAMETRO OR 1 = 1*, ou seja, todos os registros vão satisfazer a condição. * *Se a tabela for muito grande, imagina a demora que vai ser. Reveja a sua lógica, me parece que não algo errado! Valeu! Em 17/6/2010 18:25, Jhosef Marks escreveu: Boa tarde a todos ou boa noite... Galera só para saber como vocês trabalham e se vocês recomendam... Executar querys do tipo SELECT * FROM TABELA *WHERE ((CAMPO = :PARAMETRO) OR (:PARAMETRO IS NULL))* * * *é POG e prejudica na performance, ou é POG mas não tem problema de performance, ou em último caso isso é altamente recomendado? * Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ler arquivo XML
Olá Alisson! Seguem alguns links e artigos sobre TXMLDocument: http://www.caiooliveira.com.br/?p=132 http://delphi.about.com/od/adptips2006/qt/doctype_txmldoc.htm http://www.swissdelphicenter.ch/torry/showcode.php?id=2269 http://www.daniweb.com/forums/thread50530.html Boa programação! Em 15/6/2010 18:24, Alisson escreveu: Olá Josimar! Você tem algum exemplo de como ler o xml usando o componente TXMLDocument? Eu até consegui resolver o problema. Bastava criar os campos no clientdataset e usar o campo do tipo dataset que era criado para fazer o relacionamento em um clientdataset detalhe. Mas não gostei muito do TXMLTransformProvider porque é necessário criar um arquivo .xtr pra conseguir usá-lo. - Original Message - From: Josimar Zimermann To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, June 14, 2010 8:22 AM Subject: Re: [delphi-br] Ler arquivo XML Olá Alisson! Será que não seria melhor usar um TXMLDocument ?? Falou! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ler arquivo XML
Olá Alisson! Será que não seria melhor usar um TXMLDocument ?? Falou! Em 11/6/2010 17:51, Alisson escreveu: Estou tentando ler um arquivo XML usando o componente XMLTransformProvider. O XML é o arquivo da nota fiscal eletrônica. Eu ligo um clientdataset a um XMLTransformProvider. Dessa maneira eu consigo abrir o cabecalho da nota fiscal, mas não consigo abrir os itens da nota. Alguém sabe como fazer isso? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Crystal Reports - Alterar a conexão em tempo de execução
Bom dia companheiros! Aqui na empresa desenvolvemos relatórios utilizando a ferramenta /Crystal Reports/. Para conectar no banco de dados e selecionar as tabelas necessárias, utilizamos o ODBC. Na criação do relatórios selecionamos uma base de dados com um nome *X*. Na integração do relatório com o Delphi, O ODBC deve estar apontado para uma base de dados com o mesmo nome para o relatório funcionar. Gostaria de saber se é possível alterar em tempo de execução o nome da base na qual o relatório irá conectar-se para buscar as informações. Agradecido, Josimar Zimermann [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Objeto para string
Olá Anderson, eu tenho uma sugestão: Crie na sua classe um método/função chamado *ToString* que retorna uma string e concatene as informações desejadas: function TPessoa.ToString: string; const S_PESSOA_TO_STR = 'Pessoa.nome = %s' + #13 + 'Pessoa.endereco = %s' + #13 + 'Pessoa.pais = %s'; begin Result := Format(S_PESSOA_TO_STR, [Fnome, Fendereco, Fpais]); end; Boa programação! Em 14/6/2010 11:55, Anderson escreveu: TPessoa = class private Fnome : string; Fendereco : string; Fpais : string; public property nome: string read Fnome write Fnome; property endereco: string read Fendereco write Fendereco; property pais: string read Fpais write Fpais; end; queria pegar esse objeto TPessoa e passar para uma string que ficaria mais ou menos assim: Pessoa.nome = NOME Pessoa.endereco = ENDERECO pessoa.pais = PAIS alguma sugestao?? obrigado Anderson [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] SQL Embarcado
Olá Eny! Iniciei recentemente o devolvimento de uma suíte de componentes para isso. Vamos fazer com que o software da nossa empresa possa rodar em vários bancos de dados. O que estou fazendo é implementar minha própria suíte de componentes baseado na ZEOS DBO. Com algumas alterações isso será possível. Valeu! Em 11/6/2010 13:50, Eny Urias escreveu: Aliás, eu vou aproveitar esse assunto pra perguntar se alguém aqui desenvolve sistema que possa ser instalado com vários bancos... Sei de uma empresa grande de TI que está com um projeto desses... Fazer com que o sistema rode em 3 bancos... SQL, Oracle e mais um que nao sei qual é E fica a critério do cliente escolher o banco. Alguém já viu isso? -- Eny Trova Urias [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Editor de propriedade - construç ão de componentes
Olá companheiros! Agradeço à todos àqueles que por ventura tenham pesquisado algo a respeito, mas já descobri a solução. Para implementar este tipo de editor de propriedade de componente criei uma classe herdada da classe TClassProperty. Caso alguém tenha interesse em implementar algo do tipo estarei disposto a ajudar. Falou! Em 9/6/2010 16:46, Josimar Zimermann escreveu: Olá companheiros! Estou desenvolvendo um novo componente que possui uma propriedade do tipo *TStringList.* Eu sei que por padrão o Delphi já possui um editor de *TStringList*. Contudo, eu quero criar o meu próprio editor de *TStringList* com suas particularidades. Eu verifiquei que o Delphi já disponibiliza classes para edição de outros tipos de propriedades (inteiros, strings, enumerações, etc..) mas não disponibiliza um específico para *TStringList*. Alguém sabe como eu posso fazer ou algum artigo sobre o assunto. Agradecido, Josimar Zimermann [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Editor de propriedade - construçã o de componentes
Olá companheiros! Estou desenvolvendo um novo componente que possui uma propriedade do tipo *TStringList.* Eu sei que por padrão o Delphi já possui um editor de *TStringList*. Contudo, eu quero criar o meu próprio editor de *TStringList* com suas particularidades. Eu verifiquei que o Delphi já disponibiliza classes para edição de outros tipos de propriedades (inteiros, strings, enumerações, etc..) mas não disponibiliza um específico para *TStringList*. Alguém sabe como eu posso fazer ou algum artigo sobre o assunto. Agradecido, Josimar Zimermann [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Carregamento dinâmico de consultas SQL
Bom dia programadores! Aqui na empresa estamos iniciando o desenvolvimento de uma nova tecnologia interna utilizando os componentes de conexão ZEOS. O nosso objetivo é criar uma suíte de componentes baseados no ZEOS que carregarão dinamicamente as consultas/comandos SQL de acordo com o banco de dados do cliente (ORACLE, MySQL, PostgreSQL). Ainda estamos pensando onde vamos armazenar as consultas/comandos SQL para depois carregá-las dinamicamente. A minha questão: alguém tem alguma experiência com esta espécie de projeto (conexão com diferentes bancos de dados e carregamento dinâmico de SQL) ? O que os senhores sugerem? Tem alguma experiência com esta espécie de projeto ? Qualquer sugestão ou informação será bem-vinda! Obrigado! Josimar Zimermann
Re: [delphi-br] Out off memory - Socorro
Olá Reinaldo! Enquanto a sua aplicação executa fica de olho no consumo de memória do FIREBIRD. Talvez o banco de dados não esteja suportando. Se possível envia a estrutura da tua tabela onde são armazenados os arquivos, indicando qual é a chave primária. Configura também se os arquivos estão sendo comitados corretamente. Veja se o último arquivo enviado não está sobrescrevendo os anteriores. Falou! Em 30/4/2010 10:26, Reinaldo Aparecido Pereira escreveu: Amigos, Não entendo de gerenciamento de memória e o que tenho lido não resolveu meu problema. Estou com a rotina abaixo que importa o conteúdo de 1000 arquivos para um banco Firebird. Lá pelo arquivo 600 a aplicação trava e dá OUT OFF MEMORY. O executável é muito pequeno e acompanhando o processo não parece ocupar quase nada de memória. O que acontece afinal? Como posso resolver isso? Grato.. for i := 0 to Arquivos.Count - 1 do begin ProgressBar1.Position := i; Arquivos.ItemIndex := i; stlArquivo.Clear; stlArquivo.LoadFromFile(Arquivos.Items[Arquivos.ItemIndex]); for x := 0 to stlArquivo.Count - 1 do begin //tblArtigos.Active := true; tblArtigos.Append; tblArtigos.FieldByName('ANO').Text := cbAno.Text; tblArtigos.FieldByName('NUM_LINHA').Value := x; tblArtigos.FieldByName('PK_ARQUIVO').Text := Trim(Arquivos.Items[Arquivos.ItemIndex]); tblArtigos.FieldByName('LINHA').Text := Copy(Trim(stlArquivo[x]), 0, 999); tblArtigos.Post; end; end; [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] Importação de Arquivo X ML Farmacia
Olá Sr. Nilson! Eu desconheço qualquer modelo de documentos XML usado por farmácias, mas se você conhece o padrão do arquivo do arquivo poderá implementar algo para fazer a importação utilizando o *TXMLDocument.* Mas já lhe aviso de antemão que você terá que se desdobrar para achar documentação sobre esse documento. Contudo, ele é muito fácil de utilizar. Espero ter ajudado! Em 24/4/2010 13:03, Nilson C A Junior escreveu: Alguem da lista teria um exemplo de importação de arquivo XML de farmácia ? Estou sendo muito cobrado pelos meus clientes, e por estar terminando O PAF estou super apertado. Agradeço a todos antecipadamente Nilson Jr. 28 3553 0262 28 9976 1927 28 8811 0500 bancodeideias - assinatura [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] Trabalhando com TMemo
Olá Leonardo! Se o cursor do Mouse estiver posicionado na posição onde deseja inserir o texto, basta fazer: Memo.SelText := Meu Texto; Se você estiver trabalhando com Drag'n Drop (o que eu imagino que você está tentando fazer), faça o seguinte no evento DragOver do MEMO: procedure MemoDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept := true; Memo.SelStart := LOWORD(SendMessage(Memo.Handle, EM_CHARFROMPOS, 0, MakeLParam(X, Y))); Memo.SetFocus; end; E no Evento DragDrop do Memo é só passar o texto: procedure MemoDragDrop(Sender, Source: TObject; X, Y: Integer); begin TControl(Source).EndDrag(true); Memo.SelText := Meu Texto; end; Espero ter ajudado. Se isto não responde, procure ser mais específico no seu questionamento, para que possamos ajudá-lo! Falou! Em 31/3/2010 08:36, Leonardo Baldino escreveu: Alguem sabe como eu faço para inserir uma nova linha no memo em tempo de execução, porem inserindo um texto em uma determinada posição da linha. -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]