Perguntas FORÇAR PREENCHIMENTO DE CAMPO MEDIANTE CONDIÇÃO

Boa tarde Senhores,
Gostaria de uma ajuda de vocês, a situação é a seguinte:

No Contas a Receber(SE1) criei um campo (E1_JUSTIF) com uma Lista de opções com 04 escolhas, para o usuário Justificar a Prorrogação do vencimento do título...
Preciso FORÇAR o usuário a preencher este campo APENAS no caso dele prorrogar o vencimento, notificando-o na tela disso, ou se possível, abrindo uma caixa de texto para ele preencher e armazenar neste campo.

Existe uma condição que está no fonte que é para apenas um usuário específico poder prorrogar acima de 150 dias.

Desde já agradeço a todos.


Segue fonte:

---

User Function URBG040()

nQtDias := M->E1_VENCTO - SE1->E1_VENCTO

IF nQtDias >= 150
IF __CUSERID$'000109' .AND. Empty(Alltrim(M->E1_JUSTIF))
ELSE
APMSGALERT("DESCULPE, VOCÊ NÃO TEM AUTORIZAÇÃO PARA PRORROGAR ACIMA DE 150 DIAS.","SEM ACESSO-"+ALLTRIM(ProcName())+"-URBG040")
M->E1_VENCTO := SE1->E1_VENCTO
M->E1_VENCREA := SE1->E1_VENCREA
M->E1_JUSTIF := SE1->E1_JUSTIF
ENDIF

ENDIF

IF nQtDias <> 0 .AND. Empty(Alltrim(M->E1_JUSTIF))
APMSGALERT("JUSTIFIQUE O MOTIVO DA PRORROGAÇÃO NO CAMPO - 'Jus.Prorroga' -")
ENDIF

Return

Está apresentando Sintax Error na linha: DEFINE FONT oFont NAME "Courier New" SIZE 7,14

Bom dia Luiz Alberto,

Vou ter que eliminar esta ideia de caixa de texto... Vou deixar apenas o campo com as opções mesmo.
Só queria uma ajuda para obrigar o preenchimento deste campo (E1_JUSTIF) quando o usuário prorrogar o vencimento do título.

Desde já agradeço a atenção.

Boa tarde Senhores,
Consegui resolver este caso, arrumei um ponto de entrada que é ativado no OK do Título no contas a receber...
Espero poder ajudar alguém com o fonte abaixo que bloqueia prorrogações acima de 150 para usuários que não estão no parâmetro, e abaixo disso , solicita Justificativa no campo que criei.

---

USER FUNCTION FA040ALT()

Local cUser := RETCODUSR()
Local nQtDias := M->E1_VENCTO - SE1->E1_VENCTO

IF nQtDias < 0
M->E1_JUSTIF := ""
Return .T.
ENDIF

IF nQtDias >= 150 .AND. !cUser$GETMV("MU_LIBPRO")
APMSGALERT("DESCULPE. Você não está autorizado a prorrogar data acima de 150 dias.","SEM ACESSO-"+ALLTRIM(ProcName()))
M->E1_VENCTO := SE1->E1_VENCTO
M->E1_VENCREA := SE1->E1_VENCREA
M->E1_JUSTIF := SE1->E1_JUSTIF
Return .F.

ELSEIF nQtDias <> 0 .AND. Empty(Alltrim(M->E1_JUSTIF))
APMSGALERT("Justifique o motivo da prorrogação no campo - 'JUS.PRORROGA'","SEM ACESSO-"+ALLTRIM(ProcName()))
Return .F.
ENDIF

Return .T.