Fórum Nota Fiscal Eletrônica Envio de Lotes #370460
14/05/2009
0
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?
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)