#INCLUDE "RWMAKE.CH"
#INCLUDE "PROTHEUS.CH"
USER FUNCTION QDOBT050()
// Conteúdos retornados no PARAMIX:
// PARAMIX[1] = OperaçãoAção de tela (2- Visualização, 3- Inclusão, 4- Alteração, 5- Exclusão, 6- Cancelamento, 7- Geração de Revisão)da tela
// PARAMIX[2] = Código do Documento posicionado
// PARAMIX[3] = Revisão do Documento posicionado
Local aArrayBt := PARAMIXB
Local aRotina Local aRotina := {}
aAdd( aRotina,{"BOTTOM", ;
{|| MsgInfo("nOpc: "+str(aArrayBt[1])+CHR(13)+CHR(10)+;
iIf(aArrayBt[1] != 3, "M->QDH_DOC: " + aArrayBt[2]+CHR(13)+CHR(10)+"M->QDH_RV: "+aArrayBt[3]+CHR(13)+CHR(10),"Inclusão"),)Local cPrograma := "FWAlertInfo('Seu programa executado por Macro Substituição','Executado por Macro Substituição')"
aAdd( aRotina,{"BOTTOM", cPrograma, "TESTE_1" } )
RETURN aRotina | 