Histórico da Página
Ponto de entrada que permite incluir novas validações no processo de inserção e alteração de O.S. manual.
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 no processo de validação ao incluir uma O.S. manual. 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: | C410CHK() | ||||||||||||
Parâmetros: |
| ||||||||||||
Retorno: |
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#Include 'Totvs.ch'
User Function MNTA4106()
Local aCols := ParamIXB[1]
Local aHeader := ParamIXB[2]
Local lRet := .T.
Local nPosAlmx := aScan( aHeader, { |x| Trim( Upper( x[2] ) ) == 'TG_LOCAL' } )
Local nPosProd := aScan( aHeader, { |x| Trim( Upper( x[2] ) ) == 'TG_CODIGO' } )
Local nPosTpRg := aScan( aHeader, { |x| Trim( Upper( x[2] ) ) == 'TG_TIPOREG' } )
Local nInd := 0
If nPosAlmx > 0 .And. nPosProd > 0 .And. nPosTpRg > 0
For nInd := 1 To Len( aCols )
If aCols[nInd,nPosTpRg] == 'P'
If aCols[nInd,nPosAlmx] == '01' .And. aCols[nInd,nPosProd] == 'PRD01'
lRet := .F.
MsgAlert( 'Local de estoque não deve ser utilizado para o produto: ' + Trim( aCols[nInd,nPosProd] ) )
Exit
EndIf
EndIf
Next nInd
EndIf
Return lRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas