Linha Microsiga Protheus

Árvore de páginas

A690ALTDESD - Seleciona Recursos Alternativos

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):


Nome
Tipo
Descrição
Default
Obrigatório Referência

PARAMIXB
Vetor
Parâmetros enviados por array (recuperados pela variável PARAMIXB): Recurso principal, duração do desdobramento, número do desdobramento, array com recursos alternativos, array com recursos secundários.


X


Idiomas:

Espanhol, Inglês

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de Entrada para seleção de recursos alternativos e/ou secundários para cada desdobramento no Carga Máquina.

Localização:Este P.E. está localizado na Função A690Processa().
Programa Fonte:MATA690A.PRX

Sintaxe:

A690ALTDESD - Seleciona Recursos Alternativos ( < PARAMIXB> ) --> Array

Retorno:

Array(vetor)

Obrigatoriamente dois arrays, sendo:

Array1: Recursos alternativos
Array2: Recursos secundários

Exemplo:

Return({aArrayAlternativos, aArraySecundarios})

Observações:



Exemplo:

User Function A690ALTDESD

Local cRecurso   := ParamIXB[1]

Local nDurDesdob := ParamIXB[2]

Local nDesdob    := ParamIXB[3]

Local aAlter     := ParamIXB[4]

Local aSecun     := ParamIXB[5]

If nDesdob == 1 aEval(aAlter, {|z,w| aAlter[w] := Pad('002', Len(cRecurso))})

ElseIf nDesdob == 2 aEval(aAlter, {|z,w| aAlter[w] := Pad('003', Len(cRecurso))})

ElseIf nDesdob == 3 aEval(aAlter, {|z,w| aAlter[w] := Pad('004', Len(cRecurso))})

ElseIf nDesdob == 4 aEval(aAlter, {|z,w| aAlter[w] := Pad('001', Len(cRecurso))})

EndifConOut(nDesdob)

Return({aAlter, aSecun})