Implementação provedor EL

[edulamy]

Por necessidade do meu cliente (SANTA MARIA DE JETIBA MG) precisei altera a rotina GerarXML_EL do arquivo pnfsNFSeW_EL, segue abaixo o trecho alterado.

 

procedure TNFSeW_EL.GerarXML_EL;
var
  LocPrest: String;
begin
  FIdentificador := 'Id';
  Gerador.wCampo(tcStr, '#01', FIdentificador, 1, 15, 1, NFSe.InfID.ID, '');

  LocPrest := '2';
  //SANTA MARIA DE JETIBA
  if ((OnlyNumber(NFSe.PrestadorServico.Endereco.CodigoMunicipio) = 3204559) and (NFSe.NaturezaOperacao = no1) and
      (OnlyNumber(NFSe.PrestadorServico.Endereco.CodigoMunicipio) <> OnlyNumber(NFSe.Tomador.Endereco.CodigoMunicipio))) then
    LocPrest := '1'
  else if NFSe.NaturezaOperacao = no2 then
    LocPrest := '1';

  // Código para identificação do local de prestação do serviço 1-Fora do município 2-No município
  Gerador.wCampo(tcStr, '#02', 'LocalPrestacao', 1, 1, 1, LocPrest, '');
  //IssRetido no provedor EL é ao contrario (1 = normal, 2 retido) por isso não da de usar SituacaoTributariaToStr
  //Gerador.wCampo(tcStr   , '#03', 'IssRetido'     , 001, 001, 1, SituacaoTributariaToStr(NFSe.Servico.Valores.IssRetido), '');

  if NFSe.Servico.Valores.IssRetido = stRetencao then
    Gerador.wCampo(tcStr, '#03', 'IssRetido', 1, 1, 1, '2', '')
  else
    Gerador.wCampo(tcStr, '#03', 'IssRetido', 1, 1, 1, '1', '');

  Gerador.wCampo(tcDatHor, '#04', 'DataEmissao', 19, 19, 1, NFSe.DataEmissao, DSC_DEMI);

  GerarIdentificacaoRPS;

  GerarPrestador;
  GerarTomador;
  GerarIntermediarioServico;
  GerarListaServicos;
  GerarValoresServico;
  GerarRPSSubstituido;

  Gerador.wCampo(tcStr, '#90', 'Observacao', 1, 255, 0, NFSe.OutrasInformacoes, '');
  Gerador.wCampo(tcStr, '#91', 'Status'    , 1, 001, 1, StatusRPSToStr(NFSe.Status), '');
  Gerador.wCampo(tcStr, '#92', 'CodigoMunicipioPrestacao'    , 07, 007, 0, OnlyNumber(NFSe.PrestadorServico.Endereco.CodigoMunicipio), '');
end;

[Juliomar Marchetti]

Anexe o arquivo alterado

[edulamy]

pnfsNFSeW_EL.pas

Segue em anexo.

[Italo Giurizzato Junior]

Boa tarde Edu,

Lhe convido a iniciar os testes com o novo componente de emissão de NFS-e: ACBrNFSeX.

Por favor atualize todos os fontes de todas as pastas, note que na lista de componentes do Instalador temos agora o componente ACBrNFSeX e o componente novo para emissão do DANFSE feito em Fortes Report, em breve teremos também em Fast Report.

O componente antigo ACBrNFSe não vai mais receber melhorias ou correções.

Manual de Migração
https://www.projetoacbr.com.br/forum/topic/63017-manual-de-migração-para-o-novo-componente-de-emissão-de-nfs-e/