IMATECH

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

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)

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

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

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

...\acbr\Exemplos\ACBrDFe\ACBrReinf

Atualizar a versão do Layout

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

Boa tarde @Alexandre de Paula ! Alguma chance de ser implementado no Monitor ? Reinf.SetVersaoDF( "2_01_02" ) Obrigado

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:

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

Anexei o arquivo errado, Segue correção. Obrigado pcesGerador.pas pcesS2300.pas

Segue correção pcesGerador.pas pcesS3000.pas

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

@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)

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

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

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.

Tente informar o nr inscrição completo em: ideEmpregador CNPJ ou CPF (inscrição com 14 ou 11 dígitos)

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

Inclusão campo sexoDep na leitura de arquivos .INI S-2200 S-2202 S-2300 Arquivos em anexo pcesS2300.pas pcesS2205.pas pcesS2200.pas

eSocial exige que a TAG seja informada para MEI Correção do @alexcamilo01 Esta correta e precisa ser feita

Já existe essa correção desde 2021-10-13 Commit 23251 Favor verificar e confirmar

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

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)