#INCLUDE "PROTHEUS.CH"
 
User Function MNTA400A()
       
        Local aArea := GetArea()
        Local cObs := ""
        Local nOpcc := 0
        Local oDlg, oObs, oMenu
       
        dbSelectArea("STJ")
        dbGoTo(nRec)
       
        cObs := STJ->TJ_MTCANC
       
        Define Msdialog oDlg Title "Cancelamento da O.S."+STJ->TJ_ORDEM From 18,20 To 28,75 Of oMainWnd
               @ 17,8 Say "Motivo do Cancelamento" Of oDlg Pixel 
               @ 25,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)