Tratando o Retorno do ACBrNFeMonitor

[Lucio]

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.

[HASA]

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

[Lucio]

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.

[Toledo]

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

Código: Selecionar todos

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,

[HASA]

)

Bom dia, o Mestre Toledo matou a charada ok.
HASA
:-Y

[Lucio]

:{ 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

[HASA]

)

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

[lugab]

Eu tb agradeço, Toledo