Árvore de páginas

Versões comparadas

Chave

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

...

Bloco de código
languagesql
themeFadeToGrey
titleExemplo MNTA2650
linenumberstrue
#include 'protheus.ch'   

User Function MNTA2650()

	Local cAlias := ParamIXB[1]
	Local aRet   := {}
	
	If (cAlias)->TL_TIPOREG == 'T'

		aAdd( aRet, (cAlias)->TL_XPROFO )
		aAdd( aRet, (cAlias)->TL_XLOCPR )

	EndIf
	
Return aRet

...