Erro ao consultar Status do Serciço - acbrnfe2

[Dercinho]

Bom dia pessoal,

Sou novo por aqui e é meu primeiro projeto de NFe, desenvolvi ele baseado nos videos que assisti + projetos demo.

Minha dificuldade é a seguinte pessoal, consulto o status do serviço e ele me retorna essa belezinha aki:

Ambiente : 1

Versão Aplicativo :

Status Código : 0

Status Descrição :

UF :

Recebimento :

Tempo Médio : 0

Retorno :

Observação :

Se eu tento enviar a NFe ele me retorna uma msg de erro tbm em branco, o interessante é que no demo ta funcionando legal e outro detalhe tbm é que se eu não informo a senha do certificado ele não me pede diferente do demo que me pede a senha caso eu não informe.

Galera to ficando azul ja a firma ta com o faturamento parado por conta disso e não to dando conta, se alguem ja passou por isso ou tiver ideia do que estou errando e puder compartilhar fico grato.

Até la vamos fuçando neh rsrsrs

Abraços.

[André Ferreira de Moraes]

Se com o demo está funcionando é algum erro no seu programa.

Estude detalhadamente o demo, vendo principalmente como o componente é configurado e siga a mesma lógica no seu sistema.

[Dercinho]

Entendo.

Foi a primeira linha de raciocinio, cheguei até a copiar o componente e colar no meu datamodule pra ter certeza de que não tinha deixado passar nada, porém ainda sem resultados.

[André Ferreira de Moraes]

Apenas copiar não basta, pois no demo o componente é configurado em runtime baseado no arquivo INI.

[Dercinho]

Ah sim eu usei a rotina de leitura do ini conforme exemplificada no demo

Var

Config: RIni;

Ok:Boolean;

begin

Config:= vNFe.LerConfiguracao;

try

{$IFDEF ACBrNFeOpenSSL}

ACBrNFe1.Configuracoes.Certificados.Certificado := Config.PATH_CERTIFICADO;

ACBrNFe1.Configuracoes.Certificados.Senha := Config.CERT_SENHA;

{$ELSE}

ACBrNFe1.Configuracoes.Certificados.NumeroSerie := Config.SERIAL;

ACBrNFe1.Configuracoes.Certificados.Senha := Config.CERT_SENHA;

{$ENDIF}

ACBrNFe1.Configuracoes.Geral.FormaEmissao := StrToTpEmis(OK,IntToStr(Config.FORMA_EMISSAO+1));

ACBrNFe1.Configuracoes.Geral.Salvar := Config.SALVAR;

ACBrNFe1.Configuracoes.Geral.PathSalvar := Config.PATH_SALVAR;

ACBrNFe1.Configuracoes.WebServices.UF := Config.UF_WS;

ACBrNFe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Ok,IntToStr(Config.AMBIENTE+1));

ACBrNFe1.Configuracoes.WebServices.Visualizar := Config.VISUALIZAR;

ACBrNFe1.Configuracoes.WebServices.ProxyHost := Config.HOST;

ACBrNFe1.Configuracoes.WebServices.ProxyPort := Config.PORTA;

ACBrNFe1.Configuracoes.WebServices.ProxyUser := Config.USUARIO;

ACBrNFe1.Configuracoes.WebServices.ProxyPass := Config.SENHA;

if ACBrNFe1.DANFE <> nil then

begin

ACBrNFe1.DANFE.TipoDANFE := StrToTpImp(OK,IntToStr(Config.TIPO_DANFE+1));

ACBrNFe1.DANFE.Logo := Config.LOGO_MARCA;

end;

finally

//FreeAndNil(Config);

end;

ACBrNFe1.WebServices.StatusServico.Executar;

MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.StatusServico.RetWS);

memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.StatusServico.RetornoWS);

//LoadXML(MemoResp, WBResposta);

PageControl2.ActivePageIndex := 1;

MemoDados.Lines.Add('');

MemoDados.Lines.Add('Status Serviço');

MemoDados.Lines.Add('tpAmb: ' +TpAmbToStr(ACBrNFe1.WebServices.StatusServico.tpAmb));

MemoDados.Lines.Add('verAplic: ' +ACBrNFe1.WebServices.StatusServico.verAplic);

MemoDados.Lines.Add('cStat: ' +IntToStr(ACBrNFe1.WebServices.StatusServico.cStat));

MemoDados.Lines.Add('xMotivo: ' +ACBrNFe1.WebServices.StatusServico.xMotivo);

MemoDados.Lines.Add('cUF: ' +IntToStr(ACBrNFe1.WebServices.StatusServico.cUF));

MemoDados.Lines.Add('dhRecbto: ' +DateTimeToStr(ACBrNFe1.WebServices.StatusServico.dhRecbto));

MemoDados.Lines.Add('tMed: ' +IntToStr(ACBrNFe1.WebServices.StatusServico.TMed));

MemoDados.Lines.Add('dhRetorno: '+DateTimeToStr(ACBrNFe1.WebServices.StatusServico.dhRetorno));

MemoDados.Lines.Add('xObs: ' +ACBrNFe1.WebServices.StatusServico.xObs);

end;

E to brigando com o bicho ainda.

[Dercinho]

Gloria a DEUS.....

Gente ainda não de pra ver o pq porém...

se eu informar os parametros do email para smtp

Host=smtp.live.com

Port=25

[email protected]

Pass=password

Assunto=

SSL=0

Mensagem=

ai ele zica e não me retorna o status do servidor, estranho pq essa configuração eu passo fixa no codigo e funciona o envio de email da NFe, suspeito de algo relacionado ao SSL

Valew galera pela a atenção ai.

[wagner_fix]

Vejam a soluçaõ...

http://acbr.sourceforge.net/drupal/?q=node/38