Re: [delphi-br] TDBGrid delphi 2010
Realmente não existe essa propriedade e, infelizmente, essa borda preta no editor do DBGrid no Delphi 2010 não é resolvido simplesmente setando uma propriedade, pois é um bug. O problema já foi apontado pelo Marco Cantu no seu livro Delphi 2010 Handbook (pg 203). A solução (gambiarra) que ele sugere é herdar um componente do DBGrid (ou usar uma classe interceptora) e alterar o método Paint para algo como: uses Rtti; procedure TDBGrid.Paint; var oldEditorMode: TValue; context: TRttiCOntext; editorModeField: TRttiField; begin editorModeField := context.GetType(TDbGrid). GetField('FEditorMode'); if Assigned (editorModeField) then begin oldEditorMode := editorModeField.GetValue(self); editorModeField.SetValue(self, TValue.From(False)); end; // now paint inherited; if Assigned (editorModeField) then editorModeField.SetValue(self, oldEditorMode); end; Eu não gostei muito da solução, pois vc acessa informações de run-time toda vez que o grid é atualizado (o que às vezes é lento) e ao adicionar a unit Rtti no projeto vc adiciona um monte de informação que talvez não fosse usar. Eu prefiro conviver com a borda preta em volta da célula até sair uma correção disso. Em 19 de abril de 2010 14:11, Carlos Aquino duar...@gmail.com escreveu: Camarada, sinceramente, não vejo nenhuma propriedade Layout no TDBGrid. Em 17 de abril de 2010 00:40, Andreano Lanusse andreano.lanu...@embarcadero.com andreano.lanusse%40embarcadero.com escreveu: Configura a propriedade de layout do DBGrid, isso é novo no Delphi 2010. From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br] On Behalf Of Carlos Aquino Sent: Friday, April 16, 2010 9:33 AM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Subject: [delphi-br] TDBGrid delphi 2010 Galera, o TDBGrid do delphi 2010 quando editando um campo, tem uma borda preta em volta da célula horrorosa, alguém sabe como eu tiro aquela borda ? Lembrando que é o TDBGrid original do próprio delphi. -- __ : grato e sem mais, : Carlos Aquino, Uberaba/MG __ : http://duard.com.br//bloghttp://duard.com.br/blog : Msn-Messenger : duar...@hotmail.com duardbr%40hotmail.com duardbr% 40hotmail.commailto: duardbr%40hotmail.com duardbr%2540hotmail.com __ : Uberaba-MG / Brasil __ [As partes desta mensagem que não continham texto foram removidas] CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message. [As partes desta mensagem que não continham texto foram removidas] -- __ : grato e sem mais, : Carlos Aquino, Uberaba/MG __ : http://duard.com.br//blog : Msn-Messenger : duar...@hotmail.com duardbr%40hotmail.com __ : Uberaba-MG / Brasil __ [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 * 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] duvida em Project-Opcoes-Directory/Conditionals
Tente caminhos relativos ao arquivo do projeto. Use .\ para a pasta do projeto e ..\ para cada nível de pasta acima dela. Por exemplo, se o arquivo .dpr fica na pasta C:\NOMEDAMAQUINA\Projetos\Fontes\ e vc quer o executável em C:\NOMEDAMAQUINA\Projetos\EXE, use ..\EXE\. Em 15 de abril de 2010 09:16, dangra2008 dangra2...@yahoo.com.br escreveu: Poderiam me ajudar numa duvida? Tenho os seguintes diretorios C:\NOMEDAMAQUINA\Projetos\Fontes\Projeto1.dpr C:\NOMEDAMAQUINA\Projetos\Fontes\Projeto2.dpr C:\NOMEDAMAQUINA\Projetos\Fontes\Projeto3.dpr C:\NOMEDAMAQUINA\Projetos\EXE (onde caem os 3 exe compilados) Para que os exe já caiam na pasta correta, configurei as opções do projeto (project - Options - Directory/Conditionals - Output Directory = C:\NOMEDAMAQUINA\Projetos\EXE Porem isso fica preso ao projeto e quando é compilado, esse caminho tem que ser alterado a cada maquina que se usa Tem como colocar esse diretorio com uma diretiva que pegue sempre o diretorio Projetos\EXE (sem o driver e o nome da maquina?) como é feito com as library paths onde se coloca $DELPHI ? ex: ..\Projetos\exe Graça -- _ 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 * 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
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.comescreveu: 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 * 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] Vírus na compilação D7
Vc está usando algum componente de terceiros? Pq na empresa que trabalho usamos o Delphi 7 e nunca tivemos esse problema em nenhum cliente. Em 12 de abril de 2010 19:59, Bollasette bollase...@yahoo.com.br escreveu: Olá, saudações a todos. Só o que faltava !!! Pessoal, estou com um problema e gostaria de saber se alguém da lista passou por isso. Compilei um exemplo em D7 e mandei prá um amigo e o mesmo me reportou a presença de um vírus. Enviei o arquivo para análise no virustotal.com e foi confirmado um vírus: (Sus/BancDl-A). Não encontrei nennhuma vacina free para a correção. Já escaneei o PC com o avast, AVG, spybot, comodo e nada, e lá se vão quinze dias perdidos. [ ]sss [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 * 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] função findfirst
Na verdade, a API FindFirst não garante nem que os arquivos voltarão na ordem em que foram gravados, provavelmente pq a tabela de alocação de arquivos pode ter suas entradas alterada por vários fatores, como desfragmentações e otimizações de prefecth. Então, assim como uma consulta SQL sem ORDER BY, o melhor é não assumir ordem nenhuma. Em 9 de abril de 2010 15:57, Alexandre alexandre.pedr...@gmail.comescreveu: boa tarde, não sei se é isso que você quis dizer, mas... a ordem que o FindFirst tras os arquivos é a ordem em que foram gravados no diretório. Para ordenar, grave os arquivos num stringlist e use a propriedade de ordenação do mesmo. Depois faça o loop no StringList e obterá o resultado desejado. Alexandre Em 8 de abril de 2010 08:16, Ralp Alves Bezerra ral...@gmail.com escreveu: Bom dia nobres colegas. Estou utilizando esta rotina para pegar as imagens de uma pasta e salvar no banco firebird. if FindFirst('C:\G2DOC\G2Imagem\*.jpg', faAnyFile, Arq) = 0 then begin repeat DM.cds_TCM_A.Insert; dbiImagem.LoadFromFile('C:\G2DOC\G2Imagem\'+Arq.Name); //Incrementa número da página Inc(Pag); //Grava Número da página DM.cds_TCM_APAGINA.Text :=IntToStr(Pag); //Grava nome do arquivo DM.cds_TCM_ANOME_ARQUIVO.Text :=frmDigitalizaTCM.Label13.Caption+IntToStr(Pag)+'.jpg'; //Grava Caminho do Arquivo DM.cds_TCM_ACAMINHO.Text :=Dir; //Grava sigla do documento DM.cds_TCM_ASIGLA_DOCUMENTO.Text :=DM.cds_TCMSIGLA_DOCUMENTO.Text; //Grava Codigo entidade DM.cds_TCM_ACODIGO_ENTIDADE.Text :=DM.cds_TCMCODIGO_ENTIDADE.Text; //Grava Cod. Unid. Administrativa DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DM.cds_TCMCOD_UNID_ADMINISTRATIVA. Text; //Grava Exercicio DM.cds_TCM_AEXERCICIO.Text :=DM.cds_TCMEXERCICIO.Text; //Grava Unidade Gestora DM.cds_TCM_AUNIDADE_GESTORA.Text :=DM.cds_TCMUNIDADE_GESTORA.Text; //Grava Nome Documento DM.cds_TCM_ANOME_DOCUMENTO.Text :=DM.cds_TCMNOME_DOCUMENTO.Text; //Informa se arquivo foi digitalizado DM.cds_TCM_ADIGITAL.Text :='1'; //Informa o anexo do demonstrativo DM.cds_TCM_AANEXOS.Text :=frmDigitalizaTCM.DBText5.Caption; DM.cds_TCM_A.Post; DM.cds_TCM_A.ApplyUpdates(0) until FindNext(Arq) 0; FindClose(Arq); end; Porém, quando vou verificar a seqüência da pasta com a importação dos arquivos no banco firebird, noto que alguns arquivos saem da ordem correta. Será que a rotina acima está correta? Alguém poderia me dar uma dica? Estou utilizando Firebird 2.1 e Delphi 7. Abraços. Ralp Alves [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 -- _ 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]
Re: [delphi-br] Draw - Page Control
Acho que vc teria que ter aberto um outro tópico, já que no assunto não tem nada a ver com esse... O dígito verificador é formado por 2 dígitos onde o primeiro é o módulo 11 dos 32 algarismos da mátricula e o segundo é módulo 11 dos mesmos algarismos concatenado ao primeiro dígito. Supondo que no Edit1 está o número completo da matrícula (sem espaços) e no Edit2 sairá o DV: *function *calcularDX(Numero: *string*): integer; *var* i: integer; mult: integer; soma: integer; *begin* i := 1; mult := Length(Numero) + 1; soma := 0; *while *i = Length(Numero) do *begin* Inc(soma, ((Ord(Numero[i]) - 48) * mult) * 10); Inc(i); Dec(mult); *end*; Result := soma *mod *11; *if *Result = 10 *then *Result := 1; *end*; *procedure *TForm1.Button1Click(Sender: TObject); *var* D1, D2: Char; *begin* D1 := Chr(CalcularDX(Edit1.Text) + 48); D2 := Chr(CalcularDX(Edit1.Text + D1) + 48); Edit2.Text := D1 + D2; *end*; No provimento 2 da norma do CNJ está descrito a que se refere cada parte do número da matrícula. OBS.: Da próxima vez, abre outro tópico =) Em 9 de abril de 2010 21:49, Pedro Neves neve...@yahoo.com escreveu: Pessoal, boa noite. Alguém tem a fórmula para calcular o digito verificador da matrícula das novas certidões de nascimento, casamento e óbtio. Atenciosamente, Pedro [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 * 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] Draw - Page Control
Vc está querendo alterar o Caption do Form no OnDrawTab do PageControl? Vc não acha isso meio esquisito...? Vc poderia mandar o DrawTab inteiro pra dar uma olhada? Em 9 de abril de 2010 09:49, Magnun Oliveira magnunolive...@gmail.comescreveu: Bom dia a todos. Estou fazendo uns ajustes em um page control, e preciso usar o OnDrawTab. Porem o resultado é diferente entre delphi 2010 e 7. Ex: Coloquei um PageControl, duas abas, setei o OwnerDraw para True. No EventoOnDrawTab coloquei: Caption := formatdatetime('HH:MM:SS:MM', now); No delphi 7 nada acontece, no 2010 o Caption da janela é alterado normalmente. isso é algum bug ou o q ? vlw. [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 * 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] função findfirst
Os comandos FindFirst/FindNext não trazem os arquivos em nenhuma ordem específica. Se vc quer ordená-los por nome, carregue os nomes em uma StringList, chame o método Sort e depois processe cada um dos itens da lista (caso a ordenação seja por nome de arquivo). Em 8 de abril de 2010 08:16, Ralp Alves Bezerra ral...@gmail.com escreveu: Bom dia nobres colegas. Estou utilizando esta rotina para pegar as imagens de uma pasta e salvar no banco firebird. if FindFirst('C:\G2DOC\G2Imagem\*.jpg', faAnyFile, Arq) = 0 then begin repeat DM.cds_TCM_A.Insert; dbiImagem.LoadFromFile('C:\G2DOC\G2Imagem\'+Arq.Name); //Incrementa número da página Inc(Pag); //Grava Número da página DM.cds_TCM_APAGINA.Text :=IntToStr(Pag); //Grava nome do arquivo DM.cds_TCM_ANOME_ARQUIVO.Text :=frmDigitalizaTCM.Label13.Caption+IntToStr(Pag)+'.jpg'; //Grava Caminho do Arquivo DM.cds_TCM_ACAMINHO.Text :=Dir; //Grava sigla do documento DM.cds_TCM_ASIGLA_DOCUMENTO.Text :=DM.cds_TCMSIGLA_DOCUMENTO.Text; //Grava Codigo entidade DM.cds_TCM_ACODIGO_ENTIDADE.Text :=DM.cds_TCMCODIGO_ENTIDADE.Text; //Grava Cod. Unid. Administrativa DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DM.cds_TCMCOD_UNID_ADMINISTRATIVA. Text; //Grava Exercicio DM.cds_TCM_AEXERCICIO.Text :=DM.cds_TCMEXERCICIO.Text; //Grava Unidade Gestora DM.cds_TCM_AUNIDADE_GESTORA.Text :=DM.cds_TCMUNIDADE_GESTORA.Text; //Grava Nome Documento DM.cds_TCM_ANOME_DOCUMENTO.Text :=DM.cds_TCMNOME_DOCUMENTO.Text; //Informa se arquivo foi digitalizado DM.cds_TCM_ADIGITAL.Text :='1'; //Informa o anexo do demonstrativo DM.cds_TCM_AANEXOS.Text :=frmDigitalizaTCM.DBText5.Caption; DM.cds_TCM_A.Post; DM.cds_TCM_A.ApplyUpdates(0) until FindNext(Arq) 0; FindClose(Arq); end; Porém, quando vou verificar a seqüência da pasta com a importação dos arquivos no banco firebird, noto que alguns arquivos saem da ordem correta. Será que a rotina acima está correta? Alguém poderia me dar uma dica? Estou utilizando Firebird 2.1 e Delphi 7. Abraços. Ralp Alves [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 * 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] PIS e COFINS
Imposto sobre importação??? Ixi... Cara, só com o valor do produto, a alíquota do PIS e do COFINS não dá pra calcular não... Que eu saiba, se não mudou a lei desde 2003, primeiro vc precisa saber se o IPI é, como dizem, ad valorem ou se é uma alíquota específica, pois o cálculo é diferente para os dois casos. Depois vc precisa saber a alíquota do imposto de importação (II), o imposto sobre circulação de mercadoria e serviços (ICMS) e se há quaisquer outros impostos que incidam sobre o valor do produto (IMPOSTOS). Daí, vc faz os seguintes cálculos: V1 := (1 + ICMS * (II + IPI*(1 + II))) / (1 - PIS - COFINS - ICMS); V2 := ICMS / (1 - PIS - COFINS - ICMS); ValorCofins := COFINS * ((VALOR * V1) + (IMPOSTOS * V2)); ValorPIS := PIS * ((VALOR * V1) + (IMPOSTOS * V2)); Onde todos os valores que são porcentagem estão em forma decimal (100% = 1, 50% = 0.5, etc) e VALOR é o valor aduaneiro, que eu suponho seja o valor do produto que vc passou. Agora se a alíquota do IPI for específica, me fala que eu dou uma procurada por aqui se ainda tenho o cálculo (que é um pouco mais feio que esse, rsss). Espero que seja isso o que vc estava procurando. Em 9 de abril de 2010 19:18, Heraldo Andrade heraldo_andr...@yahoo.com.brescreveu: o produto custa 10,00, o pis 0,65 e o cofins 3,00, como eu calculo isto, o contador me passou os valores, mas esta fechado e volta na segunda, e segunda cedinho eu preciso entregar prontinho a NFE, so falta isto, alguem tem uma dica? [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 * 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] PIS e COFINS
É que alguns anos trabalhei em um sistema financeiro onde a parte de cálculo da contribuição do PIS e COFINS caia sobre a receita geral da empresa e na importação de bens e serviços. Como o Heraldo mencionou um produto, achei se tratar da primeira forma, mas agora também fiquei na dúvida... =/ 2010/4/10 Andrei Luís compuvale.softw...@gmail.com Heraldo, quando li sua mensagem entendi que você quer saber como calcular o valor do PIS e COFINS baseado nas infos que você passou (10,00, 0,65 e 3,00). Mas aí o Ricardo falou em imposto sobre importação(?) e não entendi mais nada. Aqui pra mim não aparece nada sobre II. Afinal, o que você precisa? []s Andrei 2010/4/9 Heraldo Andrade heraldo_andr...@yahoo.com.brheraldo_andrade%40yahoo.com.br o produto custa 10,00, o pis 0,65 e o cofins 3,00, como eu calculo isto, o contador me passou os valores, mas esta fechado e volta na segunda, e segunda cedinho eu preciso entregar prontinho a NFE, so falta isto, alguem tem uma dica? [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 * 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] Busca em ListBox
Vc pode mandar uma mensagem LB_FINDSTRING para a listbox que ela te volta o índice que começa com aquela palavra (case-insensitive): *index := ListBox1.Perform(LB_FINDSTRING, 0, Integer(PChar('cidade')));* O problema é que isso só funciona se 'cidade' for a primeira palavra do item. Se a palavra pode estar no meio de algum item, acho que vc vai ter mesmo que procurar item a item usando a função AnsiContainsText da unit StrUtils: *.index := -1; . .for i:=0 to ListBox1.Count - 1 do .begin . if AnsiContainsText(ListBox1.Items[i], 'cidade') then . begin .index := i; .break; . end; .end; * É case-insensitive e suporta caracteres acentuados. Em 7 de abril de 2010 16:41, Richardson Freddo mjrkon...@yahoo.com.brescreveu: Galera. Tenho um listbox na tela que recebe dados de um arquivo texto. Agora eu preciso localizar uma palavra dentro do listbox, mas ocorre que se eu digitar, por exemplo: cidade e no listbox a palavra estiver escrita Cidade ele nao encontra, ou seja, tem que ser a escrita exata. Alguem sabe como me ajudar? Richardson Marcelo Freddo. msn: freddodp...@hotmail.com freddodpvat%40hotmail.com Skype: r.freddo Rondonópolis/MT [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 * 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] Quickreport - Saber se é preview ou print do Relatorio
Já tentou usar os eventos OnPreview e AfterPreview do TQuickRep? Em 6 de abril de 2010 08:27, Marcio mtenre...@unimar.br escreveu: Ola, estou tendo o seguinte problema com o Quick: Preciso realizar uma determinada operação somente se for dado o print do relatório e não o preview do mesmo. Acontece que em ambas as situações ele passa pelos eventos after/before print do componente. Alguem sabe como posso fazer para descobrir se a operação é de Preview ou Print do relatorio? Obrigado Márcio [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 * 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: Re: [delphi-br] Quickreport - Saber se é previe w ou print do Relatorio
Ah, tá... agora entendi. Realmente falta no QuickReport eventos do tipo OnRender, já que o OnPrint refere-se ao desenho do relatório e não ao envio do mesmo para a impressora. Para saber quando o relatório está sendo enviado para a impressora ou para a tela de visualização, o truque é ler a propriedade Destination da QRPrinter usada pelo relatório, como mostrado abaixo: |procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean);| |begin | if QuickRep1.QRPrinter.Destination = qrdPrinter then |ShowMessage('Imprimindo!') | else |ShowMessage('Visualizando!'); |end; Para isso vc tb vai precisar incluir a unit QRPrntr na clausula uses. Em 6 de abril de 2010 11:02, Marcio mtenre...@unimar.br escreveu: Eu uso ele sim. Mas o que eu tenho problema é que o evento Before Print e After Print é disparado mesmo quando dou um preview. E queria que fosse disparado somente quando desse o print... Eu mostro o relatorio para o o usuario e so gravo determinada situacao se ele efetivar a impressão. ---Mensagem original--- De: Ricardo Augusto Data: 04/06/10 09:32:36 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Quickreport - Saber se é preview ou print do Relatorio Já tentou usar os eventos OnPreview e AfterPreview do TQuickRep? Em 6 de abril de 2010 08:27, Marcio mtenre...@unimar.brmtenreiro%40unimar.br escreveu: Ola, estou tendo o seguinte problema com o Quick: Preciso realizar uma determinada operação somente se for dado o print do relatório e não o preview do mesmo. Acontece que em ambas as situações ele passa pelos eventos after/before print do componente. Alguem sabe como posso fazer para descobrir se a operação é de Preview ou Print do relatorio? Obrigado Márcio [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] -- _ 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 * 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] Envio E-Mail
Cara, O GMail, além de requerer autenticação SSL, vc precisa ativar o POP3 na sua conta, senão sempre dará erro de autenticação ao tentar baixar os emails. De qualquer forma, caso não seja esse o problema, encontrei um exemplo que usa o Indy 9 aqui: http://www.plic-plac.com/forum/Download/Delphi/EnviaEmail.zip Em 5 de abril de 2010 14:59, Eduardo Suruagy eduardosuru...@gmail.comescreveu: Pessoal, muito obrigado pelas informações, mas, ainda não estou conseguindo. Estou usando Delphi 7 com indy10.1.5_d7, estou tentando usar minha conta do gmail como servidor de smtp mas, sempre ocorre erro de autenticação. Estou usando as dll libeay32 e a ssleay32, mesmo assim não vai... Se alguem tiver um exemplo funcionando e puder compartilhar por favor envie o e-mail para o mesmo da lista, obrigado pela atenção!!! [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 * 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] Envio E-Mail
No exemplo as portas estão definidas com os padrões. O GMail usa outras portas. Acho que 995 para POP e 465 para SMTP. Em 5 de abril de 2010 15:55, Eduardo Suruagy eduardosuru...@gmail.comescreveu: Ricardo, baixei o exemplo e testei o executável que vem com ele, mesmo assim não consigo enviar o email, sempre da erro: Error connecting with SSL [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 * 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] Relatório padrão
Como vc está fazendo essa herança? Lembre-se que os componentes que vc insere em um Quickreport são inseridos no form pai desse relatório, como se o relatório fosse um panel. Daí, se vc fizer algo como: TNovoRep = class(TRepBase) ele virá vazio mesmo... como um TPanel qualquer viria. Tente fazer uma herança visual do form que contém o Quickreport. Em 1 de abril de 2010 16:00, Berdam berdamzi...@yahoo.com.br escreveu: Galera, estou com uma dúvida, tenho um relatório no quick report que tem um design que é herdado em outros relatórios. Acontece que adicionamos alguns labels no relatório padrão, e eles não são herdados nos relatórios filhos. A herança de componentes só acontece se eu crio um relatório filho herdado do padrão. Alguma ajuda pra isso ?? __ 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] -- _ 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 * 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] Avancando linhas (Printer)
Que tipo de impressora é? Matricial, laser, jato de tinta? Como vc está imprimindo? Usando o Canvas de impressão ou algum engine de relatório (QuickReport, ReportBuilder, ...)? Vc já verificou se configurou corretamente o tamanho do papel? Em 1 de abril de 2010 15:42, Jonata jon...@ymail.com escreveu: Não importa qual é o relatório, minha impressora avança algumas linhas depois da impressão. O que faço? Nota: Interessante que se eu imprimo do delphi (usando Printers) avanca as linhas, mas se eu primeiro imprimir para arquivo e depois imprimir (usando o notepad) imprime sem avançar as linhas. Desde já, muito obrigado. -- _ 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 * 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] Dúvida Simples - Texto em MEMO
Não há como. Multiline strings não são suportadas no Delphi ainda. Existem alguns experts para a IDE que facilitam trabalhar com esse tipo de inserção, mas de qq modo, no final, vc vai ter algo como: mem1.text := '#include stdio.h'#13 + '#include conio.h'#13 +... Em 26 de março de 2010 11:04, Augusto Nascimento augustobon...@gmail.com escreveu: Gostaria de saber como posso colocar um texto em um Memo; assim: memo1.text := //aqui é o texto todo, um código em C // O Objetivo desse programa em Delphi é criar um menu com todos os programas desenvolvidos nas aulas #include stdio.h #include conio.h #define p printf #define s scanf int main() { int num; p(\tInforme um numero inteiro com 3 algarismos (ex:123): ); s(%d, num); p(\nCentena: %d\n\n, num / 100); num %= 100; p(\nDezena: %d\n\n, num / 10); num %= 10; p(\nUnidade: %d\n\n, num); getche(); return 0; } Como eu faço para não precisar colocar: memo1.lines.add(#includestdio.h); memo1.lines.add(#includeconio.h); E inserir o texto inteiro de uma vez? Obrigado [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) -- 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