Informar via comando ao ACBRNFEMONITOR onde gerar o XML
Enviado: 01 Dez 2010 09:34
Bom dia Amiguinhos,
Estou utilizando o AcbrNFeMonitor2 0.6.0c para gerar o arquivo XML da NF-e. O que ocorre é que o XML é gerado na pasta que está configurada no AcbrNFeMonitor, na aba WebService. Ocorre que o meu cliente pode emitir notas fiscais de duas empresas, dependendo do caso e eu gostaria se salvar o arquivo XML em pastas separadas por empresa. exemplo:
Empresa-01 Sub-pastas Empresa-02 Sub-pastas
XML XML
PDF PDF
TXT TXT
RETORNOS RETORNOS
Eu sei que através do arquivo INI do acbrnfemonitor eu tenho como controlar esta variável, todavia eu teria que reiniciar o mesmo. O que penso não ser apropriado.
Segue exemplo do arquivo TXT que envio para o ENTNFE.TXT
Nfe_Handle := FCreate(vArq)
FWRITE(Nfe_Handle,'Nfe.CriarNfe("[Identificacao]'+nCHR)
FWRITE(Nfe_Handle,"NaturezaOperacao="+ALLTRIM(Nt_Oper)+nCHR)
FWRITE(Nfe_Handle,"Modelo="+ALLTRIM(cMode)+nCHR)
FWRITE(Nfe_Handle,"Serie="+ALLTRIM(Serie)+nCHR)
FWRITE(Nfe_Handle,"Codigo="+ALLTRIM(Codigonota)+nCHR)
FWRITE(Nfe_Handle,"Numero="+ALLTRIM(CodigoNota)+nCHR)
FWRITE(Nfe_Handle,"Emissao="+DTOC(Emissao)+nCHR)
Se alguém souber como salvar o XML via comando em uma pasta, por favor me ajude.
Sds,
Júlio
Estou utilizando o AcbrNFeMonitor2 0.6.0c para gerar o arquivo XML da NF-e. O que ocorre é que o XML é gerado na pasta que está configurada no AcbrNFeMonitor, na aba WebService. Ocorre que o meu cliente pode emitir notas fiscais de duas empresas, dependendo do caso e eu gostaria se salvar o arquivo XML em pastas separadas por empresa. exemplo:
Empresa-01 Sub-pastas Empresa-02 Sub-pastas
XML XML
PDF PDF
TXT TXT
RETORNOS RETORNOS
Eu sei que através do arquivo INI do acbrnfemonitor eu tenho como controlar esta variável, todavia eu teria que reiniciar o mesmo. O que penso não ser apropriado.
Segue exemplo do arquivo TXT que envio para o ENTNFE.TXT
Nfe_Handle := FCreate(vArq)
FWRITE(Nfe_Handle,'Nfe.CriarNfe("[Identificacao]'+nCHR)
FWRITE(Nfe_Handle,"NaturezaOperacao="+ALLTRIM(Nt_Oper)+nCHR)
FWRITE(Nfe_Handle,"Modelo="+ALLTRIM(cMode)+nCHR)
FWRITE(Nfe_Handle,"Serie="+ALLTRIM(Serie)+nCHR)
FWRITE(Nfe_Handle,"Codigo="+ALLTRIM(Codigonota)+nCHR)
FWRITE(Nfe_Handle,"Numero="+ALLTRIM(CodigoNota)+nCHR)
FWRITE(Nfe_Handle,"Emissao="+DTOC(Emissao)+nCHR)
Se alguém souber como salvar o XML via comando em uma pasta, por favor me ajude.
Sds,
Júlio