Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Alexandre dos Santos

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Alexandre dos Santos

Gravado em

Chave

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

...

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

User Function MNTA2650MNTA3400()

	Local cAlias aRet   := {}
	Local nRecNo := ParamIXB[1]

	Local aRet   := {}dbSelectArea( 'STL' )
	dbGoTo( nRecNo )
	
	If (cAlias)STL->TL_TIPOREG == 'T'

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

	EndIf
	
Return aRet

...