Pegar Caminho Xml Autorizado

[walter faria]

Boa noite.

 

Para enviar a NF-e faço os seguintes passos:

 

1- Gera o XML , Assina e depois Valida

 

2- Quando valida eu salvo o XML da nf ( sem protocolo ) com o comando :

    ACBrNFe1.NotasFiscais.Items[0].SaveToFile(C:\Sistema\Arquivo.XML) e grava no BD o caminho do XML sem protocolo *** para que eventuais erros de envio eu possa carrega-lo novamente e reenviar ou consultar o protocolo.

 

3- Envia a NFe ( autorizado ) ele grava o XML da mesma NF na pasta indicado e configurado no sistema na pasta ( mes/ano )

 

 

*** aqui o componente salva este XML na pasta indicada , como posso pegar o caminho do XML?

presciso deste caminho para gravar no BD o caminho XML valido

 

Obrigado.

[igor]

aqui o componente salva este XML na pasta indicada

 

 

ué! vc pega onde vc indicou... Em qual propriedade do componente vc indicou qual a pasta de salvar XML??? Pegue o caminho de la...

 

outra dica: ao inves de salvar o caminho do XML, comece a salvar o proprio XML no seu banco de dados

[Paulo Henrique Abrantes]

Eu faco assim.. :

vou salvando todos os comando do acbr em um arquivinho.txt ex:

 

nome_arquivo := ExtractFilePath(Application.ExeName) + 'Temp\servico.txt';

  AssignFile(arquivo_texto, nome_arquivo);

 

entao vou usando esse "arquivo texto para ir armazenando meus comandos" ex:

 

Writeln(arquivo_texto, 'CNPJ=' + cnpj_emitente);
Writeln(arquivo_texto, 'IE=' + inscricao_estadual);

 

ai blz... depois que tiver acabado de passar todos os dados para o arquvo_texto eu fecho ele... CloseFile(arquivo_texto);

agora meu arquivo 'Temp\servico.txt' esta alimentado...

 

agora eu uso assim..

CopyFile(PChar(nome_arquivo), PChar(dmFuncoes.caminho_entrada_nfe + 'ENTNFE.TXT'), true); 

 

com isso o acbr gera o xml e me retorna o caminho que gerou no arquivo 'SAINFE.TXT'

 

dessa forma eu pego o caminho gerado nesse arquivo e passo em seguida o comando de enviar a nota...

 

espero que tenha ajudado...

[igor]

Eu faco assim.. :

vou salvando todos os comando do acbr em um arquivinho.txt ex:

 

nome_arquivo := ExtractFilePath(Application.ExeName) + 'Temp\servico.txt';

  AssignFile(arquivo_texto, nome_arquivo);

 

entao vou usando esse "arquivo texto para ir armazenando meus comandos" ex:

 

Writeln(arquivo_texto, 'CNPJ=' + cnpj_emitente);

Writeln(arquivo_texto, 'IE=' + inscricao_estadual);

 

ai blz... depois que tiver acabado de passar todos os dados para o arquvo_texto eu fecho ele... CloseFile(arquivo_texto);

agora meu arquivo 'Temp\servico.txt' esta alimentado...

 

agora eu uso assim..

CopyFile(PChar(nome_arquivo), PChar(dmFuncoes.caminho_entrada_nfe + 'ENTNFE.TXT'), true); 

 

com isso o acbr gera o xml e me retorna o caminho que gerou no arquivo 'SAINFE.TXT'

 

dessa forma eu pego o caminho gerado nesse arquivo e passo em seguida o comando de enviar a nota...

 

espero que tenha ajudado...

Mas no caso ele nao ta usando o Monitor...