[RESOLVIDO] Exportar Arquivos XML

Senhores Bom Dia,

Necessito criar um programa para re-exportar os arquivos XML do datasul.
Tivemos uma perca em um dos nossos servidores, e justamente a onde estava os arquivos XML.
Eu criei um programa porem não está funcionando corretamente, será que voces poderiam me ajudar??

Eu gostaria tambem de setar um local para ele guardar o XML ex: C:\temp
Pois este programa joga o arquivo para a pasta do TSS.

Segue o fonte:


DEFINE VARIABLE c-cod-estab AS CHARACTER NO-UNDO LABEL "Estab".
DEFINE VARIABLE c-serie AS CHARACTER NO-UNDO LABEL "Serie".
DEFINE VARIABLE c-nr-nota-fis AS CHARACTER NO-UNDO LABEL "Nota".

UPDATE c-cod-estab c-serie c-nr-nota-fis.

FOR FIRST nota-fiscal NO-LOCK
WHERE nota-fiscal.cod-estabel = c-cod-estab
AND nota-fiscal.serie = c-serie
AND nota-fiscal.nr-nota-fis = c-nr-nota-fis:
END.

IF AVAIL nota-fiscal THEN DO:

FOR FIRST param-nf-estab NO-LOCK
WHERE param-nf-estab.cod-estabel = nota-fiscal.cod-estabel:
END.

EMPTY TEMP-TABLE ttRetornaNotas_ENV.

CREATE ttRetornaNotas_ENV.
ASSIGN ttRetornaNotas_ENV.CodEstabel = nota-fiscal.cod-estabel
ttRetornaNotas_ENV.ID_ENT = IF AVAIL param-nf-estab THEN param-nf-estab.ind-empresa ELSE ""
ttRetornaNotas_ENV.ChaveNFe = &if "{&bf_dis_versao_ems}":U < "2.07":U &then
TRIM(SUBSTRING(nota-fiscal.char-2,3,60))
&else
TRIM(nota-fiscal.cod-chave-aces-nf-eletro)
&endif.

IF NOT VALID-HANDLE(h-axsep009) THEN
RUN adapters/xml/ep2/axsep009.p PERSISTENT SET h-axsep009.

RUN PITransUpsert IN h-axsep009 (INPUT "add":U,
INPUT "TSSRetornaNotasEnv":U,
INPUT TABLE ttRetornaNotas_ENV,
OUTPUT TABLE tt_log_erro).

IF VALID-HANDLE(h-axsep009) THEN DO:
DELETE PROCEDURE h-axsep009.
ASSIGN h-axsep009 = ?.
END.

MESSAGE "Programa executado com sucesso!"
VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.
ELSE
MESSAGE "Nota fiscal nÆo encontrada!"
VIEW-AS ALERT-BOX INFO BUTTONS OK.

RETURN "OK"

Gustavo...é vc mesmo??????

Boa tarde

Segue em anexo um compilado para nova gravação dos arquivos xml. Nele vc pode executar o estabelecimento em questao, serie e numero da NF-e.

Obs.: Os arquivos serão gravados no diretorio informado no CD0403B (Configuração do TSS), "Repositório Arquivo XML".

Caro rafawisniewski
Não consegui exportar os arquivos, eles nao aparecem na pasta.

Olá Gustavo

Vc está verificando na pasta do próprio TSS?
De qualquer forma vou verificar..

Olá Bom Dia,
Verifiquei sim.
neste program existe algum tipo de restrição?
exemplo: xmls sem protocolo, ou nfes canceladas.
ele exporta tudo?