Páginas filhas
  • AF060BUT - Entry point to create user button

Description

Entry point AF060BUT to create user button.

Notes

(from version 12.1.6)

Examples

User Function AF060BUT()

Local aRotX := PARAMIXB

aRotX := {{"BUTTON AF060BUT","U_Af060ts1",0,2}}

Return(aRotX)

User function Af060ts1()

MsgAlert("Call of the Entry Point AF060BUT")

Return

Preview


See also


Language

Portuguese(Brazil)

Versions

Microsiga_Protheus12

Operating Systems Supported

All

Compatible with the following Databases

All

Updates


Parameters

aRotX = Array with the menu information.

Return

Array with the addition of the user menu.

Call events of the Entry Point

If ExistBlock("AF060BUT")

    aRotNew := ExecBlock("AF060BUT",.F.,.F.,{aRot})

For nX := 1 To len(aRotNew)     

aAdd(aRot,aRotNew[nX])   

Next

Endif

Variables

Local aRotX := PARAMIXB[1]

Source Program

ATFA060.PRW

  • Sem rótulos