Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Retorno
Portuguese

Pagetitle
QDOBT050 - Inclusão de Botões
QDOBT050 - Inclusão de Botões

Ponto

QDOBT050 - Inclusão de Botões

Linha de Produto:Protheus
Segmento:Manufatura
Módulo:SIGAQDO - Controle de Documentos
Idiomas:Português, Espanhol, Inglês
País(es):Todos
Banco(s) de Dados:Todos
Sistema(s) Operacional(is):Todos

Ponto de Entrada

Descrição:QDOBT050 - Inclusão de Botões
Versões:Advanced Protheus 7.10 , Microsiga Protheus 8.11
Localização:Function QDOA050() - Na criação da barra de botões.
Em que ponto
Descrição
:Ponto de Entrada para acrescentar de 1 à 3 botões na barra de botões da tela de cadatro do documentos.

Ponto de Chamada:

Na criação da barra de botões.

Programa Fonte:QDOA050.
PRW
PRX
Sintaxe:QDOBT050 - Inclusão de Botões ( < nOpc,M->QDH_DOCTO,M->QDH_RV> ) --> Array
Parâmetros
Retorno:
NomeTipoDescriçãoDefaultObrigatórioReferêncianOpc,M->QDH_DOCTO,M->QDH_RVArray of RecordX
aButtons(vetor)
  • Retornar array dos botões de usuário.
Observações:Array
Array
(vetor)
Array multidimensional com ate 3 linhas e 2 colunas, sendo a colunas
1º) o nome do bitmap do botao (imagem)
2º) valor do action do botao. (
code block
String com a função a ser executada por Macro Substituição )


Exemplo:

 

Bloco de código
#include
#INCLUDE "
rwmake
RWMAKE.
ch"

#include "topconn.ch"

user function QDOBT050()

    Local aArrayBt := PARAMIXB // nOpc, M->QDH_DOCTO, M->QDH_RV

    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"),)
, "TESTE_1" } )

RETURN
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