Introdução
Mashups são sites personalizados que utilizam conteúdo de mais de uma fonte para criar um serviço completo. O conteúdo de mashups geralmente são códigos de terceiros utilizando uma interface pública ou API. Mais informações sobre os serviços oferecidos pelo Mashup TOTVS disponíveis em Status Mashup.
Objetivo
A TOTVS desenvolveu um mashup integrado a diversos serviços públicos. Com base neste mashup, foi desenvolvida uma API para a linha Datasul com o objetivo de consumo dos serviços oferecidos, sendo eles:
Fontes
$/FOUNDATION/Fontes_Doc/Sustentacao/V11/V11/progress/src/interfac/Recaptcha: executável de exibição do ReCaptcha 3.0
$/FOUNDATION/Fontes_Doc/Sustentacao/V11/V11/progress/src/utp/
ut-mashup-a.p
ut-mashup-b.p
ut-mashup-banco-central.p
ut-mashup-c.p
ut-mashup-d.p
ut-mashup-e.p
ut-mashup-f.p
ut-mashup-receita.p
ut-mashup-sintegra-captcha.p
ut-mashup-sintegra-inscricoes.p
ut-mashup-sintegra.p
ut-mashup-suframa-a.p
ut-mashup-suframa.p
ut-mashup.p
ut-mashup-tela.w
Configuração
O programa utp/ut-mashup deve ser executado de forma persistente em uma variável HANDLE, a partir da qual serão executados os métodos de consumo dos serviços:
RUN utp/ut-mashup.p PERSISTENT SET hMashup.
Usuário e senha devem ser definidos para utilização dos serviços através do método SetUserPassword:
RUN SetUserPassword IN hMashup(INPUT cUser, INPUT cPassword).
Após a configuração de usuário e senha, os serviços podem ser consumidos.
A API desenvolvida retorna os dados dos serviços em formato JSON. Caso ocorra algum erro na execução do serviço, será retornado no valor "Erro", que pode ser pego através do método getString:
IF oJson:getString("Erro") <> ? THEN
cErro = oJson:getString("Erro").
Exemplos
Para exemplificar o consumo dos serviços oferecidos pela API desenvolvida, podem ser utilizados os exemplos abaixo: