Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Anderson Brunner

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Anderson Brunner

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

MA630RS -

Altera

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:

Altera 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:

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