#include#INCLUDE "rwmakeRWMAKE.chCH"
#include#INCLUDE "topconnPROTHEUS.chCH"

userUSER functionFUNCTION 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