Cabeçalho

GetLinesProg [AS]

Autor: Eurai Criado: 13/08/2021 Atualizado: 26/04/2025 Diversos

Postagem

Descrição

GetLinesProg [AS] - Retorna o numero de linhas executáveis do fonte onde ela foi chamada, ou GetLinesProg("fonte.extensao") para retornar de um outro fonte..

Sintaxe

GetLinesProg(<cFile>)

Parâmetros

Par	Nome	Tipo	Descrição	Default	Obg	Ref
01	cFile	Caracter	Caso presente, procura o arquivo indicado no RPO atual e ve qual o numero de linhas dele.

Retorno

Retorno	Tipo	Descrição
nRet	Numérico	Numero de linhas do fonte

Exemplo

#INCLUDE "TOTVS.CH"

User Function GetLinesProg()

MsgInfo( "GetLinesProg(): " + cValtoChar(GetLinesProg('MATA010.PRX')), 'Universo do Desenvolvedor' )

Return( Nil )

Resultado
getlinesprog