Ajuda com Método WebService Jucesp

[atiagocl]

Bom dia,

Gostaria de saber se alguém poderia me ajudar na seguinte situação:

Estou fazendo uma integração com o web service da Jucesp, o qual exige dois níveis de autenticação: autenticação no servidor web e autenticação no SIL. Até ai tudo bem consegui fazer a conexão  e também consigo fazer a maioria das consultas.

Porém tem alguns métodos ex: InformarInicioLicenciamentoAltoRisco "Segue descrito no manual do método abaixo" que são passados parametros para ele e não estou conseguindo: 

Se alguém puder me demonstrar como chamar o método corretamente e passar os parâmetros eu agradeço muito.

Método: InformarInicioLicenciamentoAltoRisco
/// Informa um inicio de Licenciamento (presencial) pra um conjunto de licenças.
///
/// Parâmetros de cada item(InformarInicioAtendimentoAltoRiscoParameters)
/// string Protocolo
/// DateTime InicioAtendimento
/// int IdOrgao
/// string ProtocoloAtendimento
///
/// OBS: Somente é possível informar o início de atendimento de alto risco de uma licença
/// cujo status seja "Comparecer ao Orgao" (1) e cujo orgão seja o mesmo do perfil do
/// usuário do webservice
///
/// Códigos de erro/sucesso na chamada ao método:
/// 95 : senha do usuário está expirada
/// 96 : privilégios insuficientes para executar o método
/// 97 : erro interno
/// 98 : parâmetros incorretos
/// 99 : falha de autenticacao
/// 100 : Sucesso
///
/// Os códigos de erro/sucessso para cada transação de cancelamento de licença:
/// 0: Transacao OK
/// 1: Erro interno
/// 2: Data de Atendimento deve ser menor ou igual a data de Hoje
/// 3: Data de Atendimento deve ser posterior à data da solicitação
/// 4: Protocolo da Licença não exige Atendimento Presencial.
/// 5: Usuário de webservice deve ter perfil de Orgão.
/// 6: Protocolo informado não existe
/// 7: Protocolo da Licença não está com status: 'Comparecer ao órgão'.
ItemTransacao[] InformarInicioLicenciamentoAltoRisco(InformarInicioLicenciamentoAltoRiscoParameters[]
parametros, out int resultCode, out string resultDescription)
Classe InformarInicioLicenciamentoAltoRiscoParameters:
 string Protocolo
 DateTime InicioAtendimento
 int IdOrgao
 string ProtocoloAtendimento 

Segue código do botão

procedure TForm1.Button3Click(Sender: TObject);
var
  funcaoenvio : InformarInicioLicenciamentoAltoRiscoRequest;
  funcaoparamentros : InformarInicioLicenciamentoAltoRiscoParameters;
  tempo : TXSDateTime;
begin
        Tempo := TXSDateTime(FormatDateTime('YYYY-MM-DD-T',now));

        funcaoenvio :=  InformarInicioLicenciamentoAltoRiscoRequest.Create;
        funcaoparamentros :=  InformarInicioLicenciamentoAltoRiscoParameters.Create;
       funcaoparamentros.Protocolo := '1659780201895';
       funcaoparamentros.InicioAtendimento :=  tempo ;
       funcaoparamentros.IdOrgao:= 464 ;       //id do orgão
       funcaoparamentros.ProtocoloAtendimento:= '19384/2018';


           //Dessa forma abaixo a aplicação da erro na execução
           //funcaoenvio.Parametros[0].Protocolo:=  '1659780201895';
          // funcaoenvio.Parametros[0].InicioAtendimento:=  tempo;
          // funcaoenvio.Parametros[0].IdOrgao:=  464 ;
           //funcaoenvio.Parametros[0].ProtocoloAtendimento:=  '19384/2018';

        showmessage( inttostr(GetIOperacionais.InformarInicioLicenciamentoAltoRisco(funcaoenvio).ResultCode) );

end;

Em anexo esta a unit criado pelo WSDL ao importar o WebService

basic.pas

[atiagocl]

Pessoal, se for necessário estou disposto a negociar um valor pelo serviço/consultoria ok.

Editado 19 Janeiro, 2019 por atiagocl

[Juliomar Marchetti]

Vamos mudar então o sub-fórum

[atiagocl]

Depois de muito quebrar a cabeça consegui Resolver.

Pode encerrar o tópico.

Obrigado

[Juliomar Marchetti]

poderia postar como fez? assim ajuda os colegas que ajudaram os demais aqui no fórum

[EMBarbosa]

Tópico relacionado:

[André Luiz da Silva]

Em 19/01/2019 at 02:19, atiagocl disse:

Bom dia,

Gostaria de saber se alguém poderia me ajudar na seguinte situação:

Estou fazendo uma integração com o web service da Jucesp, o qual exige dois níveis de autenticação: autenticação no servidor web e autenticação no SIL. Até ai tudo bem consegui fazer a conexão  e também consigo fazer a maioria das consultas.

Porém tem alguns métodos ex: InformarInicioLicenciamentoAltoRisco "Segue descrito no manual do método abaixo" que são passados parametros para ele e não estou conseguindo: 

Se alguém puder me demonstrar como chamar o método corretamente e passar os parâmetros eu agradeço muito.

Método: InformarInicioLicenciamentoAltoRisco
/// Informa um inicio de Licenciamento (presencial) pra um conjunto de licenças.
///
/// Parâmetros de cada item(InformarInicioAtendimentoAltoRiscoParameters)
/// string Protocolo
/// DateTime InicioAtendimento
/// int IdOrgao
/// string ProtocoloAtendimento
///
/// OBS: Somente é possível informar o início de atendimento de alto risco de uma licença
/// cujo status seja "Comparecer ao Orgao" (1) e cujo orgão seja o mesmo do perfil do
/// usuário do webservice
///
/// Códigos de erro/sucesso na chamada ao método:
/// 95 : senha do usuário está expirada
/// 96 : privilégios insuficientes para executar o método
/// 97 : erro interno
/// 98 : parâmetros incorretos
/// 99 : falha de autenticacao
/// 100 : Sucesso
///
/// Os códigos de erro/sucessso para cada transação de cancelamento de licença:
/// 0: Transacao OK
/// 1: Erro interno
/// 2: Data de Atendimento deve ser menor ou igual a data de Hoje
/// 3: Data de Atendimento deve ser posterior à data da solicitação
/// 4: Protocolo da Licença não exige Atendimento Presencial.
/// 5: Usuário de webservice deve ter perfil de Orgão.
/// 6: Protocolo informado não existe
/// 7: Protocolo da Licença não está com status: 'Comparecer ao órgão'.
ItemTransacao[] InformarInicioLicenciamentoAltoRisco(InformarInicioLicenciamentoAltoRiscoParameters[]
parametros, out int resultCode, out string resultDescription)
Classe InformarInicioLicenciamentoAltoRiscoParameters:
 string Protocolo
 DateTime InicioAtendimento
 int IdOrgao
 string ProtocoloAtendimento 

Segue código do botão

procedure TForm1.Button3Click(Sender: TObject);
var
  funcaoenvio : InformarInicioLicenciamentoAltoRiscoRequest;
  funcaoparamentros : InformarInicioLicenciamentoAltoRiscoParameters;
  tempo : TXSDateTime;
begin
        Tempo := TXSDateTime(FormatDateTime('YYYY-MM-DD-T',now));

        funcaoenvio :=  InformarInicioLicenciamentoAltoRiscoRequest.Create;
        funcaoparamentros :=  InformarInicioLicenciamentoAltoRiscoParameters.Create;
       funcaoparamentros.Protocolo := '1659780201895';
       funcaoparamentros.InicioAtendimento :=  tempo ;
       funcaoparamentros.IdOrgao:= 464 ;       //id do orgão
       funcaoparamentros.ProtocoloAtendimento:= '19384/2018';


           //Dessa forma abaixo a aplicação da erro na execução
           //funcaoenvio.Parametros[0].Protocolo:=  '1659780201895';
          // funcaoenvio.Parametros[0].InicioAtendimento:=  tempo;
          // funcaoenvio.Parametros[0].IdOrgao:=  464 ;
           //funcaoenvio.Parametros[0].ProtocoloAtendimento:=  '19384/2018';

        showmessage( inttostr(GetIOperacionais.InformarInicioLicenciamentoAltoRisco(funcaoenvio).ResultCode) );

end;

Em anexo esta a unit criado pelo WSDL ao importar o WebService

basic.pas

Olá, gostaria de conversar com vc sobre a integração com a JUCESP, vc teria um e-mail para contato?