Descrição: | QD080FIM - Ponto de Entrada para anexar Evidência de treinamento realizado via Banco de conhecimento |
Versões: | Microsiga Protheus 12 |
Idioma: | Português (Brasil) |
Sistemas Operacionais Suportados: | Todos |
Compatível com as Bases de Dados: | Todos |
Parâmetro: | nOpc - Número da opção selecionada. |
| Retorno: | |
| Eventos de chamada de Ponto de Entrada: | Antes de confirmar a finalização do treinamento, a chamada do PE é realizada em Outras Ações → Conhecimento |
| Programa Fonte: | QDOA080.PRW |
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "TOTVS.CH" /*/ Ponto de Entrada utilizado para o envio de anexo de evidência de treinamento via Banco de conhecimento. @parametro: nOpc, númerico, Número da opção selecionada nOpc == 1 - "Pesquisar" nOpc == 2 - "Visualizar" User Function QD080FIM(nOpc) If ExistBlock("QD080FIM") ExecBlock("QD080FIM", .F., .F., nOpc ) Endif Return nOpc == 3 - "Incluir" nOpc == 4 - "Alterar" nOpc == 5 - "Excluir" /*/ User function Qd080Fim() Local cMensagem := "" Local cTitulo := "Tipo da Operação" Local nOpc := PARAMIXB cMensagem := "A opção selecionada foi: " + cValToChar(nOpc) MsgAlert(cMensagem, cTitulo) Return |
