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:Não se aplica.
País:Brasil
Ticket:24214323
Requisito/Story/Issue (informe o requisito relacionado) :DVARMIL-10218


02. DESCRIÇÃO

Localização: Rotinas de Elipse (OFIA160)

Em que ponto? Este Ponto de Entrada será executado no processo da geração do ELIPSE (OFIA160).

03. DEMAIS INFORMAÇÕES

Parâmetro:

NomeTipoDescrição

cFilAnt

Caractér

Filial Corrente


Retorno:

NomeTipoDescrição

aFiliaisVD

Array

Array com as Filiais do segmento da Linha Agricola (Verde)

aFiliaisVD

Array

Array com as Filiais do Segmento da Linha Contrução (Amarela)


Exemplo de utilização Advpl:

OA160SEG (AdvPL)
#include 'protheus.ch'

user function OA160SEG()
	Local cFilAtu := ParamIXB[1]
	Local aFiliaisVD := {"0101","0102","0103","0104","0105","0106","0107","0108","0109","0110","0111","0112","0113"}
	Local aFiliaisAM := {"0150","0151","0152"}
	Local nx := 1

	For nx := 1 to Len(aFiliaisVD)
		if aFiliaisVD[nx] == cFilAtu
			return aFiliaisVD
		EndiF
	Next

	For nx := 1 to Len(aFiliaisAM)
		if aFiliaisAM[nx] == cFilAtu
			return aFiliaisAM
		endif
	Next

	UserException("Filial não disponível para geração do ELIPS")
return nil


04. ASSUNTOS RELACIONADOS