Histórico da Página

...

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 inclusãoexclusã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:	PCPA200EVDEF.prw e 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

language	c#
firstline	1
title	Exemplo
linenumbers	true

#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

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão Atual

Chave