Consultas Notas Fiscais Emitidas Por Terceiros

[francasoftware]

Prezados Companheiros

 

Boa Tarde!

 

Novamente venho solicitar a ajuda de vocês.

 

Estou com um problema em um cliente que foi ameaçado de multa pelo Fisco porque uma outra empresa sediada em outro estado emitiu NFE citando seu CNPJ, sem o seu conhecimento, se que tenha efetuado qualquer negócio com referida empresa.

 

Assim, ele solicitou-me se seria possível criar um recurso preventivo para consultar todas as Notas Fiscais Eletrônicas que Terceiros emitiram contra o CNPJ dele.

 

Não se trata portanto de monitorar NFE que foi emitida pelo CNPJ dele e sim que terceiros emitiram referenciando o CNPJ dele.

 

Sabem se por acaso seria possível utilizar o recurso : ConsultaNFeDest ( ou qualquer outro do Acbr ) para este fim ?

 

Grato pela gentileza de todos e me desculpem se estou postando algo que foi motivo de discussão anterior.

 

Grato por sua ajuda constante.

 

Carlos

Franca-SP

Editado 6 Junho, 2014 por francasoftware

[Italo Giurizzato Junior]

Boa tarde Carlos,

 

Mas o ConsultaNFeDest é exatamente para este fim.

 

Por favor baixe e leia a NT 2012/002 que trata do assunto Manifestação do Destinatário.

 

Alem de consultar o seu cliente deve se manifestar sobre cada uma das notas emitidas contra o CNPJ dele.

[francasoftware]

Prezado Sr.

Italo

 

Gostaria de antemão agradecer sua atenção e novamente solicitar sua ajuda.

 

Implementei em meu sistema a seguinte rotina :

 

stIndNFe := '0';

stIndEmi := '0';

stUltNSU := '0';

stCNPJ := qryEmpresa.FieldByName('CNPJ').AsString;

acbrNota.ConsultaNFeDest(stCNPJ,StrToIndicadorNFe(ok,stIndNFe),                                                 

                                                  StrToIndicadorEmissor(ok,stIndEmi),stUltNSu);

with acbrNota.WebServices.ConsNFeDest.retConsNFeDest do

  begin

    for inInc := 0 to ret.Count - 1 do

      begin

        stChave := ret.Items[inInc].resNFe.chNFe;

      end;

  end;

showmessage(stChave);

MemoResp.Lines.Text   := UTF8Encode(acbrNota.WebServices.ConsNFeDest.retConsNFeDest.XML);

 

E sempre obtenho como resposta no arquivo xml de retorno:

    <cStat>137</cStat>

    <xMotivo>Nenhum documento localizado para o destinatario</xMotivo>

 

Assim, nunca consigo retorno das notas fiscais que terceiros emitiram contra o nosso cnpj, embora nossa empresa esteja em ampla atividade, com compras todos os dias.

 

O CNPJ que estou informando é apenas com números.

 

Por acaso o Sr. sabe determinar o que pode estar ocorrendo?

 

Grato

 

Carlos

Editado 12 Junho, 2014 por francasoftware

[Italo Giurizzato Junior]

Bom dia Carlos,

 

Segundo relatos de colegas que implementaram essa funcionalidade em suas aplicações, foi necessário realizar dezenas e as vezes centenas de consultas para que as primeiras notas fossem retornadas.

 

Acabo de disponibilizar um fragmento da rotina que faz a consulta, rotina esta da minha aplicação.

 

Ao atualizar os fontes, você vai encontrar um arquivo TXT chamado: ConsultarNFeDestinadas dentro da pasta: ...\Exemplos\ACBrNFe2

 

Estude essa rotina.

[francasoftware]

Prezado Sr.

Italo

 

Eu fiz download do arquivo txt.

Por favor me auxilie a entender um detalhe em sua rotina.

 

Na minha rotina estou utilizando o componente ACBRNFE  para efetuar a pesquisa da seguinte forma :

 

" acbrNota.ConsultaNFeDest "

 

Porém, na sua rotina o sr. utilizou o seguinte comando :

 

" DMDFe.NFe.ConsultaNFeDest "

 

Neste caso o Sr. também está utilizando o componente ACBRNFE ?

 

Grato novamente por sua ajuda.

 

Carlos

Franca-Sp

[Solivan]

Sei que a resposta foi direcionada ao Ítalo mas acho que posso responder essa, DMDFe acho que seria o TDatamodule e Nfe seria o componente TACBrNFe.

 

Então basta você substituir DMDFe.NFe por acbrNota. no seu código, que deverá funcionar.

Editado 12 Junho, 2014 por Solivan

[Italo Giurizzato Junior]

Boa tarde a todos,

 

Solivan, esta correto, DMDFe é o Data Module e NFe é o componente ACBrNFe.