Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: MNTA420B - Ordem de Serviço Corretiva
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