Histórico da Página
Possibilidade de alterar insumos aplicados
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||||||||||||||||
Segmento: | Manufatura | ||||||||||||||||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||||||||||||||||
Rotina: |
| ||||||||||||||||||||||
Issues Relacionados | MNG-3769 | ||||||||||||||||||||||
País(es): | Todos | ||||||||||||||||||||||
Banco(s) de Dados: | Todos | ||||||||||||||||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de entrada |
Localização: | - |
Eventos: | Inserir insumos |
Programa Fonte: | NGMNT00.PRX |
Função: | NGALTINS() |
Retorno: | (Nulo) |
Exemplo:
#INCLUDE "PROTHEUS.CH"
User Function NGALTINS()
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.