Clipper On Line • Ver Tópico - Tratando o Retorno do ACBrNFeMonitor

Tratando o Retorno do ACBrNFeMonitor

Discussão sobre ferramentas de apoio à programação (Clipper/[x]Harbour)

Moderador: Moderadores

 

Tratando o Retorno do ACBrNFeMonitor

Mensagempor Lucio » 27 Mai 2014 22:57

Amigos programadores.
Ainda trabalho com Clipper 5.01 e só agora consegui fazer minha "rotina" pra gerar NFe com o ACBr.
Gostaria de saber se alguém tem algum módulo de tratamento para o retorno do Acbr (sainfe.txt) para me ajudar.
Uso o "memoread" pra ver o conteudo deste arquivo e sei que Cstat=100 é qd a NFe está Ok mas nao sei como pegar os codigos de retorno pra informar ao meu programa o que fazer.
Fico mto grato se alguem puder me mostrar um exemplo.

Att. Lucio.
Lucio
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 6
Data de registro: 24 Fev 2011 18:02
Cidade/Estado: jaciara/MT
Curtiu: 1 vez
Mens.Curtidas: 0 vez

Tratando o Retorno do ACBrNFeMonitor

Mensagempor HASA » 28 Mai 2014 11:17

:-o

Bom dia, Lucio você respondeu a sua pergunta, veja se você sabe que Cstat=100 é qd a NFe está Ok o resto é a mesma coisa, ou seja, no manual da NF-e tem a lista dos retornos, então carregue o retorno em uma variavel cStatus por exemplo com o numero do retorno e depois faça um IF cStatus = "100" faz isso, e não faz aquilo e por ai vai ok.

Em tempo: Pesquise no forum TRATAR RETORNO, você vai encontar muitas dicas, qualquer coisa posta ai ok.

HASA
:)Pos
Avatar de usuário

HASA
Colaborador

Colaborador
 
Mensagens: 1082
Data de registro: 01 Set 2003 19:50
Cidade/Estado: São Paulo
Curtiu: 1 vez
Mens.Curtidas: 51 vezes

Tratando o Retorno do ACBrNFeMonitor

Mensagempor Lucio » 28 Mai 2014 20:41

Valeu parceiro por me ajudar. :)Pos
Mas o retorno (sainfe.txt) vem com várias informações como no exemplo abaixo:
OK: Lote recebido com sucesso
[ENVIO]
Versao=3.10
TpAmb=2
VerAplic=3.10

CStat=103
XMotivo=Lote recebido com sucesso

CUF=51
NRec=510000009825269
DhRecbto=26/5/2014 12:25:51
TMed=1
Msg=Lote recebido com sucesso
Autorizado o uso da NF-e
[RETORNO]
Versao=2.00
TpAmb=2
VerAplic=2.00
NRec=510000009825269

CStat=100
XMotivo=Autorizado o uso da NF-e


Ainda não sei é como extrair somente o que eu preciso pra dentro do programa para fazer
o devido tratamento das informações como vc falou (IF Then).

At. Lucio.
Lucio
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 6
Data de registro: 24 Fev 2011 18:02
Cidade/Estado: jaciara/MT
Curtiu: 1 vez
Mens.Curtidas: 0 vez

Tratando o Retorno do ACBrNFeMonitor

Mensagempor Toledo » 29 Mai 2014 08:12

Lucio, segue um pequeno exemplo do que você pode fazer:

vArq:="C:\caminho\SAINFE.TXT" 
cTxt:=memoread(vArq)
nMax := MLCount( cTxt, 200,, .T. )
lOk:=LEFT(MEMOLINE(cTxt,200,1),3)=="OK:"
cCStat:=""
cNRec:=""
cDhRecbto:=""
cXMotivo:=""
If lOk
  FOR i:=8 TO nMax
    cLin:=MEMOLINE(cTxt,200,i)
    If Left(cLin,5)=="NRec="
      cNRec:=Subs(cLin,6)
    Endif
    If Left(cLin,9)=="DhRecbto="
      cDhRecbto:=Subs(cLin,10)
    Endif
    If Left(cLin,6)=="CStat="
      cCStat:=Subs(cLin,7)
    Endif
    If Left(cLin,8)=="XMotivo="
      cXMotivo:=Subs(cLin,9)
    Endif
  NEXT
Else
  Alert("Algum erro ocorreu")  //aqui tratar erro
Endif


Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Tratando o Retorno do ACBrNFeMonitor

Mensagempor HASA » 29 Mai 2014 09:33

:))

Bom dia, o Mestre Toledo matou a charada ok.
HASA
:-Y
Avatar de usuário

HASA
Colaborador

Colaborador
 
Mensagens: 1082
Data de registro: 01 Set 2003 19:50
Cidade/Estado: São Paulo
Curtiu: 1 vez
Mens.Curtidas: 51 vezes

Tratando o Retorno do ACBrNFeMonitor

Mensagempor Lucio » 29 Mai 2014 17:57

:{ Sr. Toledo.
Sou seu cliente há muito tempo já.
Há mais de dez anos comprei o CD Clipper junto com FiveWin mas está na gaveta até hoje sem usar.
É que deixei a programação meio "de molho" e fiquei bem atrasado no tempo.
Nem me lembrava mais do comando memoline.
Mas com o exemplo acima "o céu é o limite" como dizem. rsrs.
Muito obrigado ao Toledo e também ao HASA.
Valeu pela força.

At. Lucio
Lucio
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 6
Data de registro: 24 Fev 2011 18:02
Cidade/Estado: jaciara/MT
Curtiu: 1 vez
Mens.Curtidas: 0 vez

Tratando o Retorno do ACBrNFeMonitor

Mensagempor HASA » 02 Jun 2014 13:29

:))

Lucio, vai postando ai, se for de meu conhecimento dou uma força ok.
HASA
:xau
Avatar de usuário

HASA
Colaborador

Colaborador
 
Mensagens: 1082
Data de registro: 01 Set 2003 19:50
Cidade/Estado: São Paulo
Curtiu: 1 vez
Mens.Curtidas: 51 vezes

Tratando o Retorno do ACBrNFeMonitor

Mensagempor lugab » 17 Jul 2018 22:56

Eu tb agradeço, Toledo
lugab
lugab
Colaborador

Colaborador
 
Mensagens: 843
Data de registro: 19 Mai 2009 15:58
Curtiu: 126 vezes
Mens.Curtidas: 38 vezes




Retornar para Ferramentas de Apoio

Quem está online

Usuários vendo este fórum: Bing [Bot] e 5 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro