Ir para conteúdo
  • Cadastre-se

André Ferreira de Moraes

Moderadores
  • Total de ítens

    6.885
  • Registro em

  • Última visita

  • Days Won

    68

Tudo que André Ferreira de Moraes postou

  1. Para parceria veja www.djpdv.com.br
  2. Vc está com seus schemas desatulizados.
  3. Não existe CSOSN 340. Leia o manual de integração - http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=qmxgJXfbUhs=
  4. Use a versão OpenSSL do componente.
  5. O correto é [EVENTO001] e não [EVENTO=001]
  6. basta vc informar o campo infEvento.cOrgao := cOrgao; corretamente antes de enviar o pedido de manifestação.
  7. O componente ACBrNFe não usa nenhum endereço IP Fixo, apenas os endereços disponíveis no site http://www.nfe.fazenda.gov.br/portal/webServices.aspx?tipoConteudo=Wak0FwB7dKs= e para ambiente de homologação os endereços disponíveis em http://hom.nfe.fazenda.gov.br/portal/webServices.aspx?tipoConteudo=Wak0FwB7dKs=
  8. Não existe atualmente versão do ACBrNFeMonitor para Lazarus, apenas para Delphi 7.
  9. Por favor, veja
  10. Estávamos com problemas para receber doações via MOIP, agora trocamos para o PagSeguro. Você pode acessar o mesmo link e escolher uma das opções de doação. http://acbr.sourceforge.net/drupal/?q=node/14
  11. Este certificado funcionava antes? Aparentemente é um certificado fora do padrão exigido pela NFe.
  12. Altere os fontes do ACBrNFe, exatamente o arquivo pcnNFeW.pas da pasta Fontes\PCN2 para gerar esta tag mesmo q a BC esteja zerada e tente autorizar a nota, depois poste o resultado para que possamos ter certeza que esta alteração é correta.
  13. Se vc entrar no método ACBrNFe1.Enviar vc verá que ele mesmo já assina e valida: var i: Integer; begin if NotasFiscais.Count <= 0 then begin if Assigned(Self.OnGerarLog) then Self.OnGerarLog('ERRO: Nenhuma NF-e adicionada ao Lote'); raise EACBrNFeException.Create('ERRO: Nenhuma NF-e adicionada ao Lote'); exit; end; if NotasFiscais.Count > 50 then begin if Assigned(Self.OnGerarLog) then Self.OnGerarLog('ERRO: Conjunto de NF-e transmitidas (máximo de 50 NF-e) excedido. Quantidade atual: '+IntToStr(NotasFiscais.Count)); raise EACBrNFeException.Create('ERRO: Conjunto de NF-e transmitidas (máximo de 50 NF-e) excedido. Quantidade atual: '+IntToStr(NotasFiscais.Count)); exit; end; NotasFiscais.Assinar; NotasFiscais.Valida; Result := WebServices.Envia(ALote, Sincrono); if DANFE <> nil then begin for i:= 0 to NotasFiscais.Count-1 do begin if NotasFiscais.Items[i].Confirmada and Imprimir then begin NotasFiscais.Items[i].Imprimir; if (DANFE.ClassName='TACBrNFeDANFERaveCB') then Break; end; end; end; end; A propriedade AjustaAguardaConsultaRet só é útil quando vc executa o método de consulta de status de serviço antes do envio, coisa que era feita automaticamente pelo componente antigamente mas devido a orientações do fisco foi removido. Por padrão o componente envia e tenta consultar o resultado do processamento por 5 vezes antes de retornar que o lote está em processamento.
  14. Alterando os fontes do ACBrNFe vc conseguiu autorizar esta nota?
  15. Fiz um teste agora importando o TXT que vc passou da primeira vez e obtive o seguinte resultado: 27/08/2013 10:47:08 Carregando Arquivo TXT 27/08/2013 10:47:08 Carregando Arquivo TXT - FIM 27/08/2013 10:47:11 Salvando Arquivo XML 27/08/2013 10:47:11 Salvando Arquivo XML - FIM 27/08/2013 10:47:12 Enviando XML para o SEFAZ 27/08/2013 10:48:44 Enviando XML para o SEFAZ - FIM Estou usando o seguinte código e um certificado A1: OpenDialog1.FileName := ''; OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Arquivos TXT (*.TXT)|*.TXT|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.Add; NFeRTXT := TNFeRTXT.Create(ACBrNFe1.NotasFiscais.Items[0].NFe); MemoDados.Lines.Add(DateTimeToStr(now)+'Carregando Arquivo TXT'); NFeRTXT.CarregarArquivo(OpenDialog1.FileName); MemoDados.Lines.Add(DateTimeToStr(now)+'Carregando Arquivo TXT - FIM'); if NFeRTXT.LerTxt then begin NFeRTXT.Free; MemoDados.Lines.Add(DateTimeToStr(now)+'Salvando Arquivo XML'); ACBrNFe1.NotasFiscais.SaveToFile(ChangeFileExt(OpenDialog1.FileName,'.xml')); MemoDados.Lines.Add(DateTimeToStr(now)+'Salvando Arquivo XML - FIM'); with ACBrNFe1.NotasFiscais.Items[0].NFe do begin ide.tpAmb := taHomologacao; Emit.CNPJCPF := edtEmitCNPJ.Text; Emit.IE := edtEmitIE.Text; Emit.xNome := edtEmitRazao.Text; Emit.xFant := edtEmitFantasia.Text; Emit.EnderEmit.xMun := 'Tatui'; Dest.EnderDest.xMun := 'Tatui'; end; ACBrNFe1.NotasFiscais.GerarNFe; MemoDados.Lines.Add(DateTimeToStr(now)+'Enviando XML para o SEFAZ'); ACBrNFe1.Enviar(123,True); MemoDados.Lines.Add(DateTimeToStr(now)+'Enviando XML para o SEFAZ - FIM'); MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS); LoadXML(MemoResp, 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); end; Vc pode consultar a chave 35130847818497000466550000000357261753993778 no site https://homologacao.nfe.fazenda.sp.gov.br/ConsultaNFe/consulta/publica/ConsultarNFe.aspx
  16. Nào entendi o problema, por favor descreva como reproduzi-lo usando o demo.
  17. Iran, Conversei com o pessoal do comercial e eles não encontraram nenhum cadastro com o seu email. Se possível entre no site e tente conversar via chat ou faça seu cadastro novamente.
  18. http://www.djpdv.com.br
  19. Tente comparar a diferença do XML enviado por vc e o enviado pelo Emissor gratuito.
  20. O ACBrNFeMonitor ainda não possui integração com NFSe de nenhuma cidade.
  21. Anexe um XML de CTE que foi aceito com esses dois grupos.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.