w0000

Prezado Daniel Simões, boa noite! Obrigado pela dica: Coloquei conforme você menciono a diretiva "FMX" No menu do Delphi > Project > Options > Delphi Compiler > Em target: "All configurations - All platforms", coloquei em "Conditional defines" FMX, dei um Save e compilei. A dica do Daniel Simões FUNCIONOU! Obrigado pela dica.

Prezados Colegas, boa tarde Por favor, será que poderiam me dar um help? Preciso consultar um "CEP com FIREMONKEY", através do componente ACBrCEP. Está dando o seguinte erro ao compilar: Erro apresentado: "[dcc32 Fatal Error] ACBrSocket.pas(260): F2613 Unit 'Controls' not found." Por favor alguém poderia me dar um help como corrigir este erro? O Erro é apresentado no código do ACBrSocket.pas Desde já agradeço demais a atenção dos colegas. Obrigado.

Prezado colegas da ACBr, boa tarde! Por favor alguém poderia me dar um help? Estou com a seguinte duvida: Como mostra o requerente do certificado digital na mesma ordem do Internet Explorer? Código fonte utilizado Edit1.Text := (sLineBreak + sLineBreak + A.CertSubjectName + A.CertRazaoSocial); DADOS CAPTURADO NO EDIT1 ACIMA: =============================== C=BR, O=ICP-Brasil, S=SP, L=Barueri, OU=Secretaria da Receita Federal do Brasil - RFB, OU=RFB e-CNPJ A1, OU=12345678901234, CN=EMPRESA TESTE LTDA:12345678901234 DADOS QUE PRECISO - EXIBIR NO EDIT1 EXATAMENTE NA ORDEM ABAIXO: =============================================================== CN = EMPRESA TESTE LTDA:12345678901234 OU = 12345678901234 OU = RFB e-CNPJ A1 OU = Secretaria da Receita Federal do Brasil - RFB L = Barueri S = SP O = ICP-Brasil C = BR Por favor alguém poderia me dar um help? Como mostra o requerente do certificado digital na mesma ordem do Internet Explorer? Preciso que seja nesta ordem, porque infelizmente tenho que interagir com outro sistema, onde a chave é esta ordem que preciso. Desde já agradeço. Obrigado.

Prezado colegas da ACBr, boa tarde! Por favor alguém poderia me dar um help? Estou com a seguinte duvida: Como mostra o requerente do certificado digital na mesma ordem do Internet Explorer? Código fonte utilizado Edit1.Text := (sLineBreak + sLineBreak + A.CertSubjectName + A.CertRazaoSocial); DADOS CAPTURADO NO EDIT1 ACIMA: =============================== C=BR, O=ICP-Brasil, S=SP, L=Barueri, OU=Secretaria da Receita Federal do Brasil - RFB, OU=RFB e-CNPJ A1, OU=12345678901234, CN=EMPRESA TESTE LTDA:12345678901234 DADOS QUE PRECISO - EXIBIR NO EDIT1 EXATAMENTE NA ORDEM ABAIXO: =============================================================== CN = EMPRESA TESTE LTDA:12345678901234 OU = 12345678901234 OU = RFB e-CNPJ A1 OU = Secretaria da Receita Federal do Brasil - RFB L = Barueri S = SP O = ICP-Brasil C = BR Por favor alguém poderia me dar um help? Como mostra o requerente do certificado digital na mesma ordem do Internet Explorer? Desde já agradeço. Obrigado.

Prezado Juliomar Marchetti, boa tarde! Em primeiro ligar, lhe agradeço pela atenção. Realmente: No "Subject name" ShowMessage(ACBrANe1.SSL.CertSubjectName + sLineBreak + sLineBreak + 'Razão Social: ' + ACBrANe1.SSL.CertRazaoSocial); No "Leitura X509" with ACBrANe1.SSL do begin CarregarCertificadoPublico(MemoDados.Lines.Text); MemoResp.Lines.Add(CertIssuerName); MemoResp.Lines.Add(CertRazaoSocial); MemoResp.Lines.Add(CertCNPJ); MemoResp.Lines.Add(CertSubjectName); MemoResp.Lines.Add(CertNumeroSerie); pgRespostas.ActivePageIndex := 0; end; O dados mostrados no "SubjectName" e no "Leitura x509" acima descritos, estão em ordem diversa da que preciso. Preciso que a ordem seja igual ao que é mostrado no Intente Explorer, no campo requente do certificado digital. Exemplo: Requerente: CN=XX RAZAO SOCIAL LTDA:12345678901234, OU=12345678901234, OU=RFB e-CNPJ A1, OU=Secretaria da Receita Federal do Brasil - RFB, L=Barueri, S=SP, O=ICP-Brasil, C=BR Por favor alguém poderia me dar um help? Como mostrar em um Edit.text o campo "requerente" do certificado digital, na mesma ordem que é mostrado no Internet Explorer? Desde já agradeço. Obrigado.

Prezado colegas da ACBr, boa tarde! Por favor alguém poderia me dar um help? Estou com a seguinte duvida: Como mostra o requerente do certificado digital? Exemplo: Requerente: CN=XX RAZAO SOCIAL LTDA:12345678901234, OU=12345678901234, OU=RFB e-CNPJ A1, OU=Secretaria da Receita Federal do Brasil - RFB, L=Barueri, S=SP, O=ICP-Brasil, C=BR Por favor alguém poderia me dar um help? Como mostra o requerente do certificado digital, no formato do exemplo acima? Desde já agradeço. Obrigado.

Prezado Rafael Dia, boa tarde! Obrigado pela ajuda. deu certo conforme sua orientação. //Configurar o SSL no componente e não em uma classe a parte ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; ACBrNFe1.Configuracoes.WebServices.SSLType := LT_TLSv1_2; Mais uma vez obrigado.

Prezado Juliomar Marchetti, boa noite! Obrigado pela atenção. Configurei sim o SSLib. Veja o código fonte abaixo: (*Em verde a configuração do SSLib e em vermelho onde está com erro) procedure TFTestaCertificadoDigital.SpeedButton1Click(Sender: TObject); var A: TDFeSSL; begin //Linpa Label´s e Edit Label3.Caption := ''; Label5.Caption := ''; Label7.Caption := ''; Label9.Caption := ''; Label11.Caption := ''; Label13.Caption := ''; Label15.Caption := ''; Edit1.Text := ''; //Configura SSLib A := TDFeSSL.Create; A.SSLCryptLib := cryWinCrypt; A.SSLXmlSignLib := xsLibXml2; A.SSLType := LT_TLSv1_2; A.SSLDgst := dgstSHA256; {//*Antes de tudo tem que configurar o SSLib (ACBrNFe.Configuracoes.Geral.SSLib para poder usar . preferencia use libWinCrypt} //Abre tela para selecionar o Certificado A.SelecionarCertificado; //Move o número de série selecionado ACBrNFe1.Configuracoes.Certificados.NumeroSerie := A.NumeroSerie; //Numero de Série do Certificado Label3.Caption := ACBrNFe1.Configuracoes.Certificados.NumeroSerie; //Razão Social (Normalmente é: Razão Social:CNPJ) Label5.Caption := A.CertRazaoSocial; //Titular SubjectName Label7.Caption := A.CertSubjectName; //CNPJ Label9.Caption := A.CertCNPJ; //Certificadora Label11.Caption := A.CertCertificadora; //Validade Label13.Caption := DateTimeToStr(A.CertDataVenc); //Certificado - SubjectName //Mostrar requerente Label15.Caption := (ACBrNFe1.SSL.CertSubjectName + sLineBreak + sLineBreak + 'Razão Social: ' + ACBrNFe1.SSL.CertRazaoSocial); Edit1.Text := (ACBrNFe1.SSL.CertSubjectName + sLineBreak + sLineBreak + 'Razão Social: ' + ACBrNFe1.SSL.CertRazaoSocial); try ShowMessage ('Certificado Digital carregado com sucesso.'); //VER VALIDADE DO CERTIFICADO if StringToDateTime(Label13.Caption) < date then ShowMessage('ERRO: O "Certificado Digital" ESTÁ VENCIDO.' +#13+ ' Venceu em: '+ Label13.Caption +#13+ ' Favor RENOVAR o seu "Certificado Digital".'); //AVISO DE VENCIMENTO DO CERTIFICADO COM 30 DIAS ANTES if (Date) > (StringToDateTime(Label13.Caption) -30) then ShowMessage('ALERTA: O "Certificado Digital" vencerá em: ' + Label13.Caption +#13+ ' Providenciar a RENOVAÇÃO do seu "Certificado Digital".' +#13+ ' Após a instação do novo Certificado Digital, atualize no sistema BNET".'); finally // end; A.Free; end; Está apresentando o seguinte erro: "CarregarCertificadoDeNumeroSerie" não suportado em: TDFeSSLCryptClass. Por favor alguém poderia me dar um help? O que está errado no código fonte acima? Desde já agradeço. Obrigado.

Prezado BigWings, boa tarde! Desculpe o incomodo, fiz exatamente como orientado. Está apresentando o seguinte erro: "CarregarCertificadoDeNumeroSerie" não suportado em: TDFeSSLCryptClass. Código fonte: //Certificado - SubjectName - Mostrar requerente Label15.Caption := (ACBrNFe1.SSL.CertSubjectName + sLineBreak + sLineBreak + 'Razão Social: ' + ACBrNFe1.SSL.CertRazaoSocial); Edit1.Text := (ACBrNFe1.SSL.CertSubjectName + sLineBreak + sLineBreak + 'Razão Social: ' + ACBrNFe1.SSL.CertRazaoSocial); Por favor alguém poderia me dar um help? O que esta´errado no código fonte acima? Desde já agradeço. Obrigado.

Prezado BigWings, boa noite! Desculpe o incomodo, mas nos exemplos achei diversas propriedades, mas não encontrei como mostra o requerente do certificado digital. Por favor alguém poderia me dar um help? Como mostra o requerente do certificado digital? Formato que preciso: Requerente: CN=XX RAZAO SOCIAL LTDA:12345678901234, OU=12345678901234, OU=RFB e-CNPJ A1, OU=Secretaria da Receita Federal do Brasil - RFB, L=Barueri, S=SP, O=ICP-Brasil, C=BR Desde já agradeço. Obrigado.

Prezado colegas da ACBr, boa tarde! Por favor alguém poderia me dar um help? Estou com a seguinte duvida: Como mostra o requerente do certificado digital? Exemplo: Requerente: CN=XX RAZAO SOCIAL LTDA:12345678901234, OU=12345678901234, OU=RFB e-CNPJ A1, OU=Secretaria da Receita Federal do Brasil - RFB, L=Barueri, S=SP, O=ICP-Brasil, C=BR Por favor alguém poderia me dar um help? Como mostra o requerente do certificado digital, no formato do exemplo acima? Desde já agradeço. Obrigado.

Prezados, agradeço a atenção. Conforme orientado pelo BigWings, acrescentei a linha A.SelecionarCertificado; ACBrNFe1.Configuracoes.Certificados.NumeroSerie := A.NumeroSerie; Ainda estou com um erro: "CarregarCertificadoDeNumeroSerie" não suportado em: TDFeSSLCryptClass. Por favor, será que alguém poderia me dar um help? Desde já agradeço. Obrigado.

Prezado colegas da ACBr, bom dia! Por favor alguém poderia me dar um help? Estou com o seguinte erro: "DadosPFX, ArquivoPFX, URLPFX ou NumeroSerie não especificados !" Segue abaixo o código fonte. Por favor alguém poderia me dar um help onde no código abaixo estou errando? Desde já agradeço. Obrigado. procedure TFTestaCertificadoDigital.spbtnSelecionaClick(Sender: TObject); var A: TDFeSSL; I: Integer; xmlSig: TDFeSSLXmlSignClass; xmlOr: TStringList; xmlAs: TStringList; XMLAss, ArqXML: string; begin A := TDFeSSL.Create; A.SSLCryptLib := cryWinCrypt; A.SSLXmlSignLib := xsLibXml2; A.SSLType := LT_TLSv1_2; A.SSLDgst := dgstSHA256; A.SelecionarCertificado; //Mover os dados do Certificado para os Label´s MoveLabel; try ShowMessage ('Certifivado Digital carregado com sucesso.'); finally end; A.Free; end; procedure TFTestaCertificadoDigital.MoveLabel; begin //Numero de Série do Certificado Label3.Caption := ACBrNFe1.Configuracoes.Certificados.NumeroSerie; //Nome do Certificado Label5.Caption := (ACBrNFe1.SSL.CertSubjectName + sLineBreak + sLineBreak + 'Razão Social: ' + ACBrNFe1.SSL.CertRazaoSocial); //Subject Name Label7.Caption := (ACBrNFe1.SSL.CertSubjectName); //CNPJ Label9.Caption := ACBrNFe1.SSL.CertCNPJ; //Emissor Label13.Caption := ACBrNFe1.SSL.CertCertificadora; //Validade Label3.Caption := (DateTimeToStr(ACBrNFe1.SSL.CertDataVenc)); //Certificado Label15.Caption := ACBrNFe1.SSL.CertIssuerName; //Verifica se o Certificado esta instalado e se sim a validade try //if ACBrNFe1.Configuracoes.Certificados.GetCertificado.PrivateKey.IsHardwareDevice = False then if ACBrNFe1.SSL.SelecionarCertificado.PrivateKey.IsHardwareDevice = False then except ShowMessage('ERRO: "Certificado Digital" selecionado NÃO ENCONTRADO ou NÃO INSTALADO.' +#13+ 'Favor entrar em contato com o "Suporte do emissor do Certificado Digital" para solucionar o problema.'); end; //VER VALIDADE DO CERTIFICADO //if ACBrNFe1.Configuracoes.Certificados.DataVenc < date then if ACBrNFe1.SSL.CertDataVenc < date then ShowMessage('ERRO: O "Certificado Digital" ESTÁ VENCIDO.' +#13+ ' Venceu em: '+ DateTimeToStr(ACBrNFe1.SSL.CertDataVenc) +#13+ ' Favor RENOVAR o seu "Certificado Digital".'); //AVISO DE VENCIMENTO DO CERTIFICADO COM 30 DIAS ANTES if (Date - 30) < ACBrNFe1.SSL.CertDataVenc then ShowMessage('ALERTA: O "Certificado Digital" vencerá em: ' + DateTimeToStr(ACBrNFe1.SSL.CertDataVenc) +#13+ ' Providenciar a RENOVAÇÃO do seu "Certificado Digital".' +#13+ ' Após a instação, alterar no "Cadastro da Empresa", o "Número de Série" e "Senha" do novo "Certificado Digital".'); end;

Prezados membros do Fórum ACBr, boa tarde! Ainda NÃO consegui uma solução. Erro: O componente "ACBreSocial" está gravando o arquivo "teste.xml" no "c:\". Pela política da empresa, só tenho permissão para gravar na pasta da minha aplicação. Não sendo permitindo gravar no drive "c:\" do micro do usuário. Segue em anexo, o print-screen da configuração do componente "ACBreSocial" onde defino o path de gravação do arquivo em "..\EFS\AUXILIAR". Mesmo assim o componente "ACBreSocial" grava o arquivo "teste.xml" no "c:\" ***Dúvida: Onde no componente ACBreSocial, posso alterar o local que grava o arquivo "c:\teste.xml". Não posso deixar gravando no "c:", preciso gravar na pasta da minha aplicação. Desde já agradeço demais a todos. Obrigado.

Prezados membros do Fórum ACBr, bom dia! Estou com um problema. Implantei em um cliente o e-Social, utilizando o componente ACBreSocial. Até ai tudo ok. 1) Enviei o arquivo S-1000 - EM AMBIENTE HOMOLOGAÇÃO - Tudo correto. OK 2) Enviei o mesmo arquivo S-100 - EM AMBIENTE PRODUÇÃO - Apresenta o erro abaixo: ERRO APRESENTADO: "Código.....: 607 Descrição..: O número de inscrição do transmissor deverá ser igual ao CNPJ/CPF do certificado utilizado para o envio do lote." Por favor, será que alguém poderia me dar um help para solucionar o erro acima descrito? Desde já agradeço demais a todos. Obrigado.