Arquivo de Pedido sefaz-am

[ssouza_fiscal]

Bom dia sabem me dizer se no projeto ACBr já esta gerando o pedido de ressarcimento? segue a legislação em anexo

doc.pdf

[Juliomar Marchetti]

44 minutos atrás, ssouzaacbr disse:

me dizer se no projeto ACBr já esta gerando o pedido de ressarcimento? segue a legislação em anexo

Não

[ssouza_fiscal]

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;

Editado 25 Setembro, 2019 por ssouzaacbr

[Italo Giurizzato Junior]

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.