Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 3 minutos

01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:MNTA420B()
País:Brasil


02. DESCRIÇÃO

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: Em Atualizações > Controle de Oficina > Ordens de Serviço > Corretiva.

Programa Fonte:

MNTA420.prw

Função:

MNTA420B()

Retorno:

Nulo

03. DEMAIS INFORMAÇÕES

Exemplo 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    


04. ASSUNTOS RELACIONADOS

  • Não se aplica.