Histórico da Página

#include "protheus.ch"
/*/{Protheus.doc} 
Ponto de entrada F040BUT. 
Adiciona novos botões ao contexto do botão OUTRAS AÇÕES, 
dentro do Contas a Receber.
@type function F040BUT
@author TOTVS Matriz
@since 24/01/2022
@version P12

@param aButtons, array, novos botões adicionados a rotina.
@param cNomePE, caractere, Nome do PE. 
@param bSuaFunção, bloco de codigo, Bloco de código com a função a ser chamada no botão.
@param cTituloBotão, caractere, Titulo da Novo Botão.

@return aButtons, array, Novos botões
/*/
User Function F040BOT()
    Local aArea        := GetArea()
    Local aButtons     := {}
    Local cNomePE      := "F040BOT"
    Local bSuaFunção   := {|| U_fZPROG1() }
    Local cTituloBotão := "* Título Função 1" 
    
    //Forma 1 de atribuir
    aAdd(aButtons, { cNomePE, bSuaFunção, cTituloBotão } )

    //Forma 2 de atribuir 
    aAdd(aButtons, {"F040BOT", {|| msginfo("Rotina2 chamada pelo PE F040BUT !!!","F040BUT") } , "* Título Função 2" } )
     
    RestArea(aArea)
Return aButtons

/*/{Protheus.doc} 
User Function fZPROG1. 
Executa a ação do botão pressionado.
@type user function fZPROG1
@author TOTVS Matriz
@since 24/01/2022
@version P12
@param Nil, 
@return Nil
/*/
user function fZPROG1()
    Local aPergs    := {}
    Local aRet      := {}
    Local cNomeCli  := ""
		
    aAdd( aPergs,{9,"Informe o código do cliente para executar a rotina.",200, 50,.T.})//1
    aAdd( aPergs,{1,"Cliente"    ,Space(6),"","","SA1","",50 ,.F.}) 		           //2
    aAdd( aPergs,{1,"Loja"       ,Space(6),"","",""   ,"",50 ,.F.}) 		           //3

    If ParamBox(aPergs ,"F040BUT",aRet)
        cNomeCli := posicione("SA1",1,xFilial("SA1")+aRet[1]+aRet[2],"A1_NOME")
        MsgInfo("Rotina chamada pelo PE F040BUT !!!"+CRLF+CRLF+"Cliente Posicionado:<b> " + alltrim(cNomeCli)+"</b>", "F040BUT")

    EndIf

return