#INCLUDE "RWMAKE.CH"
#INCLUDE "PROTHEUS.CH"
USER FUNCTION QDOBT050()
// Conteúdos retornados Localno aArrayBt := PARAMIXB PARAMIX:
// nOpc, M->QDH_DOCTO, M->QDH_RV
Local aRotina := {}
aAdd( aRotina,{"BOTTOM", ;
{|| MsgInfo("nOpc: "+str(aArrayBt[1])+CHR(13)+CHR(10)+; PARAMIX[1] = Ação da tela
// PARAMIX[2] = Código do Documento posicionado
// PARAMIX[3] = Revisão do Documento posicionado
Local iIf(aArrayBt[1] !:= 3, "M->QDH_DOC: " + aArrayBt[2]+CHR(13)+CHR(10)+"M->QDH_RV: "+aArrayBt[3]+CHR(13)+CHR(10),"Inclusão"),)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 | 