Linha Microsiga Protheus

Árvore de páginas

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:

Rotina

Nome Técnico

MNTA720

OS em Lote


Rotina(s) envolvida(s)

Nome Técnico

MNTA7208

Ponto de Entrada

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:

Nome

Tipo

Descrição

ParamIXB[1]ArrayConteúdo da GetDados (aCols)
ParamIXB[2]ArrayCabeçalho da GetDados (aHeader)
ParamIXB[3]NuméricoAção do Menu (Inclusão, Alteração, Exclusão, etc.)

Retorno:

Nome

Tipo

Descrição

Obrigatório

aRetArrayNovo conteúdo da GetDados (aCols)X
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