Ponto-de-Entrada: QDOBT050 - Inclusão de Botões
| Versões: | Advanced Protheus 7.10 , Microsiga Protheus 8.11 |
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
.PRW
Sintaxe
QDOBT050 - Inclusão de Botões ( < nOpc,M->QDH_DOCTO,M->QDH_RV> ) --> Array
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| nOpc,M->QDH_DOCTO,M->QDH_RV | Array of Record | X |
Retorno
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)
Exemplo:
#include "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 aRotina