ACBrNFeMonitor como tratar um arquivo retorno

[Amparo]

Ola amigos

estou precisando de uma ajuda dos colegas que utilizam o ACBrNFeMonitor no modo TEXTO ou se alguem souber como resolver o problema sera bem vindo.

criei o arquivo ENTNFE.TXT da seguinte forma:

NFE.CriarEnviarNFe("[IDENTIFICACAO]
NaturezaOperacao=VENDA DE PRODUCAO DO ESTABELECIMENTO
Modelo=55
Serie=1
Codigo=009936
Numero=009936
...
Complemento=ALIQ.DE IPI REDUZ ZERO DECR.6.006/2006. Pedido N. 162547/02 ENDERECO DE ENTREGA: AVENIDA NATALINO JOAO BRESCANSIN,320 Compl. E CEP: 78890000 Bairro: CENTRO Cidade: SORRISO UF: MT
,1,0")

no arquivo LOG.TXT teve o seguinte retorno

ERRO: A connection with the server could not be established - URL:https://nfe.fazenda.sp.gov.br/nfeweb/se ... epcao.asmx - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl ... etRecepcao

ou entao recebo um retorno dizendo que o lote esta em processamento cfe abaixo

[RETORNO]
Versao=SP_NFE_PL_005e
TpAmb=1
VerAplic=SP_NFE_PL_005e
NRec=350000291824402
CStat=104
XMotivo=Lote em processamento
CUF=35

se eu reenviar o arquivo cfe montei acima geralmente da um retorno de DUPLICIDADE DE NFE, qual o comando e a sintaxe correta que eu posso utilizar para receber um retorno da minha nota fiscal onde eu possa ler o conteudo das variaveis:

CStat=100
XMotivo=Autorizado o uso da NF-e
ChNFe=35100959368720000157550010000005640000005647
DhRecbto=10/9/2010 13:08:40
NProt=135100489016315

no meu programa verifico a variavel CSTAT se for = 100 passo o comando para imprimir a DANFE e enviar o email
gravo no meu programa as variaveis ChNFe, DhRecbto e a NProt

agora se for igual a 104 ou ERRO conforme mencionado, qual comando utilizar?

abraço a todos

[Toledo]

Amigo, se você tiver a chave da NFe, use o comando: NFE.ConsultarNFe()

Por exemplo:

NFE.ConsultarNFe("351005XXXXXXXXXXXXXX550010000030140000030145")

Ai no arquivo de retorno terá as informações se a NFe foi autorizada ou não.

Abraços,

[Amparo]

ola amigo

este é meu problema eu nao tenho, ou entao nao sei como acha-la

se recebo um retorno de ERRO: ou somente um retorno cfe abaixo ainda nao tenho o nome do xml

[RETORNO]
Versao=SP_NFE_PL_005e
TpAmb=1
VerAplic=SP_NFE_PL_005e
NRec=350000291824402
CStat=104
XMotivo=Lote em processamento
CUF=35

tambem nao sei como é montado o nome do arquivo xml me parece algo assim

35100959368720000157550010000005640000005647-nfe.xml

onde:
35 = codigo do estado São Paulo
100959368720000157 = nao tenho ideia do que é
55 = modelo da nota fiscal
001 = serie da nota fiscal
000000564 = numero da nota fiscal
000000564 = numero da nota fiscal
7 = este deve ser um digito de controle ( se for como calcular)



estou meio que perdido nesta situacao.

[rochinha]

Amiguinho,

Abaixo segue o exemplo de como gerar a sua chave e usa-la para enviar ao ACBrNFe. Gerando sua chave antes voce tem a segurança de efetuar pesquisas posteriores.

Use a chave para nomear seus arquivos .TXT enviados ao monitor, assim quando quizer referenciar-se a uma NFe use a chave criada.

Código: Selecionar todos

      cChaveNFe  := Rtrim( ChaveDeAcesso( cCodUF, dEmissao, cCNPJ, nModelo, nSerie, nNumeroNF, nCodigoNumerico ) )
      cDV        := DVModulo11(Substr(cChaveNFe,1,43),2,9)
      cXMLFile   := "NFe" + cChaveNFe + "-nfe.XML"

Function ChaveDeAcesso( cCodUF, dEmissao, cCNPJ, nModelo, nSerie, nNumeroNF, nCodigoNumerico )
   // Exemplo da geração: 35 10 03 05103502000152 55 001 000006720 000006720 9
   emissao := DtoC( dEmissao ) 
   //nCodigoNumerico := Random(99999999)
   chave := ""
   chave := chave + cCodUF                 // 35
   chave := chave + Substr(Emissao,7,2)    // 10
   chave := chave + Substr(Emissao,4,2)    // 03
   chave := chave + LimpaCGC(cCNPJ)        // 05103502000152
   chave := chave + StrZero(nModelo,2,0)   // 55
   chave := chave + StrZero(nSerie,3,0)    // 001
   chave := chave + StrZero(nNumeroNF,9,0) // 000006720
   chave := chave + StrZero(nCodigoNumerico,9,0) // 123456789
   return chave + DVModulo11(chave,2,9)

Function DVModulo11(cStr,nPeso1,nPeso2)
   local nTot := 0                       
   local nMul := nPeso1                 
   local i                               
   for i := Len(cStr) to 1 step -1
       nTot += Val(SubStr(cStr,i,1)) * nMul
       nMul := if(nMul=nPeso2, nPeso1, nMul+1)
   next
   return if(nTot%11 < 2, "0", Str(11-(nTot%11),1))

[Toledo]

A função do Rochinha já vai ajudar bastante!

100959368720000157 = nao tenho ideia do que é

1009 = Ano e mês de emissão da NFe

59368720000157 = CNPJ do emitente da NFe

Abraços,

[SandroBelarmino]

este é meu problema eu nao tenho, ou entao nao sei como acha-la

se recebo um retorno de ERRO: ou somente um retorno cfe abaixo ainda nao tenho o nome do xml

Eu faço da seguinte forma, primeiro uso o arquio NFe.CriarNFe, ele cria o xml e me retorna o nome completo (com o caminho) do arquivo que foi criado, então eu salvo essa informação para poder usar posteriormente.
Depois eu faço o restante do processo, como validar, assinar e enviar o arquivo.

Sandro.

[SandroBelarmino]

Amparo, aqui voce encontra a lista com todos os comando disponíveis no ACBrNFeMonitor, e neste link voce encontra o manual com exemplos de retorno gerado pelo monitor.
Sucesso.

Nota de Moderação:
por Maligno: Os dois links constantes desta mensagem continham barras extras ao fim do endereço, que resultavam em erro. Os dois foram editados para resolver o problema.

[JSystem]

Pessoal boa tarde,

Gostaria de saber a lista com TODOS os comandos disponíveis do ACBrNFeMonitor, inclusive o colega Sandro citou um link porém não consegui acessá-lo.

Obrigado a todos.

[SandroBelarmino]

inclusive o colega Sandro citou um link porém não consegui acessá-lo.

tire a barra (/) do final do endereço, não consegui editar o post para acertar.

[JSystem]

Valeu Sandro, obrigado.