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

...\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