Jump to content

Compre o Delphi
Com até 30% de desconto
e parcelado em até 12x sem juros

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Sidney_Souza

Arquivo de Pedido sefaz-am

Recommended Posts

Seque o arquivo de Pedido Eletrônico de ressarcimento, homologado pelo site da sefaz-AM, se puder gerar um método, seria bom, aqui eu passei o xml como parâmetro:

nfe.NotasFiscais.Clear;
  try
      nfe.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
      //
      AssignFile(f,'c:\Temp\' + nfe.NotasFiscais.Items[0].NFe.procNFe.chNFe+ '-nfe-ressarcimento' + '.xml');
      Rewrite(f); //abre o arquivo para escrita
      Writeln(f,'<?xml version="1.0" encoding="UTF-8" standalone="yes"?>');
      Writeln(f,'<enviOperacaoRessarcimento xmlns="http://www.sefaz.am.gov.br/ressarcimento">');
          Writeln(f,'<versao>2.00</versao>');
          Writeln(f,'<dadosDeclaracao>');
            Writeln(f,'<cnpjRaiz>' + copy(nfe.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 1,8) + '</cnpjRaiz>');
            Writeln(f,'<ieContribuinteDeclarante>' + nfe.NotasFiscais.Items[0].NFe.Emit.IE + '</ieContribuinteDeclarante>');
            Writeln(f,'<razaoSocial>' + nfe.NotasFiscais.Items[0].NFe.Emit.xNome + '</razaoSocial>');
            Writeln(f,'<nomeResponsavel>' +nfe.NotasFiscais.Items[0].NFe.infRespTec.xContato + '</nomeResponsavel>');
            Writeln(f,'<foneResponsavel>' +nfe.NotasFiscais.Items[0].NFe.infRespTec.fone + '</foneResponsavel>');
            Writeln(f,'<emailResponsavel>'+ nfe.NotasFiscais.Items[0].NFe.infRespTec.email + '</emailResponsavel>');
            Writeln(f,'<anoPeriodoReferencia>'+ copy(dateToStr(nfe.NotasFiscais.Items[0].NFe.Ide.dEmi),7,4) + '</anoPeriodoReferencia>');
            Writeln(f,'<mesPeriodoReferencia>'+ copy(dateToStr(nfe.NotasFiscais.Items[0].NFe.Ide.dEmi),4,2) + '</mesPeriodoReferencia>');
          Writeln(f,'</dadosDeclaracao>');

          Writeln(f,'<listaOperacoes>');
              Writeln(f,'<operacao>');
                 Writeln(f,'<chaveNFe>' + nfe.NotasFiscais.Items[0].NFe.procNFe.chNFe +'</chaveNFe>');
                 Writeln(f,'<listaItens>');
                   Writeln(f,'<item>');
                     for i :=0 to (nfe.NotasFiscais.Items[0].NFe.Det.Count - 1) do
                     begin
                         Writeln(f,'<codInternoProduto>' + nfe.NotasFiscais.Items[0].NFe.Det.Items[0].Prod.cProd + '</codInternoProduto>');
                         Writeln(f,'<numItemNfe>' + intTostr(nfe.NotasFiscais.Items[0].NFe.Det.Items[0].Prod.nItem) + '</numItemNfe>');
                     end;
                   Writeln(f,'</item>');
                 Writeln(f,'</listaItens>');
              Writeln(f,'</operacao>');
          Writeln(f,'</listaOperacoes>');
            //
            Writeln(f,'<listaNFeEntrada>');
                 Writeln(f,'<chaveNFeEntrada>' + nfe.NotasFiscais.Items[0].NFe.procNFe.chNFe + '</chaveNFeEntrada>');
            Writeln(f,'</listaNFeEntrada>');
        Writeln(f,'</enviOperacaoRessarcimento>');
        Closefile(f);
        //
        showMessage('Pedido eletrônico gerado com sucesso');
  Except
       Application.MessageBox('Erro ao gerar o Pedido eletrônico','Atenção', MB_ICONERROR)
  end;

Edited by ssouzaacbr
  • Like 1

Share this post


Link to post
Share on other sites

Boa tarde Souza,

Como esses XMLs não se utilizam do mesmo namespace da NF-e e sim um especifico da SEFAZ-AM, acredito que deveria ser criado um componente para esse fim.

Caso queira contribuir com a comunidade desenvolvendo esse componente e disponibilizando o seus fontes, ficaremos gratos.

  • Like 1

Consultor SAC ACBr Italo Jurisato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...