MA630RS - Atera Conteúdo do aCols

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[1]
Caracter
Código de destino do roteiro de operações.


X








PARAMIXB[2]
Caracter
Código do produto de destino.


X








PARAMIXB[3]
Caracter
Código do roteiro similar de origem.


X








PARAMIXB[4]
Caracter
Código do produto similar de origem.


X








PARAMIXB[5]
Vetor
Cabeçalho do Browse.


X








PARAMIXB[6]
Vetor
Array contendo as operações do roteiro similar.


X







Idiomas:

Espanhol, Inglês

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Nome

Tipo

Descrição

Default

Obrigatório

Referência
Nome

Tipo

Descrição

Default

Obrigatório

Referência


PARAMIXB[1]

Caracter

Código de destino do roteiro de operações.




X




PARAMIXB[2]

Caracter

Código do produto de destino.




X




PARAMIXB[3]

Caracter

Código do roteiro similar de origem.




X




PARAMIXB[5]

Vetor

Cabeçalho do Browse.




X




PARAMIXB[6]

Vetor

Array contendo as operações do roteiro similar.




X

Ponto de Entrada

Descrição:


Localização:

Function A630aCols() - Responsável por montar ACols quando usa Roteiro Padrão.

Em que ponto:

É executado após a atualização da variável aCols com o roteiro similar, permitido que o operador altere o conteúdo do aCols ou execute outra ação.

Programa Fonte:

MATA630.PRX

Sintaxe:

MA630RS - Atera Conteúdo do aCols ( < PARAMIXB[1]> , < PARAMIXB[2]> , < PARAMIXB[3]> , < PARAMIXB[4]> , < PARAMIXB[5]> , < PARAMIXB[6]> ) --> aRetCols

Retorno:

aRetCols(vetor)
Array contendo no novo aCols

Variáveis:



Observações:



Exemplo:

User Function MA630RS()Local nPosRec,nPosLotePad,nILocal cCodRotDest := PARAMIXB[1]Local cCodProdDest := PARAMIXB[2]Local cCodRotOri := PARAMIXB[3]Local cCodProdOri := PARAMIXB[4]Local aHeadAux := aClone(PARAMIXB[5])Local aRetCols := aClone(PARAMIXB[6])nPosRec := AScan(aHeadAux,{|x|x[2]=='G2_RECURSO'})nPosLotePad := AScan(aHeadAux,{|x|x[2]=='G2_LOTEPAD'})For nI :=1 To Len(aRetCols) If Substr(cCodProdOri,2,3)=='157' .And. aRetCols[nI,nPosRec] == '00012' aRetCols[nI,nPosLotePad] := 10 Else aRetCols[nI,nPosLotePad] := 50 EndIf NextReturn aRetCols