Exemplo do Ponto de Entrada MA200CAB.
Exemplo do Ponto de Entrada:
//Bibliotecas
#Include "Protheus.ch"
/*-------------------------------------------------------------------------------*
| P.E.: MA200CAB |
| Desc: Função que adiciona botões na tela de Estrutura de Produtos (MATA200) |
| Link: http://tdn.totvs.com.br/pages/releaseview.action?pageId=6087606 |
*-------------------------------------------------------------------------------*/
User Function MA200CAB()
//Variáveis locais
Local aDados := {}
Local oFntTxt := TFont():New("Calibri",,017,,.F.,,,,,.F.,.F.)
Local oPanelNv, oBtnNv1, oBtnNv2, oBtnNv3, oBtnNv4
//Pegando os parâmetros
Local nOpc := PARAMIXB[2]
Local oObj := PARAMIXB[3]
Local nLin1 := PARAMIXB[4]
Local nLin2 := PARAMIXB[5]
Local nColIni := PARAMIXB[6]
Private cProduto:= PARAMIXB[1]
//Descrições e ações dos botões
//aAdd(aDados,{"Foto Pai" ,"Processa({|lEnd| MontaFt('C')},'Processando')"})
aAdd(aDados,{"Botão 1","(SG1->(dbGoto(If(nRec>0,nRec,SG1->(GetArea()[3])))), Alert(SG1->G1_COMP))"})
aAdd(aDados,{"Botão 2","Alert('Teste')"})
aAdd(aDados,{"Botão 3","Alert(Posicione('SB1',1,xFilial('SB1')+cProduto,'B1_X_CAMPO'))"})
aAdd(aDados,{"Botão 4","Alert(cProduto)"})
//Diminuindo a largura do cabeçaho
oObj:nWidth := oObj:nWidth - 200
//Criando o painel
@ 000,000 MSPANEL oPanelNv SIZE 80,40 OF oObj
//Botão 1
@ 005, 005 BUTTON oBtnNv1 PROMPT aDados[1][1] SIZE 030, 012 ACTION(&(aDados[1][2])) OF oPanelNv PIXEL
//Botão 2
@ 005, 040 BUTTON oBtnNv2 PROMPT aDados[2][1] SIZE 030, 012 ACTION(&(aDados[2][2])) OF oPanelNv PIXEL
//Botão 3
@ 020, 005 BUTTON oBtnNv3 PROMPT aDados[3][1] SIZE 030, 012 ACTION(&(aDados[3][2])) OF oPanelNv PIXEL
//Botão 4
@ 020, 040 BUTTON oBtnNv4 PROMPT aDados[4][1] SIZE 030, 012 ACTION(&(aDados[4][2])) OF oPanelNv PIXEL
//Alinhando o painel a direita do cabeçalho
oPanelNv:Align := CONTROL_ALIGN_RIGHT
Return
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;