Histórico da Página
Ponto de entrada que permite incluir novas validações no processo de deleção de insumo em um O.S. preventiva.
Aviso | ||
---|---|---|
| ||
Tratativas referentes a insumos realizadas pela rotina MNTA410, a partir de outubro/2019 passara a substituir o uso da tabela STG passando a utilizar a tabela STL. |
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Manufatura | ||||
Módulo: | Manutenção de Ativos e Gestão de Frotas | ||||
Rotina: |
| ||||
Tickets relacionados | 4571101 | ||||
Issue: | DNG-3516 | ||||
Países: | Todos. | ||||
Bancos de Dados: | Todos. | ||||
Sistemas Operacionais: | Todos. |
Ponto de Entrada
Descrição: | Ponto de entrada acionado na consistência de insumos da O.S. preventiva durante o processo de deleção. Permitindo assim a inclusão de novas validações neste processo. | ||||||||||||||||
Localização: | SIGAMNT: Em Atualizações > Controle de Oficina > Ordens de Serviço > Manual. | ||||||||||||||||
Programa Fonte: | MNTA410.prx | ||||||||||||||||
Função: | MNTA410DEL() | ||||||||||||||||
Parâmetros: |
| ||||||||||||||||
Retorno: |
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#Include 'Totvs.ch' User Function MNTA4100() Local aColsaColsUse := ParamIXB[1] Local nPos := ParamIXB[2] Local aHeaderaHeadUse := ParamIXB[3] Local lRet := .T. Local nPosAlmx := aScan( aHeaderaHeadUse, { |x| Trim( Upper( x[2] ) ) == 'TGTL_LOCAL' } ) Local nPosProd := aScan( aHeaderaHeadUse, { |x| Trim( Upper( x[2] ) ) == 'TGTL_CODIGO' } ) Local nPosTpRg := aScan( aHeaderaHeadUse, { |x| Trim( Upper( x[2] ) ) == 'TGTL_TIPOREG' } ) Local nPosRec := aScan( aHeaderaHeadUse, { |x| Trim( Upper( x[2] ) ) == 'TGTL_REC_WT' } ) If nPosAlmx > 0 .And. nPosProd > 0 .And. ( nPosRec > 0 .And. aColsaColsUse[nPos,nPosRec] > 0 ) .And. ( nPosTpRg > 0 .And.; aColsaColsUse[nPos,nPosTpRg] == 'P' ) .And. ( !Empty( aColsaColsUse[nPos,nPosAlmx] ) .And. !Empty( aColsaColsUse[nPos,nPosProd] ) ) If aColsaColsUse[nPos,nPosAlmx] == '01' .And. Trim( aColsaColsUse[nPos,nPosProd] ) == 'PRD01' lRet := .F. MsgAlert( 'Deleção não permitida para o local de estoque: ' + Trim( aColsaColsUse[nPos,nPosAlmx] ) + ' e produto: ' + Trim( aColsaColsUse[nPos,nPosProd] ), 'Atenção' ) EndIf EndIf Return lRet |