Consultar cartão sus via webservice

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

carlos moc
Usuário Nível 2
Usuário Nível 2
Mensagens: 68
Registrado em: 16 Out 2017 16:00
Localização: Montes Claros MG - Zap (38)99831-5319

Consultar cartão sus via webservice

Mensagem por carlos moc »

Bom dia e Feliz ano novo para todos !!!

Mais um desafio.rsrsr

Estou precisando desenvolver uma rotina para consultar o cartão sus do paciente, mas só encontrei exemplos em java/php, alguém aqui já
desenvolveu algo parecido e esteja disposto a colaborar mas como tenho pouco tempo para resolver estou disposto a pagar, pois vai me levar muito tempo.


Postei esse código php só para demonstrar como funciona

<?php
try {
$wsdlUrl = 'https://servicoshm.saude.gov.br/cadsus/ ... /v5r0?wsdl';
$wsUser = 'CADSUS.CNS.PDQ.PUBLICO';
$passWs = 'kUXNmiiii#RDdlOELdoe00966';
$soapClientOptions = array(
'trace' => 1,
'cache_wsdl' => WSDL_CACHE_NONE
);
$client = new SoapClient($wsdlUrl, $soapClientOptions);
$xmlheader = '
<wsse:Security SOAP-ENV:mustUnderstand="1" xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/ ... xt-1.0.xsd"
xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/ ... ty-1.0.xsd">
<wsse:UsernameToken wsu:Id="UsernameToken-F6C95C679D248B6E3F143032021465917">
<wsse:Username>' . $wsUser . '</wsse:Username>
<wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/ ... sswordText">' . $passWs . '</wsse:Password>
</wsse:UsernameToken>
</wsse:Security>
';
$header = new SoapHeader('http://docs.oasis-open.org/wss/2004/01/ ... xt-1.0.xsd', 'Security', new \SoapVar($xmlheader, XSD_ANYXML), false);
$client->__setSoapHeaders($header);

$requestPesquisar = new stdClass();
$requestPesquisar->CNESUsuario = new stdClass();
$requestPesquisar->CNESUsuario->CNES = '6963447';
$requestPesquisar->CNESUsuario->Usuario = 'LEONARDO';
$requestPesquisar->CNESUsuario->Senha = '?';
$requestPesquisar->FiltroPesquisa = new stdClass();
$requestPesquisar->FiltroPesquisa->nomeCompleto = new stdClass();
$requestPesquisar->FiltroPesquisa->nomeCompleto->Nome = 'SERGIO ARAUJO CORREIA LIMA';
$requestPesquisar->FiltroPesquisa->tipoPesquisa = 'IDENTICA';
$requestPesquisar->higienizar = '0';
$result = $client->pesquisar($requestPesquisar);
if ($result) {
echo '<pre>', print_r($result), '</pre>';
} else {
echo '<h2>Request:</h2>';
echo '<pre>', print_r($client->__getLastRequest()), '</pre>';
echo '<h2>Header:</h2>';
echo '<pre>', print_r($client->__getLastRequestHeaders()), '</pre>';
echo '<h2>Response:</h2>';
echo '<pre>', print_r($client->__getLastResponse()), '</pre>';
}
} catch (Exception $e) {
echo '<pre>', print_r($e), '<pre>';
}
?>
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Consultar cartão sus via webservice

Mensagem por JoséQuintas »

Pode partir do webservice da sefazclass, cep dos correios, ou outros posts que tem no fórum.
E o programa SOAPUI também ajuda.

O problema é que tem certos webservices que tem detalhes muito particulares, e só quem tá precisando, ou que fica com a mão na massa, é que vai atrás dos detalhes particulares.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
carlos moc
Usuário Nível 2
Usuário Nível 2
Mensagens: 68
Registrado em: 16 Out 2017 16:00
Localização: Montes Claros MG - Zap (38)99831-5319

Consultar cartão sus via webservice

Mensagem por carlos moc »

obrigado pela força, estou chegando lá !!!, Tempo que aprender essa "coisa" é muito detalhe e agora o SUS está disponibilizando consultas somente por WS.
carlos moc
Usuário Nível 2
Usuário Nível 2
Mensagens: 68
Registrado em: 16 Out 2017 16:00
Localização: Montes Claros MG - Zap (38)99831-5319

Consultar cartão sus via webservice

Mensagem por carlos moc »

RE SOL VI DO !!!!!!!, foi um parto de quintuplos.kkkkkkk, agora é fazer o credenciamento das unidades de saúde no ambiente de produção.
Próxima tarefa migrar os relatórios para fastreport, estou tendo alguns problemas com a tword, preciso de uns exemplos de formulários de relatórios, vou criar o tópico.
Marcos Kieron
Usuário Nível 2
Usuário Nível 2
Mensagens: 72
Registrado em: 14 Jan 2020 10:29
Localização: São Paulo/SP

Consultar cartão sus via webservice

Mensagem por Marcos Kieron »

Olá estou precisando fazer isso, você pode divulgar o código final para eu ver como fez?
Responder