Histórico da Página

#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