Jump to content

Implementação provedor EL


edulamy
  • Este tópico foi criado há 413 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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;

Link to comment
Share on other sites

  • Consultores

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/
 

Consultor SAC ACBr Italo Giurizzato 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

Link to comment
Share on other sites

  • Este tópico foi criado há 413 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

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...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.