murilo cosme da silva

Bom dia, Gente estou com uma dificuldade de instalar quick report 5 para Delphi 7, já que o nativo não funciona para acbrnfe, alguém que usa esta plataforma pode me indicar onde baixar a versão correta sem erros.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IB_Components, StdCtrls, Buttons, ComCtrls, SUIEdit, Grids, IB_Grid, Mask, SUIRadioGroup, SUIImagePanel, SUIGroupBox, SUIButton, SUIPageControl, SUITabControl, ExtCtrls, SUIForm, XMLDoc, msxmldom, XMLIntf, NcsNFe_TLB, jpeg, DB, IBODataset, IB_NavigationBar, IdMessage, IdBaseComponent, Menus, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, xmldom, IB_Access, ACBrNFe, pcnConversao, OleCtrls, SHDocVw; já esta declarada

Dúvida para encontrar esta unit "Vc tem q adicionar a unit pcnConversao no uses do seu programa. "

Tenho mais uma dúvida, na hora de enviar tenho o retorno imediato, mais se tiver algum problema e tiver que usar o : ACBrNFe1.WebServices.Consulta.NFeChave := tbl_vNFe.FieldByName('NFE_A_ID').AsString; ACBrNFe1.WebServices.Consulta.Executar; como faço para ter o retorno como status de serviço e envio.

Boa tarde como desabilitar o showmensagem que os processos nfe fica dando, porque quero fica tratanto o retorno e aparecendo o que eu só quero.

É que guando da erro no enviar tudo em vermelho abaixo ele não faz. ACBrNFe1.Enviar(tbl_vNFe.FieldByName('NFE_B_NNF').AsInteger,True); rtfNFe.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS); memo_RespWs.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS); LoadXML(rtfNFe, WBResposta); MemoDados.Lines.Add(''); MemoDados.Lines.Add('Envio NFe'); MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb)); MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic); MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat)); MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF)); MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo); MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg)); MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg); MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo); MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo); ShowMessage(ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].xMotivo); ACBrNFe1.NotasFiscais.Clear;

Ok, entendi que o demo e um exemplo de como utilizar o componente o que eu não estou entendendo onde esta parte de código no demo: ShowMessage(ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].xMotivo);

Desculpa amigo não consigo identificar no exemplo este procedimento, se for dentro da função enviar tudo que esta lá pertence a unit acbr posso alterar lá porque quando for atualizado o componete entendo que vai alterar a unit novamente. Desculpe mais uma vez minha ignorância pois estou meio perdido, nesta parte de envio e retorno.

Boa tarde, olha antes eu estava conseguindo só que deu um erro na minha maquina e atualizei a pasta ACBr, sera que tem alguma coisa a ver.

Já esta ok também a hora. Alguma outra sugestão?

já esta habilitado. certificado ok. firewall e anti-vírus desativado já restaurei as configurações como solicitado.

Bom dia, o certificado e valido até 16/08/2015.

fica dando este erro não chega a gravar no memo erro: requisicao nao enviada 403 forbidden.

Bom dia, dentro da função enviar acontece vários procedimento que estão dentro da unit acbr, o que estou com duvida para entender é o que não posso mexer neste código, mais como pegar o retorno do que esta acontecendo para pegar os status e atualizar o meu banco.

Retorno a este tópico solicitando se alguém tem como me ajudar a pegar este retorno.

Gostaria de adicionar uma dúvida neste link na versão 2.00 ok, mais na 3.10 esta ainda dando erro e a tag muda para : </enderDest> <indIEDest>2</indIEDest>

Bom dia, Mais uma vez sei que muito tópicos são repetitivos, mais não identifiquei como pegar todos os retornos assim que executo a função enviar ``ACBrNFe1.Enviar`` dentro desta funcao tem varias mensagens lote, lote recebido, e lote processado, existe uma path para salvar automaticamente esta mensagem mais não entendi como pegar em tempo real para salvar algumas mensagem no banco de dados, entendo que não posso mexer dentro do código do componente já que se houver alguma alteração no fonte vou perder este código, pelo menos é o que eu acredito, alguém tem uma dica ou se este postagem já exista manda um link para que eu possa entender, já fiz algumas busca mais nada do tipo que estou precisando. Agradeço desde já.

Boa tarde, Sei que tem muitos tópicos repetidos mais não estou identificando um com este problema, caso já tenha em algum tópico peço desculpa pela repetição de postagem. estou gerando uma NFe na versão 3.10 hora de validar ok, mais quando vou enviar dentro desta função a versaoDF mudar para ve200, e ai o xml todo e automaticamente ajustado para versão 2.00. procedure TNotasFiscais.Assinar; Self.Items.NFe.infNFe.Versao := DFeUtil.StringToFloat(GetVersaoNFe(FConfiguracoes.Geral.ModeloDF, FConfiguracoes.Geral.VersaoDF, LayNfeRecepcao));

bom dia a todos, estou com dificuldade sobre identificar este erro na versão 3.10, mudou algo sobre NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL, porque o CNPJ coloco 99.999.999/0001-91 e a inscrição esta isento como fazia antes, mais observei que ele criou outro parametro: <indIEDest>1</indIEDest> <IE>ISENTO</IE> Erro Completo: Falha na validação dos dados da nota 163 'ISENTO' violates pattern constraint of '[0-9]{2,14}'. The element '{http://www.portalfiscal.inf.br/nfe}IE'with value 'ISENTO' failed to parse. e se alguém tem um link de onde vejo o manual correspondente ao xml 3.10. agradeço desde já. aproveitando o momento alguém tem como responder sobre um comentário que eu vi sobre pagar mensalidade no valor 150,00 reais aparte de 15 mensagem, ou podemos colaborar com outros valores.

Bom dia, Estou com uma dificuldade para assinar e valida NFe 3.10, dentro da função assinar nesta propriedade. Self.Items.NFe.infNFe.Versao := DFeUtil.StringToFloat(GetVersaoNFe(FConfiguracoes.Geral.ModeloDF, FConfiguracoes.Geral.VersaoDF, 'a versão que ele trás aqui e sempre a ve200' LayNfeRecepcao)); Mesmo eu configurando a versão:= para ve310, como mostra abaixo. ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310;

Bom dia, Alguém sabe como posso fazer uma analise nos retornos de erra para printar na tela para os clientes.

Boa noite, tem como solicitar a informação de que certificado é na hora de enviar, ou só pode mediante pré cadastro. porque para mim seria mais interessante passa no momento de assinar e enviar.

Boa tarde, Como preencher corretamente o ambiente no caso eu passo 1 como string, que parâmetro eu uso para dizer o ambiente. ACBrNFe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(TRUE,'1');

Valeu, muito obrigado pela dica.