Ir para conteúdo
  • Cadastre-se

IMATECH

Membros
  • Total de ítens

    240
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que IMATECH postou

  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. Atualizar a versão do Layout
  7. 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
  8. Boa tarde @Alexandre de Paula ! Alguma chance de ser implementado no Monitor ? Reinf.SetVersaoDF( "2_01_02" ) Obrigado
  9. 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:
  10. 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
  11. Anexei o arquivo errado, Segue correção. Obrigado pcesGerador.pas pcesS2300.pas
  12. 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
  13. @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)
  14. 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
  15. 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
  16. 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.
  17. Tente informar o nr inscrição completo em: ideEmpregador CNPJ ou CPF (inscrição com 14 ou 11 dígitos)
  18. Qual o conteúdo do campo "Id" no arquivo XML ?
  19. Inclusão campo sexoDep na leitura de arquivos .INI S-2200 S-2202 S-2300 Arquivos em anexo pcesS2300.pas pcesS2205.pas pcesS2200.pas
  20. eSocial exige que a TAG seja informada para MEI Correção do @alexcamilo01 Esta correta e precisa ser feita
  21. Já existe essa correção desde 2021-10-13 Commit 23251 Favor verificar e confirmar
  22. 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
  23. 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)
×
×
  • 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.