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. Trim( 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