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) |
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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. |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas