Perguntas Justificativa de Exclusão da Solicitação de Compras

#include "rwmake.ch"

/*****
*
*		MT110GRV - PE na inclusão de SC's (após a Exclusão da SOlicitação de Compras) para retornar
*				   o Status da Pre-SC como Não Classificada
*
*****/

User Function MT110VLD()
Local nOpcX := PARAMIXB[1]
Local nOpc := 0
Local cRet := ""
Local cMemo:= ""
Local oDlg1
Local oFont

cMemo :=MemoRead("")

If nOpcX == 5 // Exclusao

	DEFINE FONT oFont NAME "Courier New" SIZE 7,14

	@ 3,0 TO 340,550 DIALOG oDlg1 TITLE OemToAnsi("MOTIVO DO CANCELAMENTO")
	@ 5,5 Get cMemo MEMO OBJECT oMemo SIZE 267,145
	oMemo:bRClicked := {||AllwaysTrue()}
	oMemo:oFont:=oFont
	@ 153,240 BMPBUTTON TYPE 1  ACTION ( nOpc := 1 , oDlg1:End() )
	ACTIVATE DIALOG oDlg1 CENTER

	If Empty(cMemo)
		MsgStop("É Necessário Digitar uma Justificativa !")
		Return .F.
	Endif
	
	If nOpc == 1 // Confirmado
		nRegSC1 := SC1->(Recno())
		cNumSC  := SC1->C1_NUM
		
		If SC1->(dbSetOrder(1), dbSeek(xFilial("SC1")+cNumSC))
			If SC1->(FieldPos("C1_JUSTI")) > 0
				If RecLock("SC1",.f.)
					SC1->C1_JUSTI := cMemo
					SC1->(MsUnlock())
				Endif
			Endif
		Endif
	Endif
Endif
Return .T.