Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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:

Bloco de código
themeRDark
firstline1
titleVXX01TOK OA160SEG (AdvPL)
linenumberstrue
#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

...