Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

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

Versões comparadas

Versão antiga 2

changes.mady.by.user Usuário desconhecido (felipe.valcanaia)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (felipe.valcanaia)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
MA630RS - Atera Conteúdo do aCols
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:
NomeTipoDescriçãoDefaultObrigatórioReferência
PARAMIXB[1]CaracterCódigo de destino do roteiro de operações.X
PARAMIXB[2]CaracterCódigo do produto de destino.X
PARAMIXB[3]CaracterCódigo do roteiro similar de origem.X
PARAMIXB[4]CaracterCódigo do produto similar de origem.X
PARAMIXB[5]VetorCabeçalho do Browse.X
PARAMIXB[6]VetorArray 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