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: |
| ||||||||
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: |
|
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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas