PE NGMNT001 Possibilidade alterar insumos aplicados

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