Histórico da Página
Substitui o browse de cancelamento de
OSO.S. por um especifico.
Características do Requisito
Linha de Produto: | Microsiga Protheus. | |||||||||||||||||||
Segmento: | Manufatura. | |||||||||||||||||||
Módulo: | Manutenção de Ativos e Gestão de Frotas. | |||||||||||||||||||
Rotina: |
| .Rotina(s) envolvida(s)
| OS
| OS
| OS||||||||||||||||
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: |
| Recno
| sera
| |||||||
Retorno: |
|
Exemplo:
Aviso | ||
---|---|---|
| ||
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH" User Function MNTA400A() Local aArea := GetArea() Local cObs := "" Local nOpcc := 0 Local oDlg := Nil Local oObs := Nil Local oMenu := Nil Local 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() EndIf RestArea(aArea) Return (nOpcc == 1) |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas