Linha Microsiga Protheus

Page tree

Ponto de Entrada J106RETBOT

Ponto de Entrada

Descrição:

O ponto de entrada permite retirar o botão de Anexos na tela de Follow-up.

Localização:

Follow-up > Outras Ações

Eventos:

O ponto de entrada é executado ao carregar a View.

Programa Fonte:

JURA106 - Follow-up.

Retorno

O retorno deve ser um array com o conteúdo "BT01".

Exemplo

#INCLUDE "rwmake.ch"

#INCLUDE "PROTHEUS.ch"

User Function J106RETBOT()
Local aBotoes := {}

aAdd(aBotoes, "BT01")

Return aBotoes


If Existblock( 'J106RETBOT' )
aBotoes := Execblock('J106RETBOT', .F., .F.)
EndIf

If ( Empty(aBotoes) .Or. (Valtype( aBotoes ) == 'A' .And. aScan(aBotoes, {|x| AllTrim(x)=="BT01"} ) <= 0 ) ) .And. JA162AcRst('03')
oView:AddUserButton( STR0021, "CLIPS", {| oView | JURANEXDOC("NTA","NTAMASTER","NTA_CAJURI","NTA_COD") } )

EndIf


Observações: 

No exemplo, fizemos a condição ( Empty(aBotoes) .Or. (Valtype( aBotoes ) == 'A' .And. aScan(aBotoes, {|x| AllTrim(x)=="BT01"} ) <= 0 ) ) .And. JA162AcRst('03') retornar falso, dessa forma o botão de anexos não foi adicionado à View.