| 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 DTF para cada grupo com possibilidade de separação do DTF 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 DTFCTMCF()
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 " + "OFIA410"))
reclock("VRN", .T.)
VRN->VRN_FILIAL := "AM "
VRN->VRN_CODIGO := "OFIA410"
VRN->VRN_CONFIG := "{}"
VRN->(MsUnlock())
endif
if VRN->(dbSeek("AM " + "OFIA410"))
return .t.
endif
endif
if cFilAnt $ cVDFiliais
if ! VRN->(dbSeek("VD " + "OFIA410"))
reclock("VRN", .T.)
VRN->VRN_FILIAL := "VD "
VRN->VRN_CODIGO := "OFIA410"
VRN->VRN_CONFIG := "{}"
VRN->(MsUnlock())
endif
if VRN->(dbSeek("VD " + "OFIA410"))
return .t.
endif
endif
return .f. |