Possibilidade de alterar insumos aplicados

Características do Requisito

Ponto de Entrada

Exemplo:

#INCLUDE "PROTHEUS.CH"

User Function NGALTINSNGMNT00()

 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.