[S-2299, LerArqIni, remunOutrEmpr[NNN] (padronização com 3 dígitos)]

S-2299, LerArqIni, remunOutrEmpr

Em todos os outros registros [remunOutrEmpr] a leitura do INI é padronizada com 3 dígitos

C:\lazarus\acbr\Fontes\ACBrDFe\ACBreSocial\PCNeSocial\pcesS2299.pas
Linha 1564
Fora de padrão:

          // de 01 até 10
          sSecao := 'remunOutrEmpr' + IntToStrZero(I, 2);

Correção:

          // de 01 até 999
          sSecao := 'remunOutrEmpr' + IntToStrZero(I, 3);

 

 

pcesS2299.pas

[eSocial, S-1000, indTribFolhaPisCofins, informação padrão "Sim" = Problema]

1 hora atrás, Renato Rubinho disse:

Boa tarde,

Se você não informa a chave, a função preenche o padrão, mas se você informar a chave em branco não preenche.

Volte o fonte anterior e teste seu ini com a linha a seguir e veja se resolve.

indTribFolhaPisCofins=

Exato, se deixa em branco gera a TAG com valor indevido [S]

.INI
indTribFolhaPisCofins=

Resulta no XML com <indTribFolhaPisCofins>S</indTribFolhaPisCofins>

*Valor padrão [S] = Problema, 0,0x% das empresas se utilizam dessa forma de contribuição ( PIS/Cofins s/Folha Pagamento)

[eSocial, S-1000, indTribFolhaPisCofins, informação padrão "Sim" = Problema]

indTribFolhaPisCofins
Preenchimento exclusivo para o empregador em situação de tributação de PIS e PASEP sobre a folha de pagamento.
Valores válidos:
S - Sim

Ao não informar a Tag no Arquivo INI o Monitor gera o campo como se todas as empresas fossem contribuintes sobre a folha de pagamento.
 

\acbr\Fontes\ACBrDFe\ACBreSocial\PCNeSocial\pcesS1000.pas
Linha 640, de:

infoEmpregador.infoCadastro.indTribFolhaPisCofins := eSStrToSimNaoFacultativo(Ok, INIRec.ReadString(sSecao, 'indTribFolhaPisCofins', 'S'));

Para:

infoEmpregador.infoCadastro.indTribFolhaPisCofins := eSStrToSimNaoFacultativo(Ok, INIRec.ReadString(sSecao, 'indTribFolhaPisCofins', ''));

 

pcesS1000.pas

[Reinf: Metodo SetTipoContribuinte indisponivel]

0:'tcPessoaJuridica'
1:'tcOrgaoPublico'
2:'tcPessoaFisica'

Reinf.SetTipoContribuinte( nTipo )

Boa tarde @Alexandre de Paula, @Renato Rubinho

Seria possivel implementar o método acima no monitor ?
Necessário para alternar entre contribuintes pj/pf/publ.
Obrigado

[REINF_R_2010_SAI_TXT_SEM_PROTOCOLO]

Erro de Webservice.
Só continuar tentando que vai dar ok (assim que os servidores estabilizarem)

[Layout XML - Reinf (Eventos R-4010, 4020, 4099, 9005, 9015)]

3 horas atrás, Valéria Rodrigues disse:

Bom dia!
Pessoal, alguém teria um exemplo do XML de Consulta do Evento 4020?

...\acbr\Exemplos\ACBrDFe\ACBrReinf

[Erro ao Enviar Reinf]

Atualizar a versão do Layout

[Correção pastas Reinf/GTIN]

Correção: linha 11965 (GTIN, gnre ficou errado no título)

  else if Configuracoes is TConfiguracoesGTIN then
  begin
    PathSchemaDFe := edtPathSchemasDFe.Text + PathDelim + 'GTIN';
    if DirectoryExists(PathSchemaDFe) then
      TConfiguracoesGTIN(Configuracoes).Arquivos.PathSchemas:= PathSchemaDFe;
  end;

erro: linha 11965

  else if Configuracoes is TConfiguracoesGTIN then
  begin
    PathSchemaDFe := edtPathSchemasDFe.Text + PathDelim + 'GTIN';
    if DirectoryExists(PathSchemaDFe) then
      TConfiguracoesReinf(Configuracoes).Arquivos.PathSchemas:= PathSchemaDFe;
  end;

 

ACBrMonitor1.pas

[Reinf: Metodo SetVersaoDF com erro (ou indisponivel)]

Boa tarde @Alexandre de Paula !
Alguma chance de ser implementado no Monitor ?

Reinf.SetVersaoDF( "2_01_02" )

Obrigado

[Reinf: Metodo SetVersaoDF com erro (ou indisponivel)]

Log Monitor:

28/09/2023 15:39:49 - Reinf.SetVersaoDF( "2_01_02" )
28/09/2023 15:39:49 - ERRO: Comando invalido (setversaodf)
28/09/2023 15:39:50 - Reinf.SetIdContribuinte( "12345678901234" )
28/09/2023 15:39:50 - OK:

 

[Evento S-1280 - Criar TAG infoPercTransf11096 somente se houver valor informado (.INI e Componente)]

De:

procedure TEvtInfoComplPer.GerarinfoPercTransf11096;
begin
  if VersaoDF > ve02_05_00 then
  begin
    Gerador.wGrupo('infoPercTransf11096');
    Gerador.wCampo(tcStr, '', 'percTransf', 1, 1, 1, infoPercTransf11096.percTransf);
    Gerador.wGrupo('/infoPercTransf11096');
  end;
end;

...

sSecao := 'infoPercTransf11096';
      infoPercTransf11096.percTransf  := StrToIntDef(INIRec.ReadString(sSecao, 'percTrans', ''), 0);

Para:

procedure TEvtInfoComplPer.GerarinfoPercTransf11096;
begin
  if VersaoDF > ve02_05_00 then
    if infoPercTransf11096.percTransf > 0 then
    begin
      Gerador.wGrupo('infoPercTransf11096');
      Gerador.wCampo(tcStr, '', 'percTransf', 1, 1, 1, infoPercTransf11096.percTransf);
      Gerador.wGrupo('/infoPercTransf11096');
    end;
end;

...

sSecao := 'infoPercTransf11096';
      if INIRec.ReadString(sSecao, 'percTrans', '') <> ''then
      begin
        infoPercTransf11096.percTransf  := StrToIntDef(INIRec.ReadString(sSecao, 'percTrans', ''), 0);
      end;

 

 

pcesS1280.pas

[.INI S-2300 informando sexoDep no Layout 1.1 (exclusivo do Layout 2.5)]

Em 14/06/2023 at 08:39, Alexandre de Paula disse:

Olá, no titulo você coloca evento S2300 mas enviou o arquivo do S3000. Pode confirmar qual a ocorrência correta?
Obrigado!

Anexei o arquivo errado,
Segue correção.
Obrigado

pcesGerador.pas pcesS2300.pas

[.INI S-2300 informando sexoDep no Layout 1.1 (exclusivo do Layout 2.5)]

Segue correção

pcesGerador.pas pcesS3000.pas

[Sugestão de Alteração Evento S-2210 (CAT)]

Ajuste para Leitura de arquivos .INI e .XML

tpIdeOC                 = (idNenhum, idCRM, idCRO, idRMS, idCREA, idOutros);

De:

function eSStrToIdeOC(var ok: boolean; const s: string): tpIdeOC;
begin
  result := tpIdeOC( StrToEnumerado2(ok, s, ['1', '2', '3', '4', '9'] ) );
end;

Para:

function eSStrToIdeOC(var ok: boolean; const s: string): tpIdeOC;
begin
  result := tpIdeOC( StrToEnumerado2(ok, s, ['0', '1', '2', '3', '4', '9'] ) );
end;

 

@EMBarbosa

@Juliana Tamizou

 

 

pcesConversaoeSocial.pas

[Evento 2200 cnpjEmpregAnt]

@EMBarbosa Tardes

Verifiquei no repositório e vejo os ajustes já implementados no commit r25764

Tópico encerrado, obrigado.

 

*Melhoria sugerida seria começar a eliminar código exclusivo para versões legadas do eSocial ( Layout 2.5 e anteriores)

[Evento 2200 cnpjEmpregAnt]

Ajuste adicional, não esta gerando a tag [sucessaoVinc] no Layout S.1 e/ou Simplificado

*removido limitação para geração somente até a versão/Layout 2.5

pcesS2200.pas

[Férias ! como informar S-1200 e S-1210 ? vS1.0.0]

Dt pagto 26/01/2022

Afastamento 28/01/2022 a 01/03/2022

 

S-1210 é somente na data de pagamento das férias

26/01/2022

 

s-1200 é para todos os meses em que existirem dias de férias

1 dia 01/2022, 28 dias 02/2022, 1 dia 03/2022

[Erro ao tentar gerar e-Social S-1210 ideDmDev e TS_codigo_esocial]

Exato, devem existir as tags <idmDev> tantas quanto necessário (para cada dia em que houver pagamentos)

Na data de pagamento do Recibo de Férias as verbas serão tributadas para IR (no mês seguinte somente informativas para IR) e poderão ser informativas ou não para INSS/FGTS (vai depender da competência das verbas)

Dá uma boa lida no tópico citado, pois os exemplos estão corretos (e os erros citados desapareceram, eram erros do site e-Social e já foram corrigidos)

 

*Informar junto com a Folha de Pagamento ! sim é possivel (e a maioria dos programas o faz assim usando verbas de provisão)

**Eu faço todos os demonstrativos em separado, pois são documentos e eventos diferentes.

[Erro na validação evento S2240]

Tente informar o nr inscrição completo em:

ideEmpregador

CNPJ ou CPF (inscrição com 14 ou 11 dígitos)

[Evento s-2240 erro ao enviar]

Qual o conteúdo do campo "Id" no arquivo XML ?

[Evento S-2200 nao gera a tag sexoDep.]

Inclusão campo sexoDep na leitura de arquivos .INI

S-2200 S-2202 S-2300

Arquivos em anexo

pcesS2300.pas pcesS2205.pas pcesS2200.pas

[S-1299 13º Salário - ERRO tag transDCTFWeb.]

1 hora atrás, IMATECH disse:

Já existe essa correção desde 2021-10-13

Commit 23251

Favor verificar e confirmar

eSocial exige que a TAG seja informada para MEI

Correção do

@alexcamilo01

Esta correta e precisa ser feita

[S-1299 13º Salário - ERRO tag transDCTFWeb.]

Já existe essa correção desde 2021-10-13

Commit 23251

Favor verificar e confirmar

[eSocial - erros no programa de exemplo]

15 horas atrás, Juliomar Marchetti disse:

sinta-se a vontade se quiser contribuir. basta anexar aqui

 

Tá na mão já havia iniciado.

Agora corrigir um monte de erros de compilação.

Frm_ACBreSocial.pas(454,22) Error: type identifier not allowed here
Frm_ACBreSocial.pas(1317,9) Error: Identifier not found "NisTrab"
Frm_ACBreSocial.pas(1324,30) Error: Expression type must be class or record type, got <erroneous type>
Frm_ACBreSocial.pas(1386,20) Error: identifier idents no member "ideADC"
...

 

Mais alguém se habilita a dar uma ajuda ?

Exemplos_ACBrDFe_ACBreSocial_Lazarus.7z

[eSocial - erros no programa de exemplo]

Comparando os exemplos para Delphi e Lazarus, observei que o 2º esta desatualizado (faltando correção referencias do ACBR e também ajustes para os Eventos que não mais existem na versão S1.0.0
Se faz necessário atualizar a versão Lazarus (ou ao menos sincronizar com a versão para Delphi)

 

Citar

...\AcBr\Exemplos\ACBrDFe\ACBreSocial\Delphi\

..\AcBr\Exemplos\ACBrDFe\ACBreSocial\Lazarus\