Contribuição Projeto - Provedor EL

[edulamy]

Pessol, por necessidade de adequar o provedor EL ao layout disponibilizado por eles, tive que fazer uma alteração no form pnfsNFSeW_EL para inclusão do campo CodigoMunicipioPrestacao.

Necessidade causada pelo município de Santa Maria de Jetibá - ES.

Segue em anexo documentação da prefeitura e form alterado.

pnfsNFSeW_EL.pas layout_rps_santa_maria_jetiba.zip

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

[Italo Giurizzato Junior]

Bom dia Edulamy,

Já esta no repositório.

[edulamy]

bom dia,

Fiz mais esse ajuste no arquivo pnfsNFSeW_EL, pois ele usava a numeração do RPS como numero de identificação. E quando enviado o rps mais de uma vez, devido a erro no envio, acusava duplicidade de lotes no servidor.

Deixei comentando como era antes.

2 horas atrás, Italo Giurizzato Junior disse:

Bom dia Edulamy,

Já esta no repositório.

function TNFSeW_EL.GerarXml: Boolean;
begin
  Gerador.ListaDeAlertas.Clear;

  Gerador.ArquivoFormatoXML := '';
  Gerador.Prefixo           := FPrefixo4;

  Gerador.Opcoes.QuebraLinha := FQuebradeLinha;

  if (RightStr(FURL, 1) <> '/') and (FDefTipos <> '')
    then FDefTipos := '/' + FDefTipos;

  if Trim(FPrefixo4) <> ''
    then Atributo := ' xmlns:' + StringReplace(Prefixo4, ':', '', []) + '="' + FURL + FDefTipos + '"'
    else Atributo := ' xmlns="' + FURL + FDefTipos + '"';

  Gerador.wGrupo('Rps');

  FNFSe.InfID.ID := StringOfChar('0', 15) +
                    FNFSe.InfID.ID;  
                    //OnlyNumber(FNFSe.IdentificacaoRps.Numero) +
                    //FNFSe.IdentificacaoRps.Serie;
  FNFSe.InfID.ID := copy(FNFSe.InfID.ID, length(FNFSe.InfID.ID) - 15 + 1, 15);

  GerarXML_EL;

  Gerador.wGrupo('/Rps');

  Gerador.gtAjustarRegistros(NFSe.InfID.ID);
  Result := (Gerador.ListaDeAlertas.Count = 0);
end;

[Juliana Tamizou]

Boa tarde.

Obrigada pelo interesse em colaborar, como é uma nova contribuição para uma outra situação, por favor crie um novo tópico anexando o pas alterado.

Att.