MNTA420F - Validação do cancelamento da Ordem de Serviço

Ponto de Entrada para validação do cancelamento da Ordem de Serviço, verificando por exemplo alguma condição para que a mesma não seja cancelada.

#Include 'Protheus.ch'

User Function MNTA420F()

Local lRet := .T.

If !MsgYesNo("Deseja realmente cancelar a OS: "+STJ->TJ_ORDEM+" ?","ATENÇÃO")
MsgInfo("A ordem " + STJ->TJ_ORDEM + " não será cancelada.")
lRet := .F.
Else
MsgInfo("A ordem " + STJ->TJ_ORDEM + " será cancelada.")
lRet := .T.
EndIf

Return lRet

Português(Brasil)

Versões_Anteriores

Todos

Todas

Lógico

MNTA420