Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que busca a posição e hora de leitura do contador na rotina de O.S. Corretiva (MNTA420)

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

MNTA420

O.S. Corretiva

Rotina(s) envolvida(s)

Nome Técnico

MNTA420B

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 O.S. Corretiva (MNTA420) que realiza a busca da posição e hora de leitura de um contador

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva

Programa Fonte:

MNTA420.prx

Função:

MNTA420B()

Retorno:

Nome

Tipo

Descrição

Obrigatório

Nulo

-

-

-

 

Exemplo do Ponto de Entrada MNTA420B()
#INCLUDE 'PROTHEUS.CH'

User Function MNTA420B()

	//Ja esta em cima do ST9, pronto para carregar variaveis de tela
	Local nResult
	Local cAliasQry, cQueryLocal 
	Local cCodBem := ST9->T9_CODBEM
	Local cCodFil := ST9->T9_FILIAL
	
	cAliasQry := GetNextAlias()
	cQuery := "SELECT TQN_HODOM RESULT FROM "+RetSQLName("TQN")+ " WHERE TQN_FROTA = '"+cCodBem+"' AND TQN_FILIAL = '"+cCodFil+"' AND "
	cQuery += "(TQN_DTABAS+TQN_HRABAS) = (SELECT MAX(TQN_DTABAS+TQN_HRABAS) FROM "+RetSQLName("TQN")+" TQN990 WHERE TQN_FROTA = '"+cCodBem+"')"
	cQuery := ChangeQuery(cQuery)dbUseArea( .T., "TOPCONN", TCGENQRY(,,cQuery),cAliasQry, .F., .T.)
	
	dbSelectArea(cAliasQry)
	nResult := (cAliasQry)->RESULT
	M->TJ_POSCONT := If(ST9->T9_TEMCONT = "S",nResult,0)
	M->TJ_HORACO1 := If(ST9->T9_TEMCONT = "S",M->TJ_HORACO1,"  :  ")
	
Return