#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.