| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | TOTVS DMS (Linha Protheus) - Oficina (SIGAOFI) |
| Função: | Autent. WebService JD OKTA (OFIA280) |
| País: | Brasil |
| Ticket: | 23151815 |
| Requisito/Story/Issue (informe o requisito relacionado) : | DVARMIL-8367 |
Localização: Autent. WebService JD OKTA (OFIA280).
Em que ponto? Ponto de entrada para possibilitar configuração separada por filial para que seja possível atender configurações distintas do OKTA para cada grupo com possibilidade de separação do OKTA mesmo sem separar empresas.
Parâmetro:
Retorno:
| Tipo | Descrição |
|---|---|
| Lógico | Retornará .T. / .F. para saber se posicionou corretamente na tabela VRN. |
Exemplo de utilização Advpl:
#include 'protheus.ch'
user function OKTACTMCF()
cAMFiliais := "/0150/0151/0152/"
cVDFiliais := "/0101/0102/0103/0104/0105/0106/0107/0108/0109/0110/0111/0112/0113/"
//Atente-se ao valor do tamanho do campo referente a filial (VRN_FILIAL), tanto no seek, quanto na criação do registro.
//A cada nova filial adicionada, o P.E. deverá ser recompilado.
VRN->(dbSetOrder(1))
if cFilAnt $ cAMFiliais
if ! VRN->(dbSeek("AM " + "OFIOA280"))
reclock("VRN", .T.)
VRN->VRN_FILIAL := "AM "
VRN->VRN_CODIGO := "OFIOA280"
VRN->VRN_CONFIG := "{}"
VRN->(MsUnlock())
endif
if VRN->(dbSeek("AM " + "OFIOA280"))
return .t.
endif
endif
if cFilAnt $ cVDFiliais
if ! VRN->(dbSeek("VD " + "OFIOA280"))
reclock("VRN", .T.)
VRN->VRN_FILIAL := "VD "
VRN->VRN_CODIGO := "OFIOA280"
VRN->VRN_CONFIG := "{}"
VRN->(MsUnlock())
endif
if VRN->(dbSeek("VD " + "OFIOA280"))
return .t.
endif
endif
return .f. |