Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que inicializa campos específicos na rotina de Retorno Simplificado (MNTA415)

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

MNTA415

Simplificado 


Rotina(s) envolvida(s)

Nome Técnico

NG415CPU

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 Simplificado (MNTA415) que é utilizado para inicializar campos específicos (de usuário) na tela de entrada de dados para retorno de insumos simplificado

Programa Fonte:

MNTA415.prx
Localização:SIGAMNT: Atualizações/Controle de Oficina/Retorno de OS/Simplificado

Função:

NG415CPU()

Retorno:

Nome

Tipo

Descrição

Obrigatório

aUserCposArrayCampos do cliente a serem habilitados em telaX
Exemplo do Ponto de Entrada NG415CPU()
#Include 'Protheus.ch'
#Include 'RwMake.ch'

User Function NG415CPU()

	Local aArea  := GetArea(),nPOS_ := 0, cALIB := Space(3)
	Local aUserCpos := {}, nINCR := 0
	Local aCAMPOCPU := {"TL_CONTA","TL_CC","TL_ITEMCTA","TL_CLVL"}

	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)