Histórico da Página
Realiza a validação da variação dia do contador
Substitui o browse de cancelamento de O.S. por um customizado.
Características do Requisito
Linha de Produto: | Microsiga Protheus. | ||||||||||||||||||
Segmento: | Manufatura. | ||||||||||||||||||
Módulo: | Manutenção de Ativos e Gestão de Frotas. | ||||||||||||||||||
Rotina: |
OS Corretiva |
| |||||||||||||||||
Requisito/Story/Issue (informe o requisito relacionado): | DNG-2301 | ||||||||||||||||||
| |||||||||||||||||||
Países | País(es): | Todos. | |||||||||||||||||
Bancos de Dados: | Todos. | ||||||||||||||||||
Sistema(s) Operacional(is)Sistemas Operacionais: | Todos. |
Ponto de Entrada
Descrição: | Ponto de entrada acionado ao montar a tela de cancelamento, permitindo montar um browse especifico para o processo. | ||||||
Programa Fonte: | MNTA400.prx | ||||||
Função: | NG400EXC() | ||||||
Parâmetros: |
| ||||||
Retorno: |
|
Exemplo:
Aviso | ||
---|---|---|
| ||
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH" User Function MNTA400A() Local aArea := GetArea() Local cObs := "" Local cObsnOpcc := "" 0 Local oDlg := Nil Local oObs nOpcc := 0Nil Local oMenu := Nil Local oDlg, oObs, oMenu nRec := ParamIXB[1] dbSelectArea("STJ") dbGoTo(nRec) cObs := STJ->TJ_MTCANC Define Msdialog oDlg Title "Cancelamento da O.S."+STJ->TJ_ORDEM From 18,20 To 35,75 Of oMainWnd @ 38,8 Say "Motivo do Cancelamento" Of oDlg Pixel @ 45,8 Get oObs Var cObs Of oDlg Multiline Size 200,40 Pixel If ValType(aSMenu) == "A" NGPOPUP(aSMenu,@oMenu) oDlg:bRClicked:= { |o,x,y| oMenu:Activate(x,y,oDlg)} EndIf Activate Msdialog oDlg On Init EnchoiceBar(oDlg,{||nOpcc:=1,oDlg:End()},{||oDlg:End()}) If nOpcc == 1 dbSelectArea("STJ") RecLock('STJ',.F.) STJ->TJ_MTCANC := cObs MsUnLock('STJ') EndIf RestArea(aArea) Return (nOpcc == 1) |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas