o bom mesmo seria ler a documentação. Acredito que uma leitura no manual de 
integração resolve grande parte dos problemas.

Em 2 a 3 horas vc consegue isso

 
----------------------------------------------------------------------------------------
Uberdam Cavaletti
Formado em Tecnologia da Informação - Unoesc - Xxe
Pós-graduado em desenvolvimento Java - Unoesc - Xxe

http://www.curricular.com.br/berdam

Visite
http://passandoveneno.blogspot.com
----------------------------------------------------------------------------------------





________________________________
De: Licerio Neto <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 28 de Novembro de 2008 10:10:09
Assunto: [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 <andrefmoraes@ gmail.com>
Para: [EMAIL PROTECTED] os.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] p 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] p 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] p 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.maisbusca dos.yahoo. com

[As partes desta mensagem que não continham texto foram removidas]

    


      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]

Responder a