Função: AxInclui - Tela padrão de inclusão de registro
Abrangências: |
Microsiga Protheus 8.11
,
Protheus 10
|
Versões: |
Microsiga Protheus 8.11
,
Protheus 10
|
Compatível Países: |
Todos
|
Sistemas Operacionais: |
Todos
|
Compatível às Bases de Dados: |
Todos
|
Nível de Acesso: |
Nível 1 (Acesso Clientes)
|
Descrição:
Função utilizada para montar a tela padrão de inclusão de registro na tabela passada como parâmetro.
Sintaxe:
AxInclui - Tela padrão de inclusão de registro (
[
cAlias ] [
nReg ] [
nOpc ] [
aAcho ] [
cFunc ] [
aCpos ] [
cTudoOk ] [
lF3 ] [
cTransact ] [
aButtons ] [
aParam ] [
aAuto ] [
lVirtual ] [
lMaximized ] [
cTela ] [
lPanelFin ] [
oFather ] [
aDim ] [
uArea ] )
--> nOpca
Retorno:
nOpca(numerico)
- Retorna 1 se usuário clicou no botão OK da Enchoice, 2 se clicou em Cancelar.
Exemplos
User Function TesteCad()Private aRotina := {{ "Pesquisar" ,"u_Pesqui",0 , 1},; //"Pesquisar" { "Visualizar" ,"u_Visual", 0 , 2},; //"Visualizar" { "Incluir" ,"u_Inclui", 0 , 3},; //"Incluir" { "Alterar" ,"u_Altera", 0 , 4 },; //"Alterar" { "Excluir" ,"u_Deleta", 0 , 5 }} //"Excluir"mBrowse(6, 1,22,75,"SA1",,,,,,)Return(.T.) User Function Before() MsgAlert("Chamada antes da função")ReturnUser Function Inclui() Local nOpca := 0 Local aParam := {} Private aButtons := {}Private cCadastro := "123" // título da tela //adiciona botoes na Enchoice aAdd( aButtons, { "PRODUTO", {|| MsgAlert("Teste")}, "Teste", "Botão Teste" } ) //adiciona codeblock a ser executado no inicio, meio e fimaAdd( aParam, {|| U_Before() } ) //antes da aberturaaAdd( aParam, {|| U_TudoOK() } ) //ao clicar no botao okaAdd( aParam, {|| U_Transaction() } ) //durante a transacaoaAdd( aParam, {|| U_Fim() } ) //termino da transacaodbSelectArea("SA1")//AxInclui( cAlias, nReg, nOpc, aAcho, cFunc, aCpos, cTudoOk, lF3, cTransact, aButtons, aParam, aAuto, lVirtual, lMaximized, cTela, lPanelFin, oFather, aDim, uArea) nOpca := AxInclui("SA1",SA1->(Recno()), 3,, "U_Before",, "U_TudoOk()", .F., "U_Transaction", aButtons, aParam,,,.T.,,,,,) Return nOpcaUser function TudoOK() MsgAlert("Clicou botao ok")Return .T. User function Transaction() MsgAlert("Chamada durante transacao")Return .T. User function Fim() MsgAlert("Fim transacao")Return .T.
Parâmetros:
| Nome | | | Tipo | | | Descrição | | | Default | | | Obrigatório | | | Referência | |
| cAlias | | | Caracter | | | Alias da Tabela cadastrada no dicionário (SX2) que haverá a inclusão. | | | | | | | | | | |
| nReg | | | Numérico | | | Número do registro posicionado. | | | | | | | | | | |
| nOpc | | | Numérico | | | Numero da opção selecionada (Inclusão, Alteração, Exclusão, Visualização). | | | | | | | | | | |
| aAcho | | | Array of Record | | | Array com os campos a serem exibidos. Se não informado, serão exibidos todos os campos cadastrados como Usado no SX3. Os campos de usuários sempre serão exibidos. | | | | | | | | | | |
| cFunc | | | Caracter | | | Função a ser executada antes de entrar na tela. | | | | | | | | | | |
| aCpos | | | Array of Record | | | Array com os campos que permite edição. | | | | | | | | | | |
| cTudoOk | | | Caracter | | | Nome da função a ser executada ao clicar no botão Ok. | | | ".T." | | | | | | | |
| lF3 | | | Lógico | | | Indica se a enchoice foi criada em uma consulta F3 para utilizar variáveis de memória na edição. | | | .F. | | | | | | | |
| cTransact | | | Caracter | | | Nome da função a ser executada dentro da transação de gravação dos dados na tabela. | | | | | | | | | | |
| aButtons | | | Array of Record | | | Array com os botões da EnchoiceBar com a seguinte estrutura: aButtons[1][1] – Nome do arquivo da imagem do botão.aButtons[1][2] – Bloco de execução.aButtons[1][3] – Mensagem de exibição no ToolTip.aButtons[1][4] – Nome do botão. | | | | | | | | | | |
| aParam | | | Array of Record | | | Array contendo os codeblocks de execução com a seguinte estrutura:aParam[1]- Codeblock a ser executado antes da abertura do diálogo.aParam[2]-Codeblock a ser executado ao clicar no botão Ok.aParam[3]- Codeblock a ser executado dentro da transação.aParam[4]- Codeblock a ser executado após a transação. | | | | | | | | | | |
| aAuto | | | Array of Record | | | Array com os campos a ser considerados pela rotina automática. | | | | | | | | | | |
| lVirtual | | | Lógico | | | Carrega os campos virtuais? (.T.=Sim/.F.=Não). Qdo .F. carrega inicializador padrão nos campos virtuais. | | | .F. | | | | | | | |
| lMaximized | | | Lógico | | | .T. Abrir o dialogo maximizado. | | | .T. | | | | | | | |
| cTela | | | Caracter | | | Nome da variável tipo "private" que a enchoice utilizará no lugar da variável aTela. | | | | | | | | | | |
| lPanelFin | | | Lógico | | | Quando .T. cria o painel Gestor Financeiro. | | | .F. | | | | | | | |
| oFather | | | Objeto | | | Quando lPanelFin = .T., cria o dialogo painel do Gestor Financeiro dentro da janela oFather informado. | | | | | | | | | | |
| aDim | | | Array of Record | | | Array com as dimensões do dialogo do painel Gestor Financeiro quando lPanelFin = .T. | | | | | | | | | | |
| uArea | | | Qualquer | | | Quando lPanelFin = .T., utilizado para a função FinVisual do painel Gestor Financeiro. | | | | | | | | | | |
|