Ponto-de-Entrada: MNTA420B - Ordem de Serviço Corretiva
Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Espanhol , Inglês |
Descrição:
Ponto de Entrada chamado na rotina de inclusão de O.S. Corretiva, na consistência do contador chamada na validação do campo 'Código do Bem'. Utilizado para carregar as variáveis de tela TJ_POSCONT (Posição do Contador) e TJ_HORACO1 (Hora de Leitura do Contador). Caso não exista, o programa buscará a última posição e hora informada. Pode ser utilizado, por exemplo, para trazer o contador informado no último abastecimento.
Eventos
Programa Fonte
MNTA420.PRX
Sintaxe
MNTA420B - Ordem de Serviço Corretiva ( )
Retorno
-
()
Observações
Exemplos
#include "rwmake.ch"User Function MNTA420B()//Ja esta em cima do ST9, pronto para carregar variaveis de telaLocal nResultLocal cAliasQry, cQueryLocal cCodBem := ST9->T9_CODBEMLocal cCodFil := ST9->T9_FILIALcAliasQry := 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)->RESULTM->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