Acabei de postar um tópico no fórumweb, para que se alguém se interessar possamos fazer um componente que será adicionado ao Projeto ACBr.
Mais informações em: http://www.forumweb.com.br/foruns/index.php?showtopic=74776 André F. Moraes ----- Original Message ----- From: Licerio Neto To: delphi-br@yahoogrupos.com.br Sent: Friday, November 28, 2008 10:10 AM Subject: [delphi-br] Nota Fiscal Eletrônica - NFe Ola a todos... Sei que temos que lermos toda a documentação disponivel para entender e desenvolver a NF-e, mas aos mais experientes poderia descrever aqui resumidamente quais as etapas de funcionamento da NF-e e as etapas quanto ao desenvolvimento ??? Resumidamente apenas para os que esta entrando agora ter uma ideia do que teremos que pela frente. Grato a todos. ________________________________ De: André Moraes - GMail <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 28 de Novembro de 2008 9:15:29 Assunto: Re: [delphi-br] Nota Fiscal Eletrônica - NFe Apenas para complementar, quem quiser usar o Delphi 7 com conexão segura, para uso da NFe, use o seguinte código no componente HTTPRIO1. No evento HTTPRIO1.HTTPWebNod e.OnBeforePost coloque o seguinte código: var Store : IStore; Certs : ICertificates; Cert : ICertificate2; CertContext : ICertContext; PCertContext : PCCERT_CONTEXT; V : OleVariant; i : Integer; begin V := 'coloque o thumbprint do certificado' ; /// Veja instruções abaixo de como encontrar o thumbprint Store := CoStore.Create; Store.Open( CAPICOM_CURRENT_ USER_STORE, 'MY', CAPICOM_STORE_ OPEN_MAXIMUM_ ALLOWED ); Certs := Store.Certificates ; i := 0; while i < Certs.Count do begin Cert := IInterface( Certs.Item[ i+1 ] ) as ICertificate2; if UpperCase(Cert. Thumbprint) = UpperCase(V) then begin CertContext := Cert as ICertContext; CertContext. Get_CertContext( Integer( PCertContext ) ); if InternetSetOption( Data, INTERNET_OPTION_ CLIENT_CERT_ CONTEXT, PCertContext, Sizeof( CERT_CONTEXT ) ) = False then begin ShowMessage( 'Não foi possível obter o certificado. ' ); end; i := Certs.Count; end; i := i + 1; end; end; Para encontrar o thumbprint do certificado digital, abra o Internet Explorer, vá ao menu Ferramentas, Opções da Internet, clqique na aba Conteúdo, Certificados, clique duas vezes sobre o certificado, clique na aba Details e encontre o campo Thumbprint. Copie o valor para o bloco de notas, e tire todos os espaços. Ex: d2 a8 70 a1 b8 c5 d4 j6 = d2a870a1b8c5d4j6 Coloque este valor na variável V. André F. Moraes ----- Original Message ----- From: "Ricardo Kenji" <[EMAIL PROTECTED] com.br> To: <[EMAIL PROTECTED] os.com.br> Sent: Friday, November 28, 2008 8:13 AM Subject: Re: [delphi-br] Nota Fiscal Eletrônica - NFe > Para realizar a conexão segura para o webservice, apenas os componentes > nativos do delphi já resolvem. Agora para a assinatura em si, o componente > capicom não me resolveu o problema, pois não achei suporte para assinar o > XML de acordo com as especificações da Secretaria.. .. > > []s > ----- Original Message ----- > From: André Moraes - GMail > To: [EMAIL PROTECTED] os.com.br > Sent: Thursday, November 27, 2008 1:51 PM > Subject: Re: [delphi-br] Nota Fiscal Eletrônica - NFe > > > Não gostaria de usar outra dll além da capicom que já estou usando pra > conexão segura, mas obrigado pela dica. > > ----- Original Message ----- > From: "Andreano Lanusse" <andreano.lanusse@ codegear. com> > To: <[EMAIL PROTECTED] os.com.br> > Sent: Thursday, November 27, 2008 2:50 PM > Subject: RE: [delphi-br] Nota Fiscal Eletrônica - NFe > > Da uma olhada > > http://nf-eletronic a.com/blog/ > > ____________ _________ _________ __ > From: [EMAIL PROTECTED] os.com.br [EMAIL PROTECTED] os.com.br] On > Behalf > Of André Moraes - GMail [andrefmoraes@ gmail.com] > Sent: Thursday, November 27, 2008 8:45 AM > To: [EMAIL PROTECTED] os.com.br > Subject: [delphi-br] Nota Fiscal Eletrônica - NFe > > > > ------------ --------- --------- ------ > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
