wallyson

Bom dia! Nao estou conseguindo efetuar nenhuma venda de farmacia popular. A funcao confirmarAutorizacao() nao esta retornando nada, coloquei um loop infinito esperando algum retorno e nunca vem. Alguem passando por esse problema? vConfirmacaoAutorizacaoDTO := nil; while vConfirmacaoAutorizacaoDTO=nil do begin Application.ProcessMessages; try vConfirmacaoAutorizacaoDTO := vWSDL.confirmarAutorizacao(vConfirmacaoDTO, vUsuarioFarmaciaDTO); except end; end;

Recebi a resposta do pessoal da Farmacia Popular. PREZADO(A), INFORMAMOS QUE A CONEXÃO COM O NOVO DNS ENCONTRA-SE NORMALIZADO, DIANTE DISSO PEDIMOS A GENTILEZA DE ATUALIZAR O SISTEMA INTERNO DOS ESTABELECIMENTOS. AINDA NÃO FOI DEFINIDO UMA NOVA DATA. **** Comunicado Importante *** Informamos que está disponível uma nova versão do DNS (WebService) do Programa Farmácia Popular e do componente de segurança (GBAS), em substituição à versão utilizada atualmente. Todos os estabelecimentos credenciados ao Programa Farmácia Popular deverão, obrigatoriamente, realizar os ajustes necessários no sistema interno e atualizar o componente de segurança de cada terminal. O sistema será substituído e as dispensações pelo Programa serão efetuadas exclusivamente pelo novo DNS (WebService). Para acessar o novo DNS para a comunicação com o DATASUS utilize o link http://portalms.saude.gov.br/acoes-e-programas/farmacia-popular/sistema-de-vendas ou no Portal de Homologação/Produção. Para maiores informações, acesse o site www.saude.gov.br/aquitemfarmaciapopular na página principal. Em caso de dúvidas, encaminhar e-mail para: [email protected]. ATUALIZAÇÃO DO COMPONENTE DE SEGURANÇA SÓ DEVE SER REALIZADO, APÓS ATUALIZAÇÃO DO SOFTWARE DO SEU ESTABELECIMENTO PARA O NOVO DNS. COMPATIBILIDADE DO COMPONENTE DE SEGURANÇA: WINDOWS 7 OU SUPERIOR; LINUX UBUNTU 13 OU SUPERIOR; LINUX MINT 15 OU SUPERIOR. ATT. EQUIPE TÉCNICA DO PROGRAMA FARMÁCIA POPULAR/DAF/SCTIE Ministério da Saúde Secretaria de Ciência, Tecnologia e Insumos Estratégicos - SCTIE Programa Farmácia Popular do Brasil Esplanada dos Ministérios, Bloco G, Sobreloja CEP: 70.058-900, Brasília – DF

Jean, aqui os problemas pararam no momento. Esta conseguindo fazer?

Aqui após as 12:00 hrs a lentidão parou. ?

Pessoal só pra compartilhar o que tive de fazer. 1º Preparei meu sistema para trabalhar usando o DNS novo e o antigo, e deixei o usuário decidir qual DNS utilizar; 2º Fiz como o amigo Emersson disse, coloquei um loop de 5 tentativas em todas as funções e tratei as exceções que o novo WS vem retornando; Atualizei o primeiro cliente agora e consegui passar várias vendas utilizando o DNS novo porém está extremamente lento, devido a instabilidade que o novo WS possui. Por padrão meus clientes ainda usarão o DNS antigo até segunda, vamos torcer para que ou prorroguem o prazo ou melhorem esse novo servidor.

Estou na mesma situação meu amigo, agora é torcer para que normalizem o serviço lá no servidor ou prorroguem essa mudança para 2019.

Eu consegui emitir em produção aqui na minha maquina normalmente desde o primeiro dia... Porém em clientes funcionou apenas no primeiro dia, desde entao nao funciona mais...

Estou preparando meu software pra trabalhar tanto com o DNS e GBASM antigo e novo. Mas os problemas persistem....

Também faço a chamada diretamento ao gbasmsb.exe, segue o exemplo: PathAplicacao := AcertarPath(ExtractFilePath(Application.ExeName)); // verifica a existencia do arquivo if FileExists(PathAplicacao + 'gbasmsb.exe') then begin // faz a chamada ao executavel Par := ' --identificacao'; Resultado := Trim(GetDosOutput('gbasmsb.exe' + Par,PathAplicacao)); if Trim(Resultado)<>'' then Observacao(Resultado,'Identificação do terminal.',True) else Mensagem ('Não foi encontrado o método IDENTIFICACAO no executável gbasmsb.exe.','Método não encontrado.',MB_OK,MB_ICONERROR); end else Mensagem('Não foi encontrado o executável gbasmsb.exe na pasta da aplicação.','Arquivo não encontrado.',MB_OK,MB_ICONERROR);

Segue. FarmaciaPopularWSDL.pas

W1 mesmo. Entao aqui na minha maquina esta funcionando 100%. Em cliente ja funcionou normal por um periodo, agora ou dá esse retorno de xm invalido ou esse de que o webservice nao respondeu.

Eu utilizei a funcao --identificacao do gbasm.exe novo e cadastrei la no portal. Nao tive esse problema ai nao.

Sim, nos clientes coloquei o GBAS novo com as dll e recadastrei o terminal.

Olhei o fonte disponibilizado e estou fazendo dessa forma. Na maquina de desenvolvimento consigo fazer autorização / estorno tanto em ambiente de homologação quanto de produção, porém quando envio a versão para meus clientes tem dado esse erro.

Bom dia. Nas autorizações que estou enviando so tem retornado esse erro na função executarSolicitacao. O documento XML deve ter um elemento de nível superior Line: 0 Alguém passando por isso?