Árvore de páginas

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

Ponto de Entrada

Descrição:

Atera Conteúdo do aCols

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

Observações:


Exemplo:
/* Habilitar o campo memo composto dos campos G2_CODMUSU ( código memo - caracter de 6, real, não usado ) e G2_MEMOUSU ( memo - memo de 80, virtual, usado )*/User function MA630MEM()Local aUsMemo := {}AAdd( aUsMemo, { 'G2_CODMUSU', 'G2_MEMOUSU' } )Return( aUsMemo )
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