Ir para conteúdo
  • Cadastre-se

dev botao

Implementação provedor EL


edulamy
  • Este tópico foi criado há 1008 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 para o comentário
Compartilhar em outros 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

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.