...
Aviso | ||
---|---|---|
| ||
É necessário ter as credenciais (ClientId e Secret) do TotvsApps já cadastradas para utilizar a classe, certifique-se de ter feito o processamento do CarolWizard. Mais informações do Wizard na documentação: FWCarolWizard. |
Classe criada para realização da comunicação com o Totvs Link para subida de dados.
TotvsLink é um mecanismo de troca de mensagens entre aplicações que utiliza um serviço de fila (rabbit) recebendo requisições através do protocolo HTTP.
Construtor que realiza o setup da fila
Sintaxe: FwTotvsLinkClient():New()→ Nil
Verifica se existem mensagens no Totvs Link
Sintaxe: FwTotvsLinkClient():Receive()-> lSuccess
Recupera a última mensagem carregada no objeto
Sintaxe: FwTotvsLinkClient():GetMessage()-> self:oMessage
Notifica que a última mensagem recebida foi processada com sucesso
Sintaxe: FwTotvsLinkClient():Success()-> lSuccess
Notifica que a última mensagem recebida não foi processada com sucesso
Sintaxe: FwTotvsLinkClient():Fail()-> lSuccess
Envia uma mensagem para a fila do Totvs Link
...
Sintaxe: FwTotvsLinkClient():Send(< cType >, < cMessage >)-> lSuccess
Envia uma mensagem para a fila do Totvs Link usando audience
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
User Function SendMsgSecond() Local oClient as object Local cMessage as character Local lSuccess as logical RpcSetEnv("99", "01") oClient := FwTotvsLinkClient():New() BeginContent Var cMessage { "header": { "type": "Framework", "tenantId": "e21c8e75-9dfc-4169-a599-e233538d72a4", "erpTenant": { "protheus":"99" }, "generatedOn": "2021-06-08T15:18:08.367574Z", "locale": "pt_BR" }, "content": { "requestID": "1bc180de-ef14-4b75-83ac-b73ed1fa7518", "identifiers": { "CPF": "98954898765" }, "roles": [] } } EndContent lSuccess := oClient:SendAudience("Teste Frame", "FrameWork", cMessage) Return lSuccess |
...