Árvore de páginas

Versões comparadas

Chave

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

...

Bloco de código
languagevb
themeFadeToGreyRDark
titleExemplo IMP675OS
linenumberstrue
#Include 'Protheus.ch'

//-------------------------------------------------------------------
/*/{Protheus.doc} IMP675OS
Inclui opções de relatório

@author  Eduardo Mussi
@since   30/06/2018
@version P12
/*/
//-------------------------------------------------------------------
User Function IMP675OS()

    Local aOpcRot := {}

	// Adiciona Opções de impressão
    aAdd(aOpcRot, { "Opção usuário", "U_fOpcUser", { .F., "Ponto de Entrada 'fOpcUser'" } } )

Return aOpcRot

//-------------------------------------------------------------------
/*/{Protheus.doc} IMP675OS
Impressão de mensagem

@author  Eduardo Mussi
@since   01/07/2018
@version P12
@param   aParam[1], Lógico, Indica se apresenta mensagem
@param   aParam[2], Caractér, Mensagem de erro
/*/
//-------------------------------------------------------------------
Function U_fOpcUser(aParam)

    Local lTest    := aParam[1]
    Local cMsg := aParam[2]

    If lTest
		// Chamada do relatório especifico
		U_RelEspec(cMsg)

    EndIf

Return

...