Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works
Anything · Lazarus or Delphi
Random projectRandom project

traducao_campos_esocial

Tradução dos campos do “Leiautes do eSocial v2.5 (cons. até NT 16.2019)” para uma descrição de alto nível.

View on GitHub

Member rating

No ratings yet.

Sign in to rate this project.

README

Tradução dos campos do e-Social

Esse módulo serve para você traduzir um campo do e-Social de uma determinada tabela para uma descrição mais fácil para o usuário, por exemplo:

Tabela 1000

Entrada Saída
softwareHouse Informações do desenvolvedor do Software
situacaoPF Informações Complementares - Pessoa Física
natJurid código da Natureza Jurídica do Contribuinte

Tabela 2200

Entrada Saída
dtExped Data da expedição do documento
nrRic Número do Documento Nacional de Identidade - DNI
nrOc Número de inscrição no órgão de classe

Exemplo de como usar

delphi
var
  mapa: TDictionary<Integer, ICamposTabelas>;
  campos: ICamposTabelas;
begin
   mapa := TDictionary<Integer, ICamposTabelas>.Create();

   Try
      mapa.add(1000, TBaseTraduzirCamposFactory.New(1000));
      mapa.add(2200, TBaseTraduzirCamposFactory.New(2200));

      mapa.TryGetValue(1000, campos);
      If Assigned(campos) Then
         Result := campos.GetDescricao(mensagem);
   Finally
      mapa.Free;
   End;
end;

Obs:

Caso tenha problemas com charset basta utilizar o método "UTF8ToNativeString" da "ACBrUtil" e corrigir os problemas de acentuação.