#INCLUDE "RWMAKE.CH"
#INCLUDE "PROTHEUS.CH"
USER FUNCTION QDOBT050()
// Conteúdos retornados no PARAMIX:
// PARAMIX[1] = Ação da tela
// PARAMIX[2] = Código do Documento posicionado
// PARAMIX[3] = Revisão do Documento posicionado
Local aArrayBt := PARAMIXB
Local aRotina := {}
Local cPrograma := "FWAlertInfo('Seu programa executado por Macro Substituição','Executado por Macro Substituição')"
aAdd( aRotina,{"BOTTOM", cPrograma, "TESTE_1" } )
RETURN aRotina |