Nfse Bauru - Sigcorp

[arce]

Amigos

O Bug era causado pelo wsdlImporter do D7. Para solucionar o problema é necessário atualizar algumas bibliotecas SOAP, que vcs podem baixar  através deste link (http://cc.embarcadero.com/item/24535). 

Depois é só recriar a unit pelo WSDLImporter.

Abraço

[maikon_arruda]

Em ‎25‎/‎04‎/‎2017 at 16:29, arce disse:

Boa tarde

A prefeitura está alterando o ws deles de php para C# (Entra em produção dia 02/05). Este é novo link de homologação (http://desenvolvimento.bauru.sp.gov.br/teste5/Default.asmx?wsdl). Contudo as estruturas dos objetos de envio e retorno foram alteradas.

Ao utilizar o wsdl importer no Delphi7 a estrutura mudou mto pouco, mas ao enviar ocorre um erro de Objeto, pois o mesmo não era construído no processo de envio da NFSe.

Fiz um teste utilizando o wsdl importer no Delphi XE Berlin, e a estrutura ficou totalmente diferente.

Exemplo no Delphi7:

procedure GerarNota(const DescricaoRps: tcDescricaoRps; out GerarNotaResult: tcRetornoNota; out DescricaoErros: ArrayOfTcEstruturaDescricaoErros); stdcall;

Exemplo no Delphi XE Berlin

function  GerarNota(const parameters: GerarNota): GerarNotaResponse; stdcall;

Então, passei a unit criada pelo XE para o projeto do Delphi 7, fiz as alterações dos uses para compilar e parou de ocorrer o problema do objeto não criado. Entretanto o objeto de retorno GerarNotaResponse está retornando vazio.

Gostaria de saber se vcs estão passando pelo mesmo problema que eu.

OBS: Fiz testes com o programa SoapUI que envia e recebe diretamente o XML e funcionou.

 

 

Olá boa tarde, também estou com o mesmo problema, porém minha Unit foi gerada no xe7 e a chamada do GerarNota ficou um pouco diferente com o Output apenas  GerarNotaResult.

[Paulo Cesar]

Para quem está tendo problema com o Delphi 7 na hora de consumir os métodos do Web Service da prefeitura de Bauru basta adicionar a linha abaixo em initialization:

InvRegistry.RegisterInvokeOptions(TypeInfo(ConcentradorSoap), ioDocument);

 

Aqui comigo estava dando o mesmo problema mas agora está tudo OK.

[broribeiro]

Bom dia , 

Eu tentei atualizar a unit para essas novas funcoes

  procedure GerarNota(const DescricaoRps: tcDescricaoRps; out GerarNotaResult: tcRetornoNota; out DescricaoErros: ArrayOfTcEstruturaDescricaoErros); stdcall;
    procedure CancelarNota(const DadosCancelaNota: tcDadosCancelaNota; out CancelarNotaResult: tcRetornoNota; out DescricaoErros: ArrayOfTcEstruturaDescricaoErros); stdcall;
    procedure ConsultarNotaValida(const DadosConsultaNota: tcDadosConsultaNota; out ConsultarNotaValidaResult: tcRetornoNota; out DescricaoErros: ArrayOfTcEstruturaDescricaoErros); stdcall;
    procedure ConsultarNotaPrestador(const DadosPrestador: tcDadosPrestador; const Nota: Integer; out ConsultarNotaPrestadorResult: tcDadosNota; out DescricaoErros: ArrayOfTcEstruturaDescricaoErros); stdcall;
 

initialization
  InvRegistry.RegisterInvokeOptions(TypeInfo(WebServiceSoap), ioDocument);
  InvRegistry.RegisterInterface(TypeInfo(WebServiceSoap), 'urn:', 'ISO-8859-1', '', 'WebServiceSoap');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(WebServiceSoap), 'urn:#%operationName%');
  RemClassRegistry.RegisterXSClass(tcDescricaoRps, '', 'tcDescricaoRps');
  RemClassRegistry.RegisterXSClass(tcRetornoNota, '', 'tcRetornoNota');
  RemClassRegistry.RegisterXSClass(tcEstruturaDescricaoErros, '', 'tcEstruturaDescricaoErros');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfTcEstruturaDescricaoErros), '', 'ArrayOfTcEstruturaDescricaoErros');
  RemClassRegistry.RegisterXSClass(tcDadosPrestador, '', 'tcDadosPrestador');
  RemClassRegistry.RegisterXSClass(tcDadosCancelaNota, '', 'tcDadosCancelaNota');
  RemClassRegistry.RegisterXSClass(tcDadosNota, '', 'tcDadosNota');
  RemClassRegistry.RegisterXSClass(tcDadosConsultaNota, '', 'tcDadosConsultaNota');

Quando tento enviar  a nota recebo a seguinte mensagem 
 

Erro Comunicação: System.Web.Services.Protocols.SoapException: O servidor não pôde processar a solicitação. ---> System.NullReferenceException: Referência de objeto não definida para uma instância de um objeto.
   em webservice_nfe.WebService.GerarNota(tcDescricaoRps DescricaoRps, List`1& DescricaoErros)
   --- Fim do rastreamento de pilha de exceções internas ---

Alguem tem idéia de onde passo alterar, sendo que funciona perfeitamente no ultimo endereço da prefeitura.