Fórum ServicoSolitacaoWs - Farmacia Popular Duvidas ? #353486
11/02/2008
0
Pessoal baixa esse XML no site da farmacia popular,fui no delphi
File/new/others/ Webservices WsDl Importer, ele me criou uma unit com 1- varias rotinas é isso mesmo ?
depois coloquei um componente soap no form e escrivi esse codigo
Var
wDataSUS: ServicoSolicitacaoWS ;
HashIdentificacao:String;
MsgSenha,MsgEnvia,Usu : String ;
Soliti : Integer ;
begin
wDaTaSUS := HTTPRIO1 AS ServicoSolicitacaoWS ;
WDataSus.executarSolicitacao(Soliti, ´Emerson´) ;
end;
Me da essas mensagem de erro
Build
[Error] Unit1.pas(38): Incompatible types: ´SolicitacaoDTO´ and ´Integer´
[Error] Unit1.pas(38): Incompatible types: ´UsuarioFarmaciaDTO´ and ´String´
[Fatal Error] Project1.dpr(5): Could not compile used unit ´Unit1.pas´
Alguem pode me ajudar, o caminho é esse mesmo ?
Alguma funçoes da unit estão declaradas assim
ServicoSolicitacaoWS = interface(IInvokable)
[´{9218C736-1352-E3E0-A9FF-53914A369AE5}´]
function executarSolicitacao(const in0: SolicitacaoDTO; const in1: UsuarioFarmaciaDTO): AutorizacaoDTO; stdcall;
function confirmarAutorizacao(const in0: ConfirmacaoDTO; const in1: UsuarioFarmaciaDTO): ConfirmacaoAutorizacaoDTO; stdcall;
function confirmarRecebimento(const in0: RecebimentoDTO; const in1: UsuarioFarmaciaDTO): ConfirmacaoRecebimentoDTO; stdcall;
function pesquisarAutorizacoes(const in0: PesquisaDTO; const in1: UsuarioFarmaciaDTO): RetornoPesquisaDTO; stdcall;
function executarEstorno(const in0: EstornoDTO; const in1: UsuarioFarmaciaDTO): ConfirmacaoEstornoDTO; stdcall;
end;
File/new/others/ Webservices WsDl Importer, ele me criou uma unit com 1- varias rotinas é isso mesmo ?
depois coloquei um componente soap no form e escrivi esse codigo
Var
wDataSUS: ServicoSolicitacaoWS ;
HashIdentificacao:String;
MsgSenha,MsgEnvia,Usu : String ;
Soliti : Integer ;
begin
wDaTaSUS := HTTPRIO1 AS ServicoSolicitacaoWS ;
WDataSus.executarSolicitacao(Soliti, ´Emerson´) ;
end;
Me da essas mensagem de erro
Build
[Error] Unit1.pas(38): Incompatible types: ´SolicitacaoDTO´ and ´Integer´
[Error] Unit1.pas(38): Incompatible types: ´UsuarioFarmaciaDTO´ and ´String´
[Fatal Error] Project1.dpr(5): Could not compile used unit ´Unit1.pas´
Alguem pode me ajudar, o caminho é esse mesmo ?
Alguma funçoes da unit estão declaradas assim
ServicoSolicitacaoWS = interface(IInvokable)
[´{9218C736-1352-E3E0-A9FF-53914A369AE5}´]
function executarSolicitacao(const in0: SolicitacaoDTO; const in1: UsuarioFarmaciaDTO): AutorizacaoDTO; stdcall;
function confirmarAutorizacao(const in0: ConfirmacaoDTO; const in1: UsuarioFarmaciaDTO): ConfirmacaoAutorizacaoDTO; stdcall;
function confirmarRecebimento(const in0: RecebimentoDTO; const in1: UsuarioFarmaciaDTO): ConfirmacaoRecebimentoDTO; stdcall;
function pesquisarAutorizacoes(const in0: PesquisaDTO; const in1: UsuarioFarmaciaDTO): RetornoPesquisaDTO; stdcall;
function executarEstorno(const in0: EstornoDTO; const in1: UsuarioFarmaciaDTO): ConfirmacaoEstornoDTO; stdcall;
end;
Essistemas
Curtir tópico
+ 0
Responder
Posts
14/02/2008
Essistemas
Pessoal consigui pesquisando na internet uns exemplo pela metadate
que é esse, consigui fazer funcionar,e quando envio ele me retorna
Solicitação não autorizada. Nenhum medicamento autorizado.
será que é alguma coisa no código que esta errado, ja mandei varios emais pra eles ja tentei outros produtos, eles dizem que já verificaram a parte tecnica que pra eu tentar fazer de novo, alguem poderia me ajudar ?
obrigado a tds !!
Var
wDataSUS: ServicoSolicitacaoWS ;
Item : Integer;
Autorizacao : AutorizacaoDTO;
Usuario : UsuarioFarmaciaDTO;
Medicamentos : ArrayOfMedicamentoDTO;
Solicitacao : SolicitacaoDTO;
RetornoPesq : RetornoPesquisaDTO ;
begin
HTTPRIO1.URL := ´https://200.214.130.41:9443/farmaciahomologa/services/ServicoSolicitacaoWS´;
HTTPRIO1.WSDLLocation := ´https://200.214.130.41:9443/farmaciahomologa/services/ServicoSolicitacaoWS?wsdl´;
HTTPRIO1.Service := ´ServicoSolicitacaoWSService´;
HTTPRIO1.Port := ´ServicoSolicitacaoWS´;
wDaTaSUS := HTTPRIO1 AS ServicoSolicitacaoWS ;
Usuario := UsuarioFarmaciaDTO.Create;
Usuario.usuario :=´12397737´;
Usuario.senha :=´11223344´ ;
Item := 0;
SetLength(Medicamentos, 1);
Medicamentos[Item] := MedicamentoDTO.Create;
Medicamentos[Item].coCodigoBarra := ´7896523206486´;
Medicamentos[Item].qtPrescrita := 1 ;
Medicamentos[Item].qtSolicitada := 1 ;
Medicamentos[Item].vlPrecoVenda := 1 ;
Medicamentos[Item].dsUnidApresentacao := ´30´;
Solicitacao := SolicitacaoDTO.Create;
Solicitacao.arrMedicamentoDTO := MedicamentoS;
Solicitacao.coSolicitacaoFarmacia := ´000256´;
Solicitacao.dtEmissaoReceita := TXSDateTime.Create;
Solicitacao.dtEmissaoReceita.AsDateTime := now;
Solicitacao.nuCnpj := ´01762416000100´;
Solicitacao.nuCpf := ´00106384155´;
Solicitacao.nuCrm := ´85743´;
Solicitacao.sgUfCrm := ´SP´;
Autorizacao := AutorizacaoDTO.Create;
Autorizacao := wDataSUS.executarSolicitacao(Solicitacao, Usuario);
Memo1.Lines.Add( Autorizacao.descMensagemErro) ;
que é esse, consigui fazer funcionar,e quando envio ele me retorna
Solicitação não autorizada. Nenhum medicamento autorizado.
será que é alguma coisa no código que esta errado, ja mandei varios emais pra eles ja tentei outros produtos, eles dizem que já verificaram a parte tecnica que pra eu tentar fazer de novo, alguem poderia me ajudar ?
obrigado a tds !!
Var
wDataSUS: ServicoSolicitacaoWS ;
Item : Integer;
Autorizacao : AutorizacaoDTO;
Usuario : UsuarioFarmaciaDTO;
Medicamentos : ArrayOfMedicamentoDTO;
Solicitacao : SolicitacaoDTO;
RetornoPesq : RetornoPesquisaDTO ;
begin
HTTPRIO1.URL := ´https://200.214.130.41:9443/farmaciahomologa/services/ServicoSolicitacaoWS´;
HTTPRIO1.WSDLLocation := ´https://200.214.130.41:9443/farmaciahomologa/services/ServicoSolicitacaoWS?wsdl´;
HTTPRIO1.Service := ´ServicoSolicitacaoWSService´;
HTTPRIO1.Port := ´ServicoSolicitacaoWS´;
wDaTaSUS := HTTPRIO1 AS ServicoSolicitacaoWS ;
Usuario := UsuarioFarmaciaDTO.Create;
Usuario.usuario :=´12397737´;
Usuario.senha :=´11223344´ ;
Item := 0;
SetLength(Medicamentos, 1);
Medicamentos[Item] := MedicamentoDTO.Create;
Medicamentos[Item].coCodigoBarra := ´7896523206486´;
Medicamentos[Item].qtPrescrita := 1 ;
Medicamentos[Item].qtSolicitada := 1 ;
Medicamentos[Item].vlPrecoVenda := 1 ;
Medicamentos[Item].dsUnidApresentacao := ´30´;
Solicitacao := SolicitacaoDTO.Create;
Solicitacao.arrMedicamentoDTO := MedicamentoS;
Solicitacao.coSolicitacaoFarmacia := ´000256´;
Solicitacao.dtEmissaoReceita := TXSDateTime.Create;
Solicitacao.dtEmissaoReceita.AsDateTime := now;
Solicitacao.nuCnpj := ´01762416000100´;
Solicitacao.nuCpf := ´00106384155´;
Solicitacao.nuCrm := ´85743´;
Solicitacao.sgUfCrm := ´SP´;
Autorizacao := AutorizacaoDTO.Create;
Autorizacao := wDataSUS.executarSolicitacao(Solicitacao, Usuario);
Memo1.Lines.Add( Autorizacao.descMensagemErro) ;
Responder
Gostei + 0
15/02/2008
Essistemas
Sobe !!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)