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.

<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="ec2191b9-5181-49ad-af11-d87632b5871b"><ac:plain-text-body><![CDATA[

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])    NextEndif

]]></ac:plain-text-body></ac:structured-macro>

<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="d6817905-58d8-44a3-8d6c-387c5635e16f"><ac:plain-text-body><![CDATA[

Variables

Local aRotX := PARAMIXB[1]

]]></ac:plain-text-body></ac:structured-macro>

Source Program

ATFA060.PRW