01. DADOS GERAIS
| Produto: | | Solucoes_totvs_parceirosexptotvs |
|---|
| SolucaoParcsExpsTOTVS | TOTVS DMS |
|---|
|
|
|---|
| Linha de Produto: | |
|---|
| Segmento: | |
|---|
| Módulo: | | Modulos_totvs_prestadores_de_servicos |
|---|
TOTVS DMS (Linha Protheus) - Oficina (SIGAOFI) |
|---|
| Função: | Autent. WebService JD OKTA (OFIA280Diretórios DTF API JD (OFIA410) |
|---|
| País: | Brasil |
|---|
| Ticket: | 23151815 |
|---|
| Requisito/Story/Issue (informe o requisito relacionado) : | DVARMIL-8367 |
|---|
02. DESCRIÇÃO
Localização: Autent. WebService JD OKTA (OFIA280 Diretórios DTF API JD (OFIA410).
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:
...
| Bloco de código |
|---|
| theme | RDark |
|---|
| firstline | 1 |
|---|
| title | DTFCTMCF (AdvPL) |
|---|
| linenumbers | true |
|---|
|
#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. |
04. ASSUNTOS RELACIONADOS
...
