Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

F040VAUT – Habilita a execução do PE A040ATOK.

Descrição:

A finalidade do ponto de entrada F040VAUT é permitir a execução do PE A040ATOK na rotina FINA040.

Localização:

Está presente na função F460TitGer()

Eventos:

FA040Alter()

Programa Fonte:

FINA040.PRX

Versões:12
Retorno:

Lógico.

.T. – Permite executar o PE A040ATOK

.F. – Não permite executar o PE A040ATOK

Exemplo: 

#INCLUDE "TOTVS.CH"


User Function F040VAUT()

Local aArea     := GetArea()

Local lRet := .F.

Local lLigAlcada      := SuperGetMV('ES_ALCPRG',,.F.)


If lLigAlcada

    If  FwIsInCallStack("U_TFINA029")

        lRet := .T.

    EndIf

EndIf


restArea(aArea)

return lRet