Linha Microsiga Protheus

Árvore de páginas

P200GRAV - Gravação da Estrutura

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):
NomeTipoDescrição
PARAMIXB[1]Numérico

Operação realizada. Sendo 1 - Visualização, 3 - Inclusão, 4 - Alteração, 5 - Exclusão

PARAMIXB[2]ArrayMatriz contendo os recnos e as operações feitas em cada recno, durante a transação.

Idiomas:

Todos

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

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 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.

Exemplo
#INCLUDE "PROTHEUS.CH"

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

    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