Histórico da Página
...
Linha de Produto: | Protheus | ||||||||||
Segmento: | Manufatura | ||||||||||
Módulo: | SIGAPCP - Planejamento e Controle da Produção | ||||||||||
Parâmetro(s): |
| ||||||||||
Idiomas: | Todos | ||||||||||
País(es): | Todos | ||||||||||
Banco(s) de Dados: | Todos | ||||||||||
Sistema(s) Operacional(is): | Todos |
...
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 | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#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