Importar XML e Salvar lote

[Adriano Lucas]

Bom dia,

Amigos estou fazendo uma rotina para exportar os xml para o contador do nosso cliente, para isso importo os XML que tenho salvo no banco para o ACBR e agora gostaria de salvar um lote com todos os XML importados, alguém sabe como posso fazer isso??

Ou se alguém tem outra solução fico grato.

[Italo Giurizzato Junior]

Bom dia Adriano,

Eu não salvo os XMLs no banco de dados, mantenho-os em pastas mensais no HD (a pasta tem o seguinte nome: 201207 ou seja AAAAMM).

Montei um form onde informo o Ano, Mes e o e-mail do contador, ao clicar no botão Enviar é gerado um e-mail contendo os arquivos XMLs em anexo.

Caso a quantidade de arquivos seja muito grande é bem provavel que vai ocorrer algum erro, neste caso eu envio varios e-mails contendo 20 arquivos XMLs por e-mail.

Se você gerar um unico XML (ou seja um lote) contendo os demais, o contador por sua vez vai precisar de um programa para separa-los.

Espero ter ajudado.

[Adriano Lucas]

Obrigado Italo,

Eu também tenho uma rotina que utiliza esses XML e envia para os Tomadores.

Mas o que preciso é diferente, preciso enviar para o contador e ele possui um programa contabil que importa por lotes. Por isso preciso gerar os lotes...

[Italo Giurizzato Junior]

Adriano,

Supondo que o Layout do lote seja:

Basta fazer algo do tipo:

xLote := ''; // xLote é uma variável AnsiString


for x := 1 to n do // n é a quantidade de XML a compor o lote

 begin 

   xXMLCTe := ;

   xLote := xLote + '' + xXMLCTe + ''; 
;

 end;


xLote := xLote + '/'; 

;

[Adriano Lucas]

Obrigadão Italo...

[Adriano Lucas]

Obrigado Italo consegui.

Abraços