Ponto de entrada executado na rotina deSolicitação de Serviço (MNTA280) que permite adicionar botões na tela de inclusão
Localização:
SIGAMDI: Atualizações/Controle de Oficina/Solicitação de Serviço/Solicitação
Programa Fonte:
MNTA280.prx
Função:
MNTA2804
MNTA2809()
Parâmetros:
Nome
Tipo
Descrição
ParamIXB
Numérico
Operação
Retorno:
Nulo
Bloco de código
title
Exemplo do Ponto de Entrada MNTA2809()
#Include 'Totvs.ch'
User Function MNTA2809()
Local nVar := PARAMIXB[1]
If nVar == 3
Aadd(aNgButton,{"PARAMETROS" ,{||MsgInfo( "Ponto de Entrada" + CHR(13)+CHR(10)+ "Execução do Botão!",;
"Solicitacao - Ponto de Entrada")},"Solicitacao"})
_SetOwnerPrvt("aNgButton",aNgButton)
EndIf
Return
Card
id
2
label
Anterior a [DATA_EXPEDIÇÃO]
Aviso
title
Mudança nos argumentos da User Function
Nesse caso, os parâmetros são passados pelo argumento da User Function. Ao contrário do código Atual, que faz utilização do Array de parâmetros ParamIXB.
Ponto de Entrada
Descrição:
Ponto de entrada executado na rotina deSolicitação de Serviço (MNTA280) que permite adicionar botões na tela de inclusão
Localização:
SIGAMDI: Atualizações/Controle de Oficina/Solicitação de Serviço/Solicitação
Programa Fonte:
MNTA280.prx
Função:
MNTA2804
MNTA2809()
Parâmetros:
Nome
Tipo
Descrição
ParamIXB
Numérico
Operação
Retorno:
Nulo
Bloco de código
title
Exemplo do Ponto de Entrada MNTA2809()
#Include 'Protheus.ch'
User Function MNTA2809(nVar),
Local aNgButton := {}
If nVar == 3
Aadd(aNgButton,{"PARAMETROS" ,{||MsgInfo("Ponto de Entrada" + CHR(13)+CHR(10)+ "Execução do Botão!")},;
"Solicitacao - Ponto de Entrada","Solicitacao"})
_SetOwnerPrvt("aNgButton",aNgButton)
EndIf
Return