Nota Fiscal Eletrônica Envio de Lotes

Delphi

14/05/2009

Boa tarde pessoal..

Estou tentando enviar lotes de NFe e nao estou conseguindo... como seria a sintaxe correta do codigo? estava tentando assim...

****Para gerar
OpenDialog1.Title := ´Selecione a NFE´;
OpenDialog1.DefaultExt := ´*-nfe.XML´;
OpenDialog1.Filter := ´Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*´;
OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;
if OpenDialog1.Execute then
begin
ACBrNFe1.NotasFiscais.Add.XML.LoadFromFile(OpenDialog1.FileName);
end;

*** Para Enviar

if not(InputQuery(´Enviar Lote´, ´Numero do Lote´, NumLote)) then
exit;
ACBrNFe1.Enviar(strtoint(NumLote));

Estou pouco perdido alguem me ajuda?


Juninhohugo1

Juninhohugo1

Curtidas 0
POSTAR