Histórico da Página
...
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