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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas