Histórico da Página
Substitui o browse de cancelamento de OS 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: |
| ||||||||||||||||
Requisito/Story/Issue (informe o requisito relacionado): | DNG-2301 | ||||||||||||||||
País(es): | Todos. | ||||||||||||||||
Banco(s) de Dados: | Todos. | ||||||||||||||||
Sistema(s) Operacional(is): | 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:
| 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