Rogerio Barbosa Ferreira

Ok, obrigado.

Prezado Julio, alterei nas exceções o link para https://assiadoc.estaleiro.serpro.gov.br mas agora está apresentando a seguinte advertência. Tem como executar sem ter que marcar aquele check box e clicar em executar?

Prezado Julio, A minha duvida é qual site colocar na lista de exceções de sites. o arquivo jnlp que é baixado o link dele é https://assinadoc.estaleiro.serpro.gov.br/server/jnlp já coloquei ele nas exceções mas ainda está bloqueando

Prezados Senhores, Até semana passada estava conseguindo usar o modulo web do esocial normalmente. Hoje fui fazer uma alteração em uma rúbrica, quando executo o arquivo jnlp recebo a mensagem da imagem. já configurei no java O que tenho que configurar no java para ele não bloquear essa assinatura? Atenciosamente Rogerio Barbosa

Italo, bom dia, Eu fiz só para teste. Vou tentar fazer o que vc mencionou. Estou querendo criar uma outra aba para colocar nela um listview dos arquivos .ini gerados e gerar todos dentro de um lote. No ACBrNFe consegui fazer. Vou tentar fazer o mesmo no eSocial

Bom dia, Exporta o certificado para pfx e instala na sua máquina.

Prezados Senhores, No exemplo do eSocial carrego um arquivo .ini por vez. Como faço para enviar um lote com cinquenta eventos?

Emarcolongo, Bom dia. Verifique que no exemplo do eSocial, na unit pcesS1000 a function TevtInfoEmpregador.LerArqIni esta gravaando todas as tags do leiaute. function TevtInfoEmpregador.LerArqIni(const AIniString: String): Boolean; var INIRec: TMemIniFile; Ok: Boolean; sSecao, sFim: String; I: Integer; begin Result := False; INIRec := TMemIniFile.Create(''); try LerIniArquivoOuString(AIniString, INIRec); with Self do begin sSecao := 'evtInfoEmpregador'; Id := INIRec.ReadString(sSecao, 'Id', ''); Sequencial := INIRec.ReadInteger(sSecao, 'Sequencial', 0); ModoLancamento := eSStrToModoLancamento(Ok, INIRec.ReadString(sSecao, 'ModoLancamento', 'inclusao')); sSecao := 'ideEvento'; ideEvento.TpAmb := eSStrTotpAmb(Ok, INIRec.ReadString(sSecao, 'tpAmb', '1')); ideEvento.ProcEmi := eSStrToProcEmi(Ok, INIRec.ReadString(sSecao, 'procEmi', '1')); ideEvento.VerProc := INIRec.ReadString(sSecao, 'verProc', EmptyStr); sSecao := 'ideEmpregador'; ideEmpregador.OrgaoPublico := (TACBreSocial(FACBreSocial).Configuracoes.Geral.TipoEmpregador = teOrgaoPublico); ideEmpregador.TpInsc := eSStrToTpInscricao(Ok, INIRec.ReadString(sSecao, 'tpInsc', '1')); ideEmpregador.NrInsc := INIRec.ReadString(sSecao, 'nrInsc', EmptyStr); sSecao := 'idePeriodo'; infoEmpregador.idePeriodo.IniValid := INIRec.ReadString(sSecao, 'iniValid', EmptyStr); // infoEmpregador.idePeriodo.FimValid := INIRec.ReadString(sSecao, 'fimValid', EmptyStr); if (ModoLancamento <> mlExclusao) then begin sSecao := 'infoCadastro'; infoEmpregador.infoCadastro.NmRazao := INIRec.ReadString(sSecao, 'nmRazao', EmptyStr); infoEmpregador.infoCadastro.ClassTrib := StrTotpClassTrib(Ok, INIRec.ReadString(sSecao, 'classTrib', '00')); infoEmpregador.infoCadastro.NatJurid := INIRec.ReadString(sSecao, 'natJurid', EmptyStr); infoEmpregador.infoCadastro.IndCoop := eSStrToIndCooperativa(Ok, INIRec.ReadString(sSecao, 'indCoop', '0')); infoEmpregador.infoCadastro.IndConstr := eSStrToIndConstrutora(Ok, INIRec.ReadString(sSecao, 'indConstr', '0')); infoEmpregador.infoCadastro.IndDesFolha := eSStrToIndDesFolha(Ok, INIRec.ReadString(sSecao, 'indDesFolha', '0')); infoEmpregador.infoCadastro.IndOptRegEletron := eSStrToIndOptRegEletronico(Ok, INIRec.ReadString(sSecao, 'indOptRegEletron', '0')); infoEmpregador.infoCadastro.IndEntEd := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'indEntEd', 'S')); infoEmpregador.infoCadastro.IndEtt := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'indEtt', 'S')); infoEmpregador.infoCadastro.nrRegEtt := INIRec.ReadString(sSecao, 'nrRegEtt', EmptyStr); { retirei daqui sSecao := 'dadosIsencao'; infoEmpregador.infoCadastro.DadosIsencao.IdeMinLei := INIRec.ReadString(sSecao, 'ideMinLei', EmptyStr); infoEmpregador.infoCadastro.DadosIsencao.nrCertif := INIRec.ReadString(sSecao, 'nrCertif', EmptyStr); infoEmpregador.infoCadastro.DadosIsencao.dtEmisCertif := StringToDateTime(INIRec.ReadString(sSecao, 'dtEmisCertif', '0')); infoEmpregador.infoCadastro.DadosIsencao.dtVencCertif := StringToDateTime(INIRec.ReadString(sSecao, 'dtVencCertif', '0')); infoEmpregador.infoCadastro.DadosIsencao.nrProtRenov := INIRec.ReadString(sSecao, 'nrProtRenov', EmptyStr); infoEmpregador.infoCadastro.DadosIsencao.dtProtRenov := StringToDateTime(INIRec.ReadString(sSecao, 'dtProtRenov', '0')); infoEmpregador.infoCadastro.DadosIsencao.dtDou := StringToDateTime(INIRec.ReadString(sSecao, 'dtDou', '0')); infoEmpregador.infoCadastro.DadosIsencao.pagDou := INIRec.ReadString(sSecao, 'pagDou', EmptyStr); } até aqui sSecao := 'contato'; infoEmpregador.infoCadastro.Contato.NmCtt := INIRec.ReadString(sSecao, 'nmCtt', EmptyStr); infoEmpregador.infoCadastro.Contato.cpfCtt := INIRec.ReadString(sSecao, 'cpfCtt', EmptyStr); infoEmpregador.infoCadastro.Contato.foneFixo := INIRec.ReadString(sSecao, 'foneFixo', EmptyStr); infoEmpregador.infoCadastro.Contato.foneCel := INIRec.ReadString(sSecao, 'foneCel', EmptyStr); infoEmpregador.infoCadastro.Contato.email := INIRec.ReadString(sSecao, 'email', EmptyStr); { retirei daqui sSecao := 'infoOP'; infoEmpregador.infoCadastro.InfoOp.nrSiafi := INIRec.ReadString(sSecao, 'nrSiafi', EmptyStr); sSecao := 'infoEFR'; infoEmpregador.infoCadastro.InfoOp.infoEFR.ideEFR := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'ideEFR', 'S')); infoEmpregador.infoCadastro.InfoOp.infoEFR.cnpjEFR := INIRec.ReadString(sSecao, 'cnpjEFR', EmptyStr); sSecao := 'infoEnte'; infoEmpregador.infoCadastro.InfoOp.infoEnte.nmEnte := INIRec.ReadString(sSecao, 'nmEnte', EmptyStr); infoEmpregador.infoCadastro.InfoOp.infoEnte.uf := eSStrTouf(Ok, INIRec.ReadString(sSecao, 'uf', 'SP')); infoEmpregador.infoCadastro.InfoOp.infoEnte.codMunic := INIRec.ReadInteger(sSecao, 'codMunic', 0); infoEmpregador.infoCadastro.InfoOp.infoEnte.indRPPS := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'indRPPS', 'S')); infoEmpregador.infoCadastro.InfoOp.infoEnte.subteto := eSStrToIdeSubteto(Ok, INIRec.ReadString(sSecao, 'subteto', '1')); infoEmpregador.infoCadastro.InfoOp.infoEnte.vrSubteto := StringToFloatDef(INIRec.ReadString(sSecao, 'vrSubteto', ''), 0); sSecao := 'infoOrgInternacional'; infoEmpregador.infoCadastro.InfoOrgInternacional.IndAcordoIsenMulta := eSStrToIndAcordoIsencaoMulta(Ok, INIRec.ReadString(sSecao, 'indAcordoIsenMulta', '0')); } até aqui I := 1; while true do begin // de 01 até 99 sSecao := 'softwareHouse' + IntToStrZero(I, 2); sFim := INIRec.ReadString(sSecao, 'cnpjSoftHouse', 'FIM'); if (sFim = 'FIM') or (Length(sFim) <= 0) then break; with infoEmpregador.infoCadastro.SoftwareHouse.Add do begin CnpjSoftHouse := sFim; nmRazao := INIRec.ReadString(sSecao, 'nmRazao', ''); nmCont := INIRec.ReadString(sSecao, 'nmCont', ''); telefone := INIRec.ReadString(sSecao, 'telefone', ''); email := INIRec.ReadString(sSecao, 'email', ''); end; Inc(I); end; sSecao := 'infoComplementares'; infoEmpregador.infoCadastro.InfoComplementares.SituacaoPJ.IndSitPJ := eSStrToIndSitPJ(Ok, INIRec.ReadString(sSecao, 'indSitPJ', '0')); infoEmpregador.infoCadastro.InfoComplementares.SituacaoPF.IndSitPF := eSStrToTpIndSitPF(Ok, INIRec.ReadString(sSecao, 'indSitPF', '0')); if ModoLancamento = mlAlteracao then begin sSecao := 'novaValidade'; infoEmpregador.novaValidade.IniValid := INIRec.ReadString(sSecao, 'iniValid', EmptyStr); infoEmpregador.novaValidade.FimValid := INIRec.ReadString(sSecao, 'fimValid', EmptyStr); end; end; end; GerarXML; Result := True; finally INIRec.Free; end; end; Também retire do aquivo .ini que vc está importando essas mesmas tags Emarcolongo, retirei porque a empresa não necessita das mesmas No seu caso vc deve analisar se precisa das tags ou não

Italo, Consegui enviar com sucesso. Tive que retirar do exemplo algumas tags que não são obrigatórias.

Italo, a url do repositório é essa? svn://svn.code.sf.net/p/acbr/code/trunk2

Bom dia Italo, Vou verificar

Italo, o meu esta assim: PathSchemas=C:\ACBr\Exemplos\ACBrDFe\Schemas\eSocial\v2_04_02

Boa tarde Italo, vc diz colocar no campo "Diretórios com os arquivos XSD(Schemas) na tela do exemplo?

Prezado Italo, Executei novamente e deu o mesmo erro. Estou importando o arquivo ini do S-1000 do exemplo. Está apresentando o mesmo erro. Tem algum outro lugar para configurar a versão além do combo Versão Ducumento Fiscal? Atenciosamente Rogerio Barbosa

Prezado Italo, Quando clico no botão continuar aparece a seguinte mensagem: Falha na validação dos dados do evento: evtInfoEmpregador erro: Schema invalido ps: baixei todos os schemas do site do eSocial para uma pasta e na execução do exemplo aponto para essa pasta

Prezados Senhores, Seguindo o conselho do ìtalo, tentei importar um arquivo ini do exemplo do eSocial mas dá o seguinte erro: "Falha ao localizar o nó de Assinatura" Atenciosamente Rogério Barbosa

Prezado Juliomar, Baixei o Lazarus recentemente e não tenho nenhum pacote do acbr instalado nele. Gostaria de usar o pacote do Esocial. Quais pacotes tenho que instalar antes? Atenciosamente Rogerio Barbosa

Prezado Daniel, Existe algum tutorial para instalação do ACBR_Esocial no Lazarus?

Prezado Ricardo, O Lázarus me atende plenamente para o eSocial?

Prezado Amigos, Tenho um sistema de folha de pagamento, e estou gerando os xmls dos registros do eSocial. Gostaria de usar o componente ACBrEsocial. Qual versão do Delphi devo escolher para usá-lo. Só vou usar local ou com conexão pela área de trabalho remota. Gostaria de aquirir um Delphi mesmo mais antigo mas que atenda essas minhas necessidades. Alguém sabe se alguém tem um Delphi oficial que esteja querendo vender, pois o novo está fora da minha realidade? Atenciosamente Rogerio Barbosa

Valeu Rafael, a minha versão é trial. Não aceita linha do comando.

Prezado Rafael, Utilizei o instalador e quando eu abro o delphi 2010 recebo uma série de mensagens de erros como por exemplo: Can't load package c:\ACBr\Lib\Delphi\LibD14\ACBr_Comun.bpl. O que está faltando? Atenciosamente Rogerio Barbosa

Obrigado, vou aguardar

Quando compilo dá o seguinte erro: [DCC Fatal Error] ACBreSocialUtil.pas(9): F1026 File not found: 'JwaWinCrypt.dcu' Ps.: no project mananger, não aparece a opção install

Prezado Julimar, Isso eu já consegui. O que estrou precisando é como instalar o componente. Atenciosamente Rogerio Barbosa