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 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 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 | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#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
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas