Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (sueli.gomides), última alteração por admin em 24 jun, 2012

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