#INCLUDE "RWMAKE.CH"
#INCLUDE "PROTHEUS.CH"
USER FUNCTION QDOBT050()
// Conteúdos retornados no PARAMIX:
// PARAMIX[1] = Operação de tela (2- Visualização, 3- Inclusão, 4- Alteração, 5- Exclusão)
// PARAMIX[2] = Código do Documento posicionado
// PARAMIX[3] = Revisão do Documento posicionado
Local aArrayBt := PARAMIXB // nOpc, M->QDH_DOCTO, M->QDH_RV
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 |