Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS DMS

Linha de Produto:

Linha Protheus

Segmento:

Varejo

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


02. DESCRIÇÃO

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.


03. DEMAIS INFORMAÇÕES

Parâmetro:

  • Não há.

Retorno:

TipoDescrição
Lógico

Retornará .T. / .F.  para saber se posicionou corretamente na tabela VRN.


Exemplo de utilização Advpl:

OKTACTMCF (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.



04. ASSUNTOS RELACIONADOS

  • Não se aplica