carlos_tedex

Boa tarde, a unica propriedade que não consegui substituir foi essa aqui ImprimirDescPorc. Seguindo a tabela acima do @EMBarbosa a nova propriedade era pra ser essa aqui ImprimeDescPorc, mas ela não existe. Foi realmente removido ou está com outro nome?

Bom dia, Também tive que fazer a mesma alteração. No aguardo também!

Participei do evento e gostei muito do conteúdo apresentado. Parabéns aos palestrantes e pela iniciativa da Elgin. Só acho que poderia ser melhor divulgado para que mais pessoas pudessem participar do evento em nosso estado (ES).

ACBrValidador.pas Se não aparecer esse tipo atualize seu componente.

Bom dia, Aqui no ES também estou passando por esse erro e outros nos clientes. NFe / NFCe (Produção 4.00) Esses erros estão ocorrendo com frequência e sem mexer em nada a nota fiscal é autorizada. As vezes alguns dos erros abaixo tenho que fechar meu sistema e abrir novamente para funcionar:

Boa tarde BigWings, Com essa tipagem "docPrefixoGTIN" o ACBrValidador recusou o GTIN de acordo com a tabela de prefixos. Obrigado!

Só achei estranho esse código GTIN não ter sido barrado no ACBrValidador uma vez que essa implementação diz justamente que se baseou na tabela de prefixos!?

Obrigado pelo esclarecimento Ricardo... Não sei lhe informar qual o país deste produto, pois foi a equipe do suporte que passou para nosso setor de programação verificar... Só sei que a descrição do produto é um Lápis Preto de Olho. O seguimento deste cliente é na área de cosméticos. Grato!

Boa tarde, Também estou passando por isso nos clientes... Esse código de barras 7161896011808 valida de boa no ACBrValidador, mas ao enviar a nota recebo a rejeição 882.

Fontes atualizados! Teste OK. Obrigado José M. S. Junior

Boa tarde Maicon, Também tive problemas em todos os meus clientes que utilizam o arquivo remessa da CEF. Antes o componente tinha um tratamento parecido com sua sugestão. Para resolver de forma mais rápida sem precisar alterar o componente fiz o seguinte: Quando estou alimentando o componente verifico se a variável ValorMoraJuros é maior que zeros, caso seja eu alimento a variável CodigoMora := 1. Exemplo: if cdsFinanceiroMoraDiaria.AsFloat > 0 then begin ValorMoraJuros := cdsFinanceiroMoraDiaria.AsFloat; CodigoMora := '1'; //Valor por Dia end else ValorMoraJuros := 0;

Toninho, acho que faltou o último parâmetro. Onde está "nil" tente enviar o arquivo. Aqui estou utilizando desta forma: Var CC, Anexo, mmEmailMsg: Tstrings; begin Anexo := TStringList.Create; Anexo.Clear; Anexo.Add(cArqXMLEvento); ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.LerXML(cArqXMLEvento); ACBrNFe1.EnviarEmailEvento(Para, TRIM(CDEMPRESA.FieldByName('ASSUNTO_EMAIL').AsString),mmEmailMsg.Lines, CC, Anexo);

Verdade Juliomar! Entendo e concordo com as regras do forum.

Pessoal, apenas dei uma sugestão para tentar centralizar os problemas / soluções que ocorrerem durante a migração para uma versão superior ao Delphi 7. A ideia de criar um tópico especifico era de apresentar os problemas com soluções para aqueles que passarem por problemas similares encontrem uma solução mais rápida. Ou seja, não tinha o objetivo de ficar tirando dúvidas pois entendemos que os desenvolvedores que irão migrar farão pesquisas ou usarão de outros métodos para contornarem os problemas que encontrarem. Essa solução encontrada que era para ser postado/compartilhada neste tópico. Realmente concordo que não seria produtivo 100 programadores ficarem perguntando sobre 200 cases de migração. Também ficaria inviável que cada programador abrisse um tópico para cada problema de migração, visto que estaríamos dando suporte a uma ferramenta que não é o ACBr. Imagina mais de 200 posts separados sobre outros componentes? Não seria chato? Agora acredito que seria produtivo na minha opinião termos um único post com 200 soluções de migração, ou seja, o desenvolvedor encontraria a solução do problema desejado, pois esse tópico teríamos a solução dos problemas. Grato!

Verdade Graça! Se o fisco soubesse o trabalha que da para implementarmos em nossos sistemas essas mudanças eles pensariam duas vezes

Bom dia a todos, Estou acompanhando este tópico por também utilizar o Delphi 7. Sou a favor de atualizarmos nossa ferramenta de desenvolvimento também afinal são 18 anos de existência Lendo o tópico percebi que uma grande parte do pessoal está prezo pelo uso de componentes assim como eu. Minha sugestão e que os moderadores possam abrir um tópico especifico para tratarmos sobre componentes de terceiros onde cada usuário possa dar sua contribuição/experiência para a substituição destes componentes. Exemplo: Aqui na empresa utilizamos um componente que busca o serial do HD. Já encontramos uma solução para obter essa mesma informação sem a necessidade de instalação de componentes e sim 4 units a qual foi testado do XE2 e funcionou perfeitamente. Assim como este exemplo que citei a ideia deste novo tópico e compartilharmos soluções para que a migração ocorra com menos transtornos.

Dener, Baixei a unit modificada e fiz os testes a qual os resultados foram OK. Vamos aguardar o pessoal analisar e subir no SVN. Grato!

Boa noite Daniel, Você tem razão! O SMTP não utiliza a mesma porta HTTP o problema foi que o e-mail que eu estava testando utiliza a porta 465 a qual estava bloqueada no Firewall. Obrigado pela atenção. Tenha uma boa noite!

Assim que possível farei um debug também.

Boa noite Régys desculpe pela demora do retorno, vamos lá: Tentei desta forma, mas ainda não funcionou alguma outra dica? ACBrMail1.SMTP.Sock.HTTPTunnelIP := '192.168.1.3'; ACBrMail1.SMTP.Sock.HTTPTunnelPort := '8080'; ACBrMail1.SMTP.Sock.HTTPTunnelUser := 'carlos'; ACBrMail1.SMTP.Sock.HTTPTunnelPass := '123456'; Esse foi o retorno do componente: "SMTP Error: Unable to Login." Grato pela atenção!

Obrigado pelo retorno Isaque. Vou tentar usar o Indy 10.

Boa noite, Estou utilizando o ACBrMail e gostaria de saber se existe alguma maneira de informar proxy (host, port, username, password). Fiz uma pesquisa no fórum mas não consegui encontrar nada sobre o assunto. Grato!

Boa tarde, Alguma novidade? Gostaria de usar a propriedade "modalidade" quando estiver disponível no SVN.

Bom dia, Desde janeiro utilizo algo semelhante ao que o denerbuzato postou, pois o Tipo de Cobrança atualmente esta fixo o código "4" com registro, mas ainda tenho clientes que utilizam o código "2" que é sem registro. Fiz o download do ajuste proposto e o mesmo atendeu minha necessidade.

Boa noite, Não estou conseguindo localizar a propriedade no código abaixo para pegar o Protocolo e o cStat dos eventos da NF-e. ACBrNFe1.WebServices.Consulta.NFeChave := sChave; ACBrNFe1.WebServices.Consulta.Executar; For i := 0 to ACBrNFe1.WebServices.Consulta.procEventoNFe.Count-1 do begin sMSG := 'E V E N T O S' + sLineBreak + 'Protocolo: ?????' + sLineBreak + 'cStat: ?????' + sLineBreak + 'Chave: ' + ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.chNFe + sLineBreak + 'SeqEvento: ' + IntToStr(ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.nSeqEvento) + sLineBreak + 'CNPJ: ' + ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.CNPJ + sLineBreak + 'Dt Evento: ' + DateTimeToStr(ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.dhEvento) + sLineBreak + 'Tp Evento: ' + TpEventoToStr(ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.tpEvento) + sLineBreak + 'DescEvento: ' + ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.DescEvento + sLineBreak + 'Tp Amb: ' + TpAmbToStr(ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.tpAmb); ShowMessage(sMSG); end;