[delphi-br] Compomente de Layout para Delphi 2010
Boa tarde pessoal gostaria de saber se alguem sabe de algum compomente de layout de form para o delphi 2010 teste dois Tranpear Xp e Office VCL v.1.0 mais os dois estao dando erro. grato deste ja
[delphi-br] Erro Na Instalação Da Nfe da Acbr
Quando eu vou instalar o ACBrNFeDanfeRV.dpk da este erro. Não foi possível localizar o ponto de entrada do procedimento @synau...@normalizeheader$qqrp16classes@TStringsri na biblioteca de vínculo dinâmico ACBr_VCL.bpl. Já pesquisei em todo sites e nao achei nada relacionado.
[delphi-br] Re: OFF TOPIC - Erro de select em campo datetime
Este campo nao seria data com hora.. ai vai trazer mesmo tudo que for maior que a data + hora zero se vc nao informar... 26/07/2009 00:00:00 ve se nao e isto --- Em delphi-br@yahoogrupos.com.br, Alisson Yahoo alss...@... escreveu Estou fazendo o seguinte select no Firebird 2.0 : Select * From Tabela Where Campo :Data Se na tabela tiver algum registro com o campo exatamente igual ao parâmetro, esse registro é retornado pela consulta, quando deveria retornar apenas os registros com data maior que a do parâmetro. Alguém sabe por que isso acontece? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: RES: [delphi-br] NF-e Status com ACBrNFe
Mais tu teis um Certificado Valido?? por que o que esta junto com o compomente ja expirou ai nao vai funcionar mesmo --- Em delphi-br@yahoogrupos.com.br, Dimas Bolognani di...@... escreveu Bom dia, Isto apenas quer dizer que o serviço do estado que vc verificou não esta funcionado no momento. Vai tentando que já vc recebe um OK. Atte. Dimas De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Samuel M. Basso Enviada em: terça-feira, 4 de agosto de 2009 13:36 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] NF-e Status com ACBrNFe Olá pessoal! Estou testando o envio de nota fiscal eletronica com o componente ACBrMonitorNFe e estou tendo um problema ao verificar o status ele me mostra o seguinte erro: WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. - A autoridade de certificação não é válida ou está incorreta - URL: https://homologacao.nfe.sefaz.rs.gov.br/ws/nfestatusservico/NfeStatusServico .asmx- SOAPAction: http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico/nfeStatusServicoNF Verifiquei em diversos sites e me falaram sobre a cadeia de certificados etc, já fiz tudo isso e ainda persiste o erro. Se alguem poder me ajudar agradeço. -- Atenciosamente, Samuel M. Basso Tel: (54) 3463-9114 Cel: (54) 8135-3723 E-mail/MSN: samuelba...@... mailto:samuelbasso%40gmail.com Web site: www.samuelbasso.com [As partes desta mensagem que não continham texto foram removidas] Verificado por AVG - www.avgbrasil.com.br Versão: 8.5.375 / Banco de dados de vírus: 270.13.42/2279 - Data de Lançamento: 08/05/09 05:57:00 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Debbugar uma BPL
Preciso de uma ajuda como eu faço pra debbugar uma bpl que foi carregada implicitamente... pois sempre que marco break point na unit da bpl e mando rodar ela entra em modo CPU, tem alguma forma de nao entrar neste modo ? mais uma coisa a Bpl e o Aplicativo estao no mesmo Project group... Deste ja agredeco...
[delphi-br] Problemas de Ole Error 800a03ec quando envio formala 'SE'
BOM DIA A TODOS ESTOU EXPORTANDO UM RELATORIO PARA O EXCEL E PRECISO MANDAR UMA FORMULA '=SE(C50,'VERDADEIRO','FALSO')' MAIS DA ERRO DE OLE JA TENTEI COLOCAR EM VEZ DE SE IF...
[delphi-br] Re: Problemas de Ole Error 800a03ec quando envio formala 'SE'
cTitulo := 'Planilha de Teste'; objExcel := CreateOleObject('Excel.Application'); objExcel.Caption := cTitulo; VIOFAdic:=0; VTJuros:=0; VTIOF:=0; if ceIOFAdic.Value 0 THEN VIOFAdic:=ceIOFAdic.Value/100; if ceTJuros.Value 0 THEN VTJuros:=ceTJuros.Value/100; if ceTIOF.Value 0 THEN VTIOF:=ceTIOF.Value/100; objExcel.Workbooks.Add; objExcel.Workbooks[1].Sheets.Add; objExcel.Workbooks[1].WorkSheets[1].Name := cTitulo; Sheet := objExcel.Workbooks[1].WorkSheets[cTitulo]; Sheet.Range['B2'] := 'BORDERÔ DE COBRANÇA'; Sheet.Range['B4','C4'].Borders.LineStyle := 1; Sheet.Range['B4','C4'].Borders.Weight := 2; Sheet.Range['B4','C4'].Borders.ColorIndex := 1; Sheet.Range['B4'].ColumnWidth := 13.29; Sheet.Range['B4'] := 'DATA .:'; Sheet.Range['C4'].ColumnWidth := 10; Sheet.Range['C4'] := eData.Text; Sheet.Range['B5','C5'].Borders.LineStyle := 1; Sheet.Range['B5','C5'].Borders.Weight := 2; Sheet.Range['B5','C5'].Borders.ColorIndex := 1; Sheet.Range['B5'] := 'IOF ADICIONAL'; Sheet.Range['C5'].NumberFormat := '0,00%'; Sheet.Range['C5'] := VIOFAdic; Sheet.Range['B6','C6'].Borders.LineStyle := 1; Sheet.Range['B6','C6'].Borders.Weight := 2; Sheet.Range['B6','C6'].Borders.ColorIndex := 1; Sheet.Range['B6'] := 'TAXA . .:'; Sheet.Range['C6'].NumberFormat := '0,00%'; Sheet.Range['C6'] := VTJuros; Sheet.Range['E4','F4'].Borders.LineStyle := 1; Sheet.Range['E4','F4'].Borders.Weight := 2; Sheet.Range['E4','F4'].Borders.ColorIndex := 1; Sheet.Range['E4'] := 'TAR ..:'; Sheet.Range['E4'].ColumnWidth := 9.86; Sheet.Range['F4'].NumberFormat := 'R$ #.##0,00_);[Vermelho](R$ #.##0,00)'; Sheet.Range['F4'] := ceTarifa.Value; Sheet.Range['E5','F5'].Borders.LineStyle := 1; Sheet.Range['E5','F5'].Borders.Weight := 2; Sheet.Range['E5','F5'].Borders.ColorIndex := 1; Sheet.Range['E5'] := 'IOF .. .:'; Sheet.Range['F5'].NumberFormat := '0,00%'; Sheet.Range['F5'] := VTIOF; Sheet.Range['A9','K9'].Borders.LineStyle := 1; Sheet.Range['A9','K9'].Borders.Weight := 2; Sheet.Range['A9','K9'].Borders.ColorIndex := 1; Sheet.Range['A9','K9'].VerticalAlignment := 2; Sheet.Range['A9','K9'].HorizontalAlignment := 3; Sheet.Range['A9'] := 'Nº FAT.'; Sheet.Range['A9'].ColumnWidth := 15; Sheet.Range['B9'] := 'VALOR/FAT.'; Sheet.Range['C9'] := 'VENCIM.'; Sheet.Range['D9'] := 'Nº DIAS'; Sheet.Range['E9'] := 'JUROS'; Sheet.Range['F9'] := 'TAR.'; Sheet.Range['G9'].ColumnWidth := 0; Sheet.Range['G9'] := 'Base Calculo IOF Adic'; Sheet.Range['H9'] := 'IOF Adic'; Sheet.Range['I9'].ColumnWidth := 0; Sheet.Range['I9'] := 'Cálculo IOF'; Sheet.Range['J9'] := 'IOF'; Sheet.Range['K9'] := 'SAL/LIQ'; Linha:=10; rxReceber.First; while not rxReceber.Eof do begin PColuna:='A'+ IntToStr(Linha); SColuna:='K'+ IntToStr(Linha); Sheet.Range[PColuna,SColuna].Borders.LineStyle := 1; Sheet.Range[PColuna,SColuna].Borders.Weight := 2; Sheet.Range[PColuna,SColuna].Borders.ColorIndex := 1; Sheet.Range[PColuna,SColuna].VerticalAlignment := 2; Sheet.Range[PColuna,SColuna].HorizontalAlignment := 3; Sheet.Cells[Linha,1]:=rxReceberNroFatura.AsString; Sheet.Cells[Linha,2].NumberFormat := 'R$ #.##0,00_);[Vermelho](R$ #.##0,00)'; Sheet.Cells[Linha,2]:=rxReceberVlrFatura.AsFloat; Sheet.Cells[Linha,3]:=rxReceberDtVencto.AsString; PColuna:='C'+ IntToStr(Linha); Sheet.Cells[Linha,4].NumberFormat := '0'; // AQUI E QUE DA O ERRO EU JA COLOQUEI 'SE' E 'IF' E MESMO ASSIM DA O ERRO Sheet.Cells[Linha,4].formula:='IF(('+PColuna+'-C$4)0;'+PColuna+'-C$4;0)'; PColuna:='B'+ IntToStr(Linha); SColuna:='D'+ IntToStr(Linha); Sheet.Cells[Linha,5].NumberFormat := '0,00'; Sheet.Cells[Linha,5].formula:='='+PColuna+'*C$6/30*'+SColuna; PColuna:='D'+ IntToStr(Linha); Sheet.Cells[Linha,6].NumberFormat := '0,00'; // AQUI E QUE DA O ERRO EU JA COLOQUEI 'SE' E 'IF' E MESMO ASSIM DA O ERRO Sheet.Cells[Linha,6].formula:='=IF('+PColuna+'0;F$4;0)'; PColuna:='B'+ IntToStr(Linha); SColuna:='E'+ IntToStr(Linha); Sheet.Cells[Linha,7].NumberFormat := '0,00'; Sheet.Cells[Linha,7].formula:='='+PColuna+'-'+SColuna; PColuna:='G'+ IntToStr(Linha); Sheet.Cells[Linha,8].NumberFormat := '0,00'; Sheet.Cells[Linha,8].formula:='='+PColuna+'*C$5'; PColuna:='D'+ IntToStr(Linha); Sheet.Cells[Linha,9].NumberFormat := '0,%'; Sheet.Cells[Linha,9].formula:='=(((F$5/12)/30)*'+PColuna+')'; PColuna:='B'+ IntToStr(Linha); SColuna:='I'+ IntToStr(Linha); Sheet.Cells[Linha,10].NumberFormat := 'R$ #.##0,00_);[Vermelho](R$ #.##0,00)'; Sheet.Cells[Linha,10].formula:='='+PColuna+'-'+SColuna; PColuna:='B'+IntToStr(Linha)+'-E'+IntToStr(Linha)+'-F$5-H'+IntToStr(Linha)+'-J'+IntToStr(Linha); Sheet.Cells[Linha,11].NumberFormat := 'R$ #.##0,00_);[Vermelho](R$ #.##0,00)'; Sheet.Cells[Linha,11].formula:='='+PColuna; rxReceber.Next;
[delphi-br] Re: Problema com client Dataset
--- Em delphi-br@yahoogrupos.com.br, Rennes Pimentel [EMAIL PROTECTED] escreveu Obrigado rene era este mesmo o problema... e deu certo.. Esse é um problema nativo do ClientDataSet Tem um macete que resolva isso no componente Query adiciona todos os campos, selecione todos os que nao sao chave primaria e deixe somente como (providerflag)Update, e o campo como chave primaria (somente um), marque ele como Update, Where, e Primary Key. no componente DataSetProvider, na ultima propriedade, selecione onlyKey. no componente ClientDataSet adiciona todos os campos. e pronto e mais ou menos isso que escrevi, eu trabalho com esses componentes ha muito tempo, e sao rapidos e facil de usar procure algo nas propriedades dos componentes que se assemelham no que eu escrevi, pois estou em um computador longe do delphi. --- Em qua, 19/11/08, marcosksb [EMAIL PROTECTED] escreveu: De: marcosksb [EMAIL PROTECTED] Assunto: [delphi-br] Problema com client Dataset Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 19 de Novembro de 2008, 17:51 Ja li em varios foruns so o erro RECORD NOT FOUND OR CHANGED BY ANOTHER USER, mais nenhum resolveu o meu problema. So tem uma diferença eu to criando os compomentes Query, ClientDaset, DatasetProvider em tempo de execução gostaria de alguma ajuda.. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
[delphi-br] Re: Problema com client Dataset
Ja estao setados as flag do provider o updatemode = upWhereKeyOnly e os campos chave do client estao setados como pfInUpdate,pfInWhere,pfInKey e os demais somente o pfInUpdate, e ja teste com pfInUpdate e sem o pfInUpdate e deu a mesma coisa... --- Em delphi-br@yahoogrupos.com.br, Berdam [EMAIL PROTECTED] escreveu isso pode ser erro de provider flags, sete os campos considerados riary key e foreign key no seu cds e sete-os Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com --- Em qua, 19/11/08, marcosksb [EMAIL PROTECTED] escreveu: De: marcosksb [EMAIL PROTECTED] Assunto: [delphi-br] Problema com client Dataset Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 19 de Novembro de 2008, 17:51 Ja li em varios foruns so o erro RECORD NOT FOUND OR CHANGED BY ANOTHER USER, mais nenhum resolveu o meu problema. So tem uma diferença eu to criando os compomentes Query, ClientDaset, DatasetProvider em tempo de execução gostaria de alguma ajuda.. 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] Problema com client Dataset
Ja li em varios foruns so o erro RECORD NOT FOUND OR CHANGED BY ANOTHER USER, mais nenhum resolveu o meu problema. So tem uma diferença eu to criando os compomentes Query, ClientDaset, DatasetProvider em tempo de execução gostaria de alguma ajuda..
[delphi-br] Re: Separar tirulo de eritora + importação
Mais assim antes da editora sempre vai ter um traço ? por que ai vc poderia fazer assim correr o arquivo lendoa s linha e procurando o traço quando achar cria uma linha nova salvando em outro arquivo --- Em delphi-br@yahoogrupos.com.br, Rodrigo Alex Marchiori [EMAIL PROTECTED] escreveu Olá pessoal, estou com um pequeno problema aqui, tenho um arquivo texto com 4 mil registros de livros e os campos titulo e editora estão juntos exemplo: O LIVRO DOS ESPIRITOS - EDITORA IDE/BOA NOVA. Gostaria de saber se tem como criar uma função ou procedure para retornar os dois separados? O LIVRO DOS ESPIRITOS EDITORA IDE/BOA NOVA Agradeço desde já; Att Rodrigo Skype rodrigo_marchiori No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Simular clique no formulário
Fabio ja tentou no show mandar o foco para algum compomente da tua tela de logo e tais chamando com o show ou showmodal ? --- Em delphi-br@yahoogrupos.com.br, fernando lima [EMAIL PROTECTED] escreveu Boa noite , Fabio ja usou o evento OnActivate. fernando - Mensagem original De: Fabio Gomes [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 13 de Fevereiro de 2008 20:55:54 Assunto: Re: [delphi-br] Simular clique no formulário Não deu, cara. Tentei o form1.click no oncreate, no onshow do formulário e não simula o clique. Acontece que estou com problemas de dar o foco no form de login.. No oncreate do form principal eu estou criando o form de login, e ele não fica com o foco no login, ficando com o foco no form principal. Tem alguma outra alternativa? Alcistemas Informática [EMAIL PROTECTED] com.br escreveu: Kra, no delphi 7 pelo menos é assim: form1.Click; - Original Message - From: Fabio Gomes To: delphi-total@ yahoogrupos. com.br ; [EMAIL PROTECTED] os.com.br Sent: Wednesday, February 13, 2008 3:45 PM Subject: [delphi-br] Simular clique no formulário Caros amigos, Preciso simular um clique do mouse no formulário de login. Como faço isso no Delphi 2007? Alguém tem algo para me passar de exemplo? Preciso muito. Aguardo uma ajuda Fábio Gomes. - - --- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] - - --- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line- height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text- align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text- transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text- align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font- size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq{margin:4;} -- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para