Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Descrição:Permite ao usuário realizar gravações de campos customizados durante a transação de gravação da estrutura.
Localização:

Para operações de inclusão, alteração e exclusão: Final da função InTTS.

Para operação de visualização: Final da função PCPA200MNU.

Eventos:

Após a gravação, porém antes do final da transação de inclusão/alteração/exclusão de da estrutura.

Programa Fonte:PCPA200.prw

Sintaxe:

P200GRAV

Retorno:

Nil (Nulo)

Observações:

Como na opção de visualização não é realizado transações na tabela, o array com as operações realizadas em cada recno sempre será vazio.

Bloco de código
languagec#
firstline1
titleExemplo
linenumberstrue
#INCLUDE "PROTHEUS.CH"

User Function P200GRAV()
    Local aRecnos := PARAMIXB[2]
    Local nIndex  := 0

    // 1 Visualizar 3 Inclusão 4 alteração 5 exclusão
    ConOut("Operação " + CValToChar(PARAMIXB[1]))
    If PARAMIXB[1] == 1
        ConOut("----- Operação de Visualização -----")
    ElseIf PARAMIXB[1] == 3
        ConOut("----- Operação de Inclusão -----")
    ElseIf PARAMIXB[1] == 4
        ConOut("----- Operação de Alteração -----")
    ElseIf PARAMIXB[1] == 5
        ConOut("----- Operação de Exclusão -----")
    EndIf

    For nIndex := 1 to Len(aRecnos)
        If aRecnos[nIndex][1] == 3
            ConOut("Operação de inclusão realizada no recno " + CValToChar(aRecnos[nIndex][2]))
        ElseIf aRecnos[nIndex][1] == 4
            ConOut("Operação de alteração realizada no recno " + CValToChar(aRecnos[nIndex][2]))
        ElseIf aRecnos[nIndex][1] == 5
            ConOut("Operação de exclusão realizada no recno " + CValToChar(aRecnos[nIndex][2]))
        EndIf
    Next

Return Nil