import.css=/download/attachments/6062824/tecnologia.css

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

Nome

Tipo

Descrição

Obrigatório

Referência

cFile

caractere

Caso presente, procura o arquivo indicado no RPO atual e ve qual o numero de linhas dele.

X

 

Retorno

Nome

Tipo

Descrição

nLines

numérico

Numero de linhas do fonte

  • O fonte precisá estar previamente compilado no mesmo RPO que foi chamada a função

Exemplos

user function lnprogrs()
conout( "Total de linhas desse fonte:" )
conout( GetLinesProg() )    //retornará 5
conout( "Total de linhas do fonte dummy.prw:" )
conout( GetLinesProg("dummy.prw") )    //retornará N linhas do <i>suposto</i> fonte dummy.prw.
return

Abrangência

TOTVS Application Server 17.3.0.8