#INCLUDE "PROTHEUS.CH"

User Function NGMNT001()

    Local aChaveSTL := ParamIXB[1]
    Local cFilial   := aChaveSTL[1]
    Local cOrdem    := aChaveSTL[2]
    Local cPlano    := aChaveSTL[3]
    Local cTarefa   := aChaveSTL[4]
    Local cTipoReg  := aChaveSTL[5]
    Local cCodigo   := aChaveSTL[6]
    Local cSeqRela  := aChaveSTL[7]
    Local cSeqTare  := aChaveSTL[8]

    Local cAliasQ := GetNextAlias()
    Local cQuery := ""

    //Busca o Insumo previsto
    cQuery := "SELECT TOP 1 * FROM " + RetSQLName( "STL" )
    cQuery += " Where TL_FILIAL =  " + ValToSql(cFilial)
    cQuery += " AND TL_ORDEM    = " + ValToSql(cOrdem)
    cQuery += " AND TL_PLANO    = " + ValToSql(cPlano)
    cQuery += " AND TL_TIPOREG  = " + ValToSql(cTipoReg)
    cQuery += " AND TL_CODIGO   = " + ValToSql(cCodigo)
    cQuery += " AND TL_SEQRELA  = '0' "
    cQuery += " AND D_E_L_E_T_<>'*' "
    dbUseArea( .T., "TOPCONN", TCGenQry(,,cQuery), cAliasQ, .F., .T. )

    While (cAliasQ)->( !EoF() )

        dbSelectArea("STL")
        dbSetOrder(1)
        If dbSeek( cFilial + cOrdem + cPlano + cTarefa + cTipoReg + cCodigo + cSeqRela + cSeqTare)

            RecLock("STL", .F.)
            STL->TL_LOCAPLI := (cAliasQ)->TL_LOCAPLI
            MsUnlock()

        EndIf

        Exit

        dbSelectArea(cAliasQ)
        dbSkip()

    End

    (cAliasQ)->( dbCloseArea() )

Return .T.