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. |
Descrição: | Ponto de entrada acionado na consistência de insumos da O.S. corretiva durante os processos de inclusão/alteração/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 > Corretiva. | ||||||||||||||||
Programa Fonte: | MNTA420.prx | ||||||||||||||||
Função: | NG420DELI() / NG420CHKLIN | ||||||||||||||||
| Parâmetros: |
| ||||||||||||||||
Retorno: |
|
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#Include 'Totvs.ch'
User Function MNTA420K()
Local aCols := ParamIXB[1]
Local aHeader := ParamIXB[2]
Local nOption := ParamIXB[3]
Local lRet := .T.
Local nPosAlmx := aScan( aHeader, { |x| Trim( Upper( x[2] ) ) == 'TL_LOCAL' } )
Local nPosProd := aScan( aHeader, { |x| Trim( Upper( x[2] ) ) == 'TL_CODIGO' } )
Local nPosTpRg := aScan( aHeader, { |x| Trim( Upper( x[2] ) ) == 'TL_TIPOREG' } )
Local nPosRec := aScan( aHeader, { |x| Trim( Upper( x[2] ) ) == 'TL_REC_WT' } )
If nPosAlmx > 0 .And. nPosProd > 0 .And. nPosTpRg > 0 .And. nPosRec > 0
If aCols[nPosTpRg] == 'P' .And. ( nOption == 3 .Or. ( nOption
If aCols[nPosAlmx] == 5'01' .And. aCols[nPosRecnPosProd] > 0 ) )
== 'PRD01'
lRet := MaAvalPerm( 3, { aCols[nPosAlmx],.F.
MsgAlert( 'Local de estoque não deve ser utilizado para o produto: ' + Trim( aCols[nPosProd], nOption) } )
EndIf
EndIf
EndIf
Return lRet |
