Ir para conteúdo
  • Cadastre-se

IMATECH

Membros
  • Total de ítens

    240
  • Registro em

  • Última visita

  • Days Won

    1

IMATECH last won the day on 30 Janeiro 2016

IMATECH had the most liked content!

2 Seguidores

Últimos Visitantes

1.774 visualizações

IMATECH's Achievements

Community Regular

Community Regular (8/14)

  • Dedicated Rare
  • Reacting Well Rare
  • First Post
  • Collaborator Rare
  • Conversation Starter

Recent Badges

68

Reputação

14

Community Answers

  1. 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
  2. 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)
  3. 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
  4. 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
  5. Erro de Webservice. Só continuar tentando que vai dar ok (assim que os servidores estabilizarem)
  6. ...\acbr\Exemplos\ACBrDFe\ACBrReinf
  7. Atualizar a versão do Layout
  8. 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
  9. Boa tarde @Alexandre de Paula ! Alguma chance de ser implementado no Monitor ? Reinf.SetVersaoDF( "2_01_02" ) Obrigado
  10. 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:
  11. 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
  12. Anexei o arquivo errado, Segue correção. Obrigado pcesGerador.pas pcesS2300.pas
  13. Segue correção pcesGerador.pas pcesS3000.pas
  14. 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
  15. @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)
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.