Perguntas Exportar XML

e ai i pessoal,
tenho um programa para extrair o XML, e tenho que alterar para o nome do arquivo sair com o numero da chave,
tentei de varias formas e não consegui, segue ai a linha do código original que sai com o nome do arquivo como a serie e a doc.
Alguém pode me dar uma dica???

//

---

//
// Grava o Arquivo com a xml da nfe //
//

---

//
Static Function NfeXML(cCod, cSerie)

Local _aArea := GetArea()
Local cAlias := GetNextAlias()

Local cArquivo := AllTrim(MV_PAR04)+"xml\"+cSerie+cCod+".xml"
Local nFile := Fcreate(cArquivo,0)

BeginSQL Alias cAlias
SELECT
convert(varCHAR(8000),CONVERT(varbinary(8000),substring(XML_ERP,0,8000))) as XML,
convert(varCHAR(8000),CONVERT(varbinary(8000),substring(XML_ERP,8000,8000))) as XML2,
convert(varCHAR(8000),CONVERT(varbinary(8000),substring(XML_ERP,16000,8000))) as XML3,
convert(varCHAR(8000),CONVERT(varbinary(8000),substring(XML_ERP,24000,8000))) as XML4,
convert(varCHAR(8000),CONVERT(varbinary(8000),substring(XML_ERP,32000,8000))) as XML5
FROM SPED050
WHERE NFE_ID = %exp:cSerie+cCod%

EndSQL

Anexa o fonte todo ai pra gente ver.

Pelo que entendi teria que alterar o seguinte:

Static Function NfeXML(cCod, cSerie , cChave)

...
...
Local cArquivo := AllTrim(MV_PAR04)+"xml\"+cChave+".xml"
...

mas pra isso tem que ver da onde esta trazendo a variavel cChave. Manda o fonte todo aee.

segue em anexo meu jovem
Valeu..

o arquivo nao nao esta disponivel. envia denovo. ta dando erro...

kk foi mal
segue novamente