Perguntas Campo Memo

User Function ObsAula(lEdita,nRegPw9,lVenda,cInf)
Local aArea 	:= GetArea()
Local nOpc 	 	:= 0
Local cObsAula	:= Iif(!lVenda,PW9->PW9_OBSAUL,cInf)
Local cUsuAula  := Iif(!lVenda,PW9->PW9_USUAUL,'')
Local cLogAula  := Iif(!lVenda,PW9->PW9_LOGAUL,'')	// Contem Data e Hora Ultimo Registro
Local oDlg1

If !Empty(nRegPw9)
	PW9->(dbGoTo(nRegPw9))
Endif

If Empty(cObsAula)
	cUsuAula	:=	UsrFullName(RetCodUsr())
	cLogAula	:=	DtoC(dDataBase) + ' - ' + Left(Time(),5)
Endif

DEFINE FONT oFont NAME "Courier New" SIZE 7,14
	
@ 3,0 TO 140,550 DIALOG oDlg1 TITLE OemToAnsi("Informações da Aula")
@ 4,35 Say 'Usuario: ' + cUsuAula + ' Registro: ' + cLogAula OF oDlg1  PIXEL
@ 20,35 Get cObsAula MEMO OBJECT oMemo SIZE 200,035 //OF oDlg1  PIXEL 
@ 55,35 Say '* seu comentário deve possuir no máximo 150 caracteres' OF oDlg1  PIXEL
oMemo:bRClicked := {||AllwaysTrue()}
oMemo:oFont:=oFont                
oMemo:lReadOnly	:= !lEdita
oMemo:bValid := {||U_LimCarac(cObsAula)}

@ 50,240 BMPBUTTON TYPE 1  ACTION ( nOpc := 1 , oDlg1:End() )
ACTIVATE DIALOG oDlg1 CENTER
	
If nOpc == 1 .And. lEdita .And. !lVenda
	If AllTrim(PW9->PW9_OBSAUL) <> AllTrim(cObsAula)
		cUsuAula	:=	UsrFullName(RetCodUsr())
		cLogAula	:=	DtoC(dDataBase) + ' - ' + Left(Time(),5)

		If RecLock("PW9",.f.)
			PW9->PW9_OBSAUL	:=	cObsAula
			PW9->PW9_USUAUL :=	cUsuAula
			PW9->PW9_LOGAUL	:=	cLogAula
			PW9->(MsUnlock())
		Endif
	Endif
ElseIf nOpc == 1 .And. lEdita .And. lVenda
	cInf := cObsAula
Endif
	
RestArea(aArea)
Return .f.

User Function LimCarac(cTexto)

If Len(AllTrim(cTexto)) > 150
	MsgStop("Atenção o Limite de Caracteres para este Campo é de 150 ! O Texto Será Cortado Se Clicar em OK")
Endif		

Return Nil

User Function LimCarac(cTexto)

If Len(AllTrim(cTexto)) > 150
	MsgStop("Atenção o Limite de Caracteres para este Campo é de 150 ! O Texto Será Cortado Se Clicar em OK")
       Return .F.
Endif		

Return .T.