Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que possibilita a habilitação de campos específicos na rotina de Rodízio (MNTA098)

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

MNTA098

Rodízio


Rotina(s) envolvida(s)

Nome Técnico

NG098CPU

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 Rodízio (MNTA098) que habilita campos específicos da tabela STZ em tela, e permite que sejam gravados no arquivo após a confirmação do rodízio da estrutura

Programa Fonte:

MNTA098.prx
Localização:SIGAMNT: Atualizações/Controle de Oficina/Bens/Rodízio

Função:

NG098CPU()

Retorno:

Nome

Tipo

Descrição

Obrigatório

aUserCposArrayContém campos específicos do cliente para habilitar em telaX
Exemplo do Ponto de Entrada NG098CPU()
#Include 'Protheus.ch'

User Function NG098CPU()

	Local aArea  := GetArea(), nPOS_ := 0, cALIB := Space(3)
	Local aUserCpos := {}, nINCR := 0
	Local aCAMPOCPU := {"TZ_HORENUS","TZ_TESTE"} //campos especificos do cliente
	
	//Verifica se os campos declarados no vetor existe na base de dados
	For nINCR := 1 To Len(aCAMPOCPU)   	
		DbSelectArea("SX3")   
		DbSetOrder(2)   
		If DbSeek(aCAMPOCPU[nINCR])      
			nPOS_ := At("_",aCAMPOCPU[nINCR])      
			cALIB := If(nPOS_ = 3,"S"+Substr(aCAMPOCPU[nINCR],1,nPOS_-1),Substr(aCAMPOCPU[nINCR],1,nPOS_-1))      
			DbSelectArea(cALIB)      
			If FieldPos(aCAMPOCPU[nINCR]) > 0         
				Aadd(aUserCpos,aCAMPOCPU[nINCR])      
			EndIf   
		EndIf
	Next
	DbSelectArea("SX3")
	DbSetOrder(1)
	RestArea(aArea)
	
Return(aUserCpos)