Djalma Grivol

Bom dia! Nessa rotina eu consulto a chave da Nota Fiscal de Compra para ver se está tudo certo com a NF-e. Vou tirar a consulta do Status do Serviço, só vou deixar a consulta da nota. Usando String(Xml) funcionou. Resolvido. Obrigado!

Boa tarde! Gostaria de saber qual a melhor pratica para formatar os caracteres especiais do retorno. Exemplo: ACBrNFe1.WebServices.StatusServico.RetWS Se uso UTF8ToString funciona, mas gera uma Warning. W1058 Implicit string cast with potential data loss from 'WideString' to 'RawByteString' Como vocês fazem? Att. Djalma Grivol O retorno

Show! Deu certo. Me desculpe, Obrigado!

A ultima atualização que fiz foi 11/2023. eNFeConfig.ini ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.idLote := ID; ACBrNFe1.EventoNFe.Evento.New.InfEvento.cOrgao := 91; ACBrNFe1.EventoNFe.Evento.New.InfEvento.CNPJ := Cnpj; ACBrNFe1.EventoNFe.Evento.New.InfEvento.chNFe := ChaveNFe; ACBrNFe1.EventoNFe.Evento.New.InfEvento.dhEvento := Now; if CbTipo.ItemIndex = 0 then ACBrNFe1.EventoNFe.Evento.New.InfEvento.tpEvento := teManifDestConfirmacao; if CbTipo.ItemIndex = 1 then ACBrNFe1.EventoNFe.Evento.New.InfEvento.tpEvento := teManifDestCiencia; if CbTipo.ItemIndex = 2 then ACBrNFe1.EventoNFe.Evento.New.InfEvento.tpEvento := teManifDestDesconhecimento; if CbTipo.ItemIndex = 3 then begin ACBrNFe1.EventoNFe.Evento.New.InfEvento.tpEvento := teManifDestOperNaoRealizada; ACBrNFe1.EventoNFe.Evento.New.InfEvento.detEvento.xJust := eJust.Text; end; ACBrNFe1.EnviarEvento(ID); fSta := ACBrNFe1.WebServices.EnvEvento.RetWS;

Boa tarde Lucas! Tudo bem? Estou com o mesmo problema. Você conseguiu resolver? Att 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?