Djalma Grivol

Obrigado! Resolvido.

Legal. Obrigado pela informação. Hoje uso o assíncrono com uma NF-e. No envio assíncrono muitas vezes o webservice retorna como lote em processamento (105), então deixo um delay entre o envio e a consulta do protocolo para não ter esse problema. No modo síncrono ocorre esse tipo de situação de lote em processamento (pois a resposta já é automática)? Att.

Bom dia! Gostaria de saber se o envio assíncrono ira continuar para a NF-e. E se não qual é o prazo de alteração. Obrigado! Att. Djalma Grivol.

Obrigado!

Bom dia! Gostaria de saber como devo proceder a instalação no Delphi Alexandria 11.3 Community Edition. Pois ele não permite compilação em linha de comando. Obrigado. Djalma Grivol

Eu fiz dessa dessa. Leio o arquivo INI e gravo no componente. Mas o mais prático seria utilizar o gravaini e lerini. Veja: procedure TFrmAso.ConfigurarComponente(); var FileName: String; IniFile: TIniFile; SSLLib, CryptLib, HttpLib, XmlSignLib, FormaEmissao, VersaoDF, TipoEmpregador, Ambiente, Tentativas, TimeOut, SSLType: Integer; Caminho, Senha, NumSerie, FormatoAlerta, PathSalvar, PathSchemas, IdEmpregador, IdTransmissor, UF, Aguardar, Intervalo, Host, Porta, User, Pass, PatheSocial: String; AtualizarXML, ExibirErroSchema, RetirarAcentos, Salvar, Visualizar, SalvarSOAP, AjustarAut, SalvarArqs, PastaMensal, AddLiteral, EmissaoPatheSocial, SalvarPathEvento, SepararPorCNPJ, SepararPorModelo: Boolean; begin FileName := ExtractFilePath(ParamStr(0)) + 'eSocialConfig.ini'; IniFile := TIniFile.Create(FileName); try SSLLib := IniFile.ReadInteger('Certificado', 'SSLLib', 0); CryptLib := IniFile.ReadInteger('Certificado', 'CryptLib', 0); HttpLib := IniFile.ReadInteger('Certificado', 'HttpLib', 0); XmlSignLib := IniFile.ReadInteger('Certificado', 'XmlSignLib', 0); Caminho := IniFile.ReadString( 'Certificado', 'Caminho', ''); Senha := IniFile.ReadString( 'Certificado', 'Senha', ''); NumSerie := IniFile.ReadString( 'Certificado', 'NumSerie', ''); AtualizarXML := IniFile.ReadBool( 'Geral', 'AtualizarXML', False); ExibirErroSchema := IniFile.ReadBool( 'Geral', 'ExibirErroSchema', False); FormatoAlerta := IniFile.ReadString( 'Geral', 'FormatoAlerta', ''); FormaEmissao := IniFile.ReadInteger('Geral', 'FormaEmissao', 0); VersaoDF := IniFile.ReadInteger('Geral', 'VersaoDF', 0); RetirarAcentos := IniFile.ReadBool( 'Geral', 'RetirarAcentos', False); Salvar := IniFile.ReadBool( 'Geral', 'Salvar', False); PathSalvar := IniFile.ReadString( 'Geral', 'PathSalvar', ''); PathSchemas := IniFile.ReadString( 'Geral', 'PathSchemas', ''); IdEmpregador := IniFile.ReadString( 'Geral', 'IdEmpregador', ''); IdTransmissor := IniFile.ReadString( 'Geral', 'IdTransmissor', ''); TipoEmpregador := IniFile.ReadInteger('Geral', 'TipoEmpregador', 0); UF := IniFile.ReadString( 'WebService', 'UF', ''); Ambiente := IniFile.ReadInteger('WebService', 'Ambiente', 0); Visualizar := IniFile.ReadBool( 'WebService', 'Visualizar', False); SalvarSOAP := IniFile.ReadBool( 'WebService', 'SalvarSOAP', False); AjustarAut := IniFile.ReadBool( 'WebService', 'AjustarAut', False); Aguardar := IniFile.ReadString( 'WebService', 'Aguardar', ''); Tentativas := IniFile.ReadInteger('WebService', 'Tentativas', 0); Intervalo := IniFile.ReadString( 'WebService', 'Intervalo', ''); TimeOut := IniFile.ReadInteger('WebService', 'TimeOut', 0); SSLType := IniFile.ReadInteger('WebService', 'SSLType', 0); Host := IniFile.ReadString('Proxy', 'Host', ''); Porta := IniFile.ReadString('Proxy', 'Porta', ''); User := IniFile.ReadString('Proxy', 'User', ''); Pass := IniFile.ReadString('Proxy', 'Pass', ''); SalvarArqs := IniFile.ReadBool( 'Arquivos', 'SalvarArqs', False); PastaMensal := IniFile.ReadBool( 'Arquivos', 'PastaMensal', False); AddLiteral := IniFile.ReadBool( 'Arquivos', 'AddLiteral', False); EmissaoPatheSocial := IniFile.ReadBool( 'Arquivos', 'EmissaoPatheSocial', False); SalvarPathEvento := IniFile.ReadBool( 'Arquivos', 'SalvarPathEvento', False); SepararPorCNPJ := IniFile.ReadBool( 'Arquivos', 'SepararPorCNPJ', False); SepararPorModelo := IniFile.ReadBool( 'Arquivos', 'SepararPorModelo', False); PatheSocial := IniFile.ReadString('Arquivos', 'PatheSocial', ''); ACBreSocial1.Configuracoes.Certificados.ArquivoPFX := Caminho; ACBreSocial1.Configuracoes.Certificados.Senha := ShortString(Senha); ACBreSocial1.Configuracoes.Certificados.NumeroSerie := NumSerie; ACBreSocial1.SSL.DescarregarCertificado; ACBreSocial1.Configuracoes.Geral.SSLLib := TSSLLib(SSLLib); ACBreSocial1.Configuracoes.Geral.SSLCryptLib := TSSLCryptLib(CryptLib); ACBreSocial1.Configuracoes.Geral.SSLHttpLib := TSSLHttpLib(HttpLib); ACBreSocial1.Configuracoes.Geral.SSLXmlSignLib := TSSLXmlSignLib(XmlSignLib); ACBreSocial1.Configuracoes.Geral.Salvar := Salvar; ACBreSocial1.Configuracoes.Geral.ExibirErroSchema := ExibirErroSchema; ACBreSocial1.Configuracoes.Geral.RetirarAcentos := RetirarAcentos; ACBreSocial1.Configuracoes.Geral.FormatoAlerta := FormatoAlerta; ACBreSocial1.Configuracoes.Geral.FormaEmissao := TpcnTipoEmissao(FormaEmissao); ACBreSocial1.Configuracoes.Geral.VersaoDF := TVersaoeSocial(VersaoDF); ACBreSocial1.Configuracoes.Geral.IdEmpregador := IdEmpregador; ACBreSocial1.Configuracoes.Geral.IdTransmissor := IdTransmissor; ACBreSocial1.Configuracoes.Geral.TipoEmpregador := TEmpregador(TipoEmpregador); ACBreSocial1.Configuracoes.WebServices.UF := UF; ACBreSocial1.Configuracoes.WebServices.Ambiente := TpcnTipoAmbiente(Ambiente); ACBreSocial1.Configuracoes.WebServices.Visualizar := Visualizar; ACBreSocial1.Configuracoes.WebServices.Salvar := SalvarSOAP; ACBreSocial1.Configuracoes.WebServices.AjustaAguardaConsultaRet := AjustarAut; ACBreSocial1.Configuracoes.WebServices.AguardarConsultaRet := StrToInt(Aguardar); ACBreSocial1.Configuracoes.WebServices.Tentativas := Tentativas; ACBreSocial1.Configuracoes.WebServices.IntervaloTentativas := StrToInt(Intervalo); ACBreSocial1.Configuracoes.WebServices.TimeOut := TimeOut; ACBreSocial1.Configuracoes.WebServices.ProxyHost := Host; ACBreSocial1.Configuracoes.WebServices.ProxyPort := Porta; ACBreSocial1.Configuracoes.WebServices.ProxyUser := User; ACBreSocial1.Configuracoes.WebServices.ProxyPass := Senha; ACBreSocial1.SSL.SSLType := TSSLType(SSLType); ACBreSocial1.Configuracoes.Arquivos.Salvar := SalvarArqs; ACBreSocial1.Configuracoes.Arquivos.SepararPorMes := PastaMensal; ACBreSocial1.Configuracoes.Arquivos.AdicionarLiteral := AddLiteral; ACBreSocial1.Configuracoes.Arquivos.EmissaoPatheSocial := EmissaoPatheSocial; ACBreSocial1.Configuracoes.Arquivos.SepararPorCNPJ := SepararPorCNPJ; ACBreSocial1.Configuracoes.Arquivos.SepararPorModelo := SepararPorModelo; ACBreSocial1.Configuracoes.Arquivos.PathSchemas := PathSchemas; ACBreSocial1.Configuracoes.Arquivos.PatheSocial := PatheSocial; ACBreSocial1.Configuracoes.Arquivos.PathSalvar := PathSalvar; finally IniFile.Free; end; end; Resolvido. TimeZone.Modo, TimeZone.Str, VerificarValidade, ValidarDigest, IniServicos, IdCSRT, CSRT Esses não estão no INI do programa exemplo.

Bom dia! Agora entendi. Vocês recomendam usar o INI do modelo ou aquele gerado pelo gravaini? Uma coisa que reparei é que no arquivo INI gerado pelo gravaini não tem o SSLLib, mas tem outros campos que no INI do modelo não tem (exemplo: TimeZone.Modo, TimeZone.Str, VerificarValidade, ValidarDigest, IniServicos, IdCSRT, CSRT) Obrigado.

Pelo que eu vi nessa rotina lerini ele não carrega as configurações no componente. Utilizei a rotina gravarini para gerar um novo arquivo de configuração para fazer uns testes. Só que o novo arquivo gerado segue uma estrutura diferente que está na pasta de exemplo. Qual seria o correto?

IniFile := TIniFile.Create('eSocialConfig.ini'); ACBreSocial1.Configuracoes.LerIni(IniFile); Fiz dessa forma mas não deu certo.

Você teria a rotina para ler o arquivo .ini com a TCustomIniFile?

Isso, é de configuração. Desculpe, eu achei que era daquela forma. Vou tentar.

Estou usando esse método para carregar as configurações do componente. Na verdade eu queria trazer as configurações que estão no arquivo .ini para o componente AcbreSocial.

Boa tarde! Estou usando o ACBreSocial1.Eventos.LoadFromINI() para carregar as configurações com base em um arquivo .ini. Mas ele não carrega as informações. Att. eSocialConfig.ini

Obrigado! Resolvido.

Legal, deu certo. Me desculpe pelas dúvidas, agora estou entendo melhor o funcionamento do componente. Depois de utilizar o ACBreSocial1.Eventos.LoadFromFile(OpenDialog1.FileName) devo assinar e validar ou só assinar antes de enviar? ACBreSocial1.Eventos.Assinar; // Somente Assina os XMLs ACBreSocial1.Eventos.Validar; // Somente Valida os XMLs ACBreSocial1.Enviar(TESocialGrupo(rdgGrupo.ItemIndex + 1)); Obrigado!