Atualização Acbrnfe2

[Clauber Júnio]

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

[André Ferreira de Moraes]

Veja

[Clauber Júnio]

Olá André,

Obrigado pelo pronto atendimento.

 

Mais não deu certo, continua o mesmo erro.

 

Ah tinha passado VersaoDF para ve310 mais também voltei para ve200.

 

 

Grato

Clauber

Editado 21 Novembro, 2014 por Clauber Júnio

[darlananogueira]

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

[André Ferreira de Moraes]

Com o demo ocorre o mesmo problema?

[Clauber Júnio]

Veja

Ola André

 

Tente e nada, até recompilei do AcbrComum.

 

Grato

Clauber

[André Ferreira de Moraes]

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

[Clauber Júnio]

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

[Juliomar Marchetti]

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!

[Clauber Júnio]

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

[Clauber Júnio]

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 22 Novembro, 2014 por Clauber Júnio

[darlananogueira]

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 24 Novembro, 2014 por darlananogueira

[André Ferreira de Moraes]

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.

[André Ferreira de Moraes]

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.

[darlananogueira]

.

Editado 24 Novembro, 2014 por darlananogueira

[darlananogueira]

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.

[Clauber Júnio]

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 24 Novembro, 2014 por Clauber Júnio

[Clauber Júnio]

Olá Pessoal,

 

Passei o programa WinMerge no ACBrNFeWebServices1 "Versão Antiga" e ACBrNFeServices "Versao SVN", e praticamente o mesmo foi re-escritor, pois tem muita diferença no codigo.

ACBrNFeWebServices1.pas - ACBrNFeWebServices.pdf

[André Ferreira de Moraes]

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.

[Clauber Júnio]

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

[Clauber Júnio]

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

[Juliomar Marchetti]

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

[Clauber Júnio]

Olá Juliomar

Bom Dia,

 

Até posso está errado, mais sou foi assim que funcionou nas minha maquinas, depois de inúmeras tentativas.

 

Att

Clauber