Nfe - Arquivos de Envio - 24 05 09 20:44

Nfe - Arquivos de Retorno - 24 05 09 20:42

Diretorios Obrigatorios para nfe - 24 05 09 20:37

Codigos Uf Nfe - Ibge - Matos/amarildo 17 05 09 21:49

Nfe - Padroes Nomeclatura Nfe - Matos/Amarildo 17/05/2009 13:06

Codigos Solicitacao Servicos Nfe Sefa-rs - Matos Amarildo - 16 05 09

http://www.sefaz.ma.gov.br/nfe/codigos_de_mensagens_de_autorizacao_nfe.htm

Nfe - Verifica Status do Servico Sefaz- 15 05 09 - 07:00 as 09:30

Nfe - Gera Xml, UNINFE manda e retorna- 14 05 09 04:59

Xml - Clarion - Buscar Numero lote

-?xml version="1.0" encoding="utf-8"?>
-DadosLoteNfe>
-NumeroLoteGerado>87-/NumeroLoteGerado>
-/DadosLoteNfe>

---

grupo_txt FILE,DRIVER('ASCII'),OEM,NAME(fdarquivo),PRE(gru_txt),CREATE,BINDABLE,THREAD
Record RECORD,PRE()
grupo string(@s255)
END
END
Numero_Lote string(@n010)

---

open(grupo_txt)
set(grupo_txt)
loop
next(grupo_txt)
if errorcode()
break
else
if gru_txt:grupo[1,1:18]=''-NumeroLoteGerado>'
a#=1
numero_lote=0
loop
IF NOT NUMERIC(gru_txt:grupo[19,1:a#])
break
else
numero_lote=gru_txt:grupo[19,1:a#]
a#+=1
end
end
message(numero_lote)
end!Final if
end!Final if
end!Final Loop

---