Árvore de páginas

Ponto de Entrada

Descrição:

GP180EXCL- Validação de uma matricula na exclusão de transferência.

Observações:

Ponto de entrada que permite a validar a exclusão de uma transferência.

Eventos:

Transferência

Programa Fonte:

GPEA180.PRX.

 

USER FUNCTION GP180EXCL()
Local lRet := .T.

IF SRA->RA_FILIAL == 'D MG 01 ' .AND. SRA->RA_MAT = '900001'
     lRet := .F.
EndIf

RETURN lRet //.T. - posso excluir, .F. - Não posso Excluir