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:Diretórios DTF API JD (OFIA410)
País:Brasil
Ticket:23151815
Requisito/Story/Issue (informe o requisito relacionado) :DVARMIL-8367


02. DESCRIÇÃO

Localização: 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.


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:

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



04. ASSUNTOS RELACIONADOS

  • Não se aplica