Provedor Abaco - Rondonopolis-MT

[Marcio Lopes ACBr]

Boa Tarde,

Desde junho de 2012 o provedor do município de Rondonópolis (5107602) passa a ser o provedor Abaco.

Editado 23 Janeiro, 2013 por marciotga

[EMBarbosa]

Não entendi...

[Italo Giurizzato Junior]

Boa tarde Marcio,

Você quiz dizer que o provedor "passa" a ser o Abaco?

Se sim, pessoal vamos ler o que escrevemos no fórum antes de clicar no [Enviar], pois uma palavra errada pode deixar os demais colegas sem saber ao certo o que esta sendo relatado.

[mausoam]

Pois é, o servidor de Rondonópolis passou a ser Ábaco, existe alguma previsão para implementação para este servidor?

[Italo Giurizzato Junior]

Boa tarde Mausoam,

 

Por favor, você consegue as URLs de homologação e produção de Rondonópolis, acredito que com apenas essas informações fica facil implementar.

 

Uma vez que já temos uma unit para o provedor Abaco.

 

Se você conseguir as URLs hoje mesmo estarei disponibilizando as alterações para que você possa iniciar os seus testes.

[mausoam]

Boa noite Italo,

 

Os servidores de Rondonópolis são:

http://www.e-nfs.com.br/roo_homologa/servlet/acancelarnfse?wsdl

https://www.e-nfs.com.br/e-nfs_roo/servlet/arecepcionarloterps?wsdl

 

Eu consegui implementa-los no fonte, mas tive o um problema ao assinar o xml de envio. Parece que é o mesmo problema que esta ocorrendo em Canoas, como eu vi no outro forum, será que vcs tem alguma solução?

 

Mauricio Ambrosio

Analista de Sistemas

[Italo Giurizzato Junior]

Bom dia Mauricio,

 

Já esta disponivel no SVN a atualização do componente.

[mausoam]

Boa tarde Italo,

 

Obrigado pelas alterações, mas estou com problema na hora de assinar a nota. Da o mesmo erro que vi no forum da prefeitura de canoas, que o provedor é a Abaco. Problema na tag "id" que teria que ser "Id" para conseguir assinar . Você já tem alguma solução?

 

Mauricio Ambrosio.

[Italo Giurizzato Junior]

Bom dia Mauricio,

 

Ainda não consegui uma solução para esse problema.

[tbalbinos]

Pessoal me add no Skype estou fazendo uma NFSe para Abaco, também estava com o mesmo problema ao assinar, ja resolvi, agora estou em outro que sabe trocando ideias conseguimos corrigir e fazer funcionar.

 

 

skype ==> tbalbinos ( Thiago Balbino )

[Juliomar Marchetti]

O Bom seria trocar ideias aqui no fórum assim outros colegas que venham a precisar já tem onde pesquisar

[tbalbinos]

Entendo Juliomar, porem acho que podiamos nesse caso para ser mais rapido fazer isso por Chat, e aqui postar a solução....isso é o que penso..

 

att

[Italo Giurizzato Junior]

Bom dia a todos,

 

De qualquer forma, por favor indique nos fontes o que foi alterado ou incluido, exemplo:

 

// Alterado por fulano em dd/mm/aaaa

 

Desta forma fica mais facil checar tudo o que foi feito.

[tbalbinos]

Comigo esta dando o erro ao assinar na linha:

signedKey := xmldsig.sign(dsigKey, $00000002);

erro:  " Erro não especificado."

 

 

 

 

 

[tbalbinos]

Para contornar o problema do erro na assinatura do XML para o ABACO contornei da seguinte forma, criei uma DLL em C#, que faz a assinatura de uma arquivo XML e retorna o Conteúdo em String assinado....Finalizei agora a integração da DLL com o Delphi agora vou testar no meu ACBR local, caso alguém se interesse dela GAMBIARRA se der certo é só se manifestar que eu posto aqui 

[Marcio_DMIX]

Para contornar o problema do erro na assinatura do XML para o ABACO contornei da seguinte forma, criei uma DLL em C#, que faz a assinatura de uma arquivo XML e retorna o Conteúdo em String assinado....Finalizei agora a integração da DLL com o Delphi agora vou testar no meu ACBR local, caso alguém se interesse dela GAMBIARRA se der certo é só se manifestar que eu posto aqui 

 

Amigo, eu estou interessado se voce puder postar a solução, te agradeço!!!

[tbalbinos]

Olá MarcioMoura segue um arquivo compactar com a dll e a .TLB, primeiro você devera instalar a .TLB no seu delphi eu uso o 2010.

 

Passo 1: Instalação no delphi 2010

 

 

 

 

 

 

1.1  - Import aType Library; clique em Next

 

1.2  - Add - Adicione a .tlb que mandei anexado; clique em Next

1.3  - Marque a Opção ( Generate componente Wrappers ); clique em Next

1.4  - Selecione a Opção ( Ceate unit ) ; clique em finish

 

Pronto instalado a type Library

 

2) Altere o fonte do ACBr na Unit - ACBrNFSeUtil.pas ( ou se preferir substitua pelo unit que anexei )

 

2.1 - Adicione na uses CAssinatura_TLB

 

 

2.2 - Na função AssinarMSXML linha 710

 

  declare as variáveis abaixo na função.

 

 s : TStringList;
 cq2 : IAssinatura;
 xmlAbacoAssinado : String;

 

 

 

e depois coloque este código para fazer a assinatura.

if AProvedor = proAbaco then
 begin
   s := TStringList.Create;
   s.Text := AXML;
   xmlAbacoAssinado := ExtractFilePath(ParamStr(0)) + '-xxx3.xml';
   s.SaveToFile(xmlAbacoAssinado);
   cq2 := CoClassAssinatura.Create();
   XMLAssinado := cq2.AssinaRPSEnvio(xmlAbacoAssinado, Certificado.SerialNumber);
   FreeAndNil(s);
   Result := true;
   Exit;
 end;

 

3) Por fim e cloque a DLL no path da sua aplicação e faça o teste...aqui comigo deu certo, qualquer coisa se não der certo add no skype que acompanho com você.

 

 

att

 

 

ACBrNFSeUtil.pas

CAssinatura.rar

[Marcio_DMIX]

valeu fera, vou fazer uns testes, e assim que possivel retorno!!!

[tbalbinos]

marciomoura

 

 aqui comigo deu certo, estou emitindo as nfse....

[Marcio_DMIX]

beleza, é que tenho delphi 7, estou instalando o delphi 2010 para contornar o problema!!!

[gonjur]

Bom dia, 

 

Estou implementando as funcionalidades de NFS-e para Rondonópolis, e analisando o fórum, percebi que tiveram o mesmo problema que estou tendo, é apresentado um erro na assinatura do arquivo. Bom... todos recorreram a esta dll para solucionar o problema? Ou existe alguma alternativa de solução no próprio código?

 

Agradeço já a atenção.