TOTVS DMS (Linha Protheus) - Oficina (SIGAOFI)
| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| 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 |
Localização: Rotinas de Elipse (OFIA160)
Em que ponto? Este Ponto de Entrada será executado no processo da geração do ELIPSE (OFIA160).
Parâmetro:
| Nome | Tipo | Descrição |
|---|---|---|
cFilAnt | Caractér | Filial Corrente |
Retorno:
| Nome | Tipo | Descriçã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:
#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 |