| Produto: | TOTVS DMS |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | TOTVS DMS (Linha Protheus) - Oficina (SIGAOFI) |
| Função: | Solic. Garantia Jd (OFINJD15) |
| País: | Brasil |
| Ticket: | 24370687 |
| Requisito/Story/Issue (informe o requisito relacionado) : | DVARMIL-10454 |
Localização: Rotina Solic. Garantia Jd (OFINJD15) → Outras Ações → Atualiza O.S.
Em que ponto?
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 |