ActiveDelphi

[zeus2705]

Mocada seguinte, antes no componente do acbrNfe na propriedade CONFIGURACOES-CERTIFICADO tinha um local que eu colocava apenas o Numero de serie(funcionava no cliente).
Agora, apos atualizado o componente nao tem mais o numero de serie, esta mostrando um campo chamado CERTIFICADO e SENHA.

alguem sabe o que devo por ai ?

obrigado

[fitlbanger]

Tenta passar o número de série em tempo de execução, quando eu dou um show no formulario principal eu carrego todos os parametros, eu criei uma procedure chamada LerConfiguracoes e nela eu carrego todos os parametros necessarios.

Segue abaixo o código que eu uso, e você pode tomalo de exemplo.

//---------------------------------------------------------------------------------//

procedure TFormPrincipal.LerConfiguracao;
var
Ok : Boolean;
StreamMemo : TMemoryStream;
begin
try

{$IFDEF ACBrNFeOpenSSL}
ACBrNFe1.Configuracoes.Certificados.Certificado := _tab_filial_fil_nfe.FieldByName('edtcaminho').AsString;
ACBrNFe1.Configuracoes.Certificados.Senha := _tab_filial_fil_nfe.FieldByName('edtsenha').AsString;
{$ELSE}
ACBrNFe1.Configuracoes.Certificados.NumeroSerie := _tab_filial_fil_nfe.FieldByName('edtnumserie').AsString;
{$ENDIF}
ACBrNFe1.Configuracoes.Geral.PathSalvar := ExtractFilePath(Application.ExeName)+'Envio e Resposta\';
ACBrNFeDANFERave1.PathPDF := ExtractFilePath(Application.ExeName)+'PDF\';
ACBrNFeDANFERave1.RavFile := ExtractFilePath(Application.ExeName)+'Report\NotaFiscalEletronica.rav';
ACBrNFe1.Configuracoes.Arquivos.PathNFe := ExtractFilePath(Application.ExeName)+'NFe\';
ACBrNFe1.Configuracoes.Arquivos.PathCan := ExtractFilePath(Application.ExeName)+'NFeCan\';
ACBrNFe1.Configuracoes.Arquivos.PathDPEC := ExtractFilePath(Application.ExeName)+'NFeDPEC\';
ACBrNFe1.Configuracoes.Arquivos.PathInu := ExtractFilePath(Application.ExeName)+'NFeInu\';

ACBrNFe1.Configuracoes.Geral.FormaEmissao := StrToTpEmis(OK,IntToStr(_tab_filial_fil_nfe.FieldByName('rgformaemissao').AsInteger + 1));

if(_tab_filial_fil_nfe.FieldByName('cksalvar').AsString = 'S')then
ACBrNFe1.Configuracoes.Geral.Salvar := true
else
ACBrNFe1.Configuracoes.Geral.Salvar := false;

ACBrNFe1.Configuracoes.WebServices.UF := _tab_filial_fil_nfe.FieldByName('cbuf').AsString;
ACBrNFe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Ok,IntToStr(_tab_filial_fil_nfe.FieldByName('rgtipoamb').AsInteger + 1));

if(_tab_filial_fil_nfe.FieldByName('ckvisualizar').AsString = 'S')then
ACBrNFe1.Configuracoes.WebServices.Visualizar := true
else
ACBrNFe1.Configuracoes.WebServices.Visualizar := false;

ACBrNFe1.Configuracoes.WebServices.ProxyHost := _tab_filial_fil_nfe.FieldByName('edtproxyhost').AsString;
ACBrNFe1.Configuracoes.WebServices.ProxyPort := _tab_filial_fil_nfe.FieldByName('edtproxyporta').AsString;
ACBrNFe1.Configuracoes.WebServices.ProxyUser := _tab_filial_fil_nfe.FieldByName('edtproxyuser').AsString;
ACBrNFe1.Configuracoes.WebServices.ProxyPass := _tab_filial_fil_nfe.FieldByName('edtproxysenha').AsString;

if ACBrNFe1.DANFE <> nil then
begin
ACBrNFe1.DANFE.TipoDANFE := StrToTpImp(OK,IntToStr(_tab_filial_fil_nfe.FieldByName('tipo_impressao_damfe').AsInteger + 1));
ACBrNFe1.DANFE.Logo := _tab_filial_fil_nfe.FieldByName('logo_tipo_fil').AsString;
end;

{StreamMemo := TMemoryStream.Create;
Ini.ReadBinaryStream( 'Email','Mensagem',StreamMemo) ;
mmEmailMsg.Lines.LoadFromStream(StreamMemo);
StreamMemo.Free;}
StatusBar1.Panels.Items[0].Text := 'EMITENTE: '+ FormUsuario.pNome_filial + ' - CNPJ: '+FormUsuario.pcnpj;
StatusBar1.Panels.Items[1].Text := 'Nº Certificado: '+_tab_filial_fil_nfe.FieldByName('edtnumserie').AsString;
StatusBar1.Panels.Items[2].Text := 'Ambiente: '+IntToStr(_tab_filial_fil_nfe.FieldByName('rgtipoamb').AsInteger + 1);
StatusBar1.Panels.Items[3].Text := 'Usuário: '+FormUsuario.Pusuario;
StatusBar1.Panels.Items[4].Text := 'Hoje é: '+DateToStr(Date);
except

end;
end;

//----------------------------------------------------------------------------------//

Att.
Carlos Fitl.
_________________
Acredite em você, pois podemos conquistar tudo desde que tenha interesse e dedicação.

[anfm]

Antes vc estava com a versão CAPICOM instalada, ela solicita apenas o número de série . Na versão OpenSSL que é solicitado o caminho e a senha para o arquivo PFX.
_________________
Conheça o Projeto ACBr:
http://acbr.sf.net

http://anfm.blogspot.com