Ir para conteúdo
  • Cadastre-se

flexsistemas

Membros
  • Total de ítens

    85
  • Registro em

  • Última visita

Posts postados por flexsistemas

  1. Bom dia!

    Gostaria de agradecer a todos que ajudaram a desenvolver meu conhecimento sobre o assunto. Segue como fiz a implementação:

          TFrm_EsperaProcesso.MostraMensagemEspera;
          try
            lDadosEmitente := nil;
            Result := TDadosPessoa.DadosEstabelecimento(lDadosEmitente, lEstabelecimentoID);
            Result := Result and lDadosEmitente.TemInformacao;
    
            Result := Result and lACBrNFe.DistribuicaoDFePorChaveNFe(
              lDadosEmitente.UFInt,
              lDadosEmitente.CNPJ_CPFSomenteNumeros,
              pChave
            );
    
            TMensagem.Mensagem(lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat.ToString+'-'+lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo);
    
            Result := Result and (lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138);
    
            if Result then
            begin
              for lIdx := 0 to lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count -1 do
              begin
                lChave := lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[lIdx].resNFe.chNFe;
    
                lACBrNFe.EventoNFe.Evento.Clear;
                lACBrNFe.EventoNFe.idLote := 1;
    
                lEvento := lACBrNFe.EventoNFe.Evento.Add;
                lEvento.InfEvento.cOrgao := 91;
                lEvento.InfEvento.ChNFE := lChave;
                lEvento.InfEvento.CNPJ := lDadosEmitente.CNPJ_CPFSomenteNumeros;
                lEvento.InfEvento.dhEvento := TSistema.Agora;
                lEvento.InfEvento.tpEvento := TpcnTpEvento.teManifDestConfirmacao;
                lEvento.InfEvento.versaoEvento := '1.00';
                Result := lACBrNFe.EnviarEvento(lACBrNFe.EventoNFe.idLote);
                Result := Result and (lACBrNFe.WebServices.EnvEvento.cStat = 128);
                if Result then
                begin
                  TMensagem.Mensagem(lACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xEvento+':'+#13#10+lACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo);
                  Result := (lACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 135);
                  Result := Result or (lACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 573);
                end;
              end;
            end;
    
            Result := Result and lACBrNFe.DistribuicaoDFePorChaveNFe(
              lDadosEmitente.UFInt,
              lDadosEmitente.CNPJ_CPFSomenteNumeros,
              pChave
            );
    
            Result := Result and (lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138);
            Result := Result and TSistema.ArquivoExiste(lACBrNFe.Configuracoes.Arquivos.DownloadNFe.PathDownload+lChave+'-nfe.xml');
    
            if Result then
              lPathNomeArquivo := lACBrNFe.Configuracoes.Arquivos.DownloadNFe.PathDownload+lChave+'-nfe.xml';
          finally
            FreeAndNil(lDadosEmitente);
            TFrm_EsperaProcesso.DestroiMensagemEspera;
          end;

     

  2. Segundo outro post que li a respeito do assunto, dizem que primeiro você chamaria o evento DistribuicaoDFePorChaveNFe para pegar o XML contendo o NSU depois teria que chamar o evento DistribuicaoDFePorNSU. tentei fazer da seguinte forma mas ainda assim não vai.

          try
            lDadosEmitente := nil;
            Result := TDadosPessoa.DadosEstabelecimento(lDadosEmitente, lEstabelecimentoID);
            Result := Result and lDadosEmitente.TemInformacao;
    
    //        if Result then
    //        begin
    //          lACBrNFe.EventoNFe.Evento.Clear;
    //          lACBrNFe.EventoNFe.idLote := 1;
    //
    //          lEvento := lACBrNFe.EventoNFe.Evento.Add;
    //          lEvento.InfEvento.cOrgao := 91;
    //          lEvento.InfEvento.ChNFE := pChave;
    //          lEvento.InfEvento.CNPJ := lDadosEmitente.CNPJ_CPFSomenteNumeros;
    //          lEvento.InfEvento.dhEvento := TSistema.Agora;
    //          lEvento.InfEvento.tpEvento := TpcnTpEvento.teManifDestConfirmacao;
    //          lEvento.InfEvento.versaoEvento := '1.00';
    //          Result := lACBrNFe.EnviarEvento(lACBrNFe.EventoNFe.idLote);
    //        end;
    
            Result := Result and lACBrNFe.DistribuicaoDFePorChaveNFe(
              lDadosEmitente.UFInt,
              lDadosEmitente.CNPJ_CPFSomenteNumeros,
              pChave
            );
    
            Result := Result and (lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138);
    
            if Result then
            begin
              Result := Result and lACBrNFe.DistribuicaoDFePorNSU(
                lDadosEmitente.UFInt,
                lDadosEmitente.CNPJ_CPFSomenteNumeros,
                lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[0].NSU
              );
            end;
    
            Result := Result and (lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138);
    
            if Result then
            begin
              for lIdx := 0 to lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count -1 do
              begin
                TSistema.CopiaAreaTransferencia(
                  lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[lIdx].XML,
                  True
                );
              end;
            end;
    
            Result := False;
          finally
            FreeAndNil(lDadosEmitente);
          end;

     

  3. Bom dia!

    Estou fazendo a operação igual ao que vocês estão informando nesse tópico mas o XML do arquivo -resNFE.xml vem resumido e o código de retorno do evento está vindo com código 2254.

    Colocando a versão ou não o erro ocorre da mesma forma.

          try
            lDadosEmitente := nil;
            Result := TDadosPessoa.DadosEstabelecimento(lDadosEmitente, lEstabelecimentoID);
            Result := Result and lDadosEmitente.TemInformacao;
    
            if Result then
            begin
              lACBrNFe.EventoNFe.Evento.Clear;
              lACBrNFe.EventoNFe.idLote := 1;
    
              lEvento := lACBrNFe.EventoNFe.Evento.Add;
              lEvento.InfEvento.cOrgao := 91;
              lEvento.InfEvento.ChNFE := pChave;
              lEvento.InfEvento.CNPJ := lDadosEmitente.CNPJ_CPFSomenteNumeros;
              lEvento.InfEvento.dhEvento := TSistema.Agora;
              lEvento.InfEvento.tpEvento := TpcnTpEvento.teManifDestConfirmacao;
              lEvento.InfEvento.versaoEvento := '1.00';
              Result := lACBrNFe.EnviarEvento(lACBrNFe.EventoNFe.idLote);
            end;
    
            Result := Result and lACBrNFe.DistribuicaoDFePorChaveNFe(
              lDadosEmitente.UFInt,
              lDadosEmitente.CNPJ_CPFSomenteNumeros,
              pChave
            );
    
            Result := Result and (lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138);
          finally
            FreeAndNil(lDadosEmitente);
          end;
    

     

    1-eve.xml

    1-ped-eve.xml

    43171105849430000104550550010374991036835882-resNFe.xml

    20171122092805-con-dist-dfe.xml

    20171122092806-dist-dfe.xml

  4. Olá a todos!

     

    Estou tentando efetuar o estorno de uma nota fiscal, sempre efetuei esse estorno com sucesso e nunca tive problemas. Mas agora está retornando uma mensagem de erro 328. 

     

    Estou colocando aqui o xml.

     

    http://www.flexvendasweb.com.br/temp_foruns/NFe43150208308034000150550010000011731000011731.xml

     

    Segundo retorno ele está reclamando da minha CFOP que para 5405 sempre utilizei 1411.

  5. Bom dia Ítalo,

     

    E quando a importação de XML de conhecimentos eletrônicos na versão 1.04 utilizando o aplicativo já com o componente na versão 2.00 ? Notei que a importação não traz quais foram as notas fiscais transportadas (documentos) do conhecimento. Tem alguma solução para isso?

     

    Obrigado.

  6. Bom dia,

     

    Já tentei de várias maneiras e nada. Alguém pode me dar uma força nessa? Não sei mais o que fazer, tá funcionando mas extremamente lento. Não estava funcionando mas depois que marquei no IE detectar automaticamente as configurações em conexões>conexões da LAN passou a funcionar porém de forma muito mas muito lenta.

  7. foi a primeira coisas de praxe que sempre faço, verificar a validade:

     

    está tudo ok veja:

     

    certificados.JPG

     

    Mas depois que marquei no IE para detectar automaticamente as configurações em conexões>conexões da LAN foi só que demora muito tempo, tem algo segurando a troca de informações. tem alguma idéia?

  8. Olá,

     

    Estou enfrentando este problema mas na mesma máquina existem 2 certificados de duas empresas modelo A1 do serasa.

    O segundo que instalei depois funciona tudo normalmente, agora o que já tinha: não manda, não consulta, não verifica o status do webservice de forma alguma. Sempre apresenta o erro abaixo.

     

    fiz diversos testes:

     

    1. Atualizei a cadeia de certificados: não deu.

    2. Desinstalei o certificado e instalei novamente: não deu.

    3. Desativei o Anti-virus: não deu.

    4. Desativei o Firewall: Não deu.

    5. Configurei o IE: não deu.

    6. Detectar as configurações do proxy automaticamente: funcionou mas demora uma eternidade!

     

    O que posso fazer?

     

    mensagem de erro:

     

    erro.jpg

  9. Olá,

     

    A tempos atrás estava implementando Conhecimentos de Frete na minha aplicação e não estava conseguindo utilizar a DACTE do Fast Report, somente do QuickReport pois a mesma estava em desenvolvimento. 

     

    Como está a situação agora?

     

    ***Já efetuei a atualização forçada do SF***

     

    ***Já tenho o FR na versão 4 Enterprise com meu XE4***

×
×
  • 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.