Ponto-de-Entrada: MBRWBTN - Validação da rotina
| Abrangências: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
| Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol , Inglês |
Descrição:
Este ponto de entrada tem por finalidade, validar se a rotina selecionada na MBrowse será executada ou não a partir do retorno lógico do ponto de entrada.
Programa Fonte
Sintaxe
MBRWBTN - Validação da rotina ( [ cAlias ], [ nRecno ], [ nOption ], [ cFunction ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| cAlias | Caracter | Variável com o alias da rotina. | |||||||||||||||
| nRecno | Array of Record | Variável com o conteúdo do recno do registro atual selecionado no Browse. | |||||||||||||||
| nOption | Array of Record | Variável com o conteúdo da opção da rotina selecionada. Exemplo: Rotina de Incluir, nOption = 3. | |||||||||||||||
| cFunction | Array of Record | Variável com o nome da rotina selecionada. |
Retorno
-
lRet()
- Caso retorne .T., prosseguirá normalmente a execução da rotina, se .F. abortará a execução da rotina.
Exemplos
User Function MBRWBTN() Local cText := ""Local lRet := .T.cText := "Alias [ " + PARAMIXB[1] + " ]" + CRLFcText += "Recno [ " + AllTrim(Str(PARAMIXB[2])) + " ]" + CRLFcText += "Recno [ " + AllTrim(Str(PARAMIXB[3])) + " ]" + CRLFcText += "Recno [ " + PARAMIXB[4] + " ]" + CRLFlRet := MsgYesNo(cText,"Deseja Executar?")Return lRet
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |