Ir para conteúdo
  • Cadastre-se

dev botao

Atualização Acbrnfe2


Clauber Júnio
Ver Solução Respondido por Clauber Júnio,
  • Este tópico foi criado há 3405 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Olá Pessoal,

 

Tenho um projeto de NF-e roda o mesmo com uma versaão muito antiga no ACBr hoje atualizei o meu ACBr para ultima versão, pois disso o meu projeto deixou de acessar o url, onde ele diz WbrService Consulta Status serviço: -Inativo ou Inoperante tente novamente. - Cod. Erro HTTP: 500

 

Já tente mudar de Sefaz, isso é UF continua dando o mesmo erro.

Já tente mudar para o servidor de homologação e também mostra o mesmo erro.

 

Grato deste já

Clauber

Link para o comentário
Compartilhar em outros sites

Andre,

 

na atualização não consegui identificar os retornos da carta de correção, estava utilizando os seguintes

 

ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.cStat
ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.nProt
ACBrNFe1.CartaCorrecao.CCe.Evento.Items[0].InfEvento.FChave
ACBrNFe1.CartaCorrecao.CCe.Evento.Items[0].InfEvento.FTpEvento
ACBrNFe1.CartaCorrecao.CCe.Evento.Items[0].InfEvento.FnSeqEvento
 

 

alguns destes poderei substituir pelo obternomedoarquivo, mas este como consigo, tentei pesquisar no compoente não consegui, não estou conseguindo compilar.

 

 ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.cStat

 

Atenciosamente,

Darlana Nogueira

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Andre,

 

na atualização não consegui identificar os retornos da carta de correção, estava utilizando os seguintes

 

ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.cStat

ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.nProt

ACBrNFe1.CartaCorrecao.CCe.Evento.Items[0].InfEvento.FChave

ACBrNFe1.CartaCorrecao.CCe.Evento.Items[0].InfEvento.FTpEvento

ACBrNFe1.CartaCorrecao.CCe.Evento.Items[0].InfEvento.FnSeqEvento

 

 

alguns destes poderei substituir pelo obternomedoarquivo, mas este como consigo, tentei pesquisar no compoente não consegui, não estou conseguindo compilar.

 

 ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.cStat

 

Atenciosamente,

Darlana Nogueira

ACBrNFe1.WebServices.EnvEvento.cStat

ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt

ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.FChave

ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.FTpEvento

ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.FnSeqEvento

  • Curtir 1
djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.lambretinha.com.br
Link para o comentário
Compartilhar em outros sites

  • Moderadores

Ah esqueci de dizer, que meu projeto é no Delphi 2010

Utilize o ACBrInstall 

use o .bat para remover os arquivos antigos e use ele !

caso tenha problemas anexe o log dele!

está tudo ok ! refiz a compilação em meus dois micros e está tudo em ordem!

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

Utilize o ACBrInstall 

use o .bat para remover os arquivos antigos e use ele !

caso tenha problemas anexe o log dele!

está tudo ok ! refiz a compilação em meus dois micros e está tudo em ordem!

Oi Juliomar,

 

A maquina foi formatada instalado o windows 7 ultimate Sp1, depois instalei o Delphi2010 todos depois via ACbrInstall fiz a instalação tudo ok...ajustei o meu codigo de fonte em uma unica linha e ai o mesmo compilou sem problemas... mais na hora de conectar ao WebService o mesmo da o problema de Cod. Erro HTTP: 500

Link para o comentário
Compartilhar em outros sites

Olá Pessoal,

 

Debugando cheguei no AcbrNfe.WebServices.StatusServico.Executar, na procedure EnviarDados ele da problema no try da linha 1145.

Verifiquei ainda que no meu antigo Acbr.inc

 

// Para Usar os componentes de nota fiscal com openssl descomente as linhas abaixo
//--------------------------------------------------------------------------------
//{$DEFINE ACBrNFeOpenSSL}  
//{$DEFINE ACBrCTeOpenSSL}
//{$DEFINE ACBrNFSeOpenSSL}
//{$DEFINE ACBrMDFeOpenSSL}

 

e a {$DEFINE SoapHTTP} não existia 

 

Já no novo o mesmo está:

// Para Usar os componentes de nota fiscal com openssl descomente as linhas abaixo

//--------------------------------------------------------------------------------
{$DEFINE ACBrNFeOpenSSL}  
{$DEFINE ACBrCTeOpenSSL}
{$DEFINE ACBrNFSeOpenSSL}
//{$DEFINE ACBrMDFeOpenSSL}
//{$DEFINE ACBrGNREOpenSSL}
 
{$DEFINE SoapHTTP} 
 
Observei também que com as linhas acimas comentadas o parametro de ACBR.Configuracoes.Certificados.NumeroSerie do certificado eletronico passa a existir, ja quando eu descomento o mesmo é trocado por ACBR.Configuracoes.Certificados.Certificado.
Ainda com as linhas referentes ao OpenSSL comentadas o projeto compila, porem na hora de rodar o mesmo apresenta que a propriedade IniFinXMLSECAutomatico nao existe
 

Grato

Clauber

Editado por Clauber Júnio
Link para o comentário
Compartilhar em outros sites

Prezados,

 

Ja não estou certa se aqui será o melhor local para falarmos sobre o assunto, visto que tornou-se especifico da atualização do Carta de Correção,  vi vários posts criados por colegas, falando, qualquer coisa oriente-me melhor.

 

Andre,

fiz as alterações sugeridas  e funcionou corretamente,

 

porem deparei com o seguinte problema nos fontes:

 

ACBrNFe.pas

 

Linha(413)

function TACBrNFe.EnviarCartaCorrecao(idLote: Integer): Boolean;
var
  i : integer;
begin
  EventoNFe.Evento.Clear;
  for i:= 0 to CartaCorrecao.CCe.Evento.Count do
   begin
     with EventoNFe.Evento.Add do
 

Necessita de um -1 no count, pois senão dará List out Bound(1)

Correçao: for i:= 0 to CartaCorrecao.CCe.Evento.Count -1 do

 

 

 

ACBrNFeWebServices.pas

 

Agora a respeito do Ambiente, ainda não encontrei a solução... Segue os problemas

 

Linhas com erro (1317, 1914, 2029, 2129, 2501, 2969, 3097, 3370, 3459, 3561, 3641, )

procedure TNFeEnvEvento.DefinirDadosMsg;
var
  EventoNFe: TEventoNFe;
  I, F: Integer;
  Lote, Evento, Eventos, EventosAssinados: String;
begin
  EventoNFe := TEventoNFe.Create;
  try
    EventoNFe.idLote := FidLote;

    for I := 0 to TNFeEnvEvento(Self).FEvento.Evento.Count-1 do
    begin
      with EventoNFe.Evento.Add do
      begin
        infEvento.tpAmb      := TpcnTipoAmbiente(FConfiguracoes.WebServices.AmbienteCodigo-1);

 

A função em pcnConversao, considera os valores numericos dos ambiente...

 

 

Linha(731)

function StrToTpAmb(var ok: boolean; const s: string): TpcnTipoAmbiente;
begin
  result := StrToEnumerado(ok, s, ['1', '2'], [taProducao, taHomologacao]);
end;

 

 

Atenciosamente,

Darlana Nogueira

Editado por darlananogueira
Link para o comentário
Compartilhar em outros sites

  • Moderadores

Olá Pessoal,

 

Debugando cheguei no AcbrNfe.WebServices.StatusServico.Executar, na procedure EnviarDados ele da problema no try da linha 1145.

Verifiquei ainda que no meu antigo Acbr.inc

 

// Para Usar os componentes de nota fiscal com openssl descomente as linhas abaixo

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

//{$DEFINE ACBrNFeOpenSSL}  

//{$DEFINE ACBrCTeOpenSSL}

//{$DEFINE ACBrNFSeOpenSSL}

//{$DEFINE ACBrMDFeOpenSSL}

 

e a {$DEFINE SoapHTTP} não existia 

 

Já no novo o mesmo está:

// Para Usar os componentes de nota fiscal com openssl descomente as linhas abaixo

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

{$DEFINE ACBrNFeOpenSSL}  

{$DEFINE ACBrCTeOpenSSL}

{$DEFINE ACBrNFSeOpenSSL}

//{$DEFINE ACBrMDFeOpenSSL}

//{$DEFINE ACBrGNREOpenSSL}

 

{$DEFINE SoapHTTP} 

 

Observei também que com as linhas acimas comentadas o parametro de ACBR.Configuracoes.Certificados.NumeroSerie do certificado eletronico passa a existir, ja quando eu descomento o mesmo é trocado por ACBR.Configuracoes.Certificados.Certificado.

Ainda com as linhas referentes ao OpenSSL comentadas o projeto compila, porem na hora de rodar o mesmo apresenta que a propriedade IniFinXMLSECAutomatico nao existe

 

Grato

Clauber

Provavelmente vc tem versões antigas dos componentes em outras pastas do seu micro.
djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.lambretinha.com.br
Link para o comentário
Compartilhar em outros sites

  • Moderadores

Prezados,

 

Ja não estou certa se aqui será o melhor local para falarmos sobre o assunto, visto que tornou-se especifico da atualização do Carta de Correção,  vi vários posts criados por colegas, falando, qualquer coisa oriente-me melhor.

 

Andre,

fiz as alterações sugeridas  e funcionou corretamente,

 

porem deparei com o seguinte problema nos fontes:

 

ACBrNFe.pas

 

Linha(413)

function TACBrNFe.EnviarCartaCorrecao(idLote: Integer): Boolean;

var

  i : integer;

begin

  EventoNFe.Evento.Clear;

  for i:= 0 to CartaCorrecao.CCe.Evento.Count do

   begin

     with EventoNFe.Evento.Add do

 

Necessita de um -1 no count, pois senão dará List out Bound(1)

Correçao: for i:= 0 to CartaCorrecao.CCe.Evento.Count -1 do

 

 

 

ACBrNFeWebServices.pas

 

Agora a respeito do Ambiente, ainda não encontrei a solução... Segue os problemas

 

Linhas com erro (1317, 1914, 2029, 2129, 2501, 2969, 3097, 3370, 3459, 3561, 3641, )

procedure TNFeEnvEvento.DefinirDadosMsg;

var

  EventoNFe: TEventoNFe;

  I, F: Integer;

  Lote, Evento, Eventos, EventosAssinados: String;

begin

  EventoNFe := TEventoNFe.Create;

  try

    EventoNFe.idLote := FidLote;

    for I := 0 to TNFeEnvEvento(Self).FEvento.Evento.Count-1 do

    begin

      with EventoNFe.Evento.Add do

      begin

        infEvento.tpAmb      := TpcnTipoAmbiente(FConfiguracoes.WebServices.AmbienteCodigo-1);

 

A função em pcnConversao, considera os valores numericos dos ambiente...

 

 

Linha(731)

function StrToTpAmb(var ok: boolean; const s: string): TpcnTipoAmbiente;

begin

  result := StrToEnumerado(ok, s, ['1', '2'], [taProducao, taHomologacao]);

end;

 

 

Atenciosamente,

Darlana Nogueira

Isto TpcnTipoAmbiente é diferente disto StrToTpAmb não entendi o problema.

Sobre o problema na carta de correção já corrigirei e enviarei ao SVN.

djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.lambretinha.com.br
Link para o comentário
Compartilhar em outros sites

Andre,

 

como dito ainda não consegui identificar o problema, mas em ACBrNFe, ao enviar uma carta de correção em modo de homologação, quando chega no codigo abaixo, o valor de CartaCorrecao.CCe.Evento.InfEvento.tpAmb chega com o valor  taProdução. Porem, ao executar o procedimento DefinirDadosMsg, retorma o valor retorna para Homologação. Testei também em Produção, e aparetenmente sem problemas, então creio que podemos desconsiderar.

 

Teste o envio da carta de correção, em Homologação, funcionou perfeitamente. Em produção não tenho como faze-lo.

 

 

function TACBrNFe.EnviarCartaCorrecao(idLote: Integer): Boolean;
var
  i : integer;
begin
  EventoNFe.Evento.Clear;
  for i:= 0 to CartaCorrecao.CCe.Evento.Count-1 do
   begin
     with EventoNFe.Evento.Add do
      begin
        infEvento.id       := CartaCorrecao.CCe.Evento.InfEvento.id;
        infEvento.cOrgao   := CartaCorrecao.CCe.Evento.InfEvento.cOrgao;
        infEvento.tpAmb    := CartaCorrecao.CCe.Evento.InfEvento.tpAmb;

 

 

 

 

 

procedure TNFeEnvEvento.DefinirDadosMsg;
var
  EventoNFe: TEventoNFe;
  I, F: Integer;
  Lote, Evento, Eventos, EventosAssinados: String;
begin
  EventoNFe := TEventoNFe.Create;
  try
    EventoNFe.idLote := FidLote;

    for I := 0 to TNFeEnvEvento(Self).FEvento.Evento.Count-1 do
    begin
      with EventoNFe.Evento.Add do
      begin
        infEvento.tpAmb      := TpcnTipoAmbiente(FConfiguracoes.WebServices.AmbienteCodigo-1);

 

 

Darlana Nogueira.

Link para o comentário
Compartilhar em outros sites

Provavelmente vc tem versões antigas dos componentes em outras pastas do seu micro.

A maquina foi formatada instalado o windows 7 ultimate Sp1, depois instalei o Delphi2010, depois baoxei a ultima versao direto do SVN e fiz o  ACbrInstall fiz a instalação tudo ok...ajustei o meu codigo de fonte em uma unica linha e ai o mesmo compilou sem problemas... mais na hora de conectar ao WebService o mesmo da o problema de Cod. Erro HTTP: 500.

 

Mais uma informação, eu tenho uma outra maquina com o Delphi 2010 rodando ok + ACBr OK e verifiquei ACBrNFeWebServices do dia 29/05/2010 as 18:24 OK, compilando e funciona do 100%.

 

Já a outra maquina tem a ultima versão SVN e da o erro.

Editado por Clauber Júnio
Link para o comentário
Compartilhar em outros sites

  • Moderadores

Sim, mas está funcionando normalmente. Procure por "erro http 500" no google e verá que se refere a um problema interno no servidor, mas como aparentemente você é o único com este problema, é um problema local na sua máquina.

djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.lambretinha.com.br
Link para o comentário
Compartilhar em outros sites

Sim, mas está funcionando normalmente. Procure por "erro http 500" no google e verá que se refere a um problema interno no servidor, mas como aparentemente você é o único com este problema, é um problema local na sua máquina.

Oi Andre,

 

Boa tarde, e obrigado pelo pronto atendimento,

Esta maquina tinha o Delphi 2010 e o ACBR antigo rodando sem problema, como eu tenho ainda o ACBR antido rodando em uma VM sem problema, então para não ter problema formatei instalei o windows + delphi e baixei no ACBr do SVN tudo como manda o figurino, a unica diferença nesta maquina formata é que deixei o windows 7 ultimate em ingles, mais ja estou baixando pack de linguagem... esse é basixamente a unica diferença.

 

Grato até então

Clauber

Link para o comentário
Compartilhar em outros sites

  • Solution

Olá Pessoal

Bom Dia.

 

Achei uma solução para o meu problema, acho que não é a mais correta mais foi assim que funcionou, já teste em 2 maquinas e uma VM aqui na empresa.

Quero compartilhar...

 

1 - Formate a Maquina

2 - Atualizei para SP1 do Windows 7 Ultimate 32bits

3 - Instalado o Rave Report 7.7BE

4 - Instalado o Fortes Report

5 - Instalado o Fast Report

6 - Rodei o ACBrInstall cujo tem o ACBrWebServices.pas criado no 29/05/2013 18:24 ACBrInstall.ini

[CONFIG]
DiretorioInstalacao=C:\ACBr
DelphiVersao=Delphi 2010
Plataforma=Win32
FecharTortoise=1
InstalarCapicom=1
InstalarOpenSSL=1
UtilizarOpenSSL=1
DestinoDLL=0
CopiarTodasDLLs=1
C++Builder=0
[PACOTES]
synapse.dpk=1
ACBrComum.dpk=1
ACBrDiversos.dpk=1
ACBrSerial.dpk=1
ACBrTCP.dpk=1
ACBr_TEFD.dpk=1
ACBr_Boleto.dpk=1
ACBr_Sintegra.dpk=1
ACBr_SPED.dpk=0
ACBr_PAF.dpk=0
ACBrOpenSSL.dpk=1
ACBrCapicom.dpk=1
PCN2.dpk=1
ACBr_NFe2.dpk=1
ACBr_CTe.dpk=1
ACBrNFeDanfeFRpkg.dpk=0
ACBr_BoletoFC_FR.dpk=0
ACBrCTeDacteFRpkg.dpk=1
ACBrNFeDanfeRV.dpk=1
ACBrNFeDanfeRVCodeBase.dpk=1
ACBr_NFSe.dpk=0
ACBr_MDFe.dpk=1
ACBr_LFD.dpk=1
ACBrNFeDanfeRLpkg.dpk=0
ACBr_BoletoFC_Fortes.dpk=1
 
7 - Copie-i o ACBr\Fontes\ACBrNFe2 cujo a atualização foi no dia 24/11/2014 10:41 e substitui o que tinha
8 - Abrir o meu Fonte, deu alguns erro de falta de Parametro no ACBrNFe.Configuracoes.Geral, mais só ingnorei, Copilei o meu projeto completo
7 - Substitui a pasta C:\ACBr atual pela mais atual existente no SVN svn://svn.code.sf.net/p/acbr/code
9 - Compilei novamente o projeto completo, ai neste momento eu passei a ter os novos parametro da versão 3.10.
 
A partir dai na mesma maquina que estava dando problema, adicionei o ACBrNFe.Configuracoes.Geral.VersaoDF := ve310; e dei um StatusServico.Executar o WebService me retornou o serviço como OK.
 
Ainda tenho todo o restante, geração, envio, retorno e tal, mais o erro do serviço ja vou resolvido.
 
Obrigado a Todos
Clauber
Link para o comentário
Compartilhar em outros sites

  • Moderadores

Boa tarde

Desculpe mas está errado!

tenho no micro da empresa onde trabalho, tenho no meu notebook e mais um desktop em casa e em todos funcionam perfeitamente!

e sem precisar alterar nada

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3405 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.