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