Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Juan Pablo Boreggio Bartha

Gravado em

comparado com

Nova versão 6

changes.mady.by.user Juan Pablo Boreggio Bartha

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

03. SINTAXE

      PMA230ID() → Nil

04.

...

PARÂMETROS 

Nenhum

05. RETORNO

         Nenhum

...

Bloco de código
languagedelphi
titlePMA230ID
#include "protheus.ch"

User Function PMA230ID()

	Local cMsg := ""

	If INCLUI 
    	cMsg := "USUARIO " +  cUserName + "Incluiu arquivo na tarefa"
	EndIf

	If Altera
   	 	cMsg := "USUARIO " +  cUserName + "alterou arquivo na tarefa"
	EndIf

	If !INCLUI .And. !Altera
    	cMsg := "USUARIO " +  cUserName + "Visualisou arquivo na tarefa"
	EndIf

	MsgAlert(cMsg)

Return