Histórico da Página

#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