Á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 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



Bloco de código
languagejava
themeMidnight
titleExemplo de utilização
#include "rwmake.ch"

User Function F040VAUT

Local aArea := GetArea()
Local lRet  := .T.

restArea(aArea)

Return lRet