Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • MA630RS - Atera Conteúdo do aCols

Ponto-de-Entrada: MA630RS - Atera Conteúdo do aCols
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
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.
Eventos


 

Programa Fonte 
MATA630.PRX
Sintaxe

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

Parâmetros:
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
Retorno
    aRetCols(vetor)
  • Array contendo no novo aCols
Observações


 

Exemplos 
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