Erro com web service ginfes

Nairobi · #1 (**permalink**) 08/10/2010

Estou implementando NFS-e utilizando OpenNFSe com Web Service Ginfes em Delhi 7 e estou tendo o seguinte erro:

Tipo de erro: ERemotableException
Erro: Endpoint {http://homologacao.ginfes.com.br}ServiceGinfesImplPort does not contain operation meta data for arg0.

Alguém pode me dar uma luz?

Grato

Walder · #2 (**permalink**) 15/10/2010

Olá, Nairobi.
Estou com o mesmo problema. Você conseguiu solucionar?
Se sim, poderia me dar uma "luz", pois não tenho idéia de como resolver isso.
Obrigado.

LuizVaz · #3 (**permalink**) 20/10/2010

O Problema é a implementação da UNIT.

Use o seguinte:

Código:

// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : wsGINFES.xml
// (26/08/2010 23:13:40 - - $Rev: 16699 $)
// ************************************************************************ //

unit wsGINFES;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

type

  // ************************************************************************ //
  // The following types, referred to in the WSDL document are not being represented
  // in this file. They are either aliases[@] of other types represented or were referred
  // to but never[!] declared in the document. The types from the latter category
  // typically map to predefined/known XML or Borland types; however, they could also 
  // indicate incorrect WSDL documents that failed to declare or import a schema type.
  // ************************************************************************ //
  // !:string          - "http://www.w3.org/2001/XMLSchema"[]


  // ************************************************************************ //
  // Namespace : http://homologacao.ginfes.com.br
  // transport : http://schemas.xmlsoap.org/soap/http
  // style     : rpc
  // binding   : ServiceGinfesImplBinding
  // service   : ServiceGinfesImplService
  // port      : ServiceGinfesImplPort
  // URL       : https://homologacao.ginfes.com.br//ServiceGinfesImpl
  // ************************************************************************ //
  ServiceGinfesImpl = interface(IInvokable)
  ['{F14196C8-E410-BEBA-7FAC-0B55E7C1FD05}']
    function  CancelarNfse(const arg0: string): string; stdcall;
    function  CancelarNfseV3(const arg0: string; const arg1: string): string; stdcall;
    function  ConsultarLoteRps(const arg0: string): string; stdcall;
    function  ConsultarLoteRpsV3(const arg0: string; const arg1: string): string; stdcall;
    function  ConsultarNfse(const arg0: string): string; stdcall;
    function  ConsultarNfsePorRps(const arg0: string): string; stdcall;
    function  ConsultarNfsePorRpsV3(const arg0: string; const arg1: string): string; stdcall;
    function  ConsultarNfseV3(const arg0: string; const arg1: string): string; stdcall;
    function  ConsultarSituacaoLoteRps(const arg0: string): string; stdcall;
    function  ConsultarSituacaoLoteRpsV3(const arg0: string; const arg1: string): string; stdcall;
    function  RecepcionarLoteRps(const arg0: string): string; stdcall;
    function  RecepcionarLoteRpsV3(const arg0: string; const arg1: string): string; stdcall;
  end;
  GINFES = ServiceGinfesImpl;

  function GetGINFES(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): GINFES;


implementation
  uses SysUtils;

function GetGINFES(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): GINFES;
const
  defWSDL = 'wsGINFES.xml';
  defURL  = 'https://homologacao.ginfes.com.br//ServiceGinfesImpl';
  defSvc  = 'ServiceGinfesImplService';
  defPrt  = 'ServiceGinfesImplPort';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as ServiceGinfesImpl);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;


initialization
  InvRegistry.RegisterInterface(TypeInfo(ServiceGinfesImpl), 'http://homologacao.ginfes.com.br', '');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(ServiceGinfesImpl), '');

end.

Para utilizar, crie um RIO assim:

Código:

var
  wsGINFES: GINFES;
  FHTTPRIO: THTTPRIO;

  //HTTPRIO
  FHTTPRIO := THTTPRIO.Create(Self);
  FHTTPRIO.HTTPWebNode.UseUTF8InHeader := True;
  FHTTPRIO.HTTPWebNode.InvokeOptions := [soIgnoreInvalidCerts, soAutoCheckAccessPointViaUDDI];
  FHTTPRIO.HTTPWebNode.OnBeforePost := DoBeforePost;
  FHTTPRIO.OnBeforeExecute := DoBeforeExecute;
  FHTTPRIO.Converter.Options := [soSendMultiRefObj, soTryAllSchema,
                                 soRootRefNodesToBody, soCacheMimeResponse];


  If (wsGINFES = nil) Then
    wsGINFES := GetGINFES(FALSE, URLWebServices, FHTTPRio);

Onde URLWebServices pode ser:
'https:\\producao.ginfes.com.br\\ServiceGinfesImpl '
'https:\\homologacao.ginfes.com.br\\ServiceGinfesI mpl'

Atenciosamente,
Luiz Vaz

Walder · #4 (**permalink**) 21/10/2010

Citação:

Postado Originalmente por LuizVaz

Para utilizar, crie um RIO assim:

Código:

var
  wsGINFES: GINFES;
  FHTTPRIO: THTTPRIO;

  //HTTPRIO
  FHTTPRIO := THTTPRIO.Create(Self);
  FHTTPRIO.HTTPWebNode.UseUTF8InHeader := True;
  FHTTPRIO.HTTPWebNode.InvokeOptions := [soIgnoreInvalidCerts, soAutoCheckAccessPointViaUDDI];
  FHTTPRIO.HTTPWebNode.OnBeforePost := DoBeforePost;
  FHTTPRIO.OnBeforeExecute := DoBeforeExecute;
  FHTTPRIO.Converter.Options := [soSendMultiRefObj, soTryAllSchema,
                                 soRootRefNodesToBody, soCacheMimeResponse];


  If (wsGINFES = nil) Then
    wsGINFES := GetGINFES(FALSE, URLWebServices, FHTTPRio);

Onde URLWebServices pode ser:
'https:\\producao.ginfes.com.br\\ServiceGinfesImpl '
'https:\\homologacao.ginfes.com.br\\ServiceGinfesI mpl'

Atenciosamente,
Luiz Vaz

Bom dia, Luiz.
Desculpe, mas não entendi essa parte da implementação do RIO. Essa parte do código deve ser posta onde?

Walder · #5 (**permalink**) 21/10/2010

Olá, Luiz.
A solução que você postou deu certo.
Mas agora estou recebendo como resposta do Webservice a seguinte mensagem:

Código:


- <ns2:MensagemRetorno>
  <ns3:Codigo>E160</ns3:Codigo> 
  <ns3:Mensagem>Arquivo enviado fora da estrutura do arquivo XML de entrada.</ns3:Mensagem> 
  <ns3:Correcao>Envie um arquivo dentro do schema do arquivo XML de entrada.</ns3:Correcao> 
  </ns2:MensagemRetorno>

Só que estou seguindo os schemas baixados da página da GINFES, que são iguais ou idênticos aos que vieram junto do aplicativo.
Você teria como me auxiliar nessa questão?
Obrigado.

Nairobi · #6 (**permalink**) 22/10/2010

Bom dia Luiz,

Muito obrigado pela ajuda, valeu mesmo!

Carlos · #7 (**permalink**) 31/01/2011

Bom dia,

na linha : wsGINFES := GetGINFES(false, 'https:\\homologacao.ginfes.com.br\\ServiceGinfesI mpl', FHTTPRIO);

antes estava com a url : https:\\homologacao.ginfes.com.br\\ServiceGinfesIm pl

e o erro era : Invalid url 'https:\\homologacao.ginfes.com.br\\ServiceGinfesI mpl' - only supports 'http' and 'https' schemes.

colocando a URL : "https://homologacao.ginfes.com.br//ServiceGinfesImpl"

Ele passou porem agora ao chamar o servico : "wresultado := wsGINFES.RecepcionarLoteRpsV3(objNFSe.NotasFiscais .XML_Lote_Ass, '');"

da o seguinte erro :An error ocurred in the secure channel support - URL:https://homologacao.ginfes.com.br//ServiceGinfesImpl - SOAPAction:""

Alguem poderia me dar um help, pois faz dias que to penando para fazer este webservice funcionar.

Obrigado,

At,

Carlos Eduardo!!

carlosasjr · #8 (**permalink**) 10/02/2011

Ola a Todos,

Estou trabalhando a dias no desenvolvimento de um componente para gerar a NFS-e até agora eu consegui gerar o xml e assinar, mas estou tendo problemas para enviar. Então na minha busca pelo mr. Google, encontrei esse site.

Gostaria de saber se você têm um componente que ja foi desenvolvimento em delphi? Aonde posso baixar esse componente.

Aqui no site eu só encontrei um exemplo de como assinar o xml.

Se você puderem me enviar esse projeto vai ajudar e muito, concerteza vão poupar horas e horas no mr google. rs..

Qualquer coisa se quizer me add no msn: podemos trocar varias ideias sobre esse e outros projetos...

msn: [email protected]
e-mail: [email protected]

Obrigado,