Perguntas Ponto de entrada (FA070CA4)

//Bibliotecas
#Include "Protheus.ch"
 
/*------------------------------------------------------------------------------------------------------*
 | P.E.:  FA070CA4                                                                                      |
 | Desc:  Permite cancelar a baixa do Contas a Pagar                                                    |
 | Links: http://tdn.totvs.com/display/public/mp/FA070CA4+-+Permite+cancelar+baixa+--+11877             |
 *------------------------------------------------------------------------------------------------------*/
 
User Function FA070CA4()
    LOCAL lRet := .t.
    LOCAL aAreaA6 := SA6->(GetArea())
    LOCAL aArea := GetArea()
    LOCAL cGrps := ''

	aGrp := UsrRetGrp(UsrRetName(RetCodUsr())) //³ Carrega Grupos do usuario
	For nX:=1 to len(aGrp)
		cGrps += "'"+aGrp[nX]+"',"
	Next
	cGrps := SubStr(cGrps,1,len(cGrps)-1)
	
	lCancela := .T.
	
	If '000001' $ cGrps .Or. '000002' $ cGrps .Or. '000005' $ cGrps
		lCancela := .F.
	Endif
    
	If !lCancela
		MsgStop("Usuário não possui Permissão de Cancelamento !")
		lRet := .F.
	Endif
     
    restarea(aAreaA6)
    restarea(aArea)
return(lRet)