Ponto de entrada que carrega aCols de forma personalizada na rotina de OS em Lote (MNTA720)
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||
Segmento: | Manufatura | ||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||
Rotina: |
| ||||||||
País(es): | Todos | ||||||||
Banco(s) de Dados: | Todos | ||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de entrada executado na rotina de OS em Lote (MNTA720) que carrega o aCols de forma personalizada, de acordo com um conteúdo padrão já pré-carregado para a OS | ||||||||||||
Programa Fonte: | MNTA720.prx | ||||||||||||
Localização: | SIGAMNT: Atualizações/Controle de Pneus/OS de Pneus/OS em Lote | ||||||||||||
Função: | MNTA7208() | ||||||||||||
Parâmetros: |
| ||||||||||||
Retorno: |
|
Exemplo do Ponto de Entrada MNTA7208()
#INCLUDE "Protheus.ch" #INCLUDE "RWMake.ch" User Function MNTA7208() // Variável do retorno Local aRet := {} // Variáveis auxiliares Local aEspCols := aClone( ParamIXB[1] ) Local aEspHead := aClone( ParamIXB[2] ) Local nOpcCad := ParamIXB[3] Local nX := 0 Local nPosCODBEM := aScan(aEspHead, {|x| x[2] == "TR8_CODBEM" }) //---------- // Executa //---------- If nOpcCad == 3 .And. nPosCODBEM > 0 // Se for uma Inclusão, preenche o aCols com o primeiro Bem no Cadastro de Bens (exemplo) dbSelectArea("ST9") dbSetOrder(1) dbGoTop() For nX := 1 To Len(aEspCols) aEspCols[nX][nPosCODBEM] := ST9->T9_CODBEM Next nX EndIf aRet := aClone( aEspCols ) Return aRet
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas